Tag: perl

Имена файлов с пробелами внутри команды perl внутри echo

Как мне поддержать имена файлов с пробелами в следующей команде? echo “$(perl -MMIME::Base64 -e ‘open F, shift; @lines=; close F; print MIME::Base64::encode(join(q{}, @lines))’ $filename)” Я попробовал следующее, которое, кажется, не работает: echo … \”$filename\”) echo ‘$(… “open…” “$filename”)’ echo $(…’open … “$filename”)

Как использовать sed, чтобы заменить все остальное другой строкой, кроме шаблона?

Мне нужно использовать sed, чтобы заменить все, прежде чем сопоставить шаблон с другой строкой в ​​файле В моем файле есть разные пути. Последние несколько компонентов этих путей одинаковы независимо от пользователя, однако первые несколько компонентов будут изменены. Например, для пользователя 1 , файл содержит следующий путь build: – “/Users/user1/Projects/Stash/sdk/license.txt” Для пользователя 2 путь может быть […]

Пропустить текст в выводе с помощью grep в режиме Perl

У меня есть такой текст: blah, blah blah blah time=1.234 blah blah blah, blah blah blah blah time=9.9 blah blah blah, blah blah blah time=0.987 blah blah Я хочу получить: =1.234 =9.9 =0.987 Я использую эту строку: grep -Po ‘().+time=(\d+.\d+)’ logfile.txt Примечание. Мне не нужно беспокоиться о ложных срабатываниях, так как <foo: и time= не […]

подсчитать все конкретные слова, которые заканчиваются в каждой строке

как посчитать все слова, оканчивающиеся на “.wsp” в файле more file /application_1532998892988_0207/driver/BlockManager/memory/remainingOffHeapMem_MB.wsp /spark/application_1532998892988_0207/driver/BlockManager/memory/memUsed_MB.wsp Между тем, я создаю этот синтаксис sed s’/\// / g’ file | awk ‘{print $NF}’ | grep -o ‘.wsp’ | wc -l но этот синтаксис не так элегантен

символьная ссылка perl в файле gz

У меня есть файл file1.txt.gz, и я пытаюсь создать символическую ссылку на обычный файл, как показано ниже, используя perl symlink (“file1.txt.gz”, orig_file1); Но, похоже, это не сработает, если я не добавлю суффикс .gz к новому имени файла, то есть orig_file1.gz, который мне не нужен.

Сравнить строки в файле с общим последним столбцом, но другим в другом столбце

Как сравнить последовательные строки из текстового файла, где последний столбец должен быть одинаковым? И хотя бы одно значение во втором последнем столбце должно быть не соответствующим. Во-первых, столбец 6 следует сравнить в файле, если он совпадает Затем сравните столбец 4 для сопоставленных строк. В столбце 4 все значения не должны быть одинаковыми, по крайней мере […]

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

У меня есть один файл, как: ID_SOUR_CALENDAR BIGINT NOT NULL DEFAULT 0 COMPRESS 0 , UNIQUE PRIMARY INDEX ( CALENDAR_DATE ); ID , ID_SOUR , PRIMARY INDEX ( CALENDAR_DATE ); Я хочу заменить ‘,’ на ‘)’ в строке непосредственно перед строкой, содержащей PRIMARY. Результат должен быть: ID_SOUR_CALENDAR BIGINT NOT NULL DEFAULT 0 COMPRESS 0 ) […]

Как удалить инверсные пары совпадений?

Я хочу удалить пары дубликатов / обратных совпадений из текстового файла. Например, файл содержит данные, подобные приведенным ниже: 10 |Name1 |20 |Name2 20 |Name2 |30 |Name3 20 |Name2 |10 |Name1 <– Inverse pair (compared to first line) to be removed from text file 40 |Name4 |30 |Name3 Я ожидаю вывод, как показано ниже: 10 |Name1 […]

Как передать аргументы perl при попытке изменить строку?

Я использую подход, предложенный в https://askubuntu.com/questions/434051/how-to-replace-a-string-on-the-5th-line-of-multiple-text-files, чтобы изменить первую строку архив. Предположим, что первая строка в file.txt keepme=change1me И я хочу получить keepme=newstring Проблема в том, что newstring хранится в var1 Я пытался: var1=newstring perl -i -pe 's/(keepme=)(.*)/$1${var1}/ if $.==1' ../file.txt perl ${var1} -i -pe 's/(keepme=)(.*)/$1$ARGV[0]/ if $.==1' ../file.txt В обоих случаях результат keepme= Если […]

Разбить заголовок в файле и на основе заголовка заменить значение в файле

У меня проблема, с которой мне нужна помощь. Я не очень разбираюсь в awk, но, похоже, это хороший инструмент для этой работы. У меня есть следующий файл Field1|Field2|Field3|Field4|Field5 a|b|c|d|e 1|2|3|4|5 z|y|x|w|v У меня есть сценарий, который принимает два входа script.sh Field3 T Script.sh будет принимать аргумент «Field3» и на основе этого номера столбца должен заменить […]

Interesting Posts

переносной способ завершения команды (netcat) после таймаута

Могу ли я настроить свой домашний каталог Linux на другом разделе

Убедитесь, что debian / control Build-Depends: требования выполняются при обращении пакетов

Удобство использования / usr / share сегодня

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

перезаписать первые n строк файла

Заголовки запросов регистрации в nginx

Предотвращение сценария, изгоняющего системные ресурсы и сбой всей системы

LAMP LiveCD с IDE и xDebug

отрезать команду, заказ не сохранился?

Архивировать файлы с отметками времени в именах

15-минутный интервал округляется параметр как время начала и окончания в указанном формате

Разрешить проблему разрешения cifs в глубоком каталоге, возможно, из-за разделения UNC и prefixpath

Может ли GDB декодировать ядро, если он был передан по трубопроводу?

Возвращаясь к команде, я частично написал

Linux и Unix - лучшая ОС в мире.