|
ru.cgi.perl
- RU.CGI.PERL ------------------------------------------------------------------
From : Љ®«п Ѓ®Є®ў 2:5020/175.2 27 Jan 2006 16:44:17
To : Ilya Anfimov
Subject : Re: Фильтрация текста
--------------------------------------------------------------------------------
Привет ещё раз,
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
:-/
Где я ошибся?
Спасибо за помощь!
--- ifmail v.2.15dev5
* Origin: FidoNet Online - http://www.fido-online.com (2:5020/175.2)
Вернуться к списку тем, сортированных по:
|
