Nieoczekiwany błąd logiki

Question

Próbuję napisać skrypt perla, który będzie czytał wiersz po wierszu, porównuje konkretny fragment każdej linii z wierszem poprzednio przeczytanym, a jeśli jest inny, zapisuje go do nowego pliku . W efekcie skrypt usuwa nieunikalne linie pomiędzy kolejnymi liniami pliku.

Wydaje się, że skrypt cierpi na błąd logiczny, ponieważ zamiast uzyskiwać unikalne linie w pliku wyjściowym, otrzymuję tylko linię kończącą.

use strict; 
my $src='/var/www/pinginfo/ugvps'; 
my $tar="target"; 
open(INP, $src) or die("Could not open: $!."); 
open(OUTP, ">", $tar) or die "Couldn't open: $!"; 
my $lastrd=""; 
while(my $line = <INP>) { 
    if (&IsSame($lastrd, $line)) { 
     print "Unique line: ".$line."\n"; 
     print OUTP $line; 
     $lastrd=$line; 
    } else { 
     print "Line was the same: ".$line."\n"; 
    } 
} 
print OUTP "Done"; 
close (OUTP); 
close (INP); 
exit 0; 

sub IsSame { 
    my $old=$_[0]; 
    my $new=$_[1]; 
    if ($old == "") { 
     return 0; 
    } 
    my @values_old = split('\|',$old); 
    my @values_new = split('\|',$new); 
    if ($values_old[3] eq $values_new[3]) { 
     #True - they are the same 
     return 1; 
    } else { 
     #False 
     return 0; 
    } 
} 

Plik 'cel' po wykonaniu, zawiera pojedynczą linię Done.

Mój plik źródłowy wygląda następująco:

UGVPS|6.6.6.6|03-08-2013 10:16:21 PM|0 
UGVPS|6.6.6.6|03-08-2013 11:06:01 PM|0 
UGVPS|6.6.6.6|03-08-2013 11:08:01 PM|100 
UGVPS|6.6.6.6|03-08-2013 11:10:01 PM|0 
UGVPS|6.6.6.6|03-08-2013 11:14:01 PM|100 
UGVPS|6.6.6.6|03-08-2013 11:16:01 PM|0 
UGVPS|6.6.6.6|03-08-2013 11:52:02 PM|0 
UGVPS|6.6.6.6|03-08-2013 11:54:01 PM|100 
UGVPS|6.6.6.6|03-08-2013 11:56:01 PM|100 
UGVPS|6.6.6.6|03-08-2013 11:58:01 PM|100 
UGVPS|6.6.6.6|04-08-2013 12:00:01 AM|0 
UGVPS|6.6.6.6|04-08-2013 12:02:01 AM|100 
UGVPS|6.6.6.6|04-08-2013 12:04:01 AM|100 
UGVPS|6.6.6.6|04-08-2013 12:06:01 AM|100 
UGVPS|6.6.6.6|04-08-2013 12:08:01 AM|100 
UGVPS|6.6.6.6|04-08-2013 12:10:01 AM|100 
UGVPS|6.6.6.6|04-08-2013 12:12:01 AM|100 
UGVPS|6.6.6.6|04-08-2013 12:14:01 AM|100 
UGVPS|6.6.6.6|04-08-2013 12:16:01 AM|100 
UGVPS|6.6.6.6|04-08-2013 12:18:01 AM|100 
UGVPS|6.6.6.6|04-08-2013 12:20:01 AM|100 
UGVPS|6.6.6.6|04-08-2013 12:22:01 AM|100 
UGVPS|6.6.6.6|04-08-2013 12:24:01 AM|0 
UGVPS|6.6.6.6|04-08-2013 02:38:01 AM|0 

Answer 1

OK, zrobiłem to:

#!/usr/bin/perl 

use strict; 
use warnings; 

my $src='./input.txt'; 
my $tar="./target.txt"; 
open(INP, $src) or die("Could not open: $!."); 
open(OUTP, ">", $tar) or die "Couldn't open: $!"; 
my $lastrd=""; 
while(my $line = <INP>) { 
    unless (IsSame($lastrd, $line)) { 
     print "Unique line: ".$line."\n"; 
     print OUTP $line; 
     $lastrd=$line; 
    } else { 
     print "Line was the same: ".$line."\n"; 
    } 
} 
print OUTP "Done"; 
close (OUTP); 
close (INP); 
exit 0; 

sub IsSame { 
    my $old=$_[0]; 
    my $new=$_[1]; 
    if ($old eq "") { 
     return 0; 
    } 
    my @values_old = split('\|',$old); 
    my @values_new = split('\|',$new); 
    if ($values_old[3] eq $values_new[3]) { 
     #True - they are the same 
     return 1; 
    } else { 
     #False 
     return 0; 
    } 
} 

drukuje:

UGVPS|6.6.6.6|03-08-2013 10:16:21 PM|0 
UGVPS|6.6.6.6|03-08-2013 11:08:01 PM|100 
UGVPS|6.6.6.6|03-08-2013 11:10:01 PM|0 
UGVPS|6.6.6.6|03-08-2013 11:14:01 PM|100 
UGVPS|6.6.6.6|03-08-2013 11:16:01 PM|0 
UGVPS|6.6.6.6|03-08-2013 11:54:01 PM|100 
UGVPS|6.6.6.6|04-08-2013 12:00:01 AM|0 
UGVPS|6.6.6.6|04-08-2013 12:02:01 AM|100 
UGVPS|6.6.6.6|04-08-2013 12:24:01 AM|0 
Done 

Jeśli włączona ostrzeżeń w kodzie, można zobacz przydatne informacje:

Argument "" isn't numeric in numeric eq (==) at 7.pl line 28, <INP> line 2. 
Argument "" isn't numeric in numeric eq (==) at 7.pl line 28, <INP> line 3. 

Które mogą pomóc w znalezieniu błędu ==.

Także zmieniłem if (&IsSame($lastrd, $line)) do unless (IsSame($lastrd, $line))