Популярные вопросы по тегу PERL

Есть ли однострочник для получения первого элемента разделения?

... ; можно ли просто 4 сделать однострочник, чтобы получить только 3 первый элемент разделения? Что-то вроде: print (split /\./,"hello.world")[0] Когда 2 я пробую второй пример, я получаю следующую 1 ошибку: print (...) int ...

Как я могу преобразовать шестнадцатеричные строки в числа в Perl?

... время возился со sprintf, я 4 сдался и сделал следующее; our %months = qw / x01 1 x02 2 x03 3 x04 4 x05 5 x06 6 x07 7 x08 8 x09 9 x0a 10 x0b 11 x0c 12 /; ... my $month = ...

Назначение с использованием тернарного оператора?

... ' } Значение $model->test будет либо "1", либо неопределенным. Если 8 что-то есть в $model->test, установите для $review значение 7 "1", в противном случае установите его равным 6 ''. Поскольку это не Perl 5.10, я не могу использовать 5 новый шикарный оператор defined-or. Моей 4 первой реакцией бы ...

Как заменить пробелы в Perl

... tring =~ s/\///g; могу ли я заменить эти два н ...

Как я могу получить имя текущей подпрограммы в Perl?

... т так я хочу 3 получить имя текущей подпрограммы: use strict; use warnings; print __PACKAGE__; sub test() { print __LINE__; } &test(); В приведенном 2 ...

Использование неинициализированного значения в конкатенации (.) Или строки в строке 63 mksmksmks.pl

... ользование 3 неинициализированного значения в конкатенации 2 (.) или строки в строке 63 mksmksmks.pl Мой 1 код выглядит следующим образом: for(my $j = 0; $j < $num2; $j++) { print {$out} "$destination[$j]|$IP_one_1[$j]| ...

Как я могу отсортировать хеш Perl по значениям и соответственно упорядочить ключи (возможно, в двух массивах)?

... вов: (1,4,5,10) and (one, four, five, ten) И 3 затем я хочу нормализовать массив значений 2 таким образом, чтобы числа были последовател ...

Расшифровка и использование данных JSON в Perl

... тапе мои данные JSON были преобразованы 16 в эти $VAR1 = { 'items' => [ 1, 2, 3, 4 ] }; Я предполагаю, что после декодирования 15 объект будет хешем с одним элементом, имеющим 14 ключ items и ссылку на массив в качестве значения. $content{'items'}[0] где 13 $content{'items'} получит ссылку на массив, а внешний $...[0] получит 12 доступ к первому элементу в массиве и интерпретирует 11 его как скаляр. Однако это не работает. Я 10 получаю ...

Булевы значения Perl, отрицание (и как это объяснить)?

... beers>0< +$not_3beers>0< Более 4 того: perl -E 'say !!4' то, что не 4, ЕСТЬ 1 вместо 4! Приведенные 3 выше утверждения с женой «ложны» (означают 2 0) :), но действительно пытаюсь научить моего сына Perl, и через некоторое время 1 он спросил мою жену: почему, если что-то не 3 означает, ч ...

Для чего || = в Perl?

... орое 3 я не совсем понимаю. Может кто-нибудь объяснить, что 2 делает $sheet -> {MaxRow} ||= $sh ...

Как загрузить файл с помощью Perl?

... l в Windows XP, и мне нужно 4 загрузить файл с URL-адреса http://marinetraffic2.aegean.gr/ais/getkml.aspx. Как мне это 3 сделать? Я попытался использовать WWW :: Mechanize, но 2 не мо ...

Как узнать, существует ли каталог в Perl?

... : if (-e "filename.cgi") { #proceed with your code } Но 1 как определить, суще ...

Откуда взялась ошибка «Использование неинициализированного значения в строке ne»?

... es = (undef, "a", "b"); my $sitecount = 1; my $url; while (($url = $sites[$sitecount]) ne undef) { $sitecount++; } Вывод: Use of uninitialized value in string ne at t.pl line 6. Use of uni ...

Как проверить, существует ли значение в хэше?

... => 2, 'c' => 3); и я хотел бы знать, является 1 ли значение 2 хеш-значением ...

Как я могу использовать хэши в качестве аргументов подпрограмм в Perl?

... e 86. Use of uninitialized value in concatenation (.) or string at ./gen.pl line 124. Use of uninitialized value in concatenation (.) or string at ./gen.pl line 143. Строки 85 и 86 - это первые 6 две строки подпрограммы, а строки 124 и 5 143 - это места, где я получаю доступ к 4 хешам. Когда я просматриваю эти ошибки, кажется, что 3 мои хэши не инициализированы. Однако я могу 2 проверить, что у хешей есть значения. Почему ...

Создать совершенно отдельный процесс в Linux через bash

... манду, а 5 затем завершил работу, в то время как другая 4 команда все еще выполняется и завершается 3 сама по себе. Я мог запланировать через 2 команду, но мне было любоп ...

Как удалить одну строчку из файла с помощью Perl?

... close(FILE); open( FILE, ">times.txt" ); foreach $LINE (@LINES) { print NEWLIST $LINE unless ( $LINE =~ m/$name/ ); } close(FILE); print("Reservation successfully removed.<br/>"); } Пример 1 файла times.txt: 04/15/2012&08:00:00&bob 04/15 ...

Как мой сценарий Perl может найти свой модуль в том же каталоге?

... е 9 его резидентного каталога, появляется сообщение 8 «Не удается найти Process.pm в @INC» (что 7 понятно, учитывая, что кроме общих каталогов 6 в / usr, @INC включает только текущий каталог 5 - '.'). Одно из решений, которое я использовал, - это 4 директива use lib как таковая - use lib '/home/mutew/src/prod'; , но это 3 серьезная проблема с переносимостью. Любые 2 р ...

Как удалить текст в круглых скобках с помощью регулярного выражения?

... ra_descriptor).ext" и 6 я хочу выполнить регулярное выражение для 5 целой группы файлов, где выражение в скобках 4 может быть в середине или в конце и иметь 3 переменную длину. Как будет выглядеть регулярное 2 выражение? Предпочтительнее использовать ...

Как создать каталог и родительские каталоги одной командой Perl?

... подкаталог и в то же 3 время создать родительские каталоги, если 2 они не суще ...

Как я могу запустить внешнюю команду и записать ее вывод в Perl?

... новичок в Perl и хочу знать, как запустить 2 внешнюю команду (назовите ее prg) в следующих 1 сценариях: Запустите prg, получите только его st ...

Перебрать JSON с помощью Perl

... распечатать их на экране. Как 1 я могу это сделать? $arr = '[{"Year":"2012","Quarter":"Q3","DataType":"Other 3","Environment":"STEVE","Amount":125},{" ...

Perl - множественное условие if без дублирования кода?

... ода. if ($name eq "tom" and $password eq "123!") elsif ($name eq "frank" and $password eq "321!") { print "You have gained access."; } else { print "Access denied!& ...

Как запустить файлы Perl через XAMPP в Windows?

... ь к ним 3 через localhost. Ниже представлен файл Perl, который 2 я создал, но не смог запустить через localhost: ...

Perl: curl: (1) Протокол http не поддерживается или отключен в libcurl

... в отладчике. У 6 меня Aptana + Epic + ActivePerl 5.12.4 работает 5 на Windows 7x64. Скрипт запускается нормально, но 4 я получаю сообщение об ошибке: curl -sS http://intranet.mycompany.org/directory/directory.xml Приведенная 3 выше команда работает нормально ... но если 2 я запускаю отла ...

/ usr / bin / env perl работает как команда, но не в сценарии perl

... орый содержит 11 первую строку следующего содержания: #!/usr/bin/env perl Я уже 10 читал, что это выполняется для поиска perl 9 в среде. Но теперь, когда я выполняю это 8 в командной строке /usr/bin/env perl, запускается сам perl 7 (который находится в /usr/bin/perl). Но когда я запускаю 6 скрипт с помощью ./myscript.pl, он показывает следующую 5 ошибку: /usr/bin/env: No such file or directory ...

Лучший способ перебрать массив Perl

... ти 3 и использования памяти) для перебора массива 2 Perl является наилучшей? Есть ли способ 1 лучше? (@Array сохранять не нужно) Реализация 1 foreach (@Array) { SubRoutine($_); } Реализация 2 while($Element=s ...

Найдите все, что находится между двумя тегами XML, с помощью RegEx

... 815585</longitude> <postcode>4810</postcode> <state>QLD</state> <suburb>Townsville</suburb> <type>PHYSICAL</type> </primaryAddress> Я хочу 5 найти тег и все, что находится между primaryAddress, и 4 стереть это. Все, что находится между тегом 3 primaryAddress, яв ...

Как я могу извлечь текст из файла PDF в Perl?

... символы, которые не отображаются 7 в созданном файле txt. Также в текст случайным 6 образом добавляются несколько лишних пробелов. Есть 5 ли лучший и более надежный способ извлечения 4 текста из файлов PDF, чтобы текст содержал 3 все символы, такие как α, β и т. д., и текст 2 в точности соответствовал текс ...

Ошибка конца вывода сценария перед заголовками в Apache

... r! The server encountered an internal error and was unable to complete your request. Error message: End of script output before headers: sample.pl If you think this is a server error, please contact the webmaster. Er ...

Использование CPAN при отказе прокси-сервера после o conf init / proxy /

... 4 быть сохранен постоянно на диске. Если 33 это нарушает вашу политику безопасности, просто 32 нажмите ВОЗВРАЩЕНИЕ. Затем вас будут спрашивать 31 пароль каждый раз в будущем. сеанс. CPAN: Term 30 :: ReadKey загружен нормально (v2.30) Пароль 29 вашего прокси? Пожалуйста, не забудьте 28 вызвать 'o conf commit', чтобы сделать конфигурацию 27 постоянной! cpan [2]> подтвердить фиксацию коммит: написал 26 '/us ...

Поиск и замена определенной строки в файле с помощью Perl

... у, которая 3 выполняет поиск и замену в файле. Вот содержимое 2 myfiletemplate.txt: CATEGORY1=youknow_<PREF> ...

Какое значение имеют -T или -w в #! / Usr / bin / perl?

... искал в Google #!/usr/bin/perl, но не смог найти удовлетворительного 5 ответа. Я знаю, что это довольно простая 4 вещь, но все же можно мне объяснить, в чем 3 зн ...

Использование неинициализированного значения в сопоставлении с шаблоном (m //)

... . if ($page =~ /$pattern/) { push(@array, $element); } Но когда я запускаю свой 5 код, он выдает следующую ошибку и продолжает 4 успешно работать: Use of unini ...

Как сопоставить подстроку в строке без учета регистра

... гистра 6 в Python. Я пробовал: if line.find('mandy') >= 0: но безуспешно для игнорирования 5 регистра. Мне нужно найти набор слов в данном 4 текстовом файле. Я читаю файл построчно. Слово 3 в строке может быть mandy, Mandy, MANDY и т. Д. (Я ...

Регулярное выражение для проверки электронной почты в Perl

... очты. Я использую Perl-скрипт. Я не уверен, где 4 я ошибаюсь. Часть \ @ всегда опускается, после 3 чего правильный идентификатор электронной 2 почты также отображается как недопустимый. Вот 1 код: #!/usrs/bin/perl/ $string = "XYZ@yahoo.com"; if ( $string =~ /([a-zA-Z]+)\@([a-zA-Z]+)\.(com|net|org)/) { print "TR ...

Есть ли лучший способ определить прошедшее время в Perl?

... erval($start_time); print "\n\n$diff\n" ...

Как определить, является ли переменная числовой в Perl?

... ешить, является ли переменная 3 (значение, извлекаемое из строки) числом 2 или нет. Как я могу это сделать? Думаю, /^[0-9]+$/ подойдет, но 1 есть ли более элега ...

Как проверить, инициализирована ли скалярная переменная Perl?

... 1 defined? my $var; if (cond) { $var = "string1"; } # Is this the correct way? if (defined $var) { ...

Что такое переменная @ $ в Perl?

... QL stamt \n $sql \n"; my $sel_stmt=$dbh->prepare($sql); $sel_stmt->execute() or warn $DBI::errstr; my @result = $sel_stmt->fetchrow_array(); $sel_stmt->fi ...

Как найти число, которое меньше или равно 100?

... может быть что угодно 4 в пределах от 0 до 100, но регулярное выражение 3 не должно соответствовать чис ...

Как взять подстроку заданной строки до первого появления указанного символа?

... o.world", а указанный символ - '.', то мне ...

Perl regex заменить?

... :://g; У меня 2 есть строка, которая выглядит примерно так: ::this:is:my: ...

Как пронумеровываются вложенные группы захвата в регулярных выражениях?

... рабатывать 18 захват вложенных круглых скобок? Более конкретно, можете 17 ли вы разумно ожидать, что разные движки 16 будут фиксировать внешние скобки в первой 15 позиции и вложенные скобки в последующих 14 позициях? Рассмотрим следующий код PHP (с 13 использованием регулярных выражений PCRE) <?php $test_string = 'I want to test sub patterns'; preg_match('{(I (want) (to) test) sub (patterns)}', $test_string, $matches); ...

Perl однострочный оператор if

... У меня есть заявление $set eq "Y" ? $set = "N" : $set = "Y"; Но независимо от того, что 2 он всегда у ...

В чем разница между "||" и «или» в Perl?

... их удобочитаемой версией Perl 2 "and", "or", ...? Похоже, что Интернет-код использует их 1 оба: open (FILE, ...

Как обновить модуль CPAN perl

... does not support AddHistory. cpan shell -- CPAN exploration and modules installation (v1.960001) Enter 'h' for help. cpan[1]> install CPAN Но результат Going to read '/root/.cpan/sources/authors/01mailrc.txt.gz' ............................................................................DONE Going to read '/root/.cpan/sources/modules/02packages.details.txt.gz' D ...

Как сопоставить любую комбинацию букв с помощью регулярного выражения?

... ой комбинации и разной длины, например: Выражение 2 должно соответств ...

Как округлить число с плавающей запятой в Perl?

... айшего целого числа? напр. 1.2 = 1 1.7 = 2 ...

Разделение большого текстового файла на каждую пустую строку

... о awk или Perl - отличные 8 инструменты для этого, но то, что никогда 7 не использовал их до синтаксиса, сбивает 6 с толку. Я нашел эти два вопроса, которые 5 почти соответствуют моей проблеме, но не 4 смог изменить синтаксис в соответствии с 3 моими потребностями: Split text file into multiple files и How can I split a text file into multiple text files? (в Unix и Linux) Как 2 изменить ввод кома ...