wc2re.pl 338 B

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