X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=samples%2Fwc2re.pl;h=29603163145075ed29a8b2f79bc413006d9be092;hb=HEAD;hp=4a799464ec5eaa8b65b58417fe31258b5e9d90fb;hpb=03007c83b1d852b1f2120c7aa500c36607d30e72;p=perl%2Fmodules%2FRegexp-Wildcards.git

diff --git a/samples/wc2re.pl b/samples/wc2re.pl
index 4a79946..2960316 100755
--- a/samples/wc2re.pl
+++ b/samples/wc2re.pl
@@ -3,14 +3,16 @@
 use strict;
 use warnings;
 
-use Regexp::Wildcards qw/wc2re/;
+use lib qw<blib/lib>;
 
-my $type = (grep $^O eq $_, qw/dos os2 MSWin32 cygwin/) ? 'win32' : 'unix';
-print "For this system, type is $type\n";
+use Regexp::Wildcards;
+use Data::Dumper;
 
-{
- local $Regexp::Wildcards::CaptureBrackets = 1;
- local $Regexp::Wildcards::CaptureAny = -1;
- print $_, ' => ', wc2re($_ => $^O), "\n" for @ARGV;
-}
+my $rw = Regexp::Wildcards->new(
+ do      => [ qw<brackets> ],
+ capture => [ qw<single> ],
+);
+$rw->do(add => [ qw<jokers> ]);
+$rw->capture(add => [ qw<brackets any greedy> ]);
 
+print $_, ' => ', $rw->convert($_), "\n" for @ARGV;