Perl - это универсальный интерпретируемый динамический язык программирования высокого уровня. Первоначально он был разработан Ларри Уоллом как универсальный язык сценариев Unix, чтобы упростить обработку отчетов, в течение периода при поддержке сообщества открытого исходного кода. Он развивался и совершенствовался для использования в графическом программировании, системном администрировании, сетевом программировании, финансах. , биоинформатика и другие инженерные приложения.
Замена строк в файлах на основе определенных критериев поиска является очень распространенной задачей. Как я могу заменить строку fooс barво всех файлов в текущем каталоге? сделать то же самое рекурсивно для подкаталогов? заменить только если имя файла совпадает с другой строкой? заменить только...
В документации по Perl perlrun (1) предлагает запустить сценарии Perl с использованием двуязычного заголовка оболочки / Perl: #!/bin/sh #! -*-perl-*- eval 'exec perl -x -wS $0 ${1+"$@"}' if 0; Что ${1+"$@"}значит? Я попытался использовать "$@"вместо этого (используя Bash как / bin / sh), и это,...
У меня есть список каталогов и подкаталогов, которые содержат большие файлы CSV. В этих файлах около 500 миллионов строк, каждая из которых является записью. я бы хотел знать Сколько строк в каждом файле. Сколько строк в каталоге. Сколько всего строк Самое главное, мне нужно это в «удобочитаемом...
Исходя из администрирования Windows, я хочу углубиться в Linux (Debian). Один из моих острых вопросов, на которые я не смог ответить при поиске в Интернете (не нашел его): как мне добиться так называемого удаленного взаимодействия «один ко многим», как в PowerShell для Windows? Чтобы разбить его на...
Используя общий инструмент командной строки, такой как sed или awk, возможно ли объединить все строки, заканчивающиеся заданным символом, например, обратную косую черту? Например, учитывая файл: foo bar \ bash \ baz dude \ happy Я хотел бы получить этот вывод: foo bar bash baz dude...
File1 содержание: line1-file1 "1" line2-file1 "2" line3-file1 "3" line4-file1 "4" File2 содержание: line1-file2 "25" line2-file2 "24" Pointer-file2 "23" line4-file2 "22" line5-file2 "21" После выполнения сценария perl / shell File2содержимое должно стать: line1-file2 "25" line2-file2 "24"...
ПРИМЕЧАНИЕ: этот вопрос является дополнением к этим вопросам и ответам: как "grep" для длины строки * не * в данном диапазоне? Мне нужно получить только строки из текстового файла (словаря, разделенного новой строкой), который имеет диапазон длин не менее 3 символов, но не более 10. Пример: ВХОД:...
Почему Perl установлен по умолчанию в большинстве дистрибутивов
Видимо, работает: perl -n -e 'some perl code' * Или find . ... -exec perl -n -e '...' {} + (то же самое с -pвместо -n) Или perl -e 'some code using <>' * часто встречается в однострочниках, размещенных на этом сайте, имеет последствия для безопасности. В чем дело? Как этого...
У меня есть несколько больших файлов CSV, и я хотел бы, чтобы они были в формате TSV (в формате табуляции). Сложность состоит в том, что в полях файла CSV есть запятые, например: A,,C,"D,E,F","G",I,"K,L,M",Z Ожидаемый результат: A C D,E,F G I K,L,M Z (где пробелы между ними - «жесткие» вкладки) На...
В сценарии «support / apxs.in» проекта Apache httpd@ после текста появляется текст, окруженный знаками #!. То есть первая строка скрипта: #!@perlbin@ -w Это вещь Perl или ядро UNIX? Другими словами, возможно ли выполнить этот скрипт, используя path/to/script/script_name.in? Если нет, то в чем...
Я хочу удалить последний столбец текстового файла, пока я не знаю, что такое номер столбца. Как я мог это сделать? Пример: Входные данные: 1223 1234 1323 ... 2222 123 1233 1234 1233 ... 3444 125 0000 5553 3455 ... 2334 222 И я хочу, чтобы мой вывод был: 1223 1234 1323 ... 2222 1233 1234 1233 ......
Ниже приведен текст в файле: Pseudo name=Apple Code=42B state=fault Pseudo name=Prance Code=43B state=good Мне нужно grep для "42B" и получить вывод из приведенного выше текста, как: Pseudo name=Apple Code=42B state=fault Кто - нибудь есть идеи о том , как добиться этого с помощью grep/ awk/...
В моей системе Debian (хорошо, в моей системе LMDE, но достаточно близко) у меня есть по крайней мере 3 разные renameпрограммы: /usr/local/bin/renameЭто сценарий Perl, написанный Томом Кристиансеном. Как ни странно, я не могу найти, какой пакет установил его: $ dpkg -S /usr/local/bin/rename...
У меня есть текстовый файл ( devel.xml). Я добавил слово REPLACETHIS, чтобы заменить эту строку содержимым другого файла ( temp.txt). Самое близкое, что у меня есть, это: sed -i -e "/REPLACETHIS/r temp.TXT" -e "s///" devel.txt; Это вставляет содержимое после строки, а затем удаляет строку после....
Когда я делаю 'top', я вижу процесс сценария perl в состоянии 'S'. Есть ли способ узнать, что заставляет этот perl-процесс переходить в состояние сна и как его разбудить? Любой способ отладки, чтобы дать больше информации о строках в скрипте perl, переводя его в состояние...
Я просто прыгаю в Unix из другого мира, и хотел знать, если while true do /someperlscript.pl done В самом скрипте perl есть средство просмотра папок / файлов, которое выполняется при изменении файлов в целевом местоположении. Это while trueхорошая идея? Если нет, то какой предпочтительный надежный...
Я хотел бы открыть терминал, разделить его, скажем, на 9 частей (3х3) и выполнить некоторый скрипт bash. Но для каждой терминальной части свой скрипт. Это можно сделать с помощью Perl, Python или даже Bash? Как я могу переключаться между этими маленькими терминалами, не используя сочетания клавиш?...
Ubuntu 10.10 поставляется с предустановленным Perl 5.10.1, но, как ни странно, perldocне входит в пакет. $ perldoc You need to install the perl-doc package to use this program. Как я могу сделать эту функцию...
У меня есть несколько файлов, которые я хочу обновить, заменив одну многострочную строку другой многострочной. Что-то вроде: * Some text, * something else * another thing И я хочу заменить его на: * This is completely * different text В результате будет получено, что после замены файл, содержащий...