|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Alex Ptushkin 2:5030/1342 21 Sep 2000 00:08:10
To : All
Subject : надо найти в файлике пару словечек. помогите, плизз
--------------------------------------------------------------------------------
нужно найти в файле слова, стоящие после слова Area. не получается :-(
вот прога, помогите, плизззз!!
===== Start cut [/find_print]=====
#!/usr/bin/perl
$file="/exp.tic";
open (FILE, "$file") || die "suck...";
while (<FILE>) {
$file=~ /Area/;
print $' ;
}
close (FILE);
===== End cut [/find_print]=====
...
"Burn the witches, don't take time to sew your stiches"
--- QDed/Linux
* Origin: I sold my soul but don't you dare call me a whore (2:5030/1342)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
