Discussion :

[dubis]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Gardyen]

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

[dubis]

Merci Gardyen,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Merci

[Philou67430]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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é).

[dubis]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[Philou67430]

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

[Lolo78]

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

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Il aurait fallu:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
my $counter;
while ( my $line = <$DATA> ) {
   $counter++;
   # ...

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

[dubis]

Merci ...

[dubis]

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

[Lolo78]

La doc officielle à jour en anglais: perlvar.

Ou taper à la ligne de commande de ton ordinateur:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
$  perldoc perlvar

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