marin schreef:
> I'm trying to get references from a simple regular
> exepression like this :
>
> "a40d7412" =~ /(([[:xdigit:]]{2})*)/;
> print "$1: <$2><$3><$4><$5>\n";
>
> This prints :
> a40d7412: <12><><><>
>
> How to get all references
Verbose variant:
#!/usr/bin/perl
use strict;
use warnings;
my $s = 'a40d7412';
my ($m, @m) = $s =~
/(
[[:xdigit:]] {2} # 2 hex-digits
)/xg; # each
print "$m: <",
join('><', @m),
">\n";
__END__
Terse variant:
@m = $s =~ /../g; # no capturing () needed
{ local $" = '><'; # see perlvar
print shift(@m), ": <@m>\n";
}
See also `perldoc -f pack` (the H-template).
> and not the last one in the second
> parenthesis pair ?
You shouldn't suggest the wrong approach as part of the solution.
:)
--
Affijn, Ruud
"Gewoon is een tijger."
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/
