FAQ: perl

Supponiamo di avere un file di testo di nome "file.csv" e di voler contare per ogni riga il numero di volte che si presenta un carattere, ad esempio il carattere ",".

Supponiamo che il risultato sia l'output dello stesso file "file.csv" preceduto in ogni riga dal conteggio stesso.

(altro…)

Supponiamo di voler rinominare il nome di un gruppo di file che hanno il seguente template:

file1_tmp.sh
file2_tmp.sh
...
file99_tmp.sh

(altro…)

Supponiamo di voler stampare solamente una singola linea di un file, che per comodità indichiamo con la linea 25

perl -ne '$. == 25 && print && exit' file.txt

Naturalmente se vogliamo stampare anche le righe 31 e 57

(altro…)

Supponiamo aver una stringa "Prova encode" ed un file "prova.txt" da voler encodare in Mime base64. Per risolvere il problema possiamo semplicemente lanciare la riga di comando:

perl -MMIME::Base64 -e 'print encode_base64("Prova encode")'
perl -MMIME::Base64 -0777 -ne 'print encode_base64($_)' prova.txt

(altro…)

Supponiamo di avere un file di testo (prova.txt) che vogliamo numerare. Possiamo utilizzare:

perl -pe '$_ = "$. $_"' prova.txt

Se si vuole simulare l'output di cat -n prova.txt basta usare:

(altro…)

$str =~ s/(\d+)/$1+1/ge

Supponiamo di avere un file di nome "file-con-chiavi-gpg" e di volerle estrarre eliminando ogni altra riga presente nel file.

perl -ne 'print if /-----BEGIN PGP PUBLIC KEY BLOCK-----/../-----END PGP PUBLIC KEY BLOCK-----/' file-con-chiavi-gpg

(altro…)