X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=samples%2Fwc2re.pl;h=29603163145075ed29a8b2f79bc413006d9be092;hb=HEAD;hp=0afc1268a8163b1de5a42fe59abd5f5793dbf72c;hpb=fbd767d1d92b735a6509e57ccfbd73b45845081e;p=perl%2Fmodules%2FRegexp-Wildcards.git diff --git a/samples/wc2re.pl b/samples/wc2re.pl index 0afc126..2960316 100755 --- a/samples/wc2re.pl +++ b/samples/wc2re.pl @@ -3,20 +3,16 @@ use strict; use warnings; -use lib qw{blib/lib}; +use lib qw; use Regexp::Wildcards; use Data::Dumper; my $rw = Regexp::Wildcards->new( - do => [ qw/brackets/ ], - capture => [ qw/single/ ], + do => [ qw ], + capture => [ qw ], ); - -use Data::Dumper; -print Dumper($rw); - -$rw->capture(add => [ qw/brackets any greedy/ ]); -print Dumper($rw); +$rw->do(add => [ qw ]); +$rw->capture(add => [ qw ]); print $_, ' => ', $rw->convert($_), "\n" for @ARGV;