Я просто сравнивал числа для разных «архивных сетей», таких как CPAN, CTAN, rubygems.org и т. д. CPAN отображает два очень разных числа:105 774 модуля. 24 657 дистрибутивов. Поскольку я не Perl...
Я написал этот код, но он не работает. Может ли кто-нибудь указать на проблему? дополнительное совпадение_ip(){ my $ip = "IP-адрес 216.108.225.236:60099"; if($ip =~/(\d{1-3}\.\d{1-3}\.\d{1-3}\.\d{ 1-3}...
Я пытаюсь удалить одну строку из текстового файла. Вместо этого то, что у меня есть, стирает весь файл. Может ли кто-нибудь указать на ошибку? removeReservation ("джон" ); sub removeTime (){ my $name = shift;...
Одной из небольших неприятностей, с которыми я сталкиваюсь при написании кода на Perl, является необходимость не забывать пережевывать строку, которую вы читаете из ввода. Да, после многих лет программирования почти автоматически приходится помнить об это
Я пробовал веб-фреймворк Mojolicious на основе perl. И я попытался разработать полноценное приложение вместо Lite. Проблема, с которой я столкнулся, заключается в том, что я пытаюсь загрузить файлы на сервер, ...
Я работаю над проектом Perl, которому нужна очередь сообщений FIFO для распределения задач между несколькими процессами на одной машине (UNIX). Размер очереди может вырасти до 1 млн заданий. Я пробовал IPC::...
У меня возникли проблемы с пониманием ссылок на хеш и изменением хэша вместо того, чтобы вернуть его. Я хочу написать подпрограмму, которая будет возвращать значение из хэша, а также изменять...
Я использую приведенный ниже код для получения значения узла из XML-файла:use XML::XPath; использовать XML::XPath::XMLParser; мой $pt1 = XML::XPath->новое(имя файла => 'test1.xml'); my $nodeset = $pt1->find('/...
Вот часть кода, и я пытаюсь отправить весь массив POST с помощью LWP, но сервер получает только первую строку массива (0 index), в то время как другие не отправляются на сервер, пожалуйста, объясните, что я делаю...
Я хотел бы выполнить определенный выбор, который (как я тестировал в sqldeveloper), будет извлекать очень большой объем данных (~350 000 строк). В конце концов, я хотел бы записать эти строки в файл. Я...
У меня есть программа, которая отправляет текст на стандартный вывод. Но я хочу сохранить только те строки, где пятый столбец не «*». Это символ звездочки, а не выражение регулярного выражения, которое ловит все. Я не могу ...
Я только что установил ActivePerl в Windows и начал изучать Perl. В книге, которую я читаю, первый пример кода таков: #!/usr/bin/perl use 5.010; сказать «Привет, мир!»; Так как я на...
Как в Perl написать регулярное выражение, которое заменяет только до N совпадений в строке? То есть я ищу золотую середину между s/aa/bb/; и с/аа/бб/г;. Я хочу разрешить несколько...
Не могу понять, баг это или что. Следующий код работает с Inline::C, но не с Inline::CPP #!/usr/bin/perl
использовать предупреждения;
используйте встроенный C; мой @массив = (1..10);
print findAvLen(\@array), "\n";
...
Я пытаюсь вывести некоторые данные из Perl в JSON. Я могу сделать простой вывод, но хотел бы лучше его структурировать. У меня есть массив с идентификатором, временем начала и временем окончания. Это код, который я...
Я пытаюсь разобрать строку и поместить части в массив, а затем назначить компоненты массива новым переменным. Я сделал это точно так же в своем коде, и он работает, но теперь он терпит неудачу, ...
Я просмотрел документацию open3, и вот часть, которую я не смог понять: Если вы попытаетесь прочитать из дочернего модуля записи stdout и их модуля записи stderr, у вас возникнут проблемы с...
У меня возникла ситуация, когда мне нужно найти вызывающую сторону пакета, и мой код выглядит примерно так: Inherited.pm: package Inherited;
наш @ISA = qw(BaseClass);
подновый { СУПЕР:: новый ();
} ...
У меня есть файл размером 10 ГБ с 200 миллионами строк. Мне нужно получить уникальные строки этого файла. Мой код: в то время как (<>) { chomp; $tmp{$_}=1; } #print... У меня всего 2 ГБ памяти. Как мне решить...
TomC рекомендует разлагать символы Юникода на входе и перекомпоновывать на выходе (http://www.perl.com/pub/2012/04/perl-unicode-cookbook-always-decompose-and-recompose. html). Первый ...
У меня есть код, который работает не так, как я ожидаю, и я был бы признателен за помощь в выяснении того, как заставить его работать так, как я ожидаю. Я хотел бы использовать подпрограмму для изменения входного массива. Я...
Я не новичок в Perl, но эта проблема меня немного смущает. Однажды я удалил свой ActiveState Perl, и все установленные модули были потеряны. Так что теперь я очень осторожен с таким вопросом. Из-за...
Я хочу узнать о передовом опыте. Предположим, я хочу получить содержимое некоторой строки файла. Я могу использовать однострочную команду оболочки, чтобы получить ответ, или написать подпрограмму, как показано в коде...
Я установил x_label_skip для пропуска меток, но он по-прежнему пытается отобразить самую последнюю метку, перезаписывая другую метку, и выглядит беспорядочно. Он не должен писать последнюю этикетку. Должно быть ...
Есть ли способ определить первый день месяца (min day )и последний день месяца (max day ), учитывая месяц в качестве входных данных, используя DateTime в Perl ? До сих пор я разобрался, как пройти в первый...
Скажем, у меня есть подпрограмма, которая получает два аргумента: спецификацию кодировки и путь к файлу. Затем подсистема использует эту информацию для открытия файла для чтения, как показано ниже, урезанного до самого необходимого:...
Я в основном убежден, что есть ответ на эту проблему, но я не могу понять, как это сделать. Допустим, у меня есть три множества:A = ['foo', 'bar', 'baz', 'bah'] B = [ 'wibble', '...
В последнее время я много работаю с Perl, но все еще не знаю, как <,>,>=,=< , ne,gt и т.д.. в строковых "числах", под "числом" я имею в виду что-то вроде: "1.4.5.6.7.8.0" поправьте меня, если я'...
Я только что установил fcgiwrap и spawn-fcgi, чтобы иметь возможность использовать Perl-скрипты в nginx. Я добавил что-то вроде этого в конфигурацию своего сайта: location ~ \.pl$ { gzip off; fastcgi_pass unix:/var/run/...
Есть ли способ получить шаблоны в одном файле (список шаблонов) из другого файла, используя ack в качестве опции -f в grep? Я вижу, что в ack есть опция -f, но с -f в grep все по-другому. ...