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/
Como imprimir do separador de campo ":" até o final da linha
exemplo:
echo " llap_java_opts : -XX:+AlwaysPreTouch {% if java_version > 7 %}-XX:+UseG1GC -XX:TLABSize=8m -XX:+ResizeTLAB -XX:+UseNUMA -XX:+AggressiveOpts"
llap_java_opts...
Costumo usar "echo $ xxx > file" no perl, normalmente para depuração. É feio mas simples, cabe "Há mais de uma maneira de fazê-lo".
Mas agora tenho um problema com @_ . @_ contém uma página da web.
'echo "@_" >/tmp/curl';
'echo...
Eu tenho o cabeçalho começando com '>' e eu quero corrigir o cabeçalho, mantendo a primeira palavra e removendo outro mostrado como em output.txt e imprimi-lo
input.txt
>AGAJ01065549.1 scaffold:Xipmac4.4.2:AGAJ01065549.1:1:500:1 REF...
Eu tenho um perl oneliner:
echo -e 'sla\ndfjAAAAk\nsaljdfla\nsjdfBBBBsadf\njasdf' | perl -E 'my $_ = do { local $/; <> }; say join qq!\n!, m!\QAAAA\E\K(.*?)(?=\QBBBB\E)!gs'
k
saljdfla
sjdf
funciona, mas eu preciso dessa saída:
df...
Eu tenho um arquivo ~/foo e outro arquivo ~/remove.txt . Gostaria de escrever um script perl que faça um loop em cada linha de ~/remove.txt e remova todas as instâncias da string (<LINE>) de ~/foo (onde <LINE> é a li...
Eu quero remover um caractere de nova linha em uma linha específica através do comando perl one-liner.
Entrada:
1407233497,1407233514,bar
1407233498,1407233515,foo
mingstats&fmt=n
1407233499,1407233516,foobar
Resultado esperado:...
como adicionar caracteres não alfanuméricos ao mapa para gerar um mix de caracteres alfanuméricos e não alfanuméricos?
$ for i in {1..5};do perl -le 'print map { (a..z,A..Z,0..9)[rand 62] } 0..pop' 100;done
feUhC59cHXl1s39T1LIiQVQVhVOMI9I2c11...
Eu tenho um arquivo que se parece com o seguinte:
line1
line2
line3
line4
line5
line6
line7
line5
line2
Eu quero obter dados entre line1 e line5 . Eu usei awk '/line1/,/line5/' myfile . Esperando que a saída seja:
line1
line2...