|
ru.cgi.perl
- RU.CGI.PERL ------------------------------------------------------------------
From : Artem Chuprina 2:5020/400 27 Jan 2006 16:56:58
To : Љ®«п Ѓ®Є®ў
Subject : Re: Фильтрация текста
--------------------------------------------------------------------------------
Коля Боков -> Ilya Anfimov @ Fri, 27 Jan 2006 15:44:17 +0300:
КБ> Привет ещё раз,
КБ> Thu Jan 26 2006 19:48, Ilya Anfimov wrote to Коля Боков:
IA>> ....
IA>> my %used;
IA>> ....
IA>> print $outh map $_."\n",
IA>> grep !exists $used{$_} && ($used{$_}=1),
IA>> grep m/^T_/,
IA>> m/(\w+)/g;
КБ> Я тут слегка изменил и хотел бы входной и выходной файлы скрипту в
КБ> командной строке передпать. Делаю так:
КБ> 1 #!/usr/bin/perl -w
КБ> 2
КБ> 3 use strict;
КБ> 4
КБ> 5 &OpenFile(@ARGV);
КБ> 6
КБ> 7 sub OpenFile {
КБ> 8
КБ> 9 my %used;
КБ> 10 my ($in, $out) = @_;
КБ> 11 my ($inh, $outh);
КБ> 12
КБ> 13 local $_;
КБ> 14
КБ> 15 open $inh, "<", $in or die "Error opening `$in': $!\n";
КБ> 16 open $outh, ">>", $out or die "Error opening `$out': $!\n";
КБ> 17
КБ> 18 while (<$inh>) {
КБ> 19
КБ> 20 map $_."\n",
КБ> 21 grep !exists $used{$_} && ($used{$_}=1),
КБ> 22 grep m/^T_/,
КБ> 23 m/(\w+)/g;
КБ> 24
КБ> 25 };
КБ> 26
КБ> 27 print $outh @_;
Здесь.
КБ> 28 };
КБ> 29
КБ> 30 #&OpenFile('Z', 'DDD');
КБ> Вызываю так:
КБ> user@home:> ./skript.pl IN OUT
КБ> В конечном итоге создаётся файл OUT с содержанием:
КБ> INOUT
КБ> :-/
КБ> Где я ошибся?
--
Artem Chuprina
RFC2822: <ran{}ran.pp.ru> Jabber: ran@jabber.ran.pp.ru
Современной называется технология, которую пытаются совать во все дырки
независимо от того, заточена она под них или нет.
Д. Белявский
--- ifmail v.2.15dev5.3
* Origin: Leninsky 45 home network (2:5020/400)
Вернуться к списку тем, сортированных по:
|
