perl — вопросы с ответами

Я использую следующий код, чтобы проверить, пустой ли хэш. Есть ли лучший способ и безопасно ли это использовать? if (!keys %hash) { print "Empty";}

Как я могу конвертировать unix время в индуистский календарь & shy; Wikipedia и наоборот: php, Perl или Python или Java? Я знаю, что могу конвертировать в Hebrew и Jewish. Но Hindu не вариант. Чтобы быть более конкретным, я говорю о индуистском лунном календаре. Следующий веб-сайт работает и де...

$text_to_search = "example text with [foo] and more"; $search_string = "[foo]"; if($text_to_search =~ m/$search_string/) print "wee"; Пожалуйста, соблюдайте приведенный выше код. По какой-то причине я хотел бы найти текст "[foo]" в переменной $text_to_search и напечатать "wee", если найду его. Для...

Я опытный разработчик Perl с некоторым опытом и/или знакомством с другими языками (опыт работы с C/С++, опыт работы в школе с Java и Scheme, а также знакомство со многими другими). ​​ Мне может потребоваться выполнить некоторую работу в Интернете на Python (наиболее немедленно, связанный с Google Ap...

Как проверить, является ли модуль Perl частью ядра - то есть он является частью стандартной установки? Я ищу: команда командной строки: Подпрограмма/функция Perl для проверки внутри кода Возможно, вопрос должен быть следующим: как я могу узнать, какие модули изначально были предоставлены с конкрет...

Я использую формат YAML с разумным успехом за последние 6 месяцев или около того. Однако чистая реализация Perl анализатора YAML справедлива суетливый, чтобы вручную написать читаемый файл и, по-моему, раздражающие причуды, такие как требование новой строки в конце файла. Это также гигантский медлен...

У меня есть два массива строк, которые я хотел бы сравнить для равенства: my @array1 = ("part1", "part2", "part3", "part4"); my @array2 = ("part1", "PART2", "part3", "part4"); Есть ли встроенный способ сравнения массивов, например, для скаляров? Я пробовал: if (@array1 == @array2) {...} но он про...

У меня есть два вопроса о функции Perl open: 1) Я, кажется, помню из Perl Best Practices, что версия с тремя аргументами open лучше, чем две версии аргументов, например open(OUT, '>>', $file); против. open(OUT, ">>$file"); Почему? Я пытался сказать кому-то, чтобы использовать версию с ...

Я попытался проверить, установлен ли в моей системе XML:: Simple. perl -e 'while (<@INC>) { while (<$_/*.pm>) { print "$_\n"; } }' Вышеупомянутый однострочный файл был использован для перечисления всех модулей, установленных в моей системе. Однако он не перечисляет XML-модули. Однако вы...

Я знаю, что такие вопросы задавались уже много раз. Причина, по которой я снова здесь, - это то, что я чувствую, что пропустил что-то простое и фундаментальное. Возможно ли сделать эту процедуру поиска? Например, не открывая тот же файл дважды. Также приветствуются советы по скорости. Обратите внима...

Кажется, что новая прагма называется parent, которая делает примерно то же самое, что base. Что делает parent, что гарантирует новый (неосновный) модуль? Я что-то упустил?

в Perl, когда я делаю use <module name> <ver>;, система находит файл .pm для библиотеки где-то в пути @INC. Есть ли надежный способ загрузки файла?

Обратите внимание: я не ищу "правильный" способ открыть/прочитать файл или как я должен открывать/читать файл каждый раз. Мне просто интересно узнать, как много людей используют, и, возможно, изучать несколько новых методов одновременно:) * Очень распространенный блок кода в моих программах Perl отк...

У меня есть следующий код Perl, который полагается на Term::ReadKey для получения ширины терминала; В моей сборке NetBSD отсутствует этот модуль, поэтому я хочу по умолчанию использовать ширину терминала до 80, когда модуль отсутствует. Я не могу понять, как условно использовать модуль, зная заранее...

Да, Там больше, чем один способ сделать это, но должен быть канонический или наиболее эффективный или наиболее сжатый способ. Я добавлю ответы, которые я знаю, и посмотрю, что перколит к вершине. Чтобы быть ясным, вопрос в том, как лучше всего читать содержимое файла в строку. Одно решение за каждый...