Bonjour,
 
Le programme fourni par Gilou (lors de la discussion  "Découper un fichier en plusieurs et optimisation" - mai 2013) m'est particulièrement utile.
Cependant je cherche à le modifier quelque peu...
 
1) Je ne comprends pas les sens de "$. %" sur cette ligne :  

if ($. % $maxline == 0)

.
 
2) J'essaie de modifier ce programme, pour que la découpe du fichier se fasse selon le contenu de la ligne (et non à la nième ligne).
Je souhaite découper le fichier quand la ligne commence par dièse, sachant que ce qui suit le dièse serait le nom à donner au fichier.
De type :
 

# Global Variable
my $FILENAME = 'test.txt';
 
#my $outname = "file";
#my $fnum = 1;
#open(my $fout, ">", $DIR.$outname.sprintf("%03d", $fnum++));
open(my $fout, ">", $rep.$outname);
$outname = "";
 
# Script
open(my $fin, "<", $rep.$FILENAME);
 
while (<$fin> ) {
 
# if ($. % $maxline == 0) {
if ($_ =~ /^#/) {
   close($fout);
   $outname = $_;
$outname =~ s/#//;
   #open($fout, ">", $rep.$outname.sprintf("%03d" . ".aa", $fnum++));
   open($fout, ">", $rep.$outname);
 }
 else {
 print $fout $_;
 }
}
close($fout);
close($fin);

 
ça ne fonctionne bien évidemment pas!
Je parviens à découper mon fichier si la ligne commence par "#", mais les nouveaux fichiers ne se nomme pas comme je le souhaite.
 
Quelqu'un peut-il me dire ce qui cloche.
 
D'avance merci,
 
Frelinf

Salut,
 
Tu peux essayer:

#!/usr/bin/perl
use strict;
use warnings;
 
# Global Variable
my $DIR = '/data/tmp/';
my $FILENAME = 'fichier.csv';
my $outname = "file";
my $fnum = 1;
 
# Split file
open(TOP, ">", $DIR.$outname.sprintf("%03d", $fnum++));
open(FIN, "<", $DIR.$FILENAME);
while (<FIN> ) {
        chomp;
        print TOP $_, "\n";
        if (/\#/) {
                my $line = $_;
                $line =~ s/\#//;
                close(TOP);
                open(TOP, ">", $DIR.$line);
        }
}
close(TOP);
close(FIN);
 
__END__

Bonjour,
 
merciiiiiiiii!
C'est impeccable.
 
Très bonne journée,

C'est pour déclencher une action toutes les maxlines lignes lues.
$. est une variable qui donne le numéro de la ligne en cours du dernier fichier ouvert.
Si un fichier est lu avec un while, ça donne le numéro de la ligne ligne traitée mise dans $_ mais par contre, si le fichier est lu avec un foreach, il est lu d'un seul coup, rangé dans un array, et c'est l'array qui est traité par la boucle, et dans ce cas, $. contient le nb de lignes du fichier.
A+,

MERCI!
c'est parfaitement clair maintenant.
 
Comment je fais pour noter mon problème et ce message comme "[résolu]". J'ai mal dû regarder, j'ai pas vu l'info sur le forum...
 
Très bonne journée,
 
Frelinf
 

Il suffit d'éditer son message initial et d'ajouter [résolu] au titre.
 
 
Pour ton problème, j'aurais procédé ainsi:
 

#!/usr/bin/perl
use strict;
use warnings;
use autodie;
 
# Global Variable
my $dirname = '.';
my $infilename = 'indata.txt';
my $outfilename = 'outdata.txt';
 
# Script
my ($infile, $outfile);
open($infile, "<", $dirname.'/'.$infilename);
while(<$infile> ) {
    if (/^#(.*[^\s\t\n])(\s\t\n)*/) {
        close $outfile unless ($. == 1);
        open($outfile, ">", $dirname.'/'.$1);
        next;
    }
    open($outfile, ">", $dirname.'/'.$outfilename) if ($. == 1);
    print $outfile  $_;
}
close $outfile;
close $infile;
 
__END__

La subtilité est que si la première ligne commence avec un #, on peut éviter de créer un fichier par défaut inutile, d'ou les tests avec $. == 1
A+,
 

effectivement, résultat très propre, très pro!