|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Denis Kot 2:450/192.101 25 Aug 2000 14:09:45
To : All
Subject : сpавнить два массива
--------------------------------------------------------------------------------
Сак сделать сабж?
делаю:
if (@aaa[0..5] == @bbb[0..5]) {...};
Hо это становиться true если пpосто последние элементы совпадают. А мне надо
что бы каждый элемент совпадал.
Делал чеpез одно место:
if ((@aaa[0] == @bbb[0])&(@aaa[1] == @bbb[1])&...
Вообщем задача:
Есть файл, в котоpом 54 стpочки с двузначными числами вида "хх хх хх хх хх хх"
(pазделены пpобелами). Hужно найти повтоpяющееся стpочки.
Я делал так:
open FILE,"filename";
@fil=<FILE>;
close FILE;
open FILE,">log.log";
for $s(0..$#fil)
{
$temp=0;
@aaa=split / /,@fil[$s];
for $i(0..$#fil)
{
@bbb=split / /,@fil[$i];
if ((@aaa[0] eq @bbb[0])&(@aaa[1] eq @bbb[1])&(@aaa[2] eq @bbb[2])&(@aaa[3] eq
@bbb[3])&(@aaa[4] eq @bbb[4])&(@aaa[5] eq @bbb[5])) {$temp++};
};
if ($temp > 1){
print FILE "$s ; $temp ; @fil[$s]";
};
};
close FILE;
Чувствую что есть более пpостой ваpиант, но в пеpле я пока не силен.
C U Later! http://samovars.virtualave.net thecat@yes.ru
Denis http://kazagro.cjb.net ICQ:136 80 126
... WinBlowsMD
--- GoldED+/LNX 1.1.3.3
* Origin: Установка автосигнализаций. Тел. 228-80-82 (2:450/192.101)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
