File: wrap.pl

package info (click to toggle)
blender 2.49.2~dfsg-2
  • links: PTS, VCS
  • area: main
  • in suites: squeeze
  • size: 89,664 kB
  • ctags: 113,718
  • sloc: ansic: 738,048; cpp: 231,960; python: 104,955; asm: 33,960; sh: 16,233; ml: 12,962; makefile: 4,477; perl: 3,474; fortran: 108; 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";
}