Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

Split & perl Et comment definir un compteur en variable

3 réponses
Avatar
ptiloups
Bonsoir,

J'ai un script perl qui me d=E9coupe un fichier en une multitude de
fichier, je voulais modifier la variable de decoupage.
C'est des fichier textes ou chaque paraagraphe est num=E9rot=E9 de 1 =E0 700=

pour le plus cons=E9quent.
Comment je d=E9finie se compteur dans le script ?


Mer=E7i


Bonne f=EAtes ...

Ptilou

--
Euh !

3 réponses

Avatar
kurtz le pirate
In article
,
ptiloups wrote:

Bonsoir,

J'ai un script perl qui me découpe un fichier en une multitude de
fichier, je voulais modifier la variable de decoupage.
C'est des fichier textes ou chaque paraagraphe est numéroté de 1 à 700
pour le plus conséquent.
Comment je définie se compteur dans le script ?


difficile sans voir le script, mais, pour bien comprendre, tu découpes
un "grand" fichier texte en plusieurs petits contenant 1 ou plusieurs
paragraphes ?

c'est ça ?



--
klp

Avatar
ptiloups
On 28 déc 2007, 18:28, kurtz le pirate wrote:
In article
,

 ptiloups wrote:
Bonsoir,

J'ai un script perl qui me découpe un fichier en une multitude de
fichier, je voulais modifier la variable de decoupage.
C'est des fichier textes ou chaque paraagraphe est numéroté de 1 à 700
pour le plus conséquent.
Comment je définie se compteur dans le script ?


difficile sans voir le script, mais, pour bien comprendre, tu découpes
un "grand" fichier texte en plusieurs petits contenant 1 ou plusieurs
paragraphes ?

c'est ça ?

oui !


Le script :
open (IN, "< file.html");
open (OUT, ">out.tmp");
$cpt=0;
while ($line = <IN>) {
if ($line =~ /</"La_variable_que_je_cherche>/) {

$cpt++;
print OUT $line;
close OUT;
rename "out.tmp", $cpt.".html";
open (OUT, ">out.tmp");
} else {
print OUT $line;
}

}
close OUT;


Je sais pas si je me fais comprendre ?

Merçi

Ptilou


Avatar
ptiloups
Bonjour,

On Jan 11, 11:56 am, ptiloups wrote:
On 28 déc 2007, 18:28, kurtz le pirate wrote:

In article
,

ptiloups wrote:
Bonsoir,

J'ai un script perl qui me découpe un fichier en une multitude de
fichier, je voulais modifier la variable de decoupage.
C'est des fichier textes ou chaque paraagraphe est numéroté de 1 à 700
pour le plus conséquent.
Comment je définie se compteur dans le script ?


difficile sans voir le script, mais, pour bien comprendre, tu découpes
un "grand" fichier texte en plusieurs petits contenant 1 ou plusieurs
paragraphes ?

c'est ça ?


oui !

Le script :> open (IN, "< file.html");
open (OUT, ">out.tmp");
$cpt=0;
while ($line = <IN>) {


if ($line =~ /</"La_variable_que_je_cherche>/) {



Il y a systématiquement un retour charriot avant et après un "dot"

$cpt++;
print OUT $line;
close OUT;
rename "out.tmp", $cpt.".html";
open (OUT, ">out.tmp");
} else {
print OUT $line;
}
}
close OUT;





Merçi

Ptilou