File: wrap.pl

package info (click to toggle)
blender 2.42a-7
  • links: PTS
  • area: main
  • in suites: etch-m68k
  • size: 60,700 kB
  • ctags: 83,393
  • sloc: ansic: 576,763; cpp: 187,760; python: 48,472; sh: 15,785; makefile: 4,298; perl: 2,082; asm: 1,471; 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";
}