Perl é uma linguagem de programação de alto nível que vem instalada por padrão no Ubuntu. É bem conhecido por seu uso para manipulação de texto, scripts CGI e sua enorme comunidade. Você pode encontrar qualquer modul e muitos tutoriais em http://www.cpan.org/
Eu tenho um script python que compara a lista de IPs com o banco de dados IP e fornece resultados de critérios correspondentes. (Eu tenho o script deste fórum).
convert.py
#!/usr/bin/python
import socket,struct
db=[]
for...
Pseudocommand
perl -pe 'g/^[1-777])/g' data.txt
onde tento todos os números no início de uma linha com ")" seguindo-os etc 1) , 67) e 777) .
Dados em que todos os números de pergunta devem ser encontrados (etc 1) , 16) , 6...
Eu tenho 4 colunas em meus dados delimitados por guias, preciso executar duas etapas.
Agrupe os dados de acordo com as combinações das duas primeiras colunas.
Toda vez que uma nova combinação de valores aparecer nos valores concatenados (c...
o comando perl one liner para substituir o valor no arquivo é simples:
perl -i 's/oldval/newval/g' file.txt
mas qual deve ser a sintaxe do perl one liner caso desejemos substituir o valor no parâmetro específico (o valor é após "=" sepe...
Eu tenho um arquivo CSV que tem porcentagens aqui e ali expressas em formato de texto, por exemplo
173.91,0.00%,36.10%,1.71
A questão do dia é como transformar esse exemplo em
173.91,0,0.3610,1.71
Editar para adicionar: você não de...
no meu script ksh eu preciso adicionar a seguinte tarefa (OS - linux / solaris)
Eu tenho o seguinte arquivo
more test.txt
/etc/backup/app 172.1.120 172.110.120
/etc/backup/app 172.1.120.12 172.110.120.98
/etc/backup/app 192....
O script a seguir é sobre o monitoramento de alguns logs, o registro de data e hora $ é registrado em todas as linhas que algo acontece.
Example:
03:19:13.4 Begin summary update for ads.doc.inventory.InventoryItemSummary
03:19:33.9 CronServer...
Como posso dividir um arquivo em vários arquivos com base no padrão usando perl?
Ex: entrada para ser um arquivo .txt, nome do arquivo de saída armazenado em outro arquivo .txt
use warnings;
use File::Find;
my $srceDir = "//mnt/Share_Drive/Verizon PM&T/Capture Files/";
opendir(DIR, $srceDir) or die "Can't open $srceDir: $!";
my @files = (find -type f -newermt "12 Feb 2013", $srceDir);
closedir(DIR);
Eu posso e...