File: wrap.pl

package info (click to toggle)
blender 2.36-1sarge1
  • links: PTS
  • area: main
  • in suites: sarge
  • size: 34,220 kB
  • ctags: 42,784
  • sloc: ansic: 280,846; cpp: 123,984; python: 18,428; sh: 7,178; makefile: 3,296; perl: 2,082; xml: 484; java: 8
file content (21 lines) | stat: -rwxr-xr-x 336 bytes parent folder | download | duplicates (5) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
#!/usr/bin/env perl

$linelength = 72;
$indent = "  ";

while (<>)
{
	@words = split " ", $_;
	$loc = length($indent);
	printf "$indent";
	foreach $word (@words){
		if ((length($word) + 1 + $loc) > $linelength) {
			printf "\n$indent";
			$loc = length($indent);;
		}
		printf "$word ";
		$loc += length($word) + 1;
	}
	printf "\n";
}