aidesur perl

Page principale

Répondre à ce message
Auteur: anne aublanc
Date:  
À: guilde
Sujet: aidesur perl
bonjour,

Je ne connais pas grand chose à perl et j'essaie de modifier un pgm qui ne
marche pas!

J'ai l'impression que la commande qui se trouve dans $FAXSTAT n'est pas
interprétée.
Si je tape cette code, je me retrouve avec

[root@maison1 client_hyla1]# faxstat -s -a
HylaFAX scheduler on maison1.linux-nuts.dyndns.org: Running
Modem ttyS0 (0476xxxxxx): Running and idle

JID  Pri S  Owner Number       Pages Dials     TTS Status
48   125 S   anne 0101010101    0:1   2:3    12:21 No local dialtone


drwxr-x   2       14     4096 Dec  2 15:01 44
drwxr-x   2       14     4096 Dec  2 17:01 45
drwxr-x   2       14     4096 Dec  2 17:01 46



le code qui ne va pas :
$FAXSTAT = "/usr/bin/faxstat -s -a";

dans le ss-pgm :

print "<PRE>\n";

open(DATA,"$FAXSTAT 2>/dev/null |");

while(<DATA>) {

print $_;

}

close DATA;

print "</PRE>\n<HR>\n";

opendir(recdir1,"$FAXROOT/recvq");

@allfiles = grep(/fax[0-9]*.tif/,readdir(recdir1));

closedir(recdir1);

merci

anne