X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2FRegexp-Wildcards.git;a=blobdiff_plain;f=samples%2Fwc2re.pl;fp=samples%2Fwc2re.pl;h=4c6c3404e80d882c9184f9eb979a99f5e5957cc8;hp=0000000000000000000000000000000000000000;hb=46111541589202352d6a6a665eb03fe24e3861a6;hpb=d3841a7816c3e170f292ced4a5818ab252574300

diff --git a/samples/wc2re.pl b/samples/wc2re.pl
new file mode 100755
index 0000000..4c6c340
--- /dev/null
+++ b/samples/wc2re.pl
@@ -0,0 +1,11 @@
+#!/bin/env perl
+
+use strict;
+use warnings;
+
+use Regexp::Wildcards qw/wc2re/;
+
+my $type = (grep $^O eq $_, qw/dos os2 MSWin32 cygwin/) ? 'win32' : 'unix';
+
+print "For this system, type is $type\n";
+print $_, ' => ', wc2re($_ => $type), "\n" for @ARGV;