4 8 9 9 2006 2007 2008 17 captures 9 5 03 - 9 8 07

Close Help

#指定の文字幅で段落を整形する

$length = 50;

$/ = "";

while (<>) {
   s/ *\n */ /g;
   s/ +$//;
   s/(.{0,$length}) +/$+\n/g;
   print "$_\n";
}

exit;