#!/usr/bin/perl -w
use strict;
# D'abord charger le fichier:
open(FILE, "$fichier") || die "Erreur E/S:$!\n";
my @contenu = <FILE>;
close(FILE);
# Ensuite, changer à la ligne 3 et 4:
$contenu[2] =~ s/2/5/; # par exemple
$contenu[3] =~ s/4/6/; # par exemple
# Enfin on sauvegarde le fichier:
open(FILE, ">$fichier") || die "Erreur E/S:$!\n";
foreach my $ligne (@contenu) {
chomp $ligne;
print FILE "$ligne\n";
}
s2 t4
#!/usr/bin/perl
use warnings;use strict;
print "Veuillez saisir la date à rajouter au fichier (format jj/mm/aaaa, ex : 12/03/2007) : ";
chomp(my $date = <STDIN>);
open F_ECRIRE,">>resultat.txt" or die "E/S : $!\n";
chomp(my @fic = glob("*.txt"));
foreach my $e(@fic){
open F_LIRE,"$e" or warn "E/S : $!\n";
while(<F_LIRE>){
print F_ECRIRE "$date = $_";
}
}
__END__
cat *.txt | perl -ne 's#(.*)#12/03/2007 = $1#;print' > resultat.txtDanbs les 2 cas le resultat on l'obtient dans le fichier resultat.txt.
jack@pc-jack:~$ ls *.txt f1.txt f2.txt f3.txt jack@pc-jack:~$ cat *.txt 05:57:42 10.100.62.52 /hit.xiti s=241243&s2=1&p=PNC&hl 05:57:43 10.100.62.52 /hit.xiti s=241243&s2=1&p=GSM_reconnu&hl 05:57:49 10.100.62.52 /hit.xiti s=241243&s2=1&p=transfere&hl 05:57:42 10.100.62.52 /hit.xiti s=241243&s2=1&p=PNC&hl 05:57:43 10.100.62.52 /hit.xiti s=241243&s2=1&p=GSM_reconnu&hl 05:57:49 10.100.62.52 /hit.xiti s=241243&s2=1&p=transfere&hl 05:57:42 10.100.62.52 /hit.xiti s=241243&s2=1&p=PNC&hl 05:57:43 10.100.62.52 /hit.xiti s=241243&s2=1&p=GSM_reconnu&hl 05:57:49 10.100.62.52 /hit.xiti s=241243&s2=1&p=transfere&hl jack@pc-jack:~$ cat *.txt | perl -ne 's#^#12/03/2007 = #;print' > resultat.txt jack@pc-jack:~$ cat resultat.txt 12/03/2007 = 05:57:42 10.100.62.52 /hit.xiti s=241243&s2=1&p=PNC&hl 12/03/2007 = 05:57:43 10.100.62.52 /hit.xiti s=241243&s2=1&p=GSM_reconnu&hl 12/03/2007 = 05:57:49 10.100.62.52 /hit.xiti s=241243&s2=1&p=transfere&hl 12/03/2007 = 05:57:42 10.100.62.52 /hit.xiti s=241243&s2=1&p=PNC&hl 12/03/2007 = 05:57:43 10.100.62.52 /hit.xiti s=241243&s2=1&p=GSM_reconnu&hl 12/03/2007 = 05:57:49 10.100.62.52 /hit.xiti s=241243&s2=1&p=transfere&hl 12/03/2007 = 05:57:42 10.100.62.52 /hit.xiti s=241243&s2=1&p=PNC&hl 12/03/2007 = 05:57:43 10.100.62.52 /hit.xiti s=241243&s2=1&p=GSM_reconnu&hl 12/03/2007 = 05:57:49 10.100.62.52 /hit.xiti s=241243&s2=1&p=transfere&hl
jack@pc-jack:~$ ls *.txt
f1.txt f2.txt f3.txt
jack@pc-jack:~$ cat f1.txt
05:57:42 10.100.62.52 /hit.xiti s=241243&s2=1&p=PNC&hl
05:57:43 10.100.62.52 /hit.xiti s=241243&s2=1&p=GSM_reconnu&hl
05:57:49 10.100.62.52 /hit.xiti s=241243&s2=1&p=transfere&hl
jack@pc-jack:~$ cat f2.txt
05:57:42 10.100.62.52 /hit.xiti s=241243&s2=1&p=PNC&hl
05:57:43 10.100.62.52 /hit.xiti s=241243&s2=1&p=GSM_reconnu&hl
05:57:49 10.100.62.52 /hit.xiti s=241243&s2=1&p=transfere&hl
jack@pc-jack:~$ cat f3.txt
05:57:42 10.100.62.52 /hit.xiti s=241243&s2=1&p=PNC&hl
05:57:43 10.100.62.52 /hit.xiti s=241243&s2=1&p=GSM_reconnu&hl
05:57:49 10.100.62.52 /hit.xiti s=241243&s2=1&p=transfere&hl
jack@pc-jack:~$ cat fic.pl
#!/usr/bin/perl
use warnings;use strict;
print "Veuillez saisir la date à rajouter au fichier (format jj/mm/aaaa, ex : 12/03/2007) : ";
chomp(my $date = <STDIN>);
open F_ECRIRE,">>resultat.txt" or die "E/S : $!\n";
chomp(my @fic = glob("*.txt"));
foreach my $e(@fic){
open F_LIRE,"$e" or warn "E/S : $!\n";
while(<F_LIRE>){
print F_ECRIRE "$date = $_";
}
}
__END__
jack@pc-jack:~$ ls resultat.txt
ls: resultat.txt: Aucun fichier ou répertoire de ce type
jack@pc-jack:~$ perl fic.pl
Veuillez saisir la date à rajouter au fichier (format jj/mm/aaaa, ex : 12/03/2007) : 12/03/2007
jack@pc-jack:~$ cat resultat.txt
12/03/2007 = 05:57:42 10.100.62.52 /hit.xiti s=241243&s2=1&p=PNC&hl
12/03/2007 = 05:57:43 10.100.62.52 /hit.xiti s=241243&s2=1&p=GSM_reconnu&hl
12/03/2007 = 05:57:49 10.100.62.52 /hit.xiti s=241243&s2=1&p=transfere&hl
12/03/2007 = 05:57:42 10.100.62.52 /hit.xiti s=241243&s2=1&p=PNC&hl
12/03/2007 = 05:57:43 10.100.62.52 /hit.xiti s=241243&s2=1&p=GSM_reconnu&hl
12/03/2007 = 05:57:49 10.100.62.52 /hit.xiti s=241243&s2=1&p=transfere&hl
12/03/2007 = 05:57:42 10.100.62.52 /hit.xiti s=241243&s2=1&p=PNC&hl
12/03/2007 = 05:57:43 10.100.62.52 /hit.xiti s=241243&s2=1&p=GSM_reconnu&hl
12/03/2007 = 05:57:49 10.100.62.52 /hit.xiti s=241243&s2=1&p=transfere&hl
lami20j@debian:~/trash/chabrrr$ ls -1 staXiti_061207.txt staXiti_061208.txt staXiti_061209.txt xiti_stat.pl lami20j@debian:~/trash/chabrrr$ cat staXiti_061207.txt 05:57:42 10.100.62.52 /hit.xiti s=241243&s2=1&p=PNC&hl 05:57:43 10.100.62.52 /hit.xiti s=241243&s2=1&p=GSM_reconnu&hl 05:57:49 10.100.62.52 /hit.xiti s=241243&s2=1&p=transfere&hl lami20j@debian:~/trash/chabrrr$ cat staXiti_061208.txt 05:57:42 10.100.62.52 /hit.xiti s=241243&s2=1&p=PNC&hl 05:57:43 10.100.62.52 /hit.xiti s=241243&s2=1&p=GSM_reconnu&hl 05:57:49 10.100.62.52 /hit.xiti s=241243&s2=1&p=transfere&hl lami20j@debian:~/trash/chabrrr$ cat staXiti_061209.txt 05:57:42 10.100.62.52 /hit.xiti s=241243&s2=1&p=PNC&hl 05:57:43 10.100.62.52 /hit.xiti s=241243&s2=1&p=GSM_reconnu&hl 05:57:49 10.100.62.52 /hit.xiti s=241243&s2=1&p=transfere&hl
lami20j@debian:~/trash/chabrrr$ cat xiti_stat.pl
#!/usr/bin/perl
use warnings;use strict;
my @fic_stat = </home/lami20j/trash/chabrrr/staXiti*>;
foreach my $fichier (@fic_stat){
$fichier =~ /\/staXiti_(\d{4})(\d\d)\.txt/;
my $date = "${1}20$2";
my $fic = "resultat_" . "$date.txt";
open F_ECRIRE,">>$fic" or warn "E/S : $!\n";
open F_LIRE,"$fichier" or warn "E/S : $!\n";
while(<F_LIRE>){
s/^/$date = /;
print F_ECRIRE $_;
}
}
#*********** FIN TRAITEMENT **********#
#
# concateantion dans resultatfinal.txt
open F_ECRIRE,">>resultatfinal.txt" or die "E/S : $!\n";
my @fic_res = </home/lami20j/trash/chabrrr/resultat_*.txt>;
foreach my $e(@fic_res){
open F_LIRE,"$e" or warn "E/S : $!\n";
while(<F_LIRE>){
print F_ECRIRE;
}
}
__END__
lami20j@debian:~/trash/chabrrr$ perl xiti_stat.pl
lami20j@debian:~/trash/chabrrr$ ls -1 resultat_06122007.txt resultat_06122008.txt resultat_06122009.txt resultatfinal.txt staXiti_061207.txt staXiti_061208.txt staXiti_061209.txt xiti_stat.pl lami20j@debian:~/trash/chabrrr$ cat resultat_06122007.txt 06122007 = 05:57:42 10.100.62.52 /hit.xiti s=241243&s2=1&p=PNC&hl 06122007 = 05:57:43 10.100.62.52 /hit.xiti s=241243&s2=1&p=GSM_reconnu&hl 06122007 = 05:57:49 10.100.62.52 /hit.xiti s=241243&s2=1&p=transfere&hl lami20j@debian:~/trash/chabrrr$ cat resultat_06122008.txt 06122008 = 05:57:42 10.100.62.52 /hit.xiti s=241243&s2=1&p=PNC&hl 06122008 = 05:57:43 10.100.62.52 /hit.xiti s=241243&s2=1&p=GSM_reconnu&hl 06122008 = 05:57:49 10.100.62.52 /hit.xiti s=241243&s2=1&p=transfere&hl lami20j@debian:~/trash/chabrrr$ cat resultat_06122009.txt 06122009 = 05:57:42 10.100.62.52 /hit.xiti s=241243&s2=1&p=PNC&hl 06122009 = 05:57:43 10.100.62.52 /hit.xiti s=241243&s2=1&p=GSM_reconnu&hl 06122009 = 05:57:49 10.100.62.52 /hit.xiti s=241243&s2=1&p=transfere&hl lami20j@debian:~/trash/chabrrr$ cat resultatfinal.txt 06122007 = 05:57:42 10.100.62.52 /hit.xiti s=241243&s2=1&p=PNC&hl 06122007 = 05:57:43 10.100.62.52 /hit.xiti s=241243&s2=1&p=GSM_reconnu&hl 06122007 = 05:57:49 10.100.62.52 /hit.xiti s=241243&s2=1&p=transfere&hl 06122008 = 05:57:42 10.100.62.52 /hit.xiti s=241243&s2=1&p=PNC&hl 06122008 = 05:57:43 10.100.62.52 /hit.xiti s=241243&s2=1&p=GSM_reconnu&hl 06122008 = 05:57:49 10.100.62.52 /hit.xiti s=241243&s2=1&p=transfere&hl 06122009 = 05:57:42 10.100.62.52 /hit.xiti s=241243&s2=1&p=PNC&hl 06122009 = 05:57:43 10.100.62.52 /hit.xiti s=241243&s2=1&p=GSM_reconnu&hl 06122009 = 05:57:49 10.100.62.52 /hit.xiti s=241243&s2=1&p=transfere&hl lami20j@debian:~/trash/chabrrr$
use warnings;use strict;
my @fic_stat = <"D:/Documents and Settings/Administrateur/Bureau/staXiti*">;
foreach my $fichier (@fic_stat){
$fichier =~ /\/staXiti_(\d{4})(\d\d)\.txt/;
my $date = "${1}20$2";
my $fic = "resultat_" . "$date.txt";
open F_ECRIRE,">>$fic" or warn "E/S : $!\n";
open F_LIRE,"$fichier" or warn "E/S : $!\n";
while(<F_LIRE>){
s/^/$date = /;
print F_ECRIRE;
}
}
#*********** FIN TRAITEMENT **********#
#
# concateantion dans resultatfinal.txt
open F_ECRIRE,">>resultatfinal.txt" or die "E/S : $!\n";
my @fic_res = <"D:/Documents\ and\ Settings/Administrateur/Bureau/resultat_*.txt">;
foreach my $e(@fic_res){
open F_LIRE,"$e" or warn "E/S : ICI $!\n";
while(<F_LIRE>){
print F_ECRIRE;
}
print F_ECRIRE "\n";
}
__END__
Combien cela coûte-t-il au total ? Quelles aides apportent l'état et les acteurs du marché pour alléger cette charge non choisie ? Tous les détails sur Commentçamarche.net.
remarque : à chaque fois je vais modifier les lignes 3 et 4 seulement et j'ai des dizaines de lignes dans le fichier
Merci pour ton indication