mirror of https://github.com/vitalif/e2fsprogs
27 lines
446 B
Perl
27 lines
446 B
Perl
![]() |
#!/usr/bin/perl
|
||
|
#
|
||
|
# wordwrap.pl --- does word wrap
|
||
|
#
|
||
|
while (<>) {
|
||
|
if (/^#/) { # don't word wrap comments
|
||
|
print;
|
||
|
next;
|
||
|
}
|
||
|
next if (/^$/); # skip blank lines
|
||
|
$linelen = 0;
|
||
|
split;
|
||
|
while (defined($word = shift @_)) {
|
||
|
if ($linelen > 0) {
|
||
|
printf(" ");
|
||
|
}
|
||
|
$len = length($word) + 1;
|
||
|
$linelen += $len;
|
||
|
if ($linelen > 78) {
|
||
|
printf("\\\n ");
|
||
|
$linelen = 1+$len;
|
||
|
}
|
||
|
printf("%s", $word);
|
||
|
}
|
||
|
printf("\n");
|
||
|
}
|