File: wc2re.pl

package info (click to toggle)
libregexp-wildcards-perl 1.05-2
  • links: PTS, VCS
  • area: main
  • in suites: bookworm, bullseye, buster, sid
  • size: 188 kB
  • sloc: perl: 489; makefile: 2
file content (18 lines) | stat: -rwxr-xr-x 338 bytes parent folder | download
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
#!/usr/bin/perl

use strict;
use warnings;

use lib qw<blib/lib>;

use Regexp::Wildcards;
use Data::Dumper;

my $rw = Regexp::Wildcards->new(
 do      => [ qw<brackets> ],
 capture => [ qw<single> ],
);
$rw->do(add => [ qw<jokers> ]);
$rw->capture(add => [ qw<brackets any greedy> ]);

print $_, ' => ', $rw->convert($_), "\n" for @ARGV;