Re: regexp problem

[Xavier Noria]

On Jun 14, 2007, at 12:04 PM, Jorge Almeida wrote:

I'm missing something about Perl's regexp:

  1 #!/usr/bin/perl -w
  2 use strict;
  3 my $s=<STDIN>;
  4 $s=~s/\D*//;
  5 $s=~s/\D*//;
  6 print "$s\n";

When input is 'a123b', I get '123b', but I expected '123'.

  s/\D+//g;

-- fxn


--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/