Perl - Ecrire dans un fichier
Résolu/Fermé
artagon7
Messages postés
417
Date d'inscription
dimanche 6 novembre 2005
Statut
Membre
Dernière intervention
12 novembre 2024
-
25 déc. 2007 à 21:12
artagon7 Messages postés 417 Date d'inscription dimanche 6 novembre 2005 Statut Membre Dernière intervention 12 novembre 2024 - 25 déc. 2007 à 22:28
artagon7 Messages postés 417 Date d'inscription dimanche 6 novembre 2005 Statut Membre Dernière intervention 12 novembre 2024 - 25 déc. 2007 à 22:28
A voir également:
- Perl - Ecrire dans un fichier
- Fichier rar - Guide
- Comment réduire la taille d'un fichier - Guide
- Comment ouvrir un fichier epub ? - Guide
- Ouvrir un fichier .bin - Guide
- Comment ouvrir un fichier docx ? - Guide
3 réponses
lami20j
Messages postés
21331
Date d'inscription
jeudi 4 novembre 2004
Statut
Modérateur, Contributeur sécurité
Dernière intervention
30 octobre 2019
3 569
25 déc. 2007 à 21:38
25 déc. 2007 à 21:38
Salut,
voici quelques possibilités
voici quelques possibilités
print OUTFILE "$_\n" foreach @trie; print OUTFILE "$_\n" for @trie; print OUTFILE map { "$_\n"} @trie; { local $"="\n"; print OUTFILE "@trie\n"; }
lami20j
Messages postés
21331
Date d'inscription
jeudi 4 novembre 2004
Statut
Modérateur, Contributeur sécurité
Dernière intervention
30 octobre 2019
3 569
25 déc. 2007 à 21:42
25 déc. 2007 à 21:42
Ou tu simplement tu enlève le chomp
Je l'ai mis en commentaire (voir en gras)
Je l'ai mis en commentaire (voir en gras)
#!/usr/bin/perl chdir ("/media/sda5/Informatique/Test"); open(OUTFILE, ">/media/sda5/Informatique/Test/contenu_musique_1.out") or die "Can't open file: $!"; open(INFILE, "contenu_musique.txt") or die "Can't open file: $!"; while(<INFILE>){ /^-(.*):\d{2}\s(\w)_(\w{3})_(\w*)\[(\d{4})\]-(\w*)-\[(\d{3})\]\.mp3$/; chomp; push @nontrie,[$_,$2,$3,$4,$5,$6,$7]; } @trie = map {$_->[0] } sort { $a->[6] <=> $b->[6] || $a->[5] cmp $b->[5] } @nontrie; print OUTFILE @trie; close INFILE; close OUTFILE;
artagon7
Messages postés
417
Date d'inscription
dimanche 6 novembre 2005
Statut
Membre
Dernière intervention
12 novembre 2024
7
25 déc. 2007 à 22:28
25 déc. 2007 à 22:28
Salut lami20j,
J'ai enleve la ligne chomp; la semaine derniere au cours de mes essais mais cela n'avait pas marche. Dans mon fichier de destination, il y avait parmi les 8 lignes que contient mon fichier deux lignes qui restaient toujours une a la suite de l'autre. J'avais abandonne cette facon.
Aujourd'hui, j'ai allume {toi, tu es paresseux ;-) moi je suis lent}. Je me suis apercu que le premier fichier implique parmi les deux correspondait a la derniere ligne de mon fichier source. Cette derniere ligne ne contenait pas de saut de ligne. J'ai donc ajoute un saut de ligne et tout est parfait. J'aurais du y penser avant... Je vais egalement garder les premieres suggestions que tu as emis au cas ou.
En ce qui concerne le tri de fichiers ca boucle la boucle. Ca devrait aller maintenant.
Donc, merci lami20j pour ton aide indispensable au cours de mon apprentissage de Perl concernant le tri de fichiers.
J'ai enleve la ligne chomp; la semaine derniere au cours de mes essais mais cela n'avait pas marche. Dans mon fichier de destination, il y avait parmi les 8 lignes que contient mon fichier deux lignes qui restaient toujours une a la suite de l'autre. J'avais abandonne cette facon.
Aujourd'hui, j'ai allume {toi, tu es paresseux ;-) moi je suis lent}. Je me suis apercu que le premier fichier implique parmi les deux correspondait a la derniere ligne de mon fichier source. Cette derniere ligne ne contenait pas de saut de ligne. J'ai donc ajoute un saut de ligne et tout est parfait. J'aurais du y penser avant... Je vais egalement garder les premieres suggestions que tu as emis au cas ou.
En ce qui concerne le tri de fichiers ca boucle la boucle. Ca devrait aller maintenant.
Donc, merci lami20j pour ton aide indispensable au cours de mon apprentissage de Perl concernant le tri de fichiers.