Front page | perl.beginners |
Postings from February 2012
Re: match
Thread Previous
|
Thread Next
From:
Dr.Ruud
Date:
February 13, 2012 06:10
Subject:
Re: match
Message ID:
20120213141007.12752.qmail@lists-nntp.develooper.com
On 2012-02-13 14:48, lina wrote:
> $mystring3="abacadeusagaka35";
>
> if($mystring =~ m/(a.+)/g){
> print $1,"\n";
> }
>
> Hi, I wonder how to print the "abacad" out?
I assume you are looking for /((?:a.)+)/.
perl -Mstrict -wle '
my $s = shift;
print $1 while $s =~ /((?:a.)+)/g;
' abacadeusagaka35
abacad
agaka3
perl -Mstrict -wle '
my $s = shift;
print for $s =~ /(?:a.)+/g;
' abacadeusagaka35
abacad
agaka3
--
Ruud
Thread Previous
|
Thread Next