|
ru.website
- RU.WEBSITE -------------------------------------------------------------------
From : Serge Shikov 2:5020/400 05 Jul 2001 11:43:27
To : All
Subject : Re: Вставить строчку
--------------------------------------------------------------------------------
Igor Artamonov wrote:
>
> ЗЫЫ Вот скрипт:
>
> $link = 'что вставлять'."\n";
> opendir DIR, ".";
> @flist = grep { /.*\.htm.?$/ } readdir DIR;
> closedir DIR;
> for (@flist) {
> open HIN, $_; @src = <HIN>; close HIN;
> @src = map { s/(.*)(<\/head>.*)/$1$link$2/i; $_ } @src;
> open HOUT, ">1"; print HOUT @src; close HOUT;
> rename $_, "$_.old"; rename '1', "$_";
> }
Ой как сложно-то... Я бы сделал:
1. цикл по файлам на шелле (три строки)
2. внутри перл с соотв. ключиками командной строки для построчной
обработки файла
2a. Или sed, как я с самого начала предлагал
3. перлу передается одна только s_</head>_что-вставить$1/i
В общем это все набирается в командной строке и укладывается вообще в
одну команду.
--- ifmail v.2.15dev5
* Origin: home (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
