У меня есть perl-скрипт, который принимает 1 аргумент, сохраняет результат в массиве,после этого переходит к элементу в массиве и вызывает себя с элементом массива в качестве аргумента и проталкивает новый...
У меня есть набор подпрограмм, которые выглядят следующим образом: sub foo_1 ($) {my $ name = shift ; мой $ f; run_something (); open ($ f, $ name) или die («Не удалось открыть $ name»); while (<$ f>) {// ...
Я пытаюсь использовать синтаксический анализатор/преобразователь po2json из библиотеки JS gettext(http://jsgettext.berlios.de/), но когда я пытаюсь преобразовать, я получаю эту ошибку :Не удается найти JSON.pm в @INC (@INC содержит :/...
I have this simple perl daemon: #!/usr/bin/perl use strict;
use warnings;
use Proc::Daemon; Proc::Daemon::Init; my $continue = 1; $SIG{TERM} = sub { $continue = 0 };
$SIG{USR1} = sub { do_process(...
Я работаю над утилитой, которая должна быть способна компилироваться как на стандартных компиляторах C++, так и на предстандартных. Код может и будет брошен практически на любой существующий компилятор C++. Я ...
Приведенный ниже код работает, если $a является массивом массивов, но мне нужно, чтобы $a был ссылкой на массив массивов. Вопрос Как выполнить итерацию $a? #!/usr/bin/perl использовать предупреждения; использовать строгий; используйте данные ::...
Проблема заключается в следующем: манипулирование внешним состоянием в тестовом файле снижает возможный параллелизм вашего теста люкс. Я тестирую точное манипулирование внешним состоянием (а затем его сброс). I '...
Я написал оболочку Perl, применяя некоторые команды unix, записывая вывод в файл журнала. Однако я вижу, что он создает какой-то пустой файл, но я вижу, что некоторые из создаваемых файлов имеют размер не 0, это...
У меня есть набор тестов на основе Perl -с более чем 10 000 тестов, которые я хотел бы ускорить. Я тестировал, используя флаг -j для доказательства, и обнаружил, что большинство -, но -не -, все мои тесты готовы к запуску в...
Первый таймер... так что дайте мне знать, если есть что-то, на что я не обратил внимания, задавая вопрос. Вопрос в том, как использовать скаляр в качестве условия, так как приведенный ниже код не работает. мой @...
Я заметил, что существует два способа выполнения Perl-программы :perl test.pl и./test.pl В чем точная разница между этими двумя и какой из них рекомендуется?
Как закодировать тему письма в perl? Наконец-то я нашел кое-что, но оно все еще не работает :use MIME ::Words qw/encode _mimewords/; $recipientsubject = encode _mimewords ('Votre fichier a bien été...
Какой класс языков действительно распознают настоящие современные регулярные выражения? Всякий раз, когда существует группа захвата неограниченной длины с обратной ссылкой (например, (. *) _ \ 1), регулярное выражение теперь соответствует нерегулярному .
У меня есть функция ниже в perl sub create _hash (){ мои @files = @_; foreach (@files ){ if (/.text/ ){ open ($files _list{$ _},">>$ _" )|| die ("Этот файл не будет...
В моем регионе (et _EE )[a -z] означает :abcdefghijklmnopqrsšz Итак, 6 символов ASCII (tuvwxy )и один из эстонского алфавита (ž )не включены. Я вижу много модулей, которые все еще используют регулярные выражения, такие как /\A[0 -...
Могу ли я вести подсчет каждого отдельного символа, совпадающего в самом регулярном выражении? Предположим, что регулярное выражение выглядит как /> (. *)[^a]+/ Могу ли я вести подсчет вхождений, скажем, буквы p в...
Я написал Perl-скрипт:#!/usr/bin/perl использовать строго; использовать предупреждения; мое имя $file _; мой $ext = ".текст"; моя $подсеть2; мой список %files _= (); opendir мой $dir, "." или умри "Не могу открыть...
У меня есть две таблицы, книга и язык; книга принадлежит _языку, поскольку в столбце языка указано, на каком языке она написана. Таблица языков — это просто столбец языка. Я хочу сделать $book ->...
$а = {b=>{c=>1}}; #установить ссылку $b = $a ->{b}; #ссылка ссылка $b.= (d=>1,e=>1 ); #где мы хотим назначить несколько ключей/значений одновременно. В конце $a должен выглядеть как :{ 'b'...
У меня есть следующий код :$r ->найти ('пользователь' )->через ('сообщение' )->через (аутентифицировано => 1 ); Учитывая этот маршрут, я могу добраться до пользовательского маршрута, проходящего через аутентифицированную проверку то есть установка...
В Perl обычно достаточно легко получить ссылку на аргументы командной строки. Я просто использую $ ARGV [0], например, чтобы получить имя файла, который был передан в качестве первого аргумента. При использовании ...
Я работаю над некоторым кодом, который должен сериализовать регулярные выражения Perl, включая любые флаги регулярных выражений. Поддерживается только подмножество флагов, поэтому мне нужно обнаруживать неподдерживаемые флаги, такие как /u, в регулярном в
Существуют ли какие-либо модули в CPAN для преобразования списков YAML в правильно сформированный XML? Из YAML:-фрукты:-яблоко -груша -апельсин В XML :<фрукты> <яблоко /> <груша /> <апельсин /&...
У меня есть следующий код:#Список тестов мои $tests = [ ("система _тест _встроенные _грех", "система _тест _встроенные _cos", "система _тест _встроенные _загар" )]; #Обеспечьте переопределение некоторых переменных, которые могут быть...
Похоже, что в main есть символ '_< -'(без кавычек )таким же образом, как и другие вещи, которые выглядят так, как будто они могут быть дескрипторами :' _