Mega Code Archive

 

Categories / Perl / Report

 

Align fields on a report

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