|
ru.cgi.perl
- RU.CGI.PERL ------------------------------------------------------------------
From : Vladimir Podgorny 2:5020/400 31 Mar 2002 21:17:11
To : Sasha Balandin
Subject : Re: помогите, пожалуйста!
--------------------------------------------------------------------------------
Sasha Balandin <Sasha.Balandin@p30.f248.n5010.z2.fidonet.org> wrote:
> Привет тебе, All!
=pod
perldoc perlre
perldoc perlopentut
perldoc -f print
=cut
use IO::File qw();
use Fcntl qw(:DEFAULT);
my $file = new IO::File '/fully/qualified/file/name', O_RDONLY or die "$!";
undef($file);
> Hарод! сабж! у меня такой вопрос: как можно написать скрипт, который выполнял
> бы следующие: у нас есть файл data.base в этом файле есть строчни
> ....
> 05/08 23:30:24 ##### data dev=ttyS1, pid=453, caller='none',
> conn='16800/ARQ/V34/LAPM/V42BIS', name='', cmd='/bin/login', user='test123'
>
> 05/08 23:32:24 ##### data dev=ttyS1, pid=453, caller='none',
> conn='16800/ARQ/V34/LAPM/V42BIS', name='', cmd='/bin/login', user='vova'
>
> 05/08 23:34:24 ##### data dev=ttyS1, pid=453, caller='none',
> conn='16800/ARQ/V34/LAPM/V42BIS', name='', cmd='/bin/login', user='sasha'
>
> 05/08 23:35:24 ##### data dev=ttyS1, pid=453, caller='none',
> conn='16800/ARQ/V34/LAPM/V42BIS', name='', cmd='/bin/login', user='yuri'
> ......
>
> на сраничке index.htm вводим любое слово, например test123
> и он нам выдает строчку
>
> 05/08 23:30:24 ##### data dev=ttyS1, pid=453, caller='none',
> conn='16800/ARQ/V34/LAPM/V42BIS', name='', cmd='/bin/login', user='test123'
>
>
> _Alexander_
> sashabal@cd-club.ru
> 2:5010/248.30
>
>
--
VP992-RIPE
--- ifmail v.2.15dev5
* Origin: Adamant ISP news server (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
Re: помогите, пожалуйста! 