FAQ PerlConsultez toutes les FAQ

perl -pi.bak -e "s/\r\n/\n/" mon_fichier.txt

perl -pi -e "s/\r\n/\n/" mon_fichier.txt

perl -ne "print if ! $lignes{$_}++" mon_fichier.txt > nouveau_fichier.txt

perl -ne 'print if ! $lignes{$_}++' mon_fichier.txt > nouveau_fichier.txt

1
2
3
4
5
6
7
8
9
10
11
12
13
14
<annuaire> 
  <personne> 
    <nom>Philou</nom> 
    <prenom>Jean-Francois</prenom> 
    <telephone>01234567890</telephone> 
    <email>toto@yahoo.fr</email> 
  </personne> 
  <personne> 
    <nom>Dupont</nom> 
    <prenom>Paul</prenom> 
    <telephone>09876543210</telephone> 
    <email>titi@yahoo.fr</email> 
  </personne> 
</annuaire>

perl -pi.sauvegarde -e "s/yahoo\.fr/developpez\.com/g" annuaire.xml

perl -ne "chomp; print join qq{ }, @{[ split /;/ ]}[8,0],$/" fichier.csv

perl -ne 'chomp; print join qq{ }, @{[ split /;/ ]}[8,0],$/' fichier.csv

1
2
col0;col1;col2;col3;col4;col5;col6;col7;col8;col9;col10 
test1;test2;test3;test4;test5;test6;test7;test8;test9;test10;test11

1
2
col8 col0 
test9 test1

perl -laF';' -ne "print join q( ), @F[8,0]" fichier.csv

perl -laF';' -ne 'print join qq( ), @F[8,0]' fichier.csv

1
2
3
4
5
6
7
#!/usr/bin/perl 
$\ = $/;                            # option -l 
while (<>) {                        # option -n 
  chomp $_;                         # options -l et -n 
  @F = split /;/;                   # option -a et -F 
  print join qq( ), @F[8,0];        # option -e 
}

perl -e "print scalar reverse <>" fichier

$ perl -e '$_ = shift; $wc = split; print qq/$wc\n/;' "ma phrase à compter"

1
2
 
4

>perl -e "$_ =shift; $wc = split /\s/; $pc = split /[\.\?\!]/; print qq/ $wc mots\n $pc phrases\n/;" "ma phrase à compter. Ma deuxième phrase. Une autre ? Ok :-) !  Merci."

1
2
 15 mots 
 5 phrases

$ echo "les poules du couvent couvent." | perl -ne '$wc = split; print $wc, " mots \n";'

5 mots

$ perl -ne '$wc = split; print qq/$. :  $wc \n/;' essai.txt

1
2
3
4
5
6
7
8
9
 
1 :  12 
2 :  12 
3 :  11 
4 :  14 
5 :  4 
6 :  5 
7 :  0 
...

perl -pi -e 's/-/\//g;' fichier.txt

perl -pi -e 's/;(\d\d)\/(\d\d)\/(\d{4})/;$3-$2-$1/g' *.csv

FOR %A IN (*.CSV) DO perl -pi.bak -e "s/;(\d\d)\/(\d\d)\/(\d{4})/;$3-$2-$1/g" %A

perl -pi -e 's/;(\d{4})-(\d\d)-(\d\d) \d\d:\d\d:\d\d/;$3\/$2\/$1/g' *.txt

perl -e 'for (@ARGV) { rename $_, lc($_) unless -e lc($_); }' *

perl -e 'for (@ARGV) { rename $_, uc($_) unless -e uc($_); }' ad_*

> perl -ne "printf qq|%d\n|,$m=()=$_=~m/\|/g;" <fichier>

utilisation de valeur non initialisée à la ligne 2501743 du fichier.

perl -n -e "{$i++; print $_ if $i == 2501743;}" nom_fichier.txt

perl -ne "print $_ if $. == 2501743;" nom_fichier.txt

perl -ne "print if $. == 2501743" nom_fichier.txt

perl -ne "print if 20 .. 60" nom_fichier.txt

perl -ne "print if 30..30" nom_fichier.txt

perl -ne "print and exit if $. == 2501743;}" nom_fichier.txt

perl -n -e "print qq/$. $_/"  file_in

perl -naF";" -e 'next if /^#/; print qq/$F[3]\n/' fichier.txt

perl -naF";" -e 'print qq/$F[4] $F[1]\n/ unless /^ *#/' fichier.txt

1
2
3
4
5
114280099;0.0.0.1 /account 2034354645;1;0; 
114280193;0.0.0.1 /account 2034360011;1;0;[[54 
114280220;0.0.0.1 /account 2034362388;1;0; 
117805929;0.0.0.1 /account 8451327160;1;0;[[51 
...

perl -ne '/(.*;)/; print qq/$1\n/' compte.txt > output.txt

perl -ne 'print unless /^\s*$/;' mon_fichier.txt > fichier_resultat.txt

perl -ne 'print $_ if $a ne $_; $a=$_;' file_in.txt > file_out.txt

perl -ni -e 'print if $a ne $_; $a=$_;'  $RESULT_PATH/DELTA_*.TXT

perl -ne 'chomp; print "$_ $a\n" if $a gt $_; $a=$_;' file_in.txt

perl -ne 'print "$. $_ $a\n" and exit if $a gt $_; $a=$_;' file_in.txt