|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Alex Ptushkin 2:5030/1342 22 Sep 2000 01:50:28
To : All
Subject : имхо так больно криво
--------------------------------------------------------------------------------
===== Start cut [/find_print]=====
#!/usr/bin/perl
$file="/exp.tic";
$file2="/log";
>open (FILE, "$file") || die "suck...";
while (<FILE>) {
~/area\s/i;
$a= $';
}
>close (FILE);
>open (FILE, "$file");
while (<FILE>) {
~/file\s/i;
$f= $';
}
>close (FILE);
open (FILE2, ">$file2") || die "oh, no...";
print FILE2 "New files arrived to Zero Station. Reporting\n-------------------
-------------------------\n\nArea: ",$a,"File: ",$f,"\n";
close (file);
===== End cut [/find_print]=====
я явно торможу, но что поделаешь, надеюсь на вашу помощь. чтобы найти
две строчки приходится два раза открывать один и тот же файл. это нерационально
и бредово смотрится. хотел так, но не получается:
~/file\s/i;
$a=$';
~/area\s/i;
$f=$';
если делать так, то пишет только то, что после слова area, а про файл он
забывает. подскажите плиз, как сделать чтобы он находил не одно, а несколько
слов по заданным условиям, открывая файл только лишь один раз.
зы: и как сделать так, чтобы он находил сначала файл, допустим 1.tic, затем
2.tic, а затем 3.tic и т.д. и проделывал с ними вышеописанные операции. спасибо
заранее
...
"REPENT, that's what I'm talkin' about"
--- QDed/Linux
* Origin: I sold my soul but don't you dare call me a whore (2:5030/1342)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
