salut a tous j'ai besoin une fois de plus de votre aide .
j'ai un code donc je ne comprend pas ce qui ce passe j'arrive a supprimer la premiere ligne de mon fichier le result_3.csv le confirme, et dans la suite le fichier result_3.csv doit etre prise en consideration pour la suite, mais mahlheureusement lors de la sorti la ligne apparait de nouveau.
 

?

c'est resolut j'ai vu mon erreur, merci bien mais pourquoi ca ne me mensionne pas le numero sur la premiere page

Heu, si j'ai bien compris, c'est un truc comme ceci que vous voulez faire:
 

#!/usr/bin/env perl
use strict;
use warnings;
use autodie;
 
my ($n, $i) = (0, 0);
open(my $fh_out, '>', "output-$n.csv" );
open(my $fh_in,  '<', 'result_2.csv');
while (<$fh_in> ) {
  if ($i) {
    unless ($i % 10) {
      close $fh_out;
      open($fh_out, '>', "output-".++$n.".csv" );
      print $fh_out "page $n \n";
    }
    print $fh_out $_;
  }
  ++$i;
}
close($fh_out);
close($fh_in);

 
A moins que ce ne soit ceci, au vu de votre dernière phrase:

#!/usr/bin/env perl
use strict;
use warnings;
use autodie;
 
my ($n, $i) = (0, 0);
my ($fh_in, $fh_out);
open($fh_in,  '<', 'result_2.csv');
while (<$fh_in> ) {
  unless ($i % 10) {
    close($fh_out) if ($n);
    open($fh_out, '>', "output-$n.csv" );
    print $fh_out "page $n \n";
    ++$n;
  }
  print($fh_out $_) if ($i);
  ++$i;
}
close($fh_out);
close($fh_in);

Quand on accède a plus d'un fichier à la fois, il vaut mieux éviter d'utiliser $., d’où mon emploi de $i.
 
A+,

Salut Gilou c'est le deuxieme code qui est le bon , j'avais entre temps revu mon code et resolu le probleme mais je trouve le tient meilleur que le mien car dans le mien il yavais des repetions et c'etait pas agreable. comme je l'avais mensionner par ailleur j'apprend

 
voila mon code:
 

j'ai aussi remarque un truc lorsque j'execute ton Code, normalement dans le decoupage le dernier fichier est celui qui devrai avoir moins de Nom de system , mais c'est le contraire que ton code fait , le premier fichier a moin de Nom de system

> le dernier fichier est celui qui devrai avoir moins de Nom de system
ça veut dire quoi  
 
A+,

si tu a 35 Mot a repartir en page , et que par page on aimerai avoir 10 Mots la premiere page jusqu'a la 3e page aurons 10 mot par page et la derniere n'en possederai que 5 mots c'est environs ce que je voulais dire par la

Le premier a une ligne de moins parce que tu veux sauter la première ligne du fichier de départ, mais si tu veux qu'il ait 10 lignes de contenu, comme les autres, c'est très facile:

#!/usr/bin/env perl
use strict;
use warnings;
use autodie;
 
my ($n, $i) = (0, 0);
my ($fh_in, $fh_out);
open($fh_in,  '<', 'result_2.csv');
my $junk = <$fh_in>; # on saute la première ligne
while (<$fh_in> ) {
  unless ($i % 10) {
    close($fh_out) if ($n);
    open($fh_out, '>', "output-$n.csv" );
    print($fh_out "page $n \n" ) if ($n); # virer le if ($n) si on veut le titre aussi pour le premier fichier
    ++$n;
  }
  print($fh_out $_);
  ++$i;
}
close($fh_out);
close($fh_in);

 
A+,

Salut Gilou  
j'avais une question car je ne comprend pas exactement ce que fait le Module autodie.  
 
Merci bien

Le module autodie, c'est simple, il déclenche un die automatique lorsque l'on a un problème d'ouverture/fermeture/... de fichier.
Ça permet d'écrire
open($fh,  '<', 'fichier.txt');
plutôt que
open($fh,  '<', 'fichier.txt') or die "Erreur a l'ouverture de fichier.txt!\n;
 
A+,

Merci bien, c'est maintenant tres clair
 
Bonne Journee

Salut Gilou,
j'ai une question concernant les chaines de Caracteres du genre  
 
{/(^|[\s.;])$item([\s.;]|$)/i}
 
si vous en connaissez des liens en Francais qui explique cela. j'en ai trouvé des liens en anglais mais en Francais, me conviendrai.
Merci bien et bonne journee

Bonjour,
 
Vous pourriez jeter un œil aux liens de cette page ci: http://perl.mines-albi.fr/DocFr.html
 
A+,

Salut  
que pui je changer ou ajouter a cette ligne de maniere a ce qu'il fasse une difference entre 1 et 10 ainsi que entre 2 et 20 ainsi de suite  
 
my $regex = join '|', map {"\Q${_}\E"} @words;  
 
car depuis pres de 2 jours je lis les Expressions Regulair mais je ne trouve pas comment le resoudre
 
 
Merci bien d'avance

Si tu expliquais ce que tu veux faire, je pourrais aider. Parce que la, c'est loin d'être clair.
 
1) Tu as quoi en entrée? (ie dans @words)
2) et tu veux quoi en sortie dans $regexp?
 
A+,

entree my @words = qw( disallow fault  /dev/lg_dumplv //ras 1);
mais il faut tenir compte que je peus aussi rechrcher autre chose.
 
sortie $regex    = qr{($regex)};  tout ce qu'il aura trouve