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><u>Station sommet</u></center>Dernier relevé: " . substr($val[dateheure],8,2) . "h" . substr($val[dateheure],10,2) . " <br>Température: " . round($temperature,1) . "°C <br>Temp. ressentie: " . round($windchill,1) . "°C <br>Vent: " . round($vitesse) . "km/h (" . $direction . " )<br>" . $pression . "hPa - " . $temps;
- }else{
- $meteo_live = "Aucune données météo !";
- }
|
|