Perl – вопросы и ответы

87
голосов
2
ответа
Я пытаюсь извлечь согласованные части из строки, используя глобальный модификатор. Рассмотрим: my $a="A B C"; my $b="A B C"; foreach ($a =~ /(\w)/g) { print "$1\n"; } while ($b =~ /(\w)/g) { print ...
3 месяца, 1 неделя назад Håkon Hægland
109
голосов
1
ответ
Я новичок в кодировании и perl. Я пытаюсь читать имена рабочих листов Excel в файле excel через Perl Следующий мой код #!/usr/local/ActivePerl-5.12/bin//perl -w use strict; use Spreadsheet::ParseEx...
3 месяца, 1 неделя назад Pankaj Vatsa
106
голосов
1
ответ
Я хочу, чтобы мой графический интерфейс реагировал на одиночные нажатия клавиш. Это отлично работает с опцией -keydown, если объект Windows имеет фокус. Чтобы получить обратную связь о нажатиях кла...
3 месяца, 1 неделя назад Lik
62
голоса
2
ответа
Я надеялся проверить перенаправления веб-страниц с помощью Perl. Я пытался использовать LWP, но он перехватывает только 503 перенаправления, а не перенаправления htaccess или переадресации Javascri...
3 месяца, 1 неделя назад frankiej
62
голоса
1
ответ
Я знаю, что 10.51200 сохраняется в памяти как 0x4025065220000000 с использованием формата с плавающей запятой IEEE. Но когда я передаю это функции sprintf() в Perl, как показано ниже, я получаю неп...
3 месяца, 1 неделя назад Nani
-6
голосов
2
ответа
Я очень новичок в Perl. Недавно я написал код для вычисления коэффициента корреляции между атомами между двумя структурами. Это краткий обзор моей программы. for($i=1;$i<=2500;$i++) { for($j=1;$...
3 месяца, 1 неделя назад Kalyan Reddy
98
голосов
1
ответ
Я использую инструмент ack.pl для поиска строки или IP-адресов в файлах Официальный сайт ack.pl - http://beyondgrep.com/documentation/ Пример командной строки ack.pl (хотите найти строку STRING_TO_...
3 месяца, 1 неделя назад maihabunash
77
голосов
3
ответа
Чтобы сократить количество имен, но все же сохранить их в некоторой степени читабельными, я хотел бы удалить все гласные из строк, кроме первого и последнего вхождения. Например, я бы хотел, чтобы ...
3 месяца, 1 неделя назад meuleman
62
голоса
1
ответ
Учитывая содержимое файла данных кодов в каждой записи данных, я не могу напечатать первую строку каждой записи. Тем не менее, он печатает первую строку первой записи, как в: 1aaaaaaaaaaaaa Специал...
3 месяца, 1 неделя назад Yetimwork Beyene
98
голосов
2
ответа
Я хотел бы взять данный ввод, скажем, и запустить определенные разборки над ним и заполнить хеш с результатами этих разборов. Например, мне нужен этот ввод: "barcodedSamples": "{\"I-735\":{\"barcod...
3 месяца, 1 неделя назад soosus
108
голосов
1
ответ
Я пытаюсь передать переменную в curl-команду в Perl-скрипте. Но он терпит неудачу. Но когда я запускаю ту же команду curl из командной строки, она работает. my $id=3; system('curl -D- -u username:p...
3 месяца, 1 неделя назад Bobby
76
голосов
1
ответ
Я разбираю файлы .h и .cpp и мне нужно найти/заменить все не венгерские нотативные переменные на их венгерские эквиваленты . "Ах, почему?!" ты спрашиваешь? Мой работодатель требует венгерскую нотац...
3 месяца, 1 неделя назад kevlar1818
-10
голосов
1
ответ
Я ищу лучший способ объединить два элемента массива: @array1 = (test1, test2, test3, test4, test5); @array2 = (answer1, answer2, answer3, answer4, answer5); Я хочу объединить array1 и array2 вместе...
3 месяца, 1 неделя назад Jaron787
97
голосов
3
ответа
В Perl я делаю SQL-запрос, похожий на следующее: SELECT 'id', 'title', 'price' FROM 'gamelist' Я хочу сделать результат этого запроса и выгрузить его в хеш-таблицу. Я использую DBI, и в настоящее в...
3 месяца, 1 неделя назад stevendesu
75
голосов
1
ответ
Я новичок в Perl, и я столкнулся с этой проблемой: Global symbol "@str" requires explicit package name (did you forget to declare "my @str"?) at F:\Distrib\LingUtils9\Scripts\CompareLists\CompareLi...
3 месяца, 1 неделя назад Fruling
76
голосов
2
ответа
Я новичок в Perl, и мне нужно кодировать JSON. Это код JSON: { "fields": { "project": { "key": "ABC" }, "summary": "REST TESTING", "description": "Creating of an issue using project keys and issue ...
3 месяца, 1 неделя назад Shereen Hussein
-4
голоса
2
ответа
#!/usr/bin/perl -w use IO::Socket; my $sock = new IO::Socket::INET ( PeerAddr => 'remotehost', PeerPort => '1230', Proto => 'tcp', ) or die "ERROR in Socket Creation : $!\n"; print "TCP Co...
3 месяца, 1 неделя назад ashchawla
75
голосов
1
ответ
Мне нужно создать скрипт bash или perl для отправки запроса SOAP. Дело в том, что он должен читать определенные числа из файла (по очереди) и отправлять запрос для каждой строки до конца файла. Так...
3 месяца, 1 неделя назад Mihkel
115
голосов
3
ответа
Отсутствие документации затрудняет это. По существу, у меня есть package MyApp::Schema; sub new_schema { __PACKAGE__->connect(...) } Тогда у меня есть package MyCatApp::Model::MyApp; use Moose; ...
3 месяца, 1 неделя назад Evan Carroll
76
голосов
1
ответ
Возможно ли написать письмо с форматированием текста rich/html, которое будет распознано gmail. (например, полужирный текст, курсив и т.д.) Я использую sendmail en perl для отправки электронной поч...
3 месяца, 1 неделя назад Serg
124
голоса
1
ответ
Я заметил, что с переменными, объявленными с модулем Readonly , оценка переменной несколько раз может дать разные результаты. >perl -Mbigint -MReadonly -wE "Readonly my $V => 1; foreach (1..2...
3 месяца, 1 неделя назад gatinueta
-5
голосов
1
ответ
Я использую Mojilicious Lite. #!/usr/bin/perl -T use strict; use Mojolicious::Lite; get '/' => 'index'; # Run the Mojolicious script in CGI mode. app->start; #template __DATA__ @@ index.html....
3 месяца, 1 неделя назад Vibhor Bhardwaj
107
голосов
1
ответ
У меня есть этот код Perl, который печатает только первую строку, а не все строки. use Net::SSH::Perl; my $user = "user"; my $cmd = "df -m | grep data"; my $host = "host1.example.com"; my $ssh = Ne...
3 месяца, 1 неделя назад senile_genius
75
голосов
4
ответа
Я создал текстовое поле. Я хочу контролировать, что пользователь пишет в текстовом поле, читая текстовый файл и сравнивая каждую строку с текстом, используя Perl. В моем коде я заполнил param('text...
3 месяца, 1 неделя назад user3297904
98
голосов
3
ответа
У меня есть файл, который выглядит так the vote will take place tomorrow at card (0.046786214525982) vote will take place tomorrow at card noon (0.027725129127836) vote will take place tomorrow at ...
3 месяца, 1 неделя назад Poisson
62
голоса
4
ответа
У меня есть регулярное выражение, которое соответствует нескольким строкам внутри строки в текстовом файле. Однако, когда я использую его, чтобы попытаться напечатать все экземпляры захваченной гру...
3 месяца, 1 неделя назад E.T.
62
голоса
2
ответа
Я конвертирую код Perl в PHP. Тем не менее, я не очень разбираюсь в Perl, поэтому мне нужно закодировать его с грубым значением. И я не понимаю, что означает следующий код Perl... В чем смысл $req2...
3 месяца, 1 неделя назад JY Lee
76
голосов
1
ответ
INI файл может иметь переменные внутри: [section1] root=/path/to/dir home=%(root)s/my_home_dir/ Теперь библиотека Perl Config::IniFiles , похоже, не анализирует ее, она передает ее в виде исходных ...
3 месяца, 1 неделя назад Ricky Levi
77
голосов
1
ответ
Я определяю массив хэшей следующим образом: while (my $line = <PILEUP>) { if ($line =~ /INDEL/ and $line !~ /^#/) { chop $line; my @splitline = split(/\t/, $line); $hash2{$splitline[1]}{len} ...
3 месяца, 1 неделя назад user2979409
98
голосов
1
ответ
Как добавить/перезаписать метаданные заголовка и автора в формате PDF с помощью CAM::PDF ?
3 месяца, 1 неделя назад pilcrow
87
голосов
1
ответ
Мой вопрос в Perl выглядит следующим образом: Прочитайте серию номеров сотрудников и ежедневных рабочих часов со стандартного ввода, одну строку набора perl. Номер сотрудника и отработанные часы до...
3 месяца, 1 неделя назад user1613245
-6
голосов
1
ответ
используя HTML :: Formhandler в Catalyst I, я определил форму на основе таблицы базы данных (item_class). То, что делает форма, задает первые три списка выбора на основе содержимого нескольких табл...
3 месяца, 1 неделя назад piet paaltjens
76
голосов
4
ответа
Где я могу найти простую информацию API-анализатора W3C для Perl? Я пробовал искать и просто продолжаю вести страницу после страницы документации. Просто найдите модуль загрузки или что-то еще (я н...
3 месяца, 1 неделя назад Phil Jackson
-6
голосов
2
ответа
У меня есть скрипт, который будет читать журнал. Первые три символа журнала являются кодом для этого клиента (т.е. xxx). Программа запускается и запускается, а затем останавливается с этой ошибкой....
3 месяца, 1 неделя назад user2690096
87
голосов
5
ответов
Я хотел бы создать регулярное выражение для следующих. У меня есть текст вроде следующего: field = "test string"; type = INT; funcCall(.., field, ...); ... text = "desc"; field = "test string 1"; t...
3 месяца, 1 неделя назад Coco
-6
голосов
2
ответа
У меня есть строка, откуда мне нужно извлечь улицу, город, штат, почтовый индекс. Строка может выглядеть так: a)$str1 ="2500 South 3850 West Suite A Salt Lake City, UT 84120-7225"; b)$str2 ="19701 ...
3 месяца, 1 неделя назад jnanchak
76
голосов
1
ответ
Я хочу динамически создать скомпилированное регулярное выражение. Ну, не проблема: my $rx = join('|', keys %replacement_hash); Я хочу скомпилировать его, чтобы избежать накладных расходов при повто...
3 месяца, 1 неделя назад Oleg V. Volkov
63
голоса
2
ответа
Я пытаюсь использовать GpcClip() из Math :: Geometry :: Planar, чтобы найти пересечение двух полигонов. Я построил два полигона, используя Math::Geometry::Planar->new(); но я получил следующую о...
3 месяца, 1 неделя назад s.pan
-4
голоса
1
ответ
Сценарий захватывает поля ввода 5x2. for ($i=0;$i<6;$i++) { $zeit_[$i] = $q->param("zeit_[$i]"); $tatigkeit_[$i] = $q->param("tatigkeit_[$i]"); ##validation if (!$zeit_[1]) {&error('Bi...
3 месяца, 1 неделя назад ClubCola
75
голосов
3
ответа
Я пытаюсь glob файлы из каталога и распечатывать регулярные выражения, Попытка сопоставить <110> *everything here* <120> Мои матчи будут SCHALLY, ANDREW V. CAI, REN ZHI ZARANDI, MARTA О...
3 месяца, 1 неделя назад Stacked-for-life
Чтобы , пожалуйста,
Выберите тему жалобы:

Другая проблема