Perl docs рекомендует следующее: $foo = $bar =~ s/this/that/r; Однако, я получаю эту ошибку: Bareword found where operator expected near "s/this/that/r" (#1) This is specific to the r modifier, without ...
Я разрабатываю веб-интерфейс для mp3-плеера (mpg123 linux). Mpg123 - это mp3-плеер командной строки, которым можно управлять с клавиатуры. Например: $ mpg123 -C filename.mp3 это будет ...
У меня есть файл, который выглядит так: AE United Arab Emirates
AG Antigua & Barbuda
Нидерландские Антильские острова
Американское Самоа
BA Босния и Герцеговина
BF Буркина-Фасо
Б.Н. Бруней-Даруссалам ...
Пример: use strict;
мой $ файл = сдвиг; open (IN, $ file) || die "Невозможно открыть $ file \ n";
открыть (OUT, "> $ file. $$") или умереть $ !; Что происходит с my $ file = shift?
Какой лучший способ фиксировать любые ошибки DBI в Perl? Например, если вставка не удалась из-за того, что во вставляемых значениях были недопустимые символы, как я могу не допустить сбоя сценария, но ...
У меня есть выходные данные некоторых команд Bash Shell. Вывод разделяется построчно с помощью символов «\ n» или «\ 0». Я хотел бы знать, есть ли способ передать вывод в Perl и обработать ...
Проверить определенный шаблон. Допустимые шаблоны: () [] {() []} [{} () {()}] Недопустимые шаблоны: [{]} ({} [)] Я пытаюсь сделать регулярное выражение для этого, Любой может помочь мне за ...
Я пытаюсь создать свой собственный модуль Perl в / usr / local / lib / perl. У меня установлена переменная окружения PERL5LIB: $ env | grep PERL
PERL5LIB = / usr / local / lib / perl Если я создам модуль: $ PERL5LIB / My / ...
В последнее время я задавался вопросом, как различные операции, которые я выполняю с базовыми типами, такими как строки и целые числа, работают с точки зрения производительность, и я полагаю, что мог бы получить гораздо лучшее представление об этом, есл
У меня есть хороший опыт написания сценариев оболочки Bash, и теперь я перехожу на Perl. Какой самый лучший IDE для Perl 5? Будет ли Perl 6 убивать Perl 5? Или Perl 5 всегда будет жив?
Существует ли стандартный способ CPAN для определения всех суперклассов класса Perl (или, что еще лучше, всего дерева суперклассов, вплоть до UNIVERSAL)? Или лучше всего просто изучить @{"${$class}::ISA"} ...
Из perldoc perlobj (цитируется в этом превосходном ответе): my $fred = Critter->find("Fred");
$fred->display("Рост", "Вес"); ... приведенный выше код в основном эквивалентен: my $fred = ...
Мне интересно, как бы я это сделал: package Something;
наш секрет $ = "бла"; sub get_secret {мой ($ class) = @_; возвращение; # Я хочу вернуть сюда секретную переменную
} Now when I ...
Мне было интересно, насколько хорошо Perl будет работать для программирования на основе ООП. Каковы преимущества и недостатки использования Perl для ООП, и если есть недостатки, существуют ли обратные пути ...
При просмотре кода, который я взял на себя, я наткнулся на эту строку: my @files = My :: Module :: DB :: raw_info-> search_like (customer_handle => $ config -> {client}, feed => $ config- > {site}, ...
Ниже приведен сеанс отладки на Perl 5.12. Есть ли в этом смысл? Кэширует ли UNIVERSAL версию переменной @ISA, которая, если навсегда, будет использовать ее в дальнейшем. Еще до того, как Class :: ISA был объявлен устаревшим, я ...
Каждый раз, когда я что-то ввожу, код всегда говорит мне, что он существует. Но я знаю, что некоторых входов не существует. Что случилось? #! / usr / bin / perl @array = <>;
print "Введите слово, которое вам нужно ...
У меня есть код, похожий на мой ($ ids, $ nIds);
в то время как () {чавкать; $ ids. = $ _. ""; $ nIds ++;
} Это должно объединить каждую строку в моем myFile, а nIds должен быть моим номером ...
Я видел много способов запуска кода или сценариев Perl с разные флаги. Однако, когда я пытаюсь найти в Google значение каждого флага, я в основном получаю результаты на общих сайтах Perl, а не на конкретных ...
Как использовать переменные оболочки в вызове команды perl в скрипте оболочки bash? У меня есть команда perl в моем сценарии оболочки для оценки даты -1. Как я могу использовать $ myDate в вызове команды perl? Это раздел ...
Я пишу Perl-скрипт, который должен подключаться к SMTP-серверу для отправки почты, но мне очень не нравятся такие вещи :my $pass = '123456'; И я нашел Данные ::Зашифрованные, что следует...
Я пытаюсь создать двумерный массив на Perl, мой код: my @ wordsList = ();
мои @ слова = (); для ($ id = 0; $ id <= @language.length ; $ id ++)
{my $ eng = $ db-> selectall_arrayref ("выберите слово из ...
У меня есть это регулярное выражение: if ($ string = ~ m / ^ (Clinton | [^ Bush] | Reagan) / i) {print " $ строка \ n "}; Я хочу соответствовать Клинтону и Рейгану, но не Бушу. Это не работает.
Есть ли способ избежать использования этого для множественных проверок шаблонов? Могу ли я разорвать все шаблоны в массиве и проверить, соответствует ли он какому-либо шаблону в массиве шаблонов? Пожалуйста, рассмотрите случай, когда я ...
Как мне получить функцию qx Perl для выполнения с моей переменной $ opt? До (работает): мой @df_output = qx (df -k / tmp); Я хочу использовать либо -k, -g, или -H: my @df_output = qx (df - $ opt / tmp);
Я новичок в Perl, пытаюсь что-то сделать и не могу найти ответ. Я создал проект Java, содержащий основной класс, который получает несколько входных параметров. Я хочу обернуть свою Java в Perl: ...
Я использовал GDBM и Berkeley DB / DB_File для более ранних проектов Perl, но следует ли мне их использовать для новых? Каковы плюсы и минусы различных реализаций Perl DBM? (По теме: такие инструменты, как ...