diff options
Diffstat (limited to 'firstseen.pl')
-rw-r--r-- | firstseen.pl | 4 |
1 files changed, 2 insertions, 2 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; } |