#!perl -w # # A simple formatted text file unwrapper by Dmitry Ogarkov # http://ogarkov.com # # Converts this: # # long line long line long line # long line long line long line # short line # long line long line long line # long line long line long line # # into this: # # long line long line long line long line long line long line short line # # long line long line long line long line long line long line # # Usage: # # unwrap-formatted.pl # # Change the $shortline value below to tune the short line threshold. # $input_file = shift; $output_file = shift; open (IN, "$input_file") || die ("Could not open input file."); open (OUT, ">$output_file") || die ("Could not open output file."); $shortline = 40; $n = 0; while () { chop; if ($_ eq "") { print OUT "\n\n"; } else { print OUT $_; if (length($_) > $shortline) { print OUT " "; } else { print OUT "\n\n"; } } } print OUT "\n"; close (OUT); close (IN);