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

У меня есть такой код: if (!-d _ || !-o _ || ($vncUserDirUnderTmp && ($mode & 0777) != 0700)) { raise Exception("$prog: Wrong type or access mode of $vncUserDir.\n") } Я мог бы найти информацию о @_ и $_ в Perl, но не о _. Что это означает в -d _ и -o _ здесь?...

Сегодня я был на собрании Webex, показывающем свой экран с некоторым кодом Perl, который я написал. Мой босс внезапно сказал мне, пока все остальные смотрят и слышат, что мне пришлось удалять конечные запятые из моих хэш-структур и массивов, потому что это плохая практика. Я сказал, что не думал, чт...

Похоже, что новая версия OSX больше не поддерживает grep -P и, как таковая, некоторые мои скрипты перестают работать. var1=`grep -o -P '(?<=<st:italic>).*(?=</italic>)' file.txt` Мне нужно записать grep в переменную, и мне нужно использовать утверждения нулевой ширины. а также \K var...

В C я могу сказать #include <stdio.h> #include <unistd.h> #include <signal.h> int continue_running = 1; void handler(int signal, siginfo_t* info, void* data) { printf("got signal %d from process %d running as user %d\n", signal, info->si_pid, info->si_uid); ...

Я изучаю Perl в своей работе и наслаждаюсь этим. Обычно я работаю на Python, но босс хочет Perl. Большинство концепций в Python и Perl отлично сочетаются: Python dictionary = Perl hash; Python tuple = список Perl; Список Python = массив Perl; и т.д. Вопрос: Существует ли версия Python формы Iterator...

Прежде чем использовать R, я использовал довольно много Perl. В Perl я часто использовал хеши, и поиск хэшей обычно считается быстрым в Perl. Например, следующий код заполняет хеш парными/значениями до 10000, где ключи являются случайными буквами, а значения являются случайными целыми числами. Затем...

Я знаю, что bash -x script.sh выполнит script печать каждой строки до фактического выполнения. Как сделать интерпретаторы Perl и Python одинаковыми?

Какая из них лучше или быстрее использовать в качестве строки shebang для Perl script? #! perl #! perl.exe #! fullpath/perl(/perl.exe) #! partialpath/perl(/perl.exe) И при использовании #!perl, когда он работает в конкретной системе, как мне узнать в script, который использует интерпретатор perl...

Я получаю следующую ошибку, когда пытаюсь подключиться с помощью DBI DBI connect('database=chaosLRdb;host=192.168.0.1;port=5433','postgres',...) failed: FATAL: no pg_hba.conf entry for host "192.168.0.1", user "postgres", database "chaosLRdb", SSL off Вот мой файл pg_hba.conf: # "local" is for U...

Есть ли в Perl функция, которая перечисляет все файлы и каталоги в каталоге? Я помню, что Java имеет File.list() для этого? Есть ли сопоставимый метод в Perl?

Я все еще относительно новичок в программировании на Perl, но я знаю, как работает Perl 5 OO. Тем не менее, я никогда не создавал ни одного проекта с Perl 5 OO, поэтому я уверен, что столкнусь с множеством ошибок. Недавно я обнаружил рекламу модуля Moose. Я проверил некоторую документацию по CPAN, и...

Недавно я написал новый Perl script для уничтожения процессов на основе имени или имени процесса и расширения его с помощью классов, чтобы я мог повторно использовать код процесса в других программах. Мой текущий макет - /home/mutew/src/prod/pskill <-- Perl script /home/mutew/src/prod/Proce...

my $start_time = [Time::HiRes::gettimeofday()]; my $diff = Time::HiRes::tv_interval($start_time); print "\n\n$diff\n";

Раньше считалось полезным включить модификатор 'o' в конце регулярных выражений Perl. Текущая документация Perl даже не представляет ее, конечно, не на раздел модификаторов perlre. Предоставляет ли он какую-либо пользу сейчас? Он по-прежнему принимается по соображениям обратной совместимости, если н...

Я хочу читать вход UTF-8 в Perl, независимо от того, поступает он от стандартного ввода или из файла, используя оператор алмаза: while(<>){...}. Итак, мой script должен быть вызван этими двумя способами, как обычно, с тем же выходом: ./script.pl utf8.txt cat utf8.txt | ./script.pl Но выходы о...