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