Perl é uma linguagem de programação dinâmica de alto nível, de propósito geral, interpretada. Foi originalmente desenvolvido por Larry Wall como uma linguagem de script Unix de uso geral para facilitar o processamento de relatórios. Durante um período com o apoio da comunidade de código aberto, ele evoluiu e amadureceu para ser usado para programação gráfica, administração de sistemas, programação de rede, finanças , bioinformática e outras aplicações de engenharia.
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...
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), e parece...
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...
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...
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 baz dude...
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...
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 mínimo...
Por que o Perl é instalado por padrão na maioria das distribuições
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? Como...
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...
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...
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: 1223 1234 1323 ... 2222 1233 1234 1233...
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/...
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...
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...
Quando eu faço 'top', vejo meu processo de script perl no estado 'S'. Existe uma maneira de saber, o que está fazendo esse processo perl entrar no estado de suspensão e maneiras de ativá-lo? Qualquer maneira de depurar para fornecer mais informações sobre linhas no script perl, tornando-o no estado...
Estou entrando no unix de outro mundo e queria saber se while true do /someperlscript.pl done O próprio script perl possui internamente um observador de pastas / arquivos que é executado quando os arquivos são alterados no local de destino. Isso é ( while true) uma boa ideia? Caso contrário,...
Gostaria de abrir um terminal, dividi-lo para digamos 9 partes (3x3) e executar algum script bash. Mas para cada parte terminal script diferente. Isso pode ser feito usando perl, python ou até bash? Como posso alternar entre esses pequenos terminais sem usar atalhos de teclado? A propósito,...
O Ubuntu 10.10 vem com o Perl 5.10.1 pré-instalado, mas estranhamente perldocnão faz parte do pacote. $ perldoc You need to install the perl-doc package to use this program. Como posso disponibilizar esse
Eu tenho vários arquivos que quero atualizar substituindo uma sequência de linhas múltiplas por outra sequência de linhas múltiplas. Algo ao longo das linhas de: * Some text, * something else * another thing E eu quero substituí-lo por: * This is completely * different text O resultado seria...