Вопросы по теме 'perl'
Как удалить последние N строк файла?
Может кто-нибудь подсказать, как удалить последние n строк из файла в Perl? У меня очень большой файл размером около 400 МБ, и я хочу удалить из него около 125 000 последних строк.
8761 просмотров
schedule
20.03.2024
Больше проблем с моим руководством по Perl
Спасибо всем, кто помог мне зайти так далеко.
Теперь моя новая проблема. Я работаю с книгой, которая была написана в 2003 году, и в учебном пособии делается попытка обработать страницу, которая изменилась.
Исходный адрес: "...
510 просмотров
schedule
07.06.2024
Как выбрать столбец (столбцы) по их числовому положению в таблице?
Я пытаюсь выбрать столбцы по их положению "x" в таблице.
ДБИ
my $example = $hookup->prepare(qq{SELECT This,That,Condition,"I also want COLUMN-10" FROM tbl LIMIT ? ?});
###column_number=10 ordinal_position??...
7145 просмотров
schedule
07.06.2024
Ошибка использования неинициализированного значения при замене (s///) в Perl
Я не привык к Perl, но мне пришлось создать эту функцию.
sub getPrice {
my $url = shift;
my $prdid = shift;
my $count = shift;
my $totcount = shift;
print "($count/$totcount) Fetching Product Price : $prdid .";
my...
8694 просмотров
schedule
04.06.2024
Как создать подпрограмму Perl, которая принимает блок кода
У меня есть набор подпрограмм, которые выглядят так:
sub foo_1($) {
my $name = shift;
my $f;
run_something();
open($f, $name) or die ("Couldn't open $name");
while (<$f>) {
//Something for foo_1()
}
close($f);...
4901 просмотров
schedule
25.04.2024
В чем разница между вариантами «Карп / Квакан», «Ключ / Признание» и «Подробным»?
Я не так часто использовал Карпа, потому что обычно катался самостоятельно. Однако, следуя принципам основных модулей, я использую его сейчас. Однако, похоже, это едва ли лучше, чем предупредить / умереть.
Кроме того, что вообще делает кудахтанье...
29300 просмотров
schedule
26.03.2024
perl хэш массивов
Я пытаюсь получить доступ к элементам массива, который является частью хеша.
for my $idx ( 0 .. $#vss ) {
push (@{$vsnhash->{$vss[$idx]}}, $vsports[$idx]);
}
print Dumper(\%$vsnhash);
($VAR1 = {
'name2' => [...
1223 просмотров
schedule
23.04.2024
Как заменить строки в файле и сохранить его как другой файл
Я пытаюсь заменить строку в куче файлов *.txt. Я знаком с этой командой:
find "$folder" -type f -name '*.txt' -exec sed -i 's/REPLACEFROM/REPLACETO/g' {} \;
Однако это (согласно флагу -i) заменяет строки на месте.
Я хотел бы сохранить все...
2366 просмотров
schedule
07.04.2024
Еще медленнее, чем elsif?
Почему здесь sub eins с else медленнее, чем sub zwei с elsif ?
#!/usr/bin/env perl
use warnings;
use 5.012;
use Benchmark qw(:all);
my $d = 0;
my $c = 2;
sub eins {
if ( $c == 1) {
$d = 1;
}
else {
$d = 2;...
442 просмотров
schedule
24.04.2024
как удалить только синтаксис комментариев?
Я хочу собрать все теги из файла XML. Как удалить только синтаксис комментариев?
XML-файл:
<xml>
<contrib-group>
<contrib contrib-type="author">
<name>
<surname>Holt</surname>
<given-names>...
134 просмотров
schedule
25.04.2024
Относительно perl tie::File Module
У меня есть два вопроса о модуле tie::file
Я использовал модуль tie::file для поиска в файле размером 55 МБ и установил память 20 МБ в tie::file. Когда я пытался найти связанный массив для строки поиска, это заняло много времени. Есть ли...
342 просмотров
schedule
04.04.2024
Потокобезопасность глобальных переменных в Perl
У меня есть следующие вопросы:
Как выполняется глобальный код и инициализируются глобальные переменные в perl?
Если я пишу use package_name; в нескольких пакетах глобальный код выполняется каждый раз?
Определены ли глобальные переменные...
514 просмотров
schedule
09.04.2024
Как перебрать многомерный объект json_decoded в Perl, чтобы создать новый объект json?
Я пытаюсь воссоздать процесс php в Perl, и мне не очень повезло (я мало знаю Perl).
Это мой php-код:
$json =...
1939 просмотров
schedule
24.05.2024
Perl - сохранить вывод локального времени в хеш
В perl я могу получить текущие секунды, используя эту последовательность команд:
my @time = ($sec,$min,$hour,$day,$mon,$year_1900,$wday,$yday,$isdst)=localtime;
print $time[0]
Есть ли аналог этого, но с использованием хэшей? Таким образом,...
461 просмотров
schedule
30.04.2024
Добавьте время к ISO 8601 раз в Perl
У меня есть время ISO 8601, хранящееся в переменной, и у меня есть некоторое количество часов, хранящихся в другой переменной, например:
my $current_time = shift; #looks like: 2015-07-01T15:38:08Z
my $hours = shift; # looks like: 12
Моя цель...
411 просмотров
schedule
01.05.2024
Как сравнить пт 1 июля 05:21:23 2016 формат даты и времени в perl
У меня есть значение даты и времени в формате «Пт, 1 июля, 05:21:23 2016», как я могу это сравнить?
Мне нужно сделать как if($date1<$date2) { print "do something"! }
Пожалуйста, помогите найти ответ!
92 просмотров
schedule
01.05.2024
Как я могу проверить, что строка соответствует всем шаблонам в массиве, используя smartmatch?
Я хочу проверить, соответствует ли строка нескольким шаблонам регулярных выражений. Я наткнулся на связанный вопрос , на который Брэд Гилберт ответил с помощью оператора smartmatch:
my @matches = (
qr/.*\.so$/,
qr/.*_mdb\.v$/,...
78 просмотров
schedule
23.04.2024
DBIC присоединяется к веб-приложению Catalyst
Я уже некоторое время работаю с Catalyst и DBIC, но никогда не начинал проект самостоятельно. Теперь я создаю базу данных веб-приложения с нуля, и я начал задаваться вопросом, могу ли я сделать выборку данных с меньшим количеством строк кода. Я...
75 просмотров
schedule
22.03.2024
Mojolicious сессия не истекает
Я создаю веб-приложение, используя mojolicious. Функция выхода из системы работает только при запуске приложения на локальных компьютерах. Когда я пытаюсь выйти из приложения, работающего на сервере, срок действия сеанса не истекает, и я остаюсь в...
226 просмотров
schedule
24.03.2024
Perl включает строки продолжения и игнорирует двойные кавычки
Я работал над сценарием, который должен создавать foo для первых двух строк и bar для последних трех. Здесь я столкнулся с двумя проблемами.
Как заставить Perl игнорировать двойные кавычки вокруг первого foo?
Как мне заставить его...
224 просмотров
schedule
23.03.2024
