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