Исходное сообщение
"Perl. Вопрос по поиску соответствия в строке" Отправлено Goshik1, 12-Мрт-12 10:20
> foreach $r (@kill){foreach $t (@ses){if ($t=~/$r/){print $t;}}} > Но вообще ваш пример работает. Все он создает... У меня он промежуточные переменные выводит правильно, но в файл-результат не записывает. С Вашим примером тоже (( Вот пример текстовых файлов, чтобы было понятнее. массив kill: username1 username2 массив ses: СЕАНС             ПОЛЬЗОВАТЕЛЬ             ID  СТАТУС  ТИП         УСТР-ВО console                                     0  Џ®¤Є«о祭®  wdcon               rdp-tcp                                 65538  ЏаЁҐ¬   rdpwd               rdp-tcp#31        username1                 1  ЂЄвЁў­®  rdpwd               Скрипт должен проверять присутствует ли элемент массива kill (username1) в элементе массива (строке) ses.  Т.е. в итоговый файл должна попасть полностью строка: rdp-tcp#31        username1                 1  ЂЄвЁў­®  rdpwd

Ваше сообщение
Имя*:
EMail:	Для отправки новых сообщений в текущей нити на email укажите знак ! перед адресом, например, !user@host.ru (!! - не показывать email). Более тонкая настройка отправки ответов производится в профиле зарегистрированного участника форума.
Заголовок*:
Сообщение*:	>> foreach $r (@kill){foreach $t (@ses){if ($t=~/$r/){print $t;}}} >> Но вообще ваш пример работает. Все он создает... > У меня он промежуточные переменные выводит правильно, но в файл-результат не записывает. > С Вашим примером тоже (( > Вот пример текстовых файлов, чтобы было понятнее. > массив kill: > username1 > username2 > массив ses: > СЕАНС > ПОЛЬЗОВАТЕЛЬ > ID СТАТУС ТИП > УСТР-ВО > console > > > 0 Џ®¤Є«о祭® wdcon > rdp-tcp > > > 65538 ЏаЁҐ¬ rdpwd > rdp-tcp#31 username1 > > 1 ЂЄвЁў­® rdpwd > Скрипт должен проверять присутствует ли элемент массива kill (username1) в элементе массива > (строке) ses. Т.е. в итоговый файл должна попасть полностью строка: > rdp-tcp#31 username1 > > 1 ЂЄвЁў­® rdpwd
	Введите код, изображенный на картинке: