3
ответа

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

Я ищу решение к разделению строки, которая содержит текст в следующем формате: "abcd efgh 'ijklm никакой pqrs' tuv", который приведет к следующим результатам: ['abcd', 'efgh', 'ijklm никакой pqrs'...
вопрос задан: 17 March 2010 03:36
3
ответа

Почему делает мой Perl regex, жалуются на “Несопоставленный) в regex”?

если ($title = ~ s / (\s |^ |, |\/|; | \|) $replace (\s| $ |, | \/|; | \|)//ig), $title может быть рядом заголовков в пределах от президента, Мэриленд, COO, генерального директора... $replace может быть (акционер), (Владелец) и т.п. Я сохраняю...
вопрос задан: 16 March 2010 23:39
3
ответа

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

Я просто хочу передать (отправьте или получите), хеш от клиента к серверу. Можно ли сказать мне, который является предпочтительным путем в Perl, или можно ли предложить какие-либо модули CPAN?
вопрос задан: 16 March 2010 08:48
3
ответа

Почему мой ActivePerl программирует на остановке Windows принять сокетные соединения?

Я использую ветвление () на Perl в Windows (ActivePerl) для основного сервера сокета, но по-видимому существуют проблемы (это не примет соединения после несколько раз), есть ли какое-либо обходное решение? Вот...
вопрос задан: 15 March 2010 19:08
3
ответа

Почему Perl жалуется, что “Использование неявного разделения к _ удерживается от использования”?

Этот код инициировал жалобу ниже: #!/usr/bin/perl строгое использование; используйте предупреждения; мой $s = "aaa bbb"; мой $num_of_item = разделение (/\s +/, $s); $num_of_item печати; Когда я выполняю код, Perl жалуется...
вопрос задан: 12 March 2010 22:14
3
ответа

Мы можем выполнить два одновременных невложенных цикла в Perl?

Часть моего кода идет как это: в то время как (1) {мой $winmm = новый Win32:: MediaPlayer; $winmm-> загрузка ('1.mp3'); $winmm-> игра; $winmm-> объем (100); Сделайте Некоторый Материал; в последний раз...
вопрос задан: 12 March 2010 03:43
3
ответа

Вопрос о foreach-значении

Я нашел в Модуле записанное для цикла как это для (@array) {моим $scalar = $ _;......} там Различие между этим и следующим способом записать для цикла? за мой $...
вопрос задан: 11 March 2010 15:51
3
ответа

Perl: Получите доступ к hashref, отсортированному по значению

Я пишу сценарий, это прочитает мои журналы ftpd и генерирует хеш следующим образом: $stats = \{'user1' => {'файлы' => 281, 'размер'...
вопрос задан: 4 March 2010 14:12
3
ответа

Присоединение к Разрывам строки в файле FASTA С Условием в SED/AWK/Perl остроте

У меня есть данные, которые похожи на это> sq1 foofoofoobar foofoofoo> sq2 quxquxquxbar quxquxquxbar quxx> мир sq3 paxpaxpax, Что я хочу сделать, должен присоединиться к ним в строки:> sq1...
вопрос задан: 2 March 2010 01:14
3
ответа

Что делает {$histogram {$value} ++} означают в Perl?

Целая подпрограмма для кода в заголовке: гистограмма sub {# количества элементов в массиве мой %histogram = (); foreach мой $value (_) {$histogram {$value} ++} возврат (%histogram);} я'...
вопрос задан: 1 March 2010 06:17
3
ответа

Почему мой родительский процесс не видит вывода ребенка, пока он не выходит?

Рассмотрите следующий сценарий: используйте IO:: Файл; $ | = 1; мой ($handle, $pid) = myPipe (); если ($pid == 0) {печатают "$$"; сон 5; выход;} печатают "дочерний элемент: ". <$handle>". \n"; sub myPipe {мой $...
вопрос задан: 26 February 2010 22:44
3
ответа

Как я могу извлечь поля из файла CSV в Perl?

Я хочу извлечь деталь поля из файла CSV (830k записи) и хранилище в хеш. Есть ли какой-либо быстрый и простой способ сделать в Perl с использованием каких-либо внешних методов? Как я могу достигнуть этого?
вопрос задан: 26 February 2010 09:39
3
ответа

Как может я фиксировать “неизвестный терминальный тип” при соединении с Сетью Perl:: Telnet?

Я получил проблему, соединяющуюся с машиной Linux SUSE Сетью Perl:: модуль Telnet. Код похож ниже: мой $t = новая Сеть:: Telnet (Тайм-аут => 20); $t-> открытый ($server); $t-> input_log ("telnet....
вопрос задан: 25 February 2010 22:04
3
ответа

Почему использование является классом символов POSIX в моем regex шаблоне, дающем неожиданные результаты?

Я встретился с некоторым странным поведением Perl: использование класса символов Posix в regexp полностью изменяет порядок сортировки для получивших строк. Вот моя тестовая программа: sub namecmp ($a, $b) {$...
вопрос задан: 25 February 2010 12:43
3
ответа

Почему делает мой Perl макс. (), функционируют, всегда возвращают первый элемент массива?

Я относительно плохо знаком с Perl, и я не хочу использовать Список:: Util макс. функционируют для нахождения максимального значения данного массива. Когда я тестирую код ниже, он просто возвращает первое значение массива...
вопрос задан: 25 February 2010 01:23
3
ответа

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

Я должен отключить последние семь символов строки (строка, которая хранится в хеше). Что самый легкий путь состоит в том, чтобы сделать это в жемчуге?Заранее большое спасибо!
вопрос задан: 25 February 2010 01:16
3
ответа

Можно ли спасти мой отрицательный lookbehind пример для commifying чисел?

В "Усовершенствованном Регулярном Expresssion" глава в Освоении Perl, у меня есть поврежденный пример, для которого я не могу выяснить хорошую фиксацию. Пример, возможно, пытается быть слишком умным для его собственной пользы, но...
вопрос задан: 25 February 2010 00:56
3
ответа

Как я могу не благословить объект в Perl?

От perldoc-f благословляют: благословите КАСАТЕЛЬНО, ИМЯ КЛАССА, которым Эта функция говорит штуке, на которую ссылаются КАСАТЕЛЬНО ТОГО, что это - теперь объект в пакете ИМЕНИ КЛАССА. Есть ли любой способ получить...
вопрос задан: 24 February 2010 21:56
3
ответа

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

Следующий сценарий для нахождения одного мотива в последовательности белка. используйте строгий; используйте предупреждения; мой @file_data = (); мой $protein_seq = ''; мой $h =' [VLIM]'; мой $s =' [AG]'; мой $x =' [ARNDCEQGHILKMFPSTWYV]';...
вопрос задан: 23 February 2010 22:24
3
ответа

Как этот запутываемый Perl кодирует работу?

Как это кодирует работу вообще? #!/usr/bin/perl $i=4; $ | = @f=map {("! "x$i ++). "K$ _ ^\\x {0e} "} "BQI! \\", "BQI \\", "BQI", "BQ", "B"""; продвиньте @f, reverse@f [1.. 5];
вопрос задан: 23 February 2010 19:34
3
ответа

Как подпрограмма Perl может различать имена файлов, руки файла, *ДАННЫЕ, и *STDIN?

Если у меня есть функция, которая могла бы быть передана имя файла или различные дескрипторы файлов или typeglobs, как функция может различать эти аргументы - включая сообщение различия, например...
вопрос задан: 23 February 2010 14:53
3
ответа

Сценарий для того, чтобы изменить имена класса C++

Я переместил свои классы от глобального пространства имен в определенное пространство имен. Я также изменил имена классов. Я хочу преобразовать все свои исходные файлы, которые используют эти классы для нового формата. Я был...
вопрос задан: 22 February 2010 21:39
3
ответа

Как я могу реализовать singleton-класс в жемчуге?

Какова лучшая практика для реализации Одиночных элементов в Perl?
вопрос задан: 22 February 2010 10:47
3
ответа

Какой смысл 'использования Вар' в этой подпрограмме Perl?

В одной из глав в Освоении Perl brian d foy показывает этот отрывок из Списка:: Util: sub уменьшают (и) {мой $code = сдвиг; никакие строгие "судьи"; возвратите сдвиг если _> 1; использовать...
вопрос задан: 22 February 2010 00:37
3
ответа

Существует ли "облачная" инфраструктура, где я могу развернуть приложения Perl?

Существует ли online/cloud-ish механизм приложения с доступной опцией Perl? Я хотел бы записать и развернуть персональное веб-приложение, это размещается некоторым существующим механизмом веб-приложения (довольно простое приложение и...
вопрос задан: 22 February 2010 00:08
3
ответа

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

Я пытаюсь использовать regex в Perl. То, что я был удивлением, было то, если возможно сохранить все соответствия к выражению в массив? Я знаю, что могу использовать следующее: (1$..., $n) = m/expr/g; но это кажется как...
вопрос задан: 21 February 2010 23:38
3
ответа

Как я копирую файл с именем файла UTF-8 к другому имени файла UTF-8 в Perl в Windows?

Например, учитывая пустой файл .txt, как я сделал бы копию названной テスト. txt.copy? Моей первой трещине в нем удалось получить доступ к файлу и создать новое имя файла, но копия генерировала ム†ã‚ ¹ãƒ ˆ....
вопрос задан: 21 February 2010 00:54
3
ответа

Есть ли простой способ отобразить DBIx:: Класс заканчивается к моим пользовательским классам Американского лося?

Это кажется своего рода болью, чтобы иметь мои классы Американского лося. Затем использовать DBIx:: Класс для получения набора результатов.. затем вручную отобразить мой набор результатов на классы американского лося.
вопрос задан: 18 February 2010 19:50
3
ответа

Что произойдет, если Perl попытается назвать перемещение () на файле, который загружается?

Кто-то - FTPing файл размера 10 МБ к папке на сервере Linux. В то время как файл находится в переходе, крон просыпается и исчерпывает сценарий Perl, который разработан для рассмотрения папки ftp и перемещения...
вопрос задан: 13 February 2010 20:03
3
ответа

Я должен установить наследование во время компиляции, а не время выполнения, и раз так почему?

Наследование AFAIK в Perl обычно настраивается как это: Мул пакета; наш @ISA = ("Лошадь", "Осел"); Есть ли какие-либо примеры, где основа использования (или используют родителя) лучше вместо этого?
вопрос задан: 13 February 2010 19:21