programming-examples/perl/Report/Align fields on a report.pl
2019-11-15 12:59:38 +01:00

13 lines
319 B
Raku

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