Perl problem outputting 1?

  • Thread starter Thread starter Napster
  • Start date Start date
N

Napster

Guest
Sample:
1234567 7654321 1221134 9999999 8889999
9898989 1112222
3331111

Perl Code:
perl -le 'while(<>) { ($a) = /\d{7}/; print $a; }'

Output
cat text.txt |perl -le 'while(<>) { ($a) = /\d{7}/; print $a; }'
1
1
1

Cheers Tommy.
 
Back
Top