У меня есть сценарий Perl и мне нужно определить полный путь и имя файла сценария во время выполнения. Я обнаружил, что в зависимости от того, как вы называете сценарий, $0меняется и иногда содержит, fullpath+filenameа иногда просто filename. Поскольку рабочий каталог также может варьироваться, я...
Я продолжаю печатать свой хэш как количество выделенных сегментов. Как мне распечатать содержимое моего хэша? Без использования whileцикла было бы наиболее предпочтительным (например, однострочник будет...
У меня есть несколько файлов, которые я хотел бы удалить последним символом новой строки, если это последний символ в файле. od -cпоказывает, что команда, которую я запускаю, записывает файл с новой строкой: 0013600 n t > \n Я попробовал несколько трюков с sed, но лучшее, что я мог придумать,...
У меня есть массив в Perl: my @my_array = ("one","two","three","two","three"); Как мне удалить дубликаты из
Длинная версия ... Сотрудник заявил сегодня, увидев мое использование while (1)в сценарии Perl, который for (;;)работает быстрее. Я утверждал, что они должны быть такими же, надеясь, что переводчик оптимизирует любые различия. Я установил скрипт, который будет запускать 1 000 000 000 для итераций...
Может ли кто-нибудь объяснить разницу между метасимволами \bи \wрегулярными выражениями? Насколько я понимаю, оба этих метасимвола используются для обозначения границ слов. Кроме того, какой метасимвол эффективен для многоязычного контента?...
Locked . Этот вопрос и его ответы заблокированы, потому что вопрос не по теме, но имеет историческое значение. В настоящее время он не принимает новые ответы или взаимодействия. Какие действительно полезные, но эзотерические языковые возможности в Perl вы действительно смогли использовать для...
Насколько я понимаю, в Perl используется ключевое слово "bless" внутри метода "new" класса: sub new { my $self = bless { }; return $self; } Но что именно «bless» делает с этой хеш-ссылкой?...
Я работаю над сценарием Perl. Как передать ему параметры командной строки? Пример: script.pl "string1" "string2"
Я хотел бы добавить префикс для всех папок и каталогов. Пример: у меня есть Hi.jpg 1.txt folder/ this.file_is.here.png another_folder.ok/ Я хотел бы добавить префикс "PRE_" PRE_Hi.jpg PRE_1.txt PRE_folder/ PRE_this.file_is.here.png PRE_another_folder.ok/ С...
Как обновить все мои модули CPAN до их последних
Я люблю делать такие вещи в Perl: $foo = $bar || $bazназначить $bazв $fooслучае $barпустой или не определено. У вас также есть , $foo ||= $bletchкоторые будут назначать только $bletchв $fooслучае $fooне определен или пустой. Тройной оператор в этой ситуации утомителен и утомителен. Конечно, есть...
Я хочу показать своим пользователям PDF-файлы. Причина, по которой я использую cgi для отображения PDF-файла, заключается в том, что я хочу отслеживать клики для PDF-файла и скрывать реальное местоположение сохраненного PDF-файла. Я искал в Интернете и нашел только, как показать диалог сохранения...
Я пытаюсь открыть файл .html как одну большую длинную строку. Вот что у меня есть: open(FILE, 'index.html') or die "Can't read file 'filename' [$!]\n"; $document = <FILE>; close (FILE); print $document; что приводит к: <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN Однако я...
В другом вопросе о переполнении стека Леон Тиммерманс утверждал: Я бы посоветовал вам не использовать прототипы. У них есть свое применение, но не в большинстве случаев и определенно не в этом. Почему это может быть правдой (или нет)? Я почти всегда поставляю прототипы для своих функций Perl, и я...
Как я могу проверить, содержит ли данная строка определенную подстроку, используя Perl? Более конкретно, я хочу увидеть, s1.domain.comприсутствует ли в данной строковой...
Как сообщить CPAN об установке всех зависимостей? Я пробовал установить их cpan: cpan> o conf prerequisites_policy follow cpan> o conf commit Мне все же пришлось пару раз ответить «у» (но, кажется, меньше, чем раньше). Есть ли способ заставить его всегда идти вперед и устанавливать? Я хочу...
У меня относительный путь $base_path = "input/myMock.TGZ"; myMock.TGZ- это имя файла, расположенного во входной папке. Имя файла может измениться. Но путь всегда сохраняется $base_path. Мне нужно проверить, существует ли файл в формате...
В Perl \Sсоответствует любому непробельному символу. Как я могу сопоставить любой непробельный символ, кроме обратной косой черты
Я пытаюсь написать сценарий Perl, используя прагму «utf8», и получаю неожиданные результаты. Я использую Mac OS X 10.5 (Leopard) и редактирую с помощью TextMate. Все мои настройки и для моего редактора, и для операционной системы по умолчанию настроены на запись файлов в формате utf-8. Однако,...