aide pour expression régulière

トップ ページ

このメッセージに返信
著者: anne aublanc
日付:  
To: guilde
題目: aide pour expression régulière
bonjour,

J'ai des lignes de ce type :

totpages:1
ntries:0
ndials:3
sender:anne
jobid:44
jobtag:
pagehandling:21P
chopthreshold:3
!tiff:0::docq/doc44.tif

Je veux séparer les 2 champs de la ligne. Le 1er champ va jusqu'au ":", le
2ème c'est tout ce qui suit.

      if ($line =~ /\s*(\w*): (.*)/) {
                switch: {
                         ($1 eq "number") && ($numtel = $2, last switch);
                         ($1 eq "sender")  && ($user = $2, last switch);
                         ($1 eq "status") && ($statu = $2, last switch);
                          ($1 eq "totpages") && ($nbpage = $2, last switch);
                          ($1 eq "dataformat") && ($dataformat = $2, last
switch);
                    }
                }
                else {
                 print "erreur de syntaxe sur la ligne $line\n";
                }


Chaque ligne = erreur de syntaxe...

J'ai dû me planter dans mon test. Dans $line, j'ai bien chaque ligne du
fichier!

merci pour votre aide
anne