Perl

traduction php -> pl

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : traduction php -> pl

bigben74

Bonjour à tous,
Voilà le code que j'ai fait et que j'aimerais pouvoir réutiliser pour un site en perl. Est-ce que quelqu'un pourrait me le "traduire", ou au moins avoir une transposition des fonctions?
Merci d'avance.

Code :

function barometre($pression)
{
if ($pression <= 980)
$temps = "Tempête";
else if (($pression > 980) && ($pression <= 1006))
$temps = "Pluie/Vent";
else if (($pression > 1006) && ($pression <= 1019))
$temps = "Variable";
else if (($pression > 1019) && ($pression <= 1040))
$temps = "Beau temps";
else if ($pression > 1040)
$temps = "Très sec";
else
$temps = "";
return $temps;
}
function orientation($angle)
{
if (($angle >= 337.5) || ($angle < 22.5))
$direction = "N";
else if (($angle >= 22.5) && ($angle < 67.5))
$direction = "NE";
else if (($angle >= 67.5) && ($angle < 112.5))
$direction = "E";
else if (($angle >= 112.5) && ($angle < 157.5))
$direction = "SE";
else if (($angle >= 157.5) && ($angle < 202.5))
$direction = "S";
else if (($angle >= 202.5) && ($angle < 247.5))
$direction = "SW";
else if (($angle >= 247.5) && ($angle < 292.5))
$direction = "W";
else if (($angle >= 292.5) && ($angle < 337.5))
$direction = "NW";
else
$direction = "";
return $direction;
}
$paquet_wddx = join ('', file($url));
$resultats_wddx = wddx_deserialize($paquet_wddx);
if(is_array($resultats_wddx)){
list($numero_ligne,$val) = each($resultats_wddx);
$vitesse = $val[vitessevent]*3.6/100;
$temperature = $val[temperature]/100;
$pression = round($val[pressionSL]/100,1);
$temps = barometre($pression);
$dir_val = round($val[dirvent]/100);
$direction = orientation($dir_val);
$windchill = 13.112 + 0.6215 * $temperature -11.37 * pow($vitesse,0.16) + 0.3965 * $temperature * pow($vitesse,0.16);
$meteo_live = "<center>Station sommet</center>Dernier relevé: " . substr($val[dateheure],8,2) . "h" . substr($val[dateheure],10,2) . " Température: " . round($temperature,1) . "°C Temp. ressentie: " . round($windchill,1) . "°C Vent: " . round($vitesse) . "km/h (" . $direction . " ) " . $pression . "hPa - " . $temps;
}else{
$meteo_live = "Aucune données météo !";
}

Publicité

anapajari

s/travail/glanding on hfr/gs;

y'a rien de bien violent dans la traduction:
tu changes les functions en sub, la façon de récupérer les paramètres, tu oublies pas de déclarer tes variables avec un my.
Le seul problème, c'est qu'il te faut recoder la fonction wddx_deserialize ( ou trouver un module sur la cpan qui fait pareil).

Sur quoi bloques-tu exactement?

bigben74

ben moi et perl, à part qq scripts à l'école (qui ont en plus rien à voir avec une page web), c'est pas mon truc du tout...
je suis bien d'accord la syntaxe ressemble, mais je code jamais en perl, alors même un if j'étais pas sûr que ce soit pareil...

Message édité par bigben74 le 22-03-2007 à 12:37:25

djtoz

juste une astuce pour remplacer la fonction round() qui n'existe pas en perl

sub round { return int(shift() + 0.5); }

Message édité par djtoz le 22-03-2007 à 18:31:03

FORUM HardWare.fr

Programmation

Perl

traduction php -> pl

Sujets relatifs
traduction	Faire la traduction de MOVE et LEA en C
Traduction auto d'un algo en langage C	[C#.Net] Traduction C# -> VB.Net (2 lignes)
traduction anglais/français	[binaire] Traduction du langage
[RESOLU] Traduction BBCode html	[résolu] demande traduction francais-->php (trois lignes SIMPLES)
[VB -> C#] problème pour une traduction	Petite aide, traduction vbs -JS : besoin de quelques lignes de codes !
Plus de sujets relatifs à : traduction php -> pl

Page générée en 0.057 secondes