Ecrire un programme en Perl
Bonjour,
je voudrais savoir si quelqu'un pourrait ecrire se brin de programme en Perl j ai essaye deja suis pas un as de programmation en Perl en plus ca urge donc je vous en prie si quelqu'un est capable de m aider ca me ferait plaisir .
Merci beaucoup.
BPort est un booléen
nNbreOctet est un entier
sMess est une chaîne
//Ouverture du port COM
BPort = sOuvre(1, 1024, 1024, sTimeoutDéfaut)
SI BPort = Vrai ALORS
//On renseigne les paramètres du modem
sFixeParamètre(1, 9600, 0, 8, 1, Vrai, Vrai, Faux)
//On teste le modem
sEcrit(1, "AT" + Caract(13))
//On laisse au moden le temps de répondre
Temporisation(100)
nNbreOctet = sDansFileEntrée(1)
sMess = sLit(1, nNbreOctet)
//Si la réponse (qui est en fonction du modem) est différente Entrée_OK_Entrée...
SI Majuscule(sMess) <> Caract(13) + Caract(10) + "OK" + Caract(13) + Caract(10) ALORS
Info("Communication avec le terminal impossible !" + RC + " Réseau mauvais ou revérifiez les branchements du modem et sa configuration !")
SINON
//Selon le pays le nombre de chiffre pour composer un numéro
//Pour moi c'est 8, pour la France c'est supérieur dont à changeren fonction
//du pays (ici SAI_N_Téléphone est le champ qui contient le N° de tél
SI Taille(SAI_N_Téléphone) <> 8 ALORS
Info("Numéro de Téléphone érronné ! Vérifier le SVP !")
SINON
Temporisation(100)
//Pour les commandes AT chercher la syntaxe sur le net
sEcrit(1, "AT+CMGS=" + Caract(34) + Droite(SAI_N_Téléphone, 8) + Caract(34) + Caract(13))
Temporisation(100)
nNbreOctet = sDansFileEntrée(1)
sMess = sLit(1, nNbreOctet)
SI Majuscule(sMess) <> Caract(13) + Caract(10) + "> " ALORS
Info("Mauvaise initialisation du Modem !")
SINON
Temporisation(100)
sEcrit(1, SAI_Message + Caract(26))
// Temporisation(100)
Info("Message envoyer avec succès !")
FIN
FIN
FIN
//On ferme le port
sFerme(1)
SINON
Erreur("Erreur d'ouverture du COM1")
FIN
je voudrais savoir si quelqu'un pourrait ecrire se brin de programme en Perl j ai essaye deja suis pas un as de programmation en Perl en plus ca urge donc je vous en prie si quelqu'un est capable de m aider ca me ferait plaisir .
Merci beaucoup.
BPort est un booléen
nNbreOctet est un entier
sMess est une chaîne
//Ouverture du port COM
BPort = sOuvre(1, 1024, 1024, sTimeoutDéfaut)
SI BPort = Vrai ALORS
//On renseigne les paramètres du modem
sFixeParamètre(1, 9600, 0, 8, 1, Vrai, Vrai, Faux)
//On teste le modem
sEcrit(1, "AT" + Caract(13))
//On laisse au moden le temps de répondre
Temporisation(100)
nNbreOctet = sDansFileEntrée(1)
sMess = sLit(1, nNbreOctet)
//Si la réponse (qui est en fonction du modem) est différente Entrée_OK_Entrée...
SI Majuscule(sMess) <> Caract(13) + Caract(10) + "OK" + Caract(13) + Caract(10) ALORS
Info("Communication avec le terminal impossible !" + RC + " Réseau mauvais ou revérifiez les branchements du modem et sa configuration !")
SINON
//Selon le pays le nombre de chiffre pour composer un numéro
//Pour moi c'est 8, pour la France c'est supérieur dont à changeren fonction
//du pays (ici SAI_N_Téléphone est le champ qui contient le N° de tél
SI Taille(SAI_N_Téléphone) <> 8 ALORS
Info("Numéro de Téléphone érronné ! Vérifier le SVP !")
SINON
Temporisation(100)
//Pour les commandes AT chercher la syntaxe sur le net
sEcrit(1, "AT+CMGS=" + Caract(34) + Droite(SAI_N_Téléphone, 8) + Caract(34) + Caract(13))
Temporisation(100)
nNbreOctet = sDansFileEntrée(1)
sMess = sLit(1, nNbreOctet)
SI Majuscule(sMess) <> Caract(13) + Caract(10) + "> " ALORS
Info("Mauvaise initialisation du Modem !")
SINON
Temporisation(100)
sEcrit(1, SAI_Message + Caract(26))
// Temporisation(100)
Info("Message envoyer avec succès !")
FIN
FIN
FIN
//On ferme le port
sFerme(1)
SINON
Erreur("Erreur d'ouverture du COM1")
FIN
4 réponses
-
Ah DalMerci bien c est juse que je suis toujours sur mon meme Projet et depuis lors j ai pas trop avance avec mon smsServer envoyer et recevoir un sms.
Mais bon je vais essaye le cpan et voir si je peux envoyer un sms et recevoir. -
ContributeurSalut duprice,
On dirait bien du Windev.
Si cela urge, tu te procures Windev, et tu utilises cet environnement pour exécuter ce programme.
Si tu tiens à utiliser Perl, tu devrais sans doutes utiliser quelque chose comme Device::Modem::GSM que tu te procures avec CPAN :
https://metacpan.org/pod/release/SKATTOOR/Device-Modem-GSM-0.3/lib/Device/Modem/GSM.pm
et adapter ce code en Perl.
Dal -
ca pas en faite ca , j'ai juste besoin d'aide et si tu peux m'aider je t'en serais reconnaissant mais t'inquiete ce n'est pas un devoir loool
merci -
Contributeurça urge, genre "je dois bientôt rendre mon devoir que j'ai la flemme de faire et faudrait que quelqu'un le fasse à ma place".
okok...
