Salam. Mənd belə bir script var:
1 | <?php |
2 | $json = json_decode($json[0],true); |
3 | if (isset($json['url240'])) |
4 | { |
5 | $vkurl = $json['url240']; |
6 | $url = $vkurl; |
7 |
8 | if(isset($_GET['start'])) |
9 | { |
10 | $url = ''.$url.'&start='.$_GET['start'].''; |
11 | } |
12 | $headers = get_headers($url); |
13 | foreach ($headers as $ht){ |
14 | header($ht); |
15 | } |
16 | ob_clean(); |
17 | flush(); |
18 | readfile($url); |
19 | exit; |
20 | } |
21 | ?> |
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?
Sual verin
Cavab verin