perl -ne 'if (/(\d+(\.\d+)?)$/) {print $1, "\n"}' file1 file2
[download]

my @numbers;
while ( <FILE> ) {
   /(\d+)$/;
   push @numbers, $1;
}
[download]

Oooh. I flagged this kind of stuff as "scary code" already before in the Monastery, I think.

The rule is "NEVER look at $1 unless it's conditionally based upon a successful match".

For your code, you might accidentally push the same value two or more times, since your push doesn't depend on the success of the match, so you'll end up grabbing the $1 of the prior match.

You probably intended something like this:

my @numbers;
while (<FILE>) {
  push @numbers, $1 if /(\d+)$/;
}
[download]

Another way to write that without using a push might be:

my @numbers = map /(\d+)$/, <FILE>;
[download]

which works because if the match fails on a line, you get an empty list (not a prior $1).

-- Randal L. Schwartz, Perl hacker

-- Randal L. Schwartz, Perl hacker