Re: Look Behind not work, please help

Another way:

my $str = "ABC\"123\"XYZ";
$str =~ /([A-Z]*)"([0-9]*)"([A-Z]*)/;
print "Res: $1 $2 $3\n"

__DATA__

Res: ABC 123 XYZ
[download]

      
--------------------------------
SV* sv_bless(SV* sv, HV* stash);

Comment on Re: Look Behind not work, please help Download Code

Replies are listed 'Best First'.
Re: Re: Look Behind not work, please help by nite_man (Deacon) on Apr 30, 2003 at 09:09 UTC
This is update my previous post! `my $str = "ABC\"123\"XYZ"; map { print $_ . "\n" } split('"', $str); __DATA__ ABC 123 XYZ` [download] -------------------------------- SV* sv_bless(SV* sv, HV* stash);	[reply] [d/l]