1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
|
use v5.10;
use warnings;
my $grammar_unflattened = do {
use Regexp::Grammars;
qr{
mv \s* <from> \s* <to>
<rule: from> <file>
<rule: to> <file>
<rule: file> <dirpath>? <filename>
<token: dirpath> /? (?: [\w.-]+ / )+
<token: filename> [\w.-]+
}xms;
};
my $grammar_flattened = do {
use Regexp::Grammars;
qr{
mv \s* <from> \s* <to>
<rule: from> <MATCH=file>
<rule: to> <MATCH=file>
<rule: file> <dirpath>? <filename>
(?{ $MATCH = ($MATCH{dirpath}//q{})
. $MATCH{filename}
})
<token: dirpath> /? (?: [\w.-]+ / )+
<token: filename> [\w.-]+
}xms;
};
while (my $line = <>) {
my $line_copy = $line;
if ($line =~ $grammar_unflattened) {
use Data::Dumper 'Dumper';
say Dumper \%/;
}
if ($line_copy =~ $grammar_flattened) {
use Data::Dumper 'Dumper';
say Dumper \%/;
}
}
|
