]> git.vpit.fr Git - perl/modules/Regexp-Wildcards.git/blob - samples/wc2re.pl
b3336f744192122f56f7c7b4499700d8eefd3781
[perl/modules/Regexp-Wildcards.git] / 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;