Вопросы с тегом «perl»

17
Как открыть терминал, разделить на 9 терминалов и переключаться между ними одним скриптом?

Я хотел бы открыть терминал, разделить его, скажем, на 9 частей (3х3) и выполнить некоторый скрипт bash. Но для каждой терминальной части свой скрипт. Это можно сделать с помощью Perl, Python или даже Bash? Как я могу переключаться между этими маленькими терминалами, не используя сочетания клавиш?...

16
сравнить два столбца разных файлов и распечатать, если он совпадает

Я использую Solaris 10, поэтому параметры grep, включающие -f, не работают. У меня есть два файла, разделенных каналом: file1: abc|123|BNY|apple| cab|234|cyx|orange| def|kumar|pki|bird| файл 2: abc|123| kumar|pki| cab|234 Я хотел бы сравнить первые два столбца файла file2 с файлом file1 (поиск по...

16
Как мне проверить, работает ли данный PID?

Я пишу Perl-скрипт, который анализирует лог-файлы для сбора PID, а затем проверяет, работает ли этот PID. Я пытаюсь придумать лучший способ сделать эту проверку. Очевидно, я мог бы сделать что-то вроде: system("ps $pid > /dev/null") && print "Not running\n"; Однако я бы предпочел...

14
Как удалить несколько пустых строк из файла?

У меня есть несколько текстовых файлов, которые я использую, чтобы делать заметки - просто обычный текст, обычно просто использующий cat >> file. Иногда я использую пустую строку или две (просто возврат - символ новой строки), чтобы указать новую тему / направление мысли. В конце каждого...

14
Удалите повторяющиеся строки, сохраняя порядок строк

[root@server]# awk '!seen[$0]++' out.txt > cleaned awk: (FILENAME=out.txt FNR=8547098) fatal error: internal error Aborted [root@server]# «Сервер» имеет: 8 ГБ ОЗУ + 16 ГБ SWAP, x> 300 ГБ свободного места, amd64, настольный ЦП. Научный Linux 6.6. На нем больше ничего не работает, чтобы сделать...

13
Замена пропущенного значения пробелом на ноль

У меня есть текстовый файл с разделителями табуляции input.txt размером около 30 КБ, я хотел бы проверить каждую строку (строки s1..s30K) на наличие пропущенного значения (т. Е. Пробела) и заполнить пропущенное значение нулевым значением. См. Out.txt input.txt id no1 no2 no3 no4 s1 23 34 45 12 s2 4...

12
Есть ли способ сделать Perl -i не клоббер символические ссылки?

Мой друг указывает, что если вы делаете: perl -pi.bak -e 's/foo/bar/' somefile когда «somefile» на самом деле является символической ссылкой, perl делает то, что говорят документы: Это делается путем переименования входного файла, открытия выходного файла с исходным именем и выбора этого выходного...

12
Использование пустой строки в качестве контекста «разделитель группы» для grep

Мне нужен вывод grep с контекстом, цветом и пустыми строками в качестве разделителя групп. В этом вопросе я узнал, как определить custom group-separator, и я построил свою команду grep следующим образом: grep --group-separator="" --color=always -A5 но разделитель группы на самом деле не пуст,...

11
Как я могу исправить разрывы линий в неправильных местах?

Мой текстовый файл выглядит так: This is one sentence that is broken. However this is a good one. And this one is somehow, broken into many. Я хочу удалить завершающий символ новой строки для любой строки, за которой следует строка, начинающаяся со строчной буквы. Так что это должно быть: This is...

11
Можно ли связать команды tr, чтобы избежать нескольких процессов tr в конвейере?

У меня есть куча TXT-файлов, я хотел бы вывести их в нижнем регистре, только в алфавитном порядке и по одному слову в строке, я могу сделать это с помощью нескольких trкоманд в конвейере, например: tr -d '[:punct:]' <doyle_sherlock_holmes.txt | tr '[:upper:]' '[:lower:]' | tr ' ' '\n' Возможно...

11
Заставить Bash использовать Perl RegEx Engine

Как вы, возможно, уже знаете, многие функции, поддерживаемые современными механизмами RegEx (обратные ссылки, обходные утверждения и т. Д.), Не поддерживаются механизмом Bash RegEx. Ниже приведен простой скрипт Bash, который я только что создал, чтобы попытаться объяснить, какова моя конечная цель:...

11
Как конвертировать из одного формата даты в другой формат?

У меня есть одна проблема с моим форматом даты. Я хочу перейти с одного формата на другой и наоборот. Мои форматы даты Формат 1 YYYY-MM-DD Формат 2 MM/DD/YYYY Я хочу изменить формат 1 на формат 2 и формат 2 на формат...

11
Заменить непечатные символы в perl и sed

Мне нужно заменить некоторые непечатаемые символы пробелами в файле. В частности, все символы от 0x00до 0x1F, кроме 0x09(TAB), 0x0A(новая строка), 0x0D(CR) До сих пор мне просто нужно было заменить 0x00персонажа. Поскольку моя предыдущая ОС была AIX (без команд GNU), я не могу использовать sed(ну,...

11
Regex & Sed / Perl: соответствует слову, которому НЕ предшествует другое слово

Я хотел бы использовать sedили perlзаменить все вхождения слова, у которого нет определенного слова перед ним. Например, у меня есть текстовый файл, который содержит сюжет фильма, и я хочу заменить все вхождения фамилии персонажа на его имя, но только в том случае, если его имя не сразу перед...

11
Выполнить команду Nohup с вводом

В UNIX у меня есть процесс, который я хочу запустить с помощью nohup. Тем не менее, этот процесс в какой-то момент будет ждать, когда мне нужно будет войти yesили noпродолжить. До сих пор в UNIX я делал следующее: nohup myprocess <<EOF y EOF Поэтому я запускаю процесс «myprocess», используя...

10
Заменить строку с последовательным индексом

Может кто-нибудь предложить элегантный способ сделать это? Входные данные: test instant () test instant () ... test instant () //total 1000 lines вывод должен быть: test instant1 () test instant2 () test instant1000() Пустые строки находятся в моих входных файлах, и в одном каталоге много файлов,...

10
Ресурс дружественный способ указать пользователю программы не висит

У меня есть Perl-скрипт в системе * nix, который в какой-то момент обрабатывает более 50 000 строк текста. Это займет некоторое время. Я пытаюсь найти удобный для пользователей способ сообщить пользователю, что программа не зависает во время обработки всего этого текста. В настоящее время я печатаю...