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

И всё прочее, что касается HTML
Правила форума
Убедительная просьба юзать теги [code] при оформлении листингов.
Сообщения не оформленные должным образом имеют все шансы быть незамеченными.
anatoliy
проходил мимо
Сообщения: 7
Зарегистрирован: 2011-11-29 7:24:04

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

Непрочитанное сообщение anatoliy » 2011-11-30 11:11:20

Здравствуйте, помогите пожалуйста начинающему как мне из моего 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);}
}
}
?>

Хостинговая компания Host-Food.ru
Хостинг HostFood.ru
 

Услуги хостинговой компании Host-Food.ru

Хостинг 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
стреляли...
Сообщения: 35456
Зарегистрирован: 2004-10-18 14:25:19
Откуда: Made in USSR
Контактная информация:

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

Непрочитанное сообщение Alex Keda » 2011-11-30 21:14:59

а что не получается?
Убей их всех! Бог потом рассортирует...

anatoliy
проходил мимо
Сообщения: 7
Зарегистрирован: 2011-11-29 7:24:04

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

Непрочитанное сообщение anatoliy » 2011-12-01 8:56:59

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

Аватара пользователя
Alex Keda
стреляли...
Сообщения: 35456
Зарегистрирован: 2004-10-18 14:25:19
Откуда: Made in USSR
Контактная информация:

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

Непрочитанное сообщение Alex Keda » 2011-12-04 21:42:59

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