Вопросы по теме 'perl'
Как узнать точное количество физической памяти в Windows x86-32bit с помощью Perl или любого другого языка?
Мне нужно знать, сколько физической памяти имеет машина с Windows, используя Perl.
Я пытался использовать Win32::SystemInfo . Однако в этом модуле содержится следующее предостережение:
На компьютерах Intel x86 с объемом памяти более 2 ГБ и...
9048 просмотров
schedule
04.01.2024
Как использовать XML::XPath для получения родительского узла?
Я хочу анализировать файлы XML с помощью xPaths. После получения узла мне может потребоваться выполнить поиск xPath на их родительских узлах. Мой текущий код с использованием XML::XPath :
my $xp = XML::XPath->new(filename => $XMLPath);
#...
9825 просмотров
schedule
09.01.2024
Как я могу удалить внешние ссылки из HTML с помощью Perl?
Я пытаюсь удалить внешние ссылки из HTML-документа, но сохраняю привязки, но мне не очень везет. Следующее регулярное выражение
$html =~ s/<a href=".+?\.htm">(.+?)<\/a>/$1/sig;
будет соответствовать началу тега привязки и концу...
3091 просмотров
schedule
26.10.2023
Есть ли простой способ проверить существование и определение хеша хеш-элемента?
Мне нужно проверить хэш Perl хеш-элемента, такого как $Table{$key1}{$key2} , чтобы он существовал и был определен. Вот что я делаю. (Я понятия не имею, что $key1 вообще существует)
if
((defined $Table{$key1}) &&
(exists...
2637 просмотров
schedule
21.12.2023
Массив объектов поиска для сопоставления возможных нескольких значений с использованием различных операторов сравнения
У меня есть функция для поиска в массиве объектов совпадающего значения с помощью оператора eq, например:
sub find {
my ( $self, %params ) = @_;
my @entries = @{ $self->{_entries} };
if ( $params{filename} ) {
@entries =...
1388 просмотров
schedule
09.01.2024
Как ускорить работу поискового робота на Perl?
Последние два дня я разрабатывал небольшой любимый проект, который состоит в создании поискового робота на Perl.
У меня нет реального опыта работы с Perl (только то, чему я научился за последние два дня). Мой сценарий выглядит следующим образом:...
1751 просмотров
schedule
07.11.2023
Извлечение данных из базы данных Postgres в XML через Perl — проблема с кодировкой
У меня есть база данных Postgres, закодированная в UTF-8. Я использую Perl со следующими модулями:
use DBI
use XML::Generator::DBI
use XML::SAX::Writer
для извлечения данных из базы данных Postgres в файл XML с помощью запроса, т.е.:
use...
1013 просмотров
schedule
16.11.2023
Автоматический запуск сценария для чтения определенной информации из файла .txt? (Perl Script или предложить)
Мой сценарий: текстовые файлы будут поступать, скажем, в папку, мне нужно обнаружить новый текстовый файл и прочитать из него конкретную информацию, скажем, в формате (слово: информация, ИЛИ слово а под ним колонка инфы и т.д.). И этот процесс...
200 просмотров
schedule
29.11.2023
регулярное выражение perl помогает сопоставить любые символы, кроме завершающего пробела
ищу помощь Perl. Я плохо разбираюсь в регулярных выражениях. Но вот в основном то, с чем мне нужна помощь:
-strip out the leading blank line
-regex for any value after the directory `/foo/bar/set`, excluding trailing spaces
Ожидаемый...
332 просмотров
schedule
16.01.2024
Обратный модификатор Perl regex X
Я хотел бы использовать регулярное выражение Perl для сопоставления таких строк:
spaM
s p a m
sp Am
S p a m
Глядя на модификатор Perl x , я должен сделать это:
<?php
echo preg_match('#spam#ix', 's p a m');
?>
Но это...
508 просмотров
schedule
13.11.2023
Как в Perl я могу соединить строку ввода со следующей, только если первая заканчивается двоеточием?
Мои строки:
ABC: XYZ
XYZ ABC: XYZ
XYZ:
ABC
XYZ
ABC:
AAB
CCD
Я хочу соединить строки, заканчивающиеся двоеточием, со следующей строкой:
ABC: XYZ
XYZ ABC: XYZ
XYZ: ABC
XYZ
ABC: AAB
CCD
246 просмотров
schedule
12.12.2023
Как установить модуль Perl DateTime на Mac OSX 10.6
Хорошо, я знаю, как устанавливать модули Perl с помощью cpan, и делаю это уже много лет. Но когда я пытаюсь установить модуль DateTime на этот конкретный Mac, он терпит неудачу, утверждая, что не может найти компилятор.
Вот некоторые результаты...
4478 просмотров
schedule
24.10.2023
Нужен совет по лучшему способу фильтрации текстовых файлов на основе справочной таблицы
Сейчас я ищу способ оптимизировать процесс, который занимает много времени.
Необходимо отфильтровать около 270 текстовых файлов.
В каждом файле около 70-150 тысяч строк.
Справочная таблица обычно содержит около 16 млн записей в Oracle 10g....
89 просмотров
schedule
20.11.2023
Изображение::Magick на Strawberry Perl 5.12
Я пытаюсь установить Image::Magick на Strawberry Perl 5.12 в Windows XP, но не находит ImageMagick при создании make-файла. make также выдает множество ошибок компилятора.
Я сделал именно то, что написано в файле readme Image::Magic :...
4009 просмотров
schedule
04.11.2023
Переименование файлов в их имя папки
Здравствуйте.
У меня есть папка «Фильмы» с подпапками внутри. В этих подпапках (это название фильма) находятся файлы фильмов, которые я хотел бы переименовать с somename.nfo на subfoldername.release и с somename.mkv на subfoldername.mkv ....
195 просмотров
schedule
13.11.2023
Как суммировать два списка по элементам
Я хочу проанализировать файл построчно, каждый из которых содержит два целых числа, а затем суммировать эти значения в двух разных переменных. Мой наивный подход был таким:
my $i = 0;
my $j = 0;
foreach my $line (<INFILE>)
{
($i, $j) +=...
317 просмотров
schedule
11.11.2023
объединить файлы в одну папку в perl, использовать сценарий оболочки linux
В Linux, чтобы объединить все файлы в папке, вы можете сделать file=FOLDER/*; cat $file > ONEFILE , я также хочу использовать это в своем Perl-скрипте, поэтому я закодировал как system("file=$folder/*");
system("cat \$file > $out");
Но...
1633 просмотров
schedule
22.12.2023
Входные параметры Perl
Возможный дубликат: Как передать аргументы командной строки программе Perl?
У меня есть код, который анализирует входной файл и выводит файл .stat и файл .csv. Что мне нужно написать для запуска сценария Perl из такой командной...
1777 просмотров
schedule
09.01.2024
Perl: регулярное выражение (совпадающее повторение)
У меня есть быстрый вопрос. Что я делаю неправильно в приведенном ниже коде:
#!/usr/bin/perl -w
use strict;
my $num = "12345";
print "$num \n" if $num =~ m/\d{1,3}/;
Поскольку мой номер состоит из 5 цифр, я надеялся, что вывод не должен...
1977 просмотров
schedule
10.11.2023
Использование неинициализированного значения в конкатенации (.) или строки в ./Merge_gcov_generalised.pl, строка 226, ‹FILE2›, строка 284046 (#1)
Я написал perl-скрипт для объединения файлов gcov с разных машин. Ниже приведена подпрограмма, которую я написал для слияния.
sub merge_gcov()
{
open(FILE1, "<$_[0]") or die "can not open file";
open(FILE2, "<$_[1]") or...
2189 просмотров
schedule
08.11.2023