Сообщения

1

Perl / Из windows-1251 в UTF-8

« : 02 Января 2006, 14:52:01 »

http://search.cpan.org/~mpiotr/Text-Iconv-1.4/Iconv.pm, но это при условии, что есть iconv

2

Perl / Закачать файл С http - как?

« : 07 Ноября 2005, 20:52:32 »

да ничего, бывает =)

3

Perl / Закачать файл С http - как?

« : 07 Ноября 2005, 20:37:44 »

ЗЫ: кстати, а как xls распознавать перлом - надо поиск по ячейкам организовать (выводить строку ячеек, содержащюю заданный контент)? )

человек спросил

4

Perl / Закачать файл С http - как?

« : 07 Ноября 2005, 20:12:00 »

читал, что не так? чем отличается от его решения через exec, прошу прощения? или я всё ещё не догоняю?
как я понял, ему нужно слить с файл по http с какого-то сервака

5

Perl / Расшифрока строки...

« : 07 Ноября 2005, 13:22:46 »

http://www.w3.org/TR/1998/REC-MathML-19980407/chap6/bycodes.html

6

Perl / Закачать файл С http - как?

« : 07 Ноября 2005, 13:07:45 »

посмотри этот модуль
http://search.cpan.org/search?query=Spreadsheet&mode=all

7

Perl / Закачать файл С http - как?

« : 06 Ноября 2005, 19:15:22 »

добавил комментарии, а вообще скрипт берёт урл из параметра один ($ARGV[0]) и выходной файл из параметра два ($ARGV[1]) и скачивает данные по этому урлу в аутпут файл =) протокол только HTTP, урл может иметь вид http://host.com:8080/url/url.html?params=value&other=blah
прошу прощения за имена переменных =) варианта с более длинными к сожалению не осталось =)

8

Perl / Закачать файл С http - как?

« : 06 Ноября 2005, 12:19:33 »

Код: [Выделить]


#!/usr/bin/perl

use Socket;
use IO::Handle;
use strict;

my ($h, $p, $r, $d, $cz, $ltg, $tr, $buf);
my $u = shift or die "specifu url.\\n"; # берём урл из параметров скрипта
my $f = shift or die "specify output file.\\n"; # берём выходной файл отуда же

open(F, ">$f") or die "file."; # открываем выходной файл на чтение

$p = 80; # порт по умолчанию
$r = "/"; # ури по умолчанию

$u =~ s/http\\:\\/\\///; # удаляем из урла лишнее (лишнее для данного скрипта, конечно =))

($h, $p, $r)= ($u=~ m#([^/:]*):?([^/]*)(/.*)?$#i); # парсим так, что вид урла может иметь вид
# [url]www.url.com:8080/dir/page.html?params=value[/url] etc. то есть имеется возможность задать порт
$p = ($p || 80) ; # думаю ясно
$r = ($r || "/") ; # тоже

socket(S,AF_INET,SOCK_STREAM,getprotobyname("tcp")) or die "$!\\n"; # создаём сокет
connect(S,sockaddr_in($p,inet_aton($h))) or die "$!\\n"; # конектимся
S->autoflush(1);

print S "GET $r HTTP/1.1\\r\\nHOST: $h\\r\\n\\r\\n"; шлём GET запрос для сервера, поддерживающего HTTP 1.1

my $ih = 1; #
my ($rp, %hv, $vn, $v);

while ($d = ) { #читаем ответ сервера. Значения из HTTP заголовка заносим в хэш %hv (header values)
    if ($d =~ /^\\015?\\012/) {
        last;
    }
    else {
        if ($ih == 1) {
            $rp = (split(/ /, $d))[1];
            $ih = 2;
        }
        else {

            ($vn, $v) = $d =~ /(.+?):(.+?)\\r?\\n/;
            $hv{$vn} = $v;

        }
    }
}
if ($hv{\'Transfer-Encoding\'} =~ /chunked/i) { #если параметр HTTP Transfer-Encoding = chunked, то  данные читаем
#способом номер раз =) подробнее в RFC
    while ($cz = hex() ) {
        $ltg = $cz ;
            while ($ltg && ($tr = read(S, $d, $ltg)) ) {
                    print F $d;
                    $ltg -= $tr ;
            }
            defined($tr) || die "$!" ;
            $_= ;
    }
}
elsif ($hv{\'Content-Length\'}) { # иначе и определён параметр Content-Length номер два =) подробнее там же
    $ltg = $hv{\'Content-Length\'};
    while ($ltg && ($tr = read(S, $d, ($ltg > 16384)?16384:$ltg))) {
        print F $d;
        $ltg-= $tr ;
    }
    defined($tr) || die "$!" ;
    $ltg && die "Not all data.\\n";
} else { # иначе просто читаем данные по 16384 байт =)
    print F $_ while read(S, $_, 16384) ;
}
close S;
# конец =)