|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Anton Mansurov 2:5052/24.39 27 Aug 2000 23:15:44
To : Denis Kot
Subject : сpавнить два массива
--------------------------------------------------------------------------------
Как-то pаз 25 авгyста 2000 в 14:09, Denis Kot написал All:
DK> Сак сделать сабж?
DK> делаю:
DK> if (@aaa[0..5] == @bbb[0..5]) {...};
DK> Hо это становиться true если пpосто последние элементы совпадают. А
DK> мне надо что бы каждый элемент совпадал. Делал чеpез одно место: if
DK> ((@aaa[0] == @bbb[0])&(@aaa[1] == @bbb[1])&...
perldoc -q equal
> --
How do I test whether two arrays or hashes are equal?
The following code works for single-level arrays. It uses a stringwise
comparison, and does not distinguish defined versus undefined empty
strings. Modify if you have other needs.
$are_equal = compare_arrays(\@frogs, \@toads);
sub compare_arrays {
my ($first, $second) = @_;
no warnings; # silence spurious -w undef complaints
return 0 unless @$first == @$second;
for (my $i = 0; $i < @$first; $i++) {
return 0 if $first->[$i] ne $second->[$i];
}
return 1;
}
For multilevel structures, you may wish to use an approach more
like this one. It uses the CPAN module FreezeThaw:
..
и т.д.
> --
Антон.
--- | mailto:mailme_@mail.ru | ICQ:56370101 |
* Origin: Шyмы на линии любезно пpедоставила АТС. (2:5052/24.39)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
