#!perl -w # # A simple indented text unwrapper by Dmitry Ogarkov # http://ogarkov.com # # Converts this: # # aaa bb cccc dddd eee fff ggg # hh iiiii jj kkkk lll mmm nn # oooo ppp qqq rrr sss tt uuu # vvv wwwww xxxx yy zzz # # into this: # # aaa bb cccc dddd eee fff ggg hh iiiii jj kkkk lll mmm nn # # oooo ppp qqq rrr sss tt uuu vvv wwwww xxxx yy zzz # # Usage: # # unwrap-indented.pl # $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."); $spacer = ""; while () { chop; if ($_ eq "") { print OUT "\n\n"; $spacer = ""; } elsif ($_ =~ /^\s+/) { print OUT "\n\n"; print OUT $'; $spacer = " "; } else { print OUT $spacer; print OUT $_; $spacer = " "; } } print OUT "\n"; close (OUT); close (IN);