perl — вопросы с ответами

Я изучаю perl и python... в то же время, а не по дизайну, но это нужно сделать. Вопрос: В perl script я использую (см. ниже) во главе моего txt. #!/usr/bin/env perl use strict; use warnings; Есть ли что-то, что я должен делать в рутине для моих сценариев python?...

Я вызываю много скриптов Perl в моем Bash script (иногда также из csh). В начале Bash script я хочу поставить тест, который проверяет, не лишены ли все скрипты Perl каких-либо ошибок компиляции. Одним из способов сделать это было бы на самом деле вызвать Perl script из Bash script и grep для "ошибки...

Есть ли реализация регулярных выражений в Python/PHP/JavaScript, которая поддерживает зависание переменной длины? /(?<!foo.*)bar/ Как я могу написать регулярное выражение, имеющее то же значение, но не использующее lookbehind-assertion? Есть ли вероятность, что этот тип утверждения будет реализо...

В соответствии с doc оператор while выполняет блок до тех пор, пока выражение true. Интересно, почему он становится бесконечным циклом с пустым выражением: while () { # infinite loop ... } Это неточность в документе?

В Perl, как я могу использовать одну группу регулярных выражений для захвата более одного вхождения, соответствующего ей, в несколько элементов массива? Например, для строки: var1=100 var2=90 var5=hello var3="a, b, c" var7=test var3=hello для обработки этого кода: $string = "var1=100 var2=90 var5=h...

use strict; my $var = NULL; вызовет ошибку Bareword "NULL" not allowed while "strict subs" in use

Отвечая на этот вопрос, я понял, что не был уверен, что Perl map можно считать циклом или нет? С одной стороны, он обманывает/перемещается, как цикл (работает O (n), может быть легко переписан эквивалентным циклом и как бы подходит к общему определению = "последовательность инструкций, которая посто...

Есть ли функция, которую я могу использовать в Perl для дезинфекции ввода, прежде чем поместить его в базу данных MySQL? Я не знаю регулярное выражение очень хорошо, поэтому, прежде чем я сделаю свою собственную функцию, я задавался вопросом, было ли уже сделано....

У меня есть Perl script, работающий в AIX. script пытается открыть файл из определенного каталога, и он не может прочитать файл, потому что файл не имеет разрешения на чтение, но я получаю другую ошибку, говорящую inappropriate ioctl for device. Не должно ли оно сказать что-то вроде no read permiss...

У меня есть Perl script, который подсчитывает количество вхождений различных строк в текстовом файле. Я хочу, чтобы проверить, не является ли определенная строка еще не ключом в хеше. Есть ли лучший способ сделать это вообще? Вот что я делаю: foreach $line (@lines){ if(($line =~ m|my regex|) ) ...

Как включить модуль Perl в другой каталог? Это должен быть относительный путь от модуля, который включает его. Я пробовал push ( @INC,"directory_path/more_path"); и push ( @INC,"directory_path\\more_path");

Я пытаюсь обрабатывать множество файлов, и мне нужно изменить их, чтобы удалить посторонние данные в именах файлов; в частности, я пытаюсь удалить текст в круглых скобках. Например: filename = "Example_file_(extra_descriptor).ext" и я хочу повторно выделить целую кучу файлов, где выражение в скобк...

Я перешел с Perl на Python около года назад и не оглянулся назад. Существует только one идиома, которую я когда-либо обнаружил, что я могу сделать более легко в Perl, чем в Python: if ($var =~ /foo(.+)/) { # do something with $1 } elsif ($var =~ /bar(.+)/) { # do something with $1 } elsif ($var...

Как я могу получить LWP, чтобы убедиться, что сертификат подключаемого мной сервера подписан доверенным органом и выдается правильному хозяину? Насколько я могу судить, он даже не проверяет, что сертификат утверждает, что для имени хоста я подключаюсь. Это похоже на серьезную проблему безопасности (...

Этот фрагмент кода Perl в моей программе дает неправильный результат. $condition ? $a = 2 : $a = 3 ; print $a; Независимо от значения $condition, выход всегда равен 3, как получилось?