Unix & Linux perl

8

Como posso substituir uma string em um arquivo?

Substituir seqüências de caracteres em arquivos com base em determinados critérios de pesquisa é uma tarefa muito comum. Como posso substituir string foopor bartodos os arquivos no diretório atual? fazer o mesmo recursivamente para subdiretórios? substituir apenas se o nome do arquivo corresponder a outra sequência? substituir apenas se a …

751 text-processing awk sed perl

3

O que $ {1 + "$ @"} significa em um script de shell e como ele difere de "$ @"?

Na documentação do Perl, o perlrun (1) sugere o lançamento de scripts Perl usando um cabeçalho bilíngue do shell / Perl: #!/bin/sh #! -*-perl-*- eval 'exec perl -x -wS $0 ${1+"$@"}' if 0; O que ${1+"$@"}significa isso ? Tentei usar "$@"(em vez disso, usando Bash como / bin / sh), …

43 bash shell perl

6

Como você lista o número de linhas de cada arquivo em um diretório em formato legível por humanos.

Eu tenho uma lista de diretórios e subdiretórios que contêm arquivos csv grandes. Existem cerca de 500 milhões de linhas nesses arquivos, cada um é um recorde. Eu gostaria de saber Quantas linhas existem em cada arquivo. Quantas linhas estão no diretório Quantas linhas no total Mais importante, eu preciso …

41 bash awk python perl

7

Linux equivalente ao sistema de comunicação remota "um para muitos" do PowerShell

Vindo da administração do Windows, quero aprofundar-me no Linux (Debian). Uma das minhas perguntas mais frequentes que não consegui responder pesquisando na Web (não a encontrei) é: como posso obter o chamado remoting "um para muitos", como no PowerShell para Windows? Para resumir o básico, eu diria: Minha opinião no …

38 linux ssh perl remote-management

9

Como você pode combinar todas as linhas que terminam com um caractere de barra invertida?

Usando uma ferramenta de linha de comando comum como sed ou awk, é possível juntar todas as linhas que terminam com um determinado caractere, como uma barra invertida? Por exemplo, dado o arquivo: foo bar \ bash \ baz dude \ happy Gostaria de obter esta saída: foo bar bash …

36 text-processing awk sed perl

10

Como inserir o conteúdo de um arquivo em outro arquivo antes de um padrão (marcador)?

File1 conteúdo: line1-file1 "1" line2-file1 "2" line3-file1 "3" line4-file1 "4" File2 conteúdo: line1-file2 "25" line2-file2 "24" Pointer-file2 "23" line4-file2 "22" line5-file2 "21" Após a execução do script perl / shell, o File2conteúdo deve se tornar: line1-file2 "25" line2-file2 "24" line1-file1 "1" line2-file1 "2" line3-file1 "3" line4-file1 "4" Pointer-file2 "23" line4-file2 …

32 text-processing awk sed perl

4

Como "grep" para o comprimento da linha em um determinado intervalo?

NOTA: Esta pergunta é o complemento das perguntas e respostas: Como "grep" para o comprimento da linha * não * em um determinado intervalo? Eu preciso obter apenas as linhas de um arquivo de texto (uma lista de palavras, separada por uma nova linha) que tenha um intervalo de comprimento …

28 bash sed grep perl

4

Por que o Perl é instalado por padrão na maioria das distribuições Linux?

28 linux system-installation perl distribution-choice distributions

13

Convertendo CSV para TSV

Eu tenho vários arquivos CSV grandes e gostaria deles em TSV (formato separado por tabulação). A complicação é que existem vírgulas nos campos do arquivo CSV, por exemplo: A,,C,"D,E,F","G",I,"K,L,M",Z Saída esperada: A C D,E,F G I K,L,M Z (onde os espaços em branco no meio são guias "difíceis") Eu tenho …

27 text-processing python perl csv-simple

2

Implicações de segurança da execução de perl -ne '…' *

Aparentemente, executando: perl -n -e 'some perl code' * Ou find . ... -exec perl -n -e '...' {} + (o mesmo com em -pvez de -n) Ou perl -e 'some code using <>' * freqüentemente encontrado em one-liners postadas neste site, tem implicações de segurança. Qual é o problema? …

27 security perl filenames options

1

No sinal depois de shebang?

No script "support / apxs.in" do projeto Apache httpd , um texto é cercado por @sinais #!. Ou seja, a primeira linha do script é: #!@perlbin@ -w Isso é uma coisa do Perl ou do kernel do UNIX? Em outras palavras, é possível executar esse script usando path/to/script/script_name.in? Caso contrário, …

26 scripting perl shebang

8

Como excluir a última coluna de um arquivo no Linux

Desejo excluir a última coluna de um arquivo txt, enquanto não sei qual é o número da coluna. Como eu pude fazer isso? Exemplo: Entrada: 1223 1234 1323 ... 2222 123 1233 1234 1233 ... 3444 125 0000 5553 3455 ... 2334 222 E eu quero que minha saída seja: …

25 text-processing sed awk perl

5

Como grep para texto em um arquivo e exibir o parágrafo que contém o texto?

Abaixo está o texto no arquivo: Pseudo name=Apple Code=42B state=fault Pseudo name=Prance Code=43B state=good Eu preciso grep para "42B" e obter a saída do texto acima, como: Pseudo name=Apple Code=42B state=fault Alguém tem idéia de como conseguir isso usando grep/ awk/ sed?

24 text-processing awk sed grep perl

1

O que há com todas as renomeações: prename, rename, file-rename?

No meu sistema Debian (bem, no meu sistema LMDE, mas perto o suficiente), eu tenho pelo menos 3 renameprogramas diferentes : /usr/local/bin/rename: Este é um script Perl, escrito por Tom Christiansen. Curiosamente, não consigo encontrar qual pacote o instalou: $ dpkg -S /usr/local/bin/rename dpkg-query: no path found matching pattern /usr/local/bin/rename …

24 debian perl rename

1

Substituir padrão em um arquivo pelo conteúdo de outro arquivo

Eu tenho um arquivo de texto ( devel.xml). Adicionei a palavra REPLACETHIS para substituir esta string pelo conteúdo em um arquivo diferente ( temp.txt). A coisa mais próxima que tenho é esta: sed -i -e "/REPLACETHIS/r temp.TXT" -e "s///" devel.txt; Isso insere o conteúdo após a sequência e exclui a …

20 text-processing sed perl

Perguntas com a marcação «perl»