Aaron Sherman writes:
: Hopefully there will be some replacement. I can't count the number of
: times I've relied on things like:
:
: $b = qr/\d{1,3}/;
: if (@ip = ($addr =~ /($b)\.($b)\.($b)\.($b)/)) {
: die "$0: \"$addr\": bad IP\n" if grep {$_>255} @ip;
: print("0x",(map {sprintf "%02x", $_} @ip),"\n");
: } else {
: die "$0: \"$addr\" is not an IP address\n";
: }
:
: It would be a shame to loose that.
Bear in mind we have to translate Perl 5 to Perl 6, so it's quite unlikely
that we would drop the general case. The only question here is what it
ought to look like in the general re-huffmanization of regexen.
Larry
