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;