|
ru.cgi.perl
- RU.CGI.PERL ------------------------------------------------------------------
From : Ilya Anfimov 2:5020/400 26 Jan 2006 20:32:45
To : Љ®«п Ѓ®Є®ў
Subject : Re: Фильтрация текста
--------------------------------------------------------------------------------
2006-01-26, Коля Боков <bokov@inbox.ru> пишет:
> Hi All,
>
> помогите пожалуйста со скриптом. Мне нужно из одного файла отфильтровать в
> один столбец все слова, которые начинаются с Т_ Текст примерно такой:
>
> 8<-------текст-------8<
>
> - Trade, kgg, T_LOM, worx(means),
> R_TRADE; T_Z_REZ, ihfreigv, hfewhefd,
> T_T_TREEFR
>
> etc.
>
У меня он при -w достаточно внятно поругивается на то, что
регекспы у него не POSIX и [:space:] сработает не так. Хотя
может, он не то имел в виду -- какая-то двусмысленная фраза
вышла.
В любом случае:
=========================================
#!/usr/bin/perl -w
use strict;
sub OpenFile {
my ($in, $out) = @_;
my ($inh, $outh);
local $_;
open $inh, "<", $in or die "Error opening `$in': $!\n";
open $outh, ">>", $out or die "Error opening `$out': $!\n";
while (<$inh>) {
print $outh map $_."\n", grep m/^T_/, m/(\w+)/g;
};
};
OpenFile('Z', 'DDD');
=========================================
--- ifmail v.2.15dev5.3
* Origin: Demos online service (2:5020/400)
Вернуться к списку тем, сортированных по:
|
Re: Фильтрация текста 
