samples/wc2re.pl

   1 #!/bin/env perl
   2
   3 use strict;
   4 use warnings;
   5
   6 use lib qw{blib/lib};
   7
   8 use Regexp::Wildcards;
   9 use Data::Dumper;
  10
  11 my $rw = Regexp::Wildcards->new(
  12  do      => [ qw/brackets/ ],
  13  capture => [ qw/single/ ],
  14 );
  15 $rw->do(add => [ qw/jokers/ ]);
  16 $rw->capture(add => [ qw/brackets any greedy/ ]);
  17
  18 print $_, ' => ', $rw->convert($_), "\n" for @ARGV;