Документ взят из кэша поисковой машины. Адрес оригинального документа : http://kodomo.cmm.msu.ru/~lvserega/docs/Term4/Practice11/SAS Дата изменения: Sun May 11 17:48:23 2008 Дата индексирования: Mon May 26 17:33:45 2008 Кодировка:

#!usr/bin/perl
open(IN,"<$ARGV[0]");
open(IN2,"<$ARGV[1]");
my @array;
my @array2;
my @array3;
my $i=0;
my $l=0;
my $g=0;
my $counter=0;
while(){
if ($_=~/^([A-Z][0-9]\w{3,3}\d)\n/){
# print "$i $1","\n";
$array[$i]=$1;
$i++;
}
}
for (my $j=0;$j<=$#array;$j++){
#print "$j $array[$j]","\n";
}

for (my $j=0;$j<$#array;$j++){
if($array[$j] eq $array[$j+1]){
splice(@array,$j+1,1);}
else{}
}


while(){
if ($_=~/^([A-Z][0-9]\w{3,3}\d)\n/){
# print "$l $1","\n";
$array2[$l]=$1;
$l++;
}

}
#print @array2;

for (my $j=0;$j<$#array2;$j++){
if($array2[$j] eq $array2[$j+1]){
splice(@array2,$j+1,1);}
else{}
}

#print @array2;

for (my $j=0;$j<=$#array;$j++){
for (my $k=0;$k<=$#array2;$k++){
if($array[$j] eq $array2[$k]){
$counter++;}
}
}
#print scalar(@array),"\n";
print "hits ",$counter,"\n";
print "$ARGV[0] ", scalar(@array),"\n";
print "$ARGV[1] ", scalar(@array2),"\n";
print @array3,"\n";