|
ru.cgi.perl
- RU.CGI.PERL ------------------------------------------------------------------
From : Љ®«п Ѓ®Є®ў 2:5020/175.2 26 Jan 2006 19:37:50
To : All
Subject : Фильтрация текста
--------------------------------------------------------------------------------
Hi All,
помогите пожалуйста со скриптом. Мне нужно из одного файла отфильтровать в
один столбец все слова, которые начинаются с Т_ Текст примерно такой:
8<-------текст-------8<
- Trade, kgg, T_LOM, worx(means),
R_TRADE; T_Z_REZ, ihfreigv, hfewhefd,
T_T_TREEFR
etc.
Я попробовал написать скрипт, но что-то не клеится. В выходной файл не пишется
ничего. Вот скрипт:
8<-------скрипт-------8<
#!/usr/bin/perl -w
use strict 'vars';
use FileHandle;
&OpenFile (Z, DDD);
sub OpenFile {
my $OutputFile = shift;
my $InputFile = shift;
my $i = 0;
my @word = ();
open (DATE, "<$OutputFile") or die "Error: $OutputFile not found\n", $!;
while (<DATE>) {
(@word) = split(/[:space:]/);
}
close DATE;
open (TRACE, ">>$InputFile") or die $!;
while (<$word[$i]>) {
chop;
if($word[$i] =~ /^T_./){
print TRACE "$word[$i]\n";
}
$i++;
}
close (TRACE);
return 0;
}
8<--------------8<
Спасибо за помощь!
--- ifmail v.2.15dev5
* Origin: FidoNet Online - http://www.fido-online.com (2:5020/175.2)
Вернуться к списку тем, сортированных по:
|
