diff options
| -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 |