Результаты поиска по запросу "perl"
Могу ли я запросить ввод данных пользователем после прочтения ввода по каналу STDIN в Perl?
Я пытаюсь написать Perl-скрипт, который читает данные по каналам, а затем запрашивает ввод данных на основе этих данных. Следующий скриптprompt_for_actionэто то, что я пытаюсь сделать: #!/usr/bin/perl my @hosts = (); while (<>) { my $host = $_; ...
Простой способ форматирования даты
Я написал Perl-скрипт для получения datetime. Это работает, но мне интересно, есть ли более простой способ форматировать дату как вывод. #!/usr/bin/perl use DateTime; my $dt = DateTime->now( time_zone => 'local' ); $myTimeStamp = $dt->subtract( ...
Как я могу сделать глобальное совпадение регулярного выражения в Perl?
Я пытаюсь придумать регулярное выражение в Perl, совпадающее с несколькими шаблонами и возвращающее их все какpreg_match_all в PHP делает. Вот что у меня есть: $str = 'testdatastring'; if($str =~ /(test|data|string)/) { print "its found index ...
Извлечение информации из $?
Можете ли вы дать хорошее объяснение о следующем фрагменте кода Perl. Я получил некоторую идею от Google, но все еще есть много путаницы. большая помощь, если вы можете предоставить небольшие заметки на нем $exit_value = $? >> 8; $signal_num = ...
Как я могу разветвить CGI-программу на Perl, чтобы избавиться от длительных задач?
Я пишу планировщик Bulk Mail, управляемый из Perl / CGI-приложения, и хотел бы узнать о "хороших" способах разветвления CGI-программы для выполнения отдельной задачи? Стоит ли вообще это делать? Или лучше перенести накладные расходы на запуск ...
Подсчет количества вхождений строки внутри другой (Perl)
Какой самый быстрый способ подсчитать, сколько раз определенная строка появляется в большей? Моим лучшим предположением было бы заменить все экземпляры этой строки ничем, вычислить разницу длин и разделить на длину подстроки, но это кажется ...
Web Crawler с поддержкой JavaScript в Perl?
Я хочу закодироватьPerlприложение, которое будетползатьнекоторые сайты и собиратькартинкиа такжесвязис таких веб-страниц. Потому что большинство страниц используютJavaScriptкоторые генерируютHTMLсодержание, мне нужно кодировать квази клиентский ...
Как игнорировать одинарные и двойные точки в Perl readdir?
Следуя отсюда:Perl Imgsize не работает в цикле? [https://stackoverflow.com/questions/21202690/perl-imgsize-not-working-in-loop/21202755?noredirect=1#21202755l] У меня есть другой вопрос - как я не позволю Perl перечислять записи с одинарной и ...
Как пройти все файлы в каталоге; если в нем есть подкаталоги, я тоже хочу просматривать файлы в подкаталогах
opendir(DIR,"$pwd") or die "Cannot open $pwd\n"; my @files = readdir(DIR); closedir(DIR); foreach my $file (@files) { next if ($file !~ /\.txt$/i); my $mtime = (stat($file))[9]; print $mtime; print "\n"; }В основном я хочу отметить метку времени ...
Передача аргументов в redirect_to в mojolicious и использование их в целевом контроллере
Я передаю аргументы в redirect_to как $c->redirect_to('named', foo => 'bar');или же $c->redirect_to('named, query => {foo=> 'bar'});но я не уверен, как его использовать или получить значение foo в целевом контроллере.