https://slinkov.ru/openforum/vsluhforumID9/10319.html Написал скрипт по поиску дублирующих ссылок в двух htm файлах - берется ссылка из первого файла и ищется во втором эта найденная в первом. <br>Если не находится, то в результирующий файл записывается строка из первого файла из которой выделена искомая подстрока.<br>По задумке в выходном файле должны остаться только те строки из первого файла, которые содержат ссылки отсутствующие во втором файле.<br>На практике же результат получился частичный - да часть отсеивается, но есть повторяющиеся.<br>И я не могу понять почему это происходит. Я сравнивал эти оставшиеся строки с помощью текстового редактора (Far) - строки идентичны, а m// не находит их во втором файле.<br><br>Вот мой скрипт:<br>my $NameFile = shift @ARGV;<br>open (FH, "&lt;$NameFile") or die ("Cannot open file \"$NameFile\"");<br>my @array=&lt;FH&gt;;<br>close FH;<br><br>$NameFile = shift @ARGV;<br>open (FH, "&lt;$NameFile") or die ("Cannot open file \"$NameFile\"");<br>my @array2=&lt;FH&gt;;<br>close FH;<br><br>open (OUT, "&gt;Test.tmp") or die ("Cannot open file Test.tmp");<br><br>my ($m,$n,$f)=0;<br>my $p;<br>f https://slinkov.ru/openforum/vsluhforumID9/10319.html#8 Tue, 11 Aug 2020 11:13:41 GMT &gt;&gt; но как эту ситуацию обработать я не знаю.<br>&gt; наверно так <br>&gt; [CODE]m/\Q$p/[/CODE] <br><br>Сработало! Спасибо большое!<br> https://slinkov.ru/openforum/vsluhforumID9/10319.html#7 Tue, 11 Aug 2020 11:00:04 GMT &gt; но как эту ситуацию обработать я не знаю.<br><br>наверно так<br>[CODE]m/\Q$p/[/CODE]<br><br>&gt; Не вижу в этом смысла.<br><br>ну да, простое сравнение строк не идет ни в какой сравнение с интерполированным регекспом :)<br>особенно когда на самом деле там нет регекспа как такового, а производится поиск по строке<br> https://slinkov.ru/openforum/vsluhforumID9/10319.html#6 Tue, 11 Aug 2020 10:51:40 GMT &gt;&gt; if(/$p/) <br>&gt; а перл нормально к таким подстановкам относится? В смысле спецсимволы дополнительно экранировать <br>&gt; не надо?<br><br>Скорее всего в этом и проблема, но как эту ситуацию обработать я не знаю.<br> <br>&gt; и если про поиск, то почему не выбрать все ссылки из файлов <br>&gt; сразу, а потом сравнивать два массива?<br><br>Не вижу в этом смысла.<br><br> https://slinkov.ru/openforum/vsluhforumID9/10319.html#5 Tue, 11 Aug 2020 10:43:34 GMT &gt;[оверквотинг удален]<br>&gt;&gt; print OUT $r; <br>&gt;&gt; $n++; <br>&gt;&gt; } <br>&gt;&gt; } <br>&gt;&gt; } <br>&gt;&gt; close OUT; <br>&gt;&gt; print "\nВсего ссылок в первом файле = $m, из них отсутствующих во <br>&gt;&gt; втором файле = $n"; <br>&gt;&gt; Подскажите, пожалуйста, что я не так сделал.<br>&gt; возможно это ссылки содержащие в себе вопросительный знак <br><br>Да, в теле этих ссылок содержится вопросительный знак.<br>И как это обойти?<br> https://slinkov.ru/openforum/vsluhforumID9/10319.html#4 Tue, 11 Aug 2020 10:35:27 GMT &gt;[оверквотинг удален]<br>&gt;&gt; print OUT $r; <br>&gt;&gt; $n++; <br>&gt;&gt; } <br>&gt;&gt; } <br>&gt;&gt; } <br>&gt;&gt; close OUT; <br>&gt;&gt; print "\nВсего ссылок в первом файле = $m, из них отсутствующих во <br>&gt;&gt; втором файле = $n"; <br>&gt;&gt; Подскажите, пожалуйста, что я не так сделал.<br>&gt; покажите исходные файлы со строками и результат <br><br>&lt;LI&gt;&lt;A href="https://www.youtube.com/watch?v=2Rf01iJGS2g"&gt;TFT SPI 128*160&lt;/A&gt;<br>&lt;LI&gt;&lt;A href="http://compcar.ru/forum/showthread.php?t=6064"&gt;Видеокарта для Arduino (arduinoVideioCard).&lt;/A&gt;<br>&lt;LI&gt;&lt;A href="http://avr-start.ru/?p=3983"&gt;Управление симистором. Еще раз про таймеры. &#124; AVR-START.RU&lt;/A&gt;<br>&lt;LI&gt;&lt;A href="https://www.youtube.com/watch?v=12rcdJKSGFc"&gt;Как устроен Python? &gt; Детальный разбор&lt;/A&gt;<br><br>Вот эти строки содержатся в обоих файлах - они идентичны и именно эти строки не обрабатываются моим скриптом, во всяком случае, так как мне нужно.<br>Я предполагаю, что это из-за содержимого самих строк, а конкретно в чем проблема не знаю. <br> https://slinkov.ru/openforum/vsluhforumID9/10319.html#3 Tue, 11 Aug 2020 09:40:48 GMT &gt; if(/$p/)<br><br>а перл нормально к таким подстановкам относится? В смысле спецсимволы дополнительно экранировать не надо?<br><br>и если про поиск, то почему не выбрать все ссылки из файлов сразу, а потом сравнивать два массива?<br><br> https://slinkov.ru/openforum/vsluhforumID9/10319.html#2 Tue, 11 Aug 2020 09:40:39 GMT &gt;[оверквотинг удален]<br>&gt; { <br>&gt; print OUT $r; <br>&gt; $n++; <br>&gt; } <br>&gt; } <br>&gt; } <br>&gt; close OUT; <br>&gt; print "\nВсего ссылок в первом файле = $m, из них отсутствующих во <br>&gt; втором файле = $n"; <br>&gt; Подскажите, пожалуйста, что я не так сделал.<br><br>возможно это ссылки содержащие в себе вопросительный знак<br> https://slinkov.ru/openforum/vsluhforumID9/10319.html#1 Tue, 11 Aug 2020 08:29:14 GMT &gt;[оверквотинг удален]<br>&gt; { <br>&gt; print OUT $r; <br>&gt; $n++; <br>&gt; } <br>&gt; } <br>&gt; } <br>&gt; close OUT; <br>&gt; print "\nВсего ссылок в первом файле = $m, из них отсутствующих во <br>&gt; втором файле = $n"; <br>&gt; Подскажите, пожалуйста, что я не так сделал.<br><br>покажите исходные файлы со строками и результат<br>