Perl ?
Есть задача:
имею два файла с разделителями ";" делаю следующюю обработку со вложенным поиском при этом вложеный поиск она обрабатывает а внешний не хочет.
=====
open outfile, "<C:/Perl/moduli/reestr/spisok1.txt" or die "не могу открыть\n" ;
open outfile2, "<C:/Perl/moduli/reestr/spisok2.txt" or die "не могу открыть\n" ;
foreach $item1 (<outfile>)
{
foreach $item2 (<outfile2>)
{
@array1=split(";",$item1);
@array2=split(";",$item2);
printf ("@array1[0]=@array2[0] \n");
if (@array1[0] eq @array2[0])
{
printf ("@array1[0]=@array2[0] \n");
}
}
}
У кого будут какие соображения. проблема проста но не могу ее решить.
|