Mega Code Archive

 

Categories / Perl / Report

 

Split a long field over multiple lines

#!/usr/local/bin/perl -w     while (<ARGV>)     {         chomp;         ($number,$type,$name,$price,$desc) = split (/\|/);         write;     }     format STDOUT =     @>>>> @|||||| @<<<<<<<<< @<<<<<<<<<<<<< $@####.##     ^<<<<<<<<<<<<<<<<<<<<<<<<<     $,,$number,$type,$name,$price,$desc     ~                                            ^<<<<<<<<<<<<<<<<<<<<<<<<<     $desc     ~                                            ^<<<<<<<<<<<<<<<<<<<<<<<<<     $desc     .