diff options
| author | Adam Russell <ac.russell@live.com> | 2019-09-29 09:25:52 -0400 |
|---|---|---|
| committer | Adam Russell <ac.russell@live.com> | 2019-09-29 09:25:52 -0400 |
| commit | c1d8cb8bebe97b1b1941033d7b04683edc7fb329 (patch) | |
| tree | af62912b6c42ec77165ded1f524509b6a24753af | |
| parent | f4fe2f01fc44195496bd0e0892f5418029241478 (diff) | |
| download | perlweeklychallenge-club-c1d8cb8bebe97b1b1941033d7b04683edc7fb329.tar.gz perlweeklychallenge-club-c1d8cb8bebe97b1b1941033d7b04683edc7fb329.tar.bz2 perlweeklychallenge-club-c1d8cb8bebe97b1b1941033d7b04683edc7fb329.zip | |
initial commit
| -rw-r--r-- | challenge-027/adam-russell/blog.txt | 0 | ||||
| -rw-r--r-- | challenge-027/adam-russell/perl5/Audit.pm | 30 | ||||
| -rw-r--r-- | challenge-027/adam-russell/perl5/ch-1.pl | 0 | ||||
| -rw-r--r-- | challenge-027/adam-russell/perl5/ch-2.pl | 0 |
4 files changed, 30 insertions, 0 deletions
diff --git a/challenge-027/adam-russell/blog.txt b/challenge-027/adam-russell/blog.txt new file mode 100644 index 0000000000..e69de29bb2 --- /dev/null +++ b/challenge-027/adam-russell/blog.txt diff --git a/challenge-027/adam-russell/perl5/Audit.pm b/challenge-027/adam-russell/perl5/Audit.pm new file mode 100644 index 0000000000..29f0b56a1b --- /dev/null +++ b/challenge-027/adam-russell/perl5/Audit.pm @@ -0,0 +1,30 @@ +package Audit{ + use Filter::Simple; + + our %Log; + + sub audit{ + my($name, $value) = @_; + $value = "undef" if !$value; + if($Log{$name}){ + push @{$Log{$name}}, $value; + } + else{ + $Log{$name} = [$value]; + } + #print "A " . $name . " " . $value . "\n"; + } + + sub print_log{ + for my $key (keys %Log){ + print "$key: " . join(", ", @{$Log{$key}}) . "\n"; + } + } + + FILTER_ONLY code => sub{ + s|((\$[[:alpha:]]*).*;)|$1 Audit::audit('$2', $2);|g; + #print $1 . "\n"; + #print $2 . "\n"; + #print; + } +} diff --git a/challenge-027/adam-russell/perl5/ch-1.pl b/challenge-027/adam-russell/perl5/ch-1.pl new file mode 100644 index 0000000000..e69de29bb2 --- /dev/null +++ b/challenge-027/adam-russell/perl5/ch-1.pl diff --git a/challenge-027/adam-russell/perl5/ch-2.pl b/challenge-027/adam-russell/perl5/ch-2.pl new file mode 100644 index 0000000000..e69de29bb2 --- /dev/null +++ b/challenge-027/adam-russell/perl5/ch-2.pl |