Perl -> Возможно-ли применить рег. выражение....?
Имеется массив строк @Array[$k];
Нужно в этом массиве убрать все дублирующиеся строки (чтобы остался только один экземпляр).
Возможно-ли в этом случае обойтись без полного перебора? Может как-то с использованием регулярных выражений или еще как-нибудь....?
Нужно в этом массиве убрать все дублирующиеся строки (чтобы остался только один экземпляр).
Возможно-ли в этом случае обойтись без полного перебора? Может как-то с использованием регулярных выражений или еще как-нибудь....?
Цитата:
Originally posted by Cker
Имеется массив строк @Array[$k];
Нужно в этом массиве убрать все дублирующиеся строки (чтобы остался только один экземпляр).
Возможно-ли в этом случае обойтись без полного перебора? Может как-то с использованием регулярных выражений или еще как-нибудь....?
Имеется массив строк @Array[$k];
Нужно в этом массиве убрать все дублирующиеся строки (чтобы остался только один экземпляр).
Возможно-ли в этом случае обойтись без полного перебора? Может как-то с использованием регулярных выражений или еще как-нибудь....?
#!/usr/bin/perl -w
use strict;
&main();
sub main {
my $aref = [qw/1 2 3 4 5 6 7 8 9 1 2 3 4 5/];
my $seen = {};
my $uniq = [];
foreach (@$aref) {
push @$uniq, $_ unless $seen->{$_}++;
}
print join (" ", @$uniq)."\n";
}