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

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

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