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 |
|