Как скрипт php перевести в perl

[anatoliy]

Здравствуйте, помогите пожалуйста начинающему как мне из моего php скрипта сделать тоже самое только на перл, заранее благодарю.

Код: Выделить всё

<?php
$db = mysql_connect ("localhost","user","pas"); mysql_select_db ("radius",$db); 
$result = mysql_query("SELECT * FROM radcheck");
while ($myr = mysql_fetch_array($result)){
$resin= mysql_query("SELECT SUM(acctoutputoctets) FROM radacct WHERE username = '".$myr['username']."'",$db);
$myrin = mysql_fetch_array($resin);
$sumtrafu = $myr['trafinmb'];
if (isset($sumtrafu)) {
$datain1 = $myrin[0]; $datain1 = $datain1 / 1024 / 1024; $sumtrafin = round($datain1,0);
if($sumtrafin > $sumtrafu) {$res = mysql_query ("UPDATE radreply SET value='off' WHERE username='".$myr['username']."'",$db);}
}
}
?>

[Хостинг HostFood.ru]

Тарифы на хостинг в России, от 12 рублей: https://www.host-food.ru/tariffs/hosting/
Тарифы на виртуальные сервера (VPS/VDS/KVM) в РФ, от 189 руб.: https://www.host-food.ru/tariffs/virtualny-server-vps/
Выделенные сервера, Россия, Москва, от 2000 рублей (HP Proliant G5, Intel Xeon E5430 (2.66GHz, Quad-Core, 12Mb), 8Gb RAM, 2x300Gb SAS HDD, P400i, 512Mb, BBU):
https://www.host-food.ru/tariffs/vydelennyi-server-ds/
Недорогие домены в популярных зонах: https://www.host-food.ru/domains/

[Alex Keda]

а что не получается?

[anatoliy]

Тема закрыта, все налажено, всем спасибо за такую помощь.

[Alex Keda]

вообще, принято решение выкладывать
чтоб другие не мучались...