Currently I have my script print in a long list .csv file. I need to
print my long list into rows of 20 elements. How can I go about doing
this?
while ($x = <DATA>)
{
chop $x;
@arr = split /\s+/,$x;
$temp = @arr;
print "$arr[$temp -1],\n";
}
__DATA__
hostname01
Unknown
DL360 G3
M0PCLGP82F
Redhat_ES_3.0
Production
2.4.21-27.ELsmp
hostname03
Unknown
Netra X1
Production
117350-02
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
