Anton_Y
Full Member | Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
Код:
my @badlist = qw~data1 data2 data3~; #данные которые надо исключить
my @new_list; #массив со значениями из которых надо исключить @badlist
my @list; # итоговый массив
my %hash;
@hash{@badlist} = (1) x @badlist;
@list = grep {$_ && !$hash{$_}++} @new_list;
|
Вывод случайно строки из файла
Код:
my @array;
my $file = "file.txt"; #файл откуда берем значения
open(FILE,"$file") || die $!;
while (<FILE>)
{
chomp;
push (@array,$_);
}
close(FILE);
my $rline = int(rand(@array));
my $line = $array[$rline];
print $line #случайная строка
|
|
Всего записей: 581 | Зарегистр. 04-09-2002 | Отправлено: 07:12 14-07-2004 | Исправлено: Cheery, 23:38 01-03-2008 |
|
