Публикации по теме 'perl'
ПОЧЕМУ PYTHON — 5 причин выбрать язык программирования Python
Если одна из вещей легко читается, легко изучается, проста в обслуживании, и все это позволяет легко быть совершенным. Затем приходит Питон. Разработчики программного обеспечения должны работать с более чем сотнями языков, что затрудняет поиск лучших вариантов. Но вот он у нас!
Отличный стартовый язык!!!
Python считается высокоуровневым и гибким языком программирования, который легко интерпретировать, уделяя особое внимание удобочитаемости кода. Это заставляет разработчиков выбирать..
Вопросы по теме 'perl'
Как я могу переопределить методы класса Perl?
Вопрос "Как обезьяно исправить метод экземпляра в Perl? " заставили меня задуматься. Могу ли я динамически переопределять методы Perl? Скажем, у меня есть такой класс:
package MyClass;
sub new {
my $class = shift;
my $val = shift;
my...
6749 просмотров
schedule
22.03.2024
Преимущества использования хеш-ссылок?
Я видел статью о производительности Perl-скриптов.
Одна из упомянутых ими вещей — это использование ссылок на хеш вместо прямого доступа к хешу каждый раз.
Какую пользу я получу от ссылки на хэш вместо прямого доступа?
Мой сценарий считывает...
1269 просмотров
schedule
13.04.2024
Как в Perl сравнить два массива объектов (логика сравнения закодирована в отдельной подпрограмме)?
Позвольте мне конкретизировать мою проблему, а не обобщать ее и сбивать с толку аудиторию. В моем коде у меня есть набор сетевых адресов (фактически членов объектной группы), хранящихся в отдельных массивах. Я хотел бы сравнить, является ли группа A...
1271 просмотров
schedule
21.04.2024
Moose (Perl): доступ к определениям атрибутов в базовых классах
Используя __PACKAGE__->meta->get_attribute('foo') , вы можете получить доступ к определениям атрибутов foo в данном классе, что может быть полезно.
#!perl
package Bla;
use Moose;
has bla => is => 'ro', isa => 'Str';
has hui =>...
756 просмотров
schedule
02.05.2024
Почему Perl дает сбой при использовании LibXML после вилки?
У меня проблемы с этой проблемой, но я сузил ее до использования XML :: LibXML после того, как сделал форк в Perl. Я использую Strawberry Perl 5.12.0 в Windows XP и XML :: LibXML 1.70.
У меня есть сценарий, в котором мне нужно запускать несколько...
369 просмотров
schedule
08.03.2024
Доступ к веб-сайту - WWW::Mechanize
Я пытаюсь использовать код, как показано ниже, чтобы получить исходный код веб-сайта, и он работает. Однако я не могу получить результат при посещении веб-сайта http://reserve.apple.com/WebObjects/ProductReservation.woa/wa/reserveProduct , используя...
395 просмотров
schedule
03.04.2024
Расшифровать запутанный скрипт Perl
На моем сервере возникли проблемы со спамом, и после обнаружения и удаления некоторых сценариев Perl и PHP я решил проверить, что они на самом деле делают, хотя я старший программист PHP, у меня мало опыта работы с Perl, может ли кто-нибудь дать мне...
3214 просмотров
schedule
17.04.2024
Как обслуживать статические файлы (изображения и т. д.) для веб-приложения PSGI / Plack (на Perl)?
Как обслуживать статические файлы (изображения, javascript, таблицы стилей) для веб-приложения на основе PSGI / Plack?
Ответ, вероятно, будет зависеть от того, какой веб-сервер вы используете, будь то CGI, FastCGI, mod_psgi или чистый Perl, такой...
656 просмотров
schedule
18.03.2024
Perl - Различия в BEGIN блока, отличного от BEGIN
У меня есть вопрос относительно объявления const в Perl, и я не могу понять различия, пожалуйста, укажите, в чем различия.
Ниже приведен код:
BEGIN {
*SIZE = sub() { 2 };
}
*ITEM = sub() { 10 };
print 'size=', SIZE, "\n";
print 'item=',...
141 просмотров
schedule
24.03.2024
Инициализация с помощью undef для самодокументирующегося кода?
Иногда мне хочется написать:
my $var = shift // undef; # argument is optional
# or
my $var = $val{optional_value} // undef;
чтобы указать, что аргумент может отсутствовать, иначе // undef , конечно,...
109 просмотров
schedule
29.03.2024
perl: использовать Getopt::Long для установки полей Class::Struct?
Могу ли я использовать Getopt::Long для установки полей структуры?
use strict;
use diagnostics;
use Getopt::Long;
use Class::Struct foo [ a => '$', b => '$' ];
my $foo = foo->new();
GetOptions("a=i" => \$foo->a, "b=i" =>...
203 просмотров
schedule
16.05.2024
Перемещение хэша в существующий хэш в Perl
Я новичок в Perl, так что простите мой код.
Я читаю файл с древовидной структурой (например, xml, но не на самом деле), и я хочу foreach пройти по дереву, и если у определенного «узла» нет дочернего узла, я хочу его вставить. Достаточно просто....
366 просмотров
schedule
27.03.2024
Фигурные скобки, окружающие переменную
У меня есть этот фрагмент кода, который я пытаюсь понять, я даже не знаю, правильно ли он синтаксически (я думаю, это часть упражнения!)
%{$records}
Что означают фигурные скобки? Я видел тот же случай, но с оператором @ вместо $ , если...
19764 просмотров
schedule
26.03.2024
Как удерживать HTTP-соединение от Dancer Route
Я использую Perl Dancer в проекте и хочу внедрить SSE http://www.html5rocks.com/en/tutorials/eventsource/basics/#toc-introduction-differences
У меня есть маршрут Танцора, который я пытаюсь сохранить
get '/stream' => sub{
my $response =...
207 просмотров
schedule
22.03.2024
Perl: не удается получить правильный код выхода из внешней программы
Я искал везде, но я не могу найти решение моей проблемы. Вероятно, это связано с кодом.
Я пытаюсь поймать код выхода из новой программы под названием DXCMD, чтобы проверить, работают ли определенные «драйверы». Это не проблема в bash, но мне...
282 просмотров
schedule
27.03.2024
Perl обрабатывает триллион записей
Ищу совет или понимание того, что я считаю простым методом в PERL для сравнения текстовых файлов друг с другом.
Предположим, у вас есть 90 000 текстовых файлов, которые имеют одинаковую структуру, скажем, у них есть общая тема с небольшим...
157 просмотров
schedule
10.03.2024
Сопоставьте регулярное выражение с другим регулярным выражением в Perl
Я хочу выяснить, является ли данное регулярное выражение подмножеством более крупного регулярного выражения. Например, учитывая большее регулярное выражение ((a*)(b(a*))), я хочу найти, соответствует ли ему регулярное выражение, такое как (aab.*) или...
152 просмотров
schedule
28.03.2024
Разделить упорядоченный файл в Linux
У меня есть большой файл с разделителями (с трубой '|' в качестве разделителя), который мне удалось отсортировать (используя сортировку linux) в соответствии с первым (числовым), вторым (числовым) и четвертым столбцом (порядок строк, поскольку это...
123 просмотров
schedule
02.04.2024
Perl `join` создает многострочную строку
У меня есть эта программа для сортировки двух массивов
#!/usr/bin/perl -w
$movies = 'movies.txt';
open (FHD, $movies) || die " could not open $movies\n";
@movies = <FHD>;
$fruits = 'fruits.txt';
open (FHD, $fruits) || die " could not open...
119 просмотров
schedule
09.03.2024
Сравнение строки Unicode не выполняется в Test::Deep::cmp_deeply, когда я использую JSON::decode_json
В Perl v5.10.1 мне нужно сравнить собственные структуры perl с символами юникода с аналогичными структурами, созданными JSON::decode_json .
Пример:
use strict; use warnings;
#use utf8;
use JSON;
use Test::Deep qw(cmp_deeply);
cmp_deeply(["1"],...
223 просмотров
schedule
11.04.2024
