https://opennet.me/openforum/vsluhforumID9/9407.html Доброго времени суток!<br><br>Никак не получается разобраться ((<br>Задача такая: есть два текстовых файла с разными длинами строк (во втором файле строка с пробелами).<br>Необходимо проверить присутствуют ли строки из первого файла в строках второго. И если присутствуют, то вывести эти строки в третий файл.<br><br>#!/usr/bin/perl -w <br> <br>#Открываем файл активных списка и заносим в массив<br>open (KILL,"kill.txt") &#124;&#124; die "$!";<br>@kill=&lt;KILL&gt;;<br>close (KILL);<br><br>#Открываем файл активных сессий и заносим в массив<br>open (SESSION,"session.txt") &#124;&#124; die "$!";<br>@ses=&lt;SESSION&gt;;<br>close (SESSION);<br><br>#Открываем файл-результат<br>open (KILL_SES,"&gt;kill_ses.txt") &#124;&#124; die "$!";<br><br>#Определяем размеры массивов<br>$size1=@kill;<br>$size2=@ses;<br><br>$i=0;<br>while ($i&lt;$size1) {<br> $temp1=$kill[$i];<br> $j=0;<br> while ($j&lt;$size2) {<br> $_=$ses[$j];<br>#промежуточная проверка print $_;<br>#промежуточная проверка print $temp1;<br> https://opennet.me/openforum/vsluhforumID9/9407.html#10 Mon, 12 Mar 2012 15:22:11 GMT &gt;&gt; foreach $r (@kill){foreach $t (@ses){if ($t=~/$r/){print $t;}}} <br>&gt;&gt; Но вообще ваш пример работает. Все он создает...<br>&gt; У меня он промежуточные переменные выводит правильно, но в файл-результат не записывает. <br>&gt; С Вашим примером тоже (( <br><br>Мой пример в файл ничего не пишет, он выводит на экран. Я написал его только для того чтобы показать вам как легко и просто решается ваша задача без этих ужасных циклов с счетчиками и определением размера массива :)<br><br>Если! Мой паример! Таки выведет вам на экран строки!<br><br>то сохранив скрипт в файл можно сделать так:<br><br>perl скрипт.pl &gt; файл_в котором_сохранится_то_что_он_вывел_на_экран<br><br>На самом деле, ваш пример, когда его запускаю я, создает файл с правильным содержимым.<br><br>Промежуточную проверку нужно вставить не только перед проверкой условия, но и в результат проверки условия:<br><br># промежуточная проверка <br>print $_;<br># промежуточная проверка <br>print $temp1;<br> if (/$temp1/) { <br># промежуточная проверка <br> https://opennet.me/openforum/vsluhforumID9/9407.html#9 Mon, 12 Mar 2012 11:53:53 GMT &gt;[оверквотинг удален]<br>&gt;&gt;&gt; верно? ;-) <br>&gt;&gt; Да, нечто вроде было :-) <br>&gt;&gt; Разобрался, немного переделав скрипт :-) <br>&gt;&gt; Рабочий скрипт ниже (если кому-нибудь будет интересно): <br>&gt; Надо было подчистить концы строк примерно так: <br>&gt; $temp1=~s/\r//; <br>&gt; $temp1=~s/\n//; <br>&gt; ну и во второй переменной аналогично.<br>&gt; Хотя в одной из них в общем-то не надо (котораЯ регуляркОЙ проверяется <br>&gt; - может содержать конец строки, но матчиться.) <br><br>Спасибо, попробую.<br><br> https://opennet.me/openforum/vsluhforumID9/9407.html#8 Mon, 12 Mar 2012 11:05:09 GMT &gt;[оверквотинг удален]<br>&gt;&gt; А выводит оно у тебя так: <br>&gt;&gt; Текущий элемент массива kill: XXXXX <br>&gt;&gt; [ПУСТАЯ СТРОКА] <br>&gt;&gt; Текущий элемент массива ses: YYYYY <br>&gt;&gt; [ПУСТАЯ СТРОКА] <br>&gt;&gt; Условие не выполнено <br>&gt;&gt; верно? ;-) <br>&gt; Да, нечто вроде было :-) <br>&gt; Разобрался, немного переделав скрипт :-) <br>&gt; Рабочий скрипт ниже (если кому-нибудь будет интересно): <br><br>Надо было подчистить концы строк примерно так: <br><br>$temp1=~s/\r//; <br>$temp1=~s/\n//; <br><br>ну и во второй переменной аналогично.<br><br>Хотя в одной из них в общем-то не надо (котораЯ регуляркОЙ проверяется - может содержать конец строки, но матчиться.)<br> https://opennet.me/openforum/vsluhforumID9/9407.html#7 Mon, 12 Mar 2012 07:46:46 GMT &gt; Хы.<br>&gt; А выводит оно у тебя так: <br>&gt; Текущий элемент массива kill: XXXXX <br>&gt; [ПУСТАЯ СТРОКА] <br>&gt; Текущий элемент массива ses: YYYYY <br>&gt; [ПУСТАЯ СТРОКА] <br>&gt; Условие не выполнено <br>&gt; верно? ;-) <br><br>Да, нечто вроде было :-)<br>Разобрался, немного переделав скрипт :-)<br>Рабочий скрипт ниже (если кому-нибудь будет интересно):<br><br>#Открываем файл списка пользователей на отключение и заносим в массив<br>open (KILL,"kill.txt") &#124;&#124; die "$!";<br>@kill=&lt;KILL&gt;;<br>close (KILL);<br><br>#Открываем файл активных сессий и заносим в массив<br>open (SESSION,"session.txt") &#124;&#124; die "$!";<br>@ses=&lt;SESSION&gt;;<br>close (SESSION);<br><br>#Открываем файл-результат на запись<br>open (KILL_SES,"&gt;kill_ses.txt") &#124;&#124; die "$!";<br><br>#Определяем размеры массивов kill и ses <br>$size_k=@kill;<br>$size_s=@ses;<br><br>print "Размер массива kill: ",$size_k,"\n";<br>print "Размер массива ses: ",$size_s,"\n";<br><br>#Обнуляем счетчик<br>$i=0;<br>while ($i&lt;$size_k) <br> {<br> $temp1=$kill[$i];<br> @words1=map{split ' ',$_} $temp1;<br># print "words1= ",@words1,"\n"; https://opennet.me/openforum/vsluhforumID9/9407.html#6 Mon, 12 Mar 2012 07:35:24 GMT &gt;&gt;&gt;&gt; foreach $r (@kill){foreach $t (@ses){if ($t=~/$r/){print $t;}}} <br>&gt;&gt;&gt;&gt; Но вообще ваш пример работает. Все он создает...<br>&gt;&gt;&gt; У меня он промежуточные переменные выводит правильно, но в файл-результат не записывает.<br>&gt;&gt; Ты, как программист скрипта, должен понять, что отсутствие вывода в файл может <br>&gt;&gt; быть по двум причинам : <br>&gt;&gt; - не срабатывает условие <br>&gt;&gt; - не производится запись <br>&gt;&gt; Добавь еще один отладочный print .<br>&gt; Добавил. Я считаю, что не срабатывает условие, потому что нижеприведенный скрипт всегда <br>&gt; выдает "Условие не выполнено". Хотя на последних элементах массивов есть совпадение: <br><br>Хы.<br><br>А выводит оно у тебя так:<br><br>Текущий элемент массива kill: XXXXX<br>[ПУСТАЯ СТРОКА]<br>Текущий элемент массива ses: YYYYY<br>[ПУСТАЯ СТРОКА]<br>Условие не выполнено<br><br><br>верно? ;-)<br> https://opennet.me/openforum/vsluhforumID9/9407.html#5 Mon, 12 Mar 2012 07:00:58 GMT &gt;&gt;&gt; foreach $r (@kill){foreach $t (@ses){if ($t=~/$r/){print $t;}}} <br>&gt;&gt;&gt; Но вообще ваш пример работает. Все он создает...<br>&gt;&gt; У меня он промежуточные переменные выводит правильно, но в файл-результат не записывает.<br>&gt; Ты, как программист скрипта, должен понять, что отсутствие вывода в файл может <br>&gt; быть по двум причинам : <br>&gt; - не срабатывает условие <br>&gt; - не производится запись <br>&gt; Добавь еще один отладочный print .<br><br>Добавил. Я считаю, что не срабатывает условие, потому что нижеприведенный скрипт всегда выдает "Условие не выполнено". Хотя на последних элементах массивов есть совпадение:<br><br>#Определяем размеры массивов kill и ses <br>$size_k=@kill;<br>$size_s=@ses;<br><br>print "Размер массива kill: ",$size_k,"\n";<br>print "Размер массива ses: ",$size_s,"\n";<br><br>#Обнуляем счетчик<br>$i=0;<br><br>while ($i&lt;$size_k) {<br> $temp1=$kill[$i];<br> print "Текущий элемент массива kill: ",$temp1,"\n";<br> $j=0;<br> while ($j&lt;$size_s) {<br> $temp2=$ses[$j];<br> https://opennet.me/openforum/vsluhforumID9/9407.html#4 Mon, 12 Mar 2012 06:39:45 GMT &gt;&gt; foreach $r (@kill){foreach $t (@ses){if ($t=~/$r/){print $t;}}} <br>&gt;&gt; Но вообще ваш пример работает. Все он создает...<br>&gt; У меня он промежуточные переменные выводит правильно, но в файл-результат не записывает. <br><br>Ты, как программист скрипта, должен понять, что отсутствие вывода в файл может быть по двум причинам :<br><br>- не срабатывает условие<br>- не производится запись<br><br>Добавь еще один отладочный print .<br> https://opennet.me/openforum/vsluhforumID9/9407.html#3 Mon, 12 Mar 2012 06:20:42 GMT &gt; foreach $r (@kill){foreach $t (@ses){if ($t=~/$r/){print $t;}}} <br>&gt; Но вообще ваш пример работает. Все он создает...<br><br>У меня он промежуточные переменные выводит правильно, но в файл-результат не записывает. С Вашим примером тоже ((<br><br>Вот пример текстовых файлов, чтобы было понятнее.<br><br>массив kill:<br>username1<br>username2<br><br>массив ses:<br> СЕАНС ПОЛЬЗОВАТЕЛЬ ID СТАТУС ТИП УСТР-ВО<br> console 0 &#1039;&#174;&#164;&#1028;&#171;оз&#1168;&#173;&#174; wdcon <br> rdp-tcp 65538 &#1039;аЁ&#1168;&#172; rdpwd <br> rdp-tcp#31 username1 1 &#1026;&#1028;вЁ&#1118;&#173;&#174; rdpwd <br><br>Скрипт должен проверять присутствует ли элемент массива kill (username1) в элементе массива (строке) ses. Т.е. в итоговый файл должна попасть полностью строка:<br>rdp-tcp#31 username1 1 &#1026;&#1028;вЁ&#1118;&#173;&#174; rdpwd<br> https://opennet.me/openforum/vsluhforumID9/9407.html#2 Sun, 11 Mar 2012 22:10:57 GMT foreach $r (@kill){foreach $t (@ses){if ($t=~/$r/){print $t;}}}<br><br>Но вообще ваш пример работает. Все он создает...<br>