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.
Je ne sais pas pourquoi ma variable $counter reste toujours à 1 et n'incrémente pas
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/; } }
Quelqu'un peut m'aider?
Merci
Partager