samples/wc2re.pl

   1 #!/bin/env perl
   2
   3 use strict;
   4 use warnings;
   5
   6 use lib q:../lib/:;
   7
   8 use Regexp::Wildcards qw/wc2re/;
   9
  10 my $type = (grep $^O eq $_, qw/dos os2 MSWin32 cygwin/) ? 'win32' : 'unix';
  11 print "For this system, type is $type\n";
  12
  13 {
  14  local $Regexp::Wildcards::CaptureBrackets = 1;
  15  local $Regexp::Wildcards::CaptureAny = -1;
  16  print $_, ' => ', wc2re($_ => $^O), "\n" for @ARGV;
  17 }
  18