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
  16 use Data::Dumper;
  17 print Dumper($rw);
  18
  19 $rw->capture(add => [ qw/brackets any greedy/ ]);
  20 print Dumper($rw);
  21
  22 print $_, ' => ', $rw->convert($_), "\n" for @ARGV;