my @header = qw( TABNAME 06100 01010 06000 00110A ); my @data = qw( !W31801!-->!919!-->!90200809!-->!840!-->!MO! !W31801!-->!919!-->!902008!-->!74!-->!MO! ); my @fields; #declare here so it's visible to format below foreach my $line (@data) { @fields = split(/-->/, $line); write; } format STDOUT_TOP = @<<<<<<<<< @<<<<<<<<< @<<<<<<<<< @<<<<<<<<< @<<<<<<<<< @header . format STDOUT = @<<<<<<<<< @<<<<<<<<< @<<<<<<<<< @<<<<<<<<< @<<<<<<<<< @fields .
In reply to Re: Print Array items in Fixed width
by broomduster
in thread Print Array items in Fixed width
by harishnuti
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |