Je n'ai pas testé, je fais de mémoire, mais comme ça, ça devrait marcher :
open (FIC,"FIC.TXT")||die("pb d'ouverture\n");
while (($ligne = <FIC>) and ($ligne!~/17 H 00/))
{
if($ligne=~/toto/)...
Je n'ai pas testé, je fais de mémoire, mais comme ça, ça devrait marcher :
open (FIC,"FIC.TXT")||die("pb d'ouverture\n");
while (($ligne = <FIC>) and ($ligne!~/17 H 00/))
{
if($ligne=~/toto/)...
Vous avez un bloqueur de publicités installé.
Le Club Developpez.com n'affiche que des publicités IT, discrètes et non intrusives.
Afin que nous puissions continuer à vous fournir gratuitement du contenu de qualité, merci de nous soutenir en désactivant votre bloqueur de publicités sur Developpez.com.