diff options
| author | lookshe <mail@lookshe.org> | 2011-09-21 09:17:36 +0200 |
|---|---|---|
| committer | lookshe <mail@lookshe.org> | 2011-09-21 09:17:36 +0200 |
| commit | 69c75288830e8e316f3c7db479fdacaf2e10b1b8 (patch) | |
| tree | b66e32bbbc3e826cbd3d053b4b88795604e5e51c | |
| parent | d31b8400cbe5a131376efee4f7ba6ec5506807a6 (diff) | |
fix for special character and reading time in firstseen.pl
| -rw-r--r-- | firstseen.pl | 4 | ||||
| -rw-r--r-- | lastseen.pl | 2 | ||||
| -rw-r--r-- | lastspoke.pl | 2 |
3 files changed, 4 insertions, 4 deletions
diff --git a/firstseen.pl b/firstseen.pl index adf8f3e..5b938f6 100644 --- a/firstseen.pl +++ b/firstseen.pl @@ -9,8 +9,8 @@ if ($#ARGV ne 2){ my $chan=$ARGV[1]; my $folder=$ARGV[0]; my $nick=$ARGV[2]; -$nick=~s/\|/\\\|/g; $nick=~s/\\/\\\\/g; +$nick=~s/\|/\\\|/g; my @files; @@ -28,7 +28,7 @@ foreach $line (<file>) { print "$nick belongs to inventory\n"; exit 0; } else { - ($time=$line)=~s/(.*)([0-9]{2}:[0-9]{2}(:[0-9]{2})?)(.*)\n/$3/; + ($time=$line)=~s/(.*)([0-9]{2}:[0-9]{2}(:[0-9]{2})?)(.*)\n/$2/; print "$nick was first seen on $date at $time\n"; exit 0; } diff --git a/lastseen.pl b/lastseen.pl index 293bcdb..cf23ebe 100644 --- a/lastseen.pl +++ b/lastseen.pl @@ -10,8 +10,8 @@ if ($#ARGV ne 2){ my $chan=$ARGV[1]; my $folder=$ARGV[0]; my $nick=$ARGV[2]; -$nick=~s/\|/\\\|/g; $nick=~s/\\/\\\\/g; +$nick=~s/\|/\\\|/g; my @files; diff --git a/lastspoke.pl b/lastspoke.pl index 77a6a9b..5df925f 100644 --- a/lastspoke.pl +++ b/lastspoke.pl @@ -10,8 +10,8 @@ if ($#ARGV ne 2){ my $folder=$ARGV[0]; my $chan=$ARGV[1]; my $nick=$ARGV[2]; -$nick=~s/\|/\\\|/g; $nick=~s/\\/\\\\/g; +$nick=~s/\|/\\\|/g; my @files; |