in reply to Working with Arrays

Why make it so complex :)

while (<DATA>) {
  print +(split)[1], "\n" if /^$NUM17\b/;
}

[download]
--
<http://www.dave.org.uk>

"The first rule of Perl club is you do not talk about Perl club."
-- Chip Salzenberg

Replies are listed 'Best First'.
Re^2: Working with Arrays
by Anonymous Monk on Jul 07, 2004 at 12:30 UTC
    thanks Dave this will do the job!
[reply]

In Section Seekers of Perl Wisdom