VPF::[perl] даты заменить на "хх месяц хххх год" [?]

dudeviper

Дата 4.12.2007, 15:28 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 3
Регистрация: 14.5.2007

Репутация: нет
Всего: нет

Здравствуйте!!!
Помогите пожалуйста написать скрипт на языке перл.
Необходимо скачать текстовый файл из локальной сети или интернета (средствами Perl-скрипта) по ftp или http протоколу и обработать его следующим образом:
В файле даты вида «12.04.1961», «12.04.61», «12/04/1961» и т.п. заменить на выражения «12 апреля 1961 года».
Заранее всем огромное спасибо)))

dudeviper

Дата 6.1.2008, 17:48 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 3
Регистрация: 14.5.2007

Репутация: нет
Всего: нет

Рябята, очень надеюсь на вашу помощь.....

JAPH

Дата 6.1.2008, 18:37 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 312
Регистрация: 8.1.2007
Где: Ленобласть

Репутация: 12
Всего: 23

Вариант для http. Не тестировался, приведите пример, откуда можно скачать такой текстовый файл

Код

#!/usr/bin/perl -w
use 5.010; use strict; use warnings;
use Socket;
die "Usage: perl -w get.pl http://hostname/file target\n" unless 2 == @ARGV;
my ($host, $file) = shift =~ m'http://([^/]++)(/.*)' or die;
socket my $S, AF_INET, SOCK_STREAM, getprotobyname 'tcp' or die $!;
connect $S, sockaddr_in 80, scalar gethostbyname $host or die $!;
$S = select $S; $| = 1; $S = select $S; $| = 1;
binmode $S or die $!;
print $S <<OK;
GET $file HTTP/1.1
Host: $host
User-Agent: Opera/9.22
Accept: */*
Connection: Keep-Alive, TE
TE: identity, chunked

OK
$_ = <$S>;
close($S), die $_ unless /200/;
my $chunked = 0; my $cl = 0;
while (<$S>) {
    tr/\r//d; chomp; last unless length;
    given ($_) {
        when (/^Transfer-Encoding:\s*(\w+)/i) { $chunked = 1 if $1 =~ /chunked/ }
        when (/^Content-Length:\s*(\d+)/i) { $cl = $1 }
    }
}
my $r = "";
if ($chunked) {
    my $sz = <$S>;
    $sz =~ tr/\r//d; chomp $sz; $sz =~ s/;.*//;
    while (hex $sz) {
        read $S, my($cr), hex $sz;
        $r .= $cr;
        scalar <$S>;
        $sz = <$S>;
        $sz =~ tr/\r//d; chomp $sz; $sz =~ s/;.*//;
    }
    scalar <$S>;
} else { read $S, $r, $cl }
close $S;
my @months = ('января', 'февраля', 'марта', 'апреля', 'мая', 'июня', 'июля', 'августа', 'сентября', 'октября', 'ноября', 'декабря');
$r =~ s|(\d+)([./])(\d+)\2(\d+)|$3 >= 1 && $3 <= 12 ? $1.' '.$months[$3 - 1].' '.(2 == length $4 ? '19' : '').$4.' года' : $1.$2.$3.$2.$4|ge;
open my $F, '>', shift or die $!;
binmode $F;
print $F $r;
close $F;

Это сообщение отредактировал(а) JAPH - 6.1.2008, 18:57

--------------------

Что непонятно - спрашиваем smile

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Центр помощи \| Следующая тема »