/
githubmirror
/
e2fsprogs
Обзор
Документация
Войти
/
githubmirror
/
e2fsprogs
Код
Запросы
0
Пакеты
0
Релизы
0
Аналитика
Безопасность
master
wordwrap.pl
29 строк
681 B
Theodore Ts'o
Fix wordwrap.pl so it is more portable
21 сен 2012, 20:50
21 сен 2012, 20:50
bbcd91b
Код
Авторство
О чём код?
#!/usr/bin/perl # # wordwrap.pl --- does word wrap # while (<>) { if (/^#/) { # don't word wrap comments print; next; } next if (/^$/); # skip blank lines $linelen = 0; @words = split; while (defined($word = shift @words)) { $word =~ s#\$\(srcdir\)/\.\./version.h#\$\(top_srcdir\)/version.h#; $word =~ s#\$\(srcdir\)/.\.\/\.\./version.h#\$\(top_srcdir\)/version.h#; $word =~ s#\$\(srcdir\)/.\.\/et/com_err.h#\$\(top_srcdir\)/lib/et/com_err.h#; if ($linelen > 0) { printf(" "); } $len = length($word) + 1; $linelen += $len; if ($linelen > 78) { printf("\\\n "); $linelen = 1+$len; } printf("%s", $word); } printf("\n"); }