Split d'un fichier de 5000lignes en plusieurs de 200 Lignes

Bonjour,

J'ai un fichier de 5000 emails et OVH n'autorise que 200 mails/ heures. J'aimerais donc le découper en plusieurs fichier de 200 Lignes.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

#!/usr/bin/perl use strict; use warnings;   my $targetfile = '200_mails.txt'; my $filename = 'emails.txt'; #OPEN FILE FOR READING (CHECK FOR FAILURES) open ( my $DATA, '<', $filename ) or die "Could not open file '$filename': $!";   while ( my $line = <$DATA> ) { my $counter++; print "FLAG $counter\n" ; #OPEN TARGET FILE for APPENDING (CHECK FOR FAILURES) open (my $FILE, '>>', $targetfile ) or die "Could not open file '$targetfile': $!"; print $FILE $line; close $FILE; if ( $counter % 200 == 0) { $targetfile =~ s/200/$counter/; }   }

---

Je ne sais pas pourquoi ma variable $counter reste toujours à 1 et n'incrémente pas

Quelqu'un peut m'aider?

Merci

il manque un point-virgule après ton counter++, erreur de recopie ?

Merci Gardyen,

J'ai corrigé avec une petite update dans le problème.
sans le step $counter cela reste bloqué à 400 :

Code:

---

1 2 3 4

if ($. % 200 == 0) { $targetfile =~ s/200/$./; print " FLAG $targetfile \n" ; }

---

Merci

Le problème est que dans ta regexp s///, le motif de recherche est limité à 200 alors que le nom de ton fichier évolue (d'abord 200, puis 400, ...)
Pourquoi ne pas utiliser plutôt deux variables : une qui comptabilise juste le numéro du fichier, et une construite à partir de ce numéro pour le nom du fichier.
De même, il n'est pas nécessaire d'ouvrir fermer le fichier à chaque ligne.

Proposition :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

#!/usr/bin/perl use strict; use warnings;   my $targetcounter = 200; my $filename = 'emails.txt'; #OPEN FILE FOR READING (CHECK FOR FAILURES) open ( my $DATA, '<', $filename ) or die "Could not open file '$filename': $!";   my $FILE; while ( my $line = <$DATA> ) { if ($. == $targetcounter) { undef $FILE; $targetcounter += 200; } if (!$FILE) { #OPEN TARGET FILE for APPENDING (CHECK FOR FAILURES) my $targetfile = "$targetcounter_mails.txt"; open $FILE, '>', $targetfile or die "Could not open file '$targetfile': $!"; } print $FILE $line; }

---

(je n'ai pas testé).

On vient de me passer plusieurs solution sur openstack (désolé mais c'est un projet urgent)

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

#!/usr/bin/perl use strict; use warnings;   open my $rfh,'<','file_5000' or die "unable to open file : $! \n";   my $filecount=0; my $wfh; while(<$rfh>){ if(($.-1) % 200 == 0){ close($wfh) if($wfh); open($wfh, '>', sprintf("file%02d", ++$filecount)) or die $!; } print $wfh "$_"; }

---

Marche très bien mais j'ai compris la ligne avec le modulus "if(($.-1) % 200 == 0){" et mais j'ai toujours du avec ceci: "$_"

Encore merci.

C'est à peu de chose près, la même solution que la mienne.

Pour information, réponse à la question d'origine:

Citation:

---

Envoyé par dubis

Je ne sais pas pourquoi ma variable $counter reste toujours à 1 et n'incrémente pas

---

Parce qu'en mettant "my $counter" à l'intérieur de la boucle while, ta variable est réinitialisée à 0 (puis incrémentée par le '++') pour chaque ligne lue dans la boucle while.

Au lieu de:

Code:

---

1 2 3 4

while ( my $line = <$DATA> ) { my $counter++; # ...

---

Il aurait fallu:

Code:

---

1 2 3 4 5

my $counter; while ( my $line = <$DATA> ) { $counter++; # ...

---

Mais l'utilisation de $. (compteur de ligne) est plus simple.

Merci ...

Citation:

---

Envoyé par Lolo78

Mais l'utilisation de $. (compteur de ligne) est plus simple.

---

Ou pourrais je avoir un listing des définitions de $!, $_, $. ?
J'ai toujours un soucis avec ces raccourcis dont je ne connais pas les noms

Merci

La doc officielle à jour en anglais: perlvar.

Ou taper à la ligne de commande de ton ordinateur:

Code:

---

1 2	$ perldoc perlvar

---

Doc en français (mais datant un peu): http://perl.mines-albi.fr/DocFr/perlvar.pdf