KOMMANDOInternetMatérielsPrestationsNEXTSTEP·OPENSTEPFormationsPartenairesRéférences



[Banniere]


#!/usr/bin/perl
$somme = $ARGV[0];
$devise_depart = 'USD+United+States+Dollars';
$devise_arrivee = 'FRF+France+Francs';

open (LYNX, "/usr/bin/lynx -post_data -nolist http://www.xe.net/cgi-bin/ucc/convert<<FIN_REQUETE\ntimezone=Canada%2FEastern&Amount=$somme&From=$devise_depart&To=$devise_arrivee\n---\nFIN_REQUETE\n|");

while (<LYNX>)
{
    if (/United States Dollars[^\d]+([\d,.]+) FRF/)
    {
        ($change = $1) =~ tr/,./ ,/;
        print "Cela fait $change Francs Français\n";
        last;
    }
}
close (LYNX);

[petit logo]

     Chercher sur ce site

Une remarque, une question ou une suggestion ? Merci de nous écrire à info@kommando.com.

KOMMANDO
Siège social : 3, rue Jacques Daguerre · 95370 MONTIGNY lès CORMEILLES
Tél : 33 (0)6 60 60 10 48 · Fax : 33 (0)6 61 60 10 48 · info@kommando.com



KOMMANDOInternetMatérielsPrestationsNEXTSTEP·OPENSTEPFormationsPartenairesRéférences