[Linux-Biella] confronto files

[linux@bilug.linux.it]

In un programma in Perl devo confrontare l' eguaglianza di 2 files:
se sono diversi devo eseguire la copia del primo file in un terzo file.

Mi inciampo nel riconoscimento di eguaglianza di una stringa dei files:



#! /bin/perl

open A, "/gp/info1";                       # apro in lettura
open B, "/gp/info2";                       # apro in lettura
@RG1=<A>;                       #ogni riga del file e' elemento dell' array
@RG2=<B>;                       #ogni riga del file e' elemento dell' array
print "@RG1[7]";   #questo solo per debug: verifica che esista la variabile
print "@RG2[7]";   #questo solo per debug: verifica che esista la variabile
if (@RG1[7] !~ @RG2[7])   #se la prima diversa dalla seconda
                          #ma questo non va, perche' mai?
{
open C, ">>/gp/info3";                     # apro in append
foreach (@RG1[5..21]) {print C $_};
close C;
}
close A;
close B;

Ho provato anche ad usare diff ma non vado meglio.

Qualcuno puo' aiutarmi?