Php skriptini perl-a çevirmək
Salam. Mənd belə bir script var:
[code]<?php
$json = json_decode($json[0],true);
if (isset($json['url240']))
{
$vkurl = $json['url240'];
$url = $vkurl;
if(isset($_GET['start']))
{
$url = ''.$url.'&start='.$_GET['start'].'';
}
$headers = get_headers($url);
foreach ($headers as $ht){
header($ht);
}
ob_clean();
flush();
readfile($url);
exit;
}
?>[/code]
Bu skript digər serverdə olan faylın headerlərini oxuyur və bütün headerləri istifadəçi üçün göndərir və faylı oxuya-oxuya istifadəçiyə ötürür. Bunun perl versiyasını düzəldə bilmirəm amma. Bu skriptin perl versiyası necə olacaq?