[Sarlug] serach & replace

[Sarlug] serach & replace

[sinaps]

 Люди добрые, помогите, кто может... 

 Есть большое количество файлов, их нужно просмотреть, и заменить "выражение1" 
на "выражение2". В  "Linux Gazette на русском" недавно был Однострочник 
месяца на Perl, но разобратся с этим - я, увы, не смог :( . grep это нашел (в 
количестве - 140шт.), а с автоматической заменой - трудности...

 В принципе строчку можно просто удалить, если html переживет без 
<meta name=...  content=... >

 Сайт отзеркалировался, но некоторые файлы оказались немного битыми (защита, 
что-ли у них такая?), вручную поправить можно, но материала уж больно 
много... (знаю, что есть люди, которые уже ждут результата:)

-- 
Best regards,			http://saratov.lug.ru 
   sinaps			mailto:sin.a@freeline.ru

sinaps слушает:  Аквариум - Укравший Дождь 

[Sarlug] serach & replace

[sinaps]

 Люди добрые, помогите, кто может... 

 Есть большое количество файлов, их нужно просмотреть, и заменить "выражение1" 
на "выражение2". В  "Linux Gazette на русском" недавно был Однострочник 
месяца на Perl, но разобратся с этим - я, увы, не смог :( . grep это нашел (в 
количестве - 140шт.), а с автоматической заменой - трудности...

 В принципе строчку можно просто удалить, если html переживет без 
<meta name=...  content=... >

 Сайт отзеркалировался, но некоторые файлы оказались немного битыми (защита, 
что-ли у них такая?), вручную поправить можно, но материала уж больно 
много... (знаю, что есть люди, которые уже ждут результата:)

-- 
Best regards,			http://saratov.lug.ru 
   sinaps			mailto:sin.a@freeline.ru

sinaps слушает:  Аквариум - Укравший Дождь 

Re: [Sarlug] serach & replace

[Roman Bogorodskiy]

sinaps wrote:

>  Есть большое количество файлов, их нужно просмотреть, и заменить
>  "выражение1" 
> на "выражение2". В  "Linux Gazette на русском" недавно был
> Однострочник месяца на Perl, но разобратся с этим - я, увы, не смог :(
> . grep это нашел (в количестве - 140шт.), а с автоматической заменой -
> трудности...

 sed -e s/выражение1/выражение2/g *

-Roman Bogorodskiy [Novel]

Re: [Sarlug] serach & replace

[Roman Bogorodskiy]

sinaps wrote:

>  Есть большое количество файлов, их нужно просмотреть, и заменить
>  "выражение1" 
> на "выражение2". В  "Linux Gazette на русском" недавно был
> Однострочник месяца на Perl, но разобратся с этим - я, увы, не смог :(
> . grep это нашел (в количестве - 140шт.), а с автоматической заменой -
> трудности...

 sed -e s/выражение1/выражение2/g *

-Roman Bogorodskiy [Novel]

Re: [Sarlug] serach & replace

["Genix"]

>  Люди добрые, помогите, кто может... 
> 
>  Есть большое количество файлов, их нужно просмотреть, и заменить "выражение1" 
> на "выражение2". В  "Linux Gazette на русском" недавно был Однострочник 
> месяца на Perl, но разобратся с этим - я, увы, не смог :( . grep это нашел (в 
> количестве - 140шт.), а с автоматической заменой - трудности...
> 
>  В принципе строчку можно просто удалить, если html переживет без 
> <meta name=...  content=... >
> 
>  Сайт отзеркалировался, но некоторые файлы оказались немного битыми (защита, 
> что-ли у них такая?), вручную поправить можно, но материала уж больно 
> много... (знаю, что есть люди, которые уже ждут результата:)

Простой скрипт, который делает замену text1 на text2 в файле, поданом на вход выглядит так:

#!/usr/bin/perl

while (<>) {
 $_ =~ s/text1/text2/;
 print;
}

Вывод идет на stdout.

доделать его для многих файлов не проблема. легче всего на bash'е складывать вывод во временный файл и потом делать mv. Эот в случае если с перлом вааще не охота замрачиваться. Можно и на перле -- если есть желание возможность. В твоем случае (поиск должен быть рекурсивным?) я бы смотрел в сторону
find /dir -type f -name "*.html" -exec replace.pl {}; (сравни с маном мог что-то забыть)

В любом случае пиши -- что-нить придумаем

Re: [Sarlug] serach & replace

[Nickolay Parfenov]

Hi, sinaps !
On Fri, Aug 15, 2003 at 01:26:34PM +0400, you wrote:
>  Есть большое количество файлов, их нужно просмотреть, и заменить
> "выражение1" на "выражение2". В "Linux Gazette на русском" недавно был
> Однострочник месяца на Perl, но разобратся с этим - я, увы, не смог :( .
> grep это нашел (в количестве - 140шт.), а с автоматической заменой -
> трудности...

>  В принципе строчку можно просто удалить, если html переживет без 
> <meta name=...  content=... >

В таких случаях вместо газет лучше читать классику типа Керниган, Пайк
"UNIX - универсальная среда программирования" (а лучше учить наизусть ;) и
man'ы. То же самое и с perl'ом, разбираться с ним не изучив grep, sed,
awk, ... значит просто тратить время. Ну а замену можно сделать, например,
из командной строки:
for f in *.html;do \
	sed 's/выр1/выр2/g'<$f >$f.new && mv $f $f.bak && mv $f.new $f;done

Для рекурсивной замены вместо for используй find с параметром -exec.

SY, Николай
-- 
   Nickolay N. Parfenov       (8452) 73-55-10 73-55-12      EastSoft Ltd.
   E-mail: nik (at) eastsoft.ru   FidoNet: 2:5053/44.1      UIN: 14602777

Re[2]: [Sarlug] serach & replace

["Genix"]

> >  Есть большое количество файлов, их нужно просмотреть, и заменить
> >  "выражение1" 
> > на "выражение2". В  "Linux Gazette на русском" недавно был
> > Однострочник месяца на Perl, но разобратся с этим - я, увы, не смог :(
> > . grep это нашел (в количестве - 140шт.), а с автоматической заменой -
> > трудности...
> 
>  sed -e s/выражение1/выражение2/g *

А сам пробовал? :)

Hint:
На stdout получится каша из нескольких фалов, склеенных в один

Re[2]: [Sarlug] serach & replace

["Genix"]

> >  Есть большое количество файлов, их нужно просмотреть, и заменить
> >  "выражение1" 
> > на "выражение2". В  "Linux Gazette на русском" недавно был
> > Однострочник месяца на Perl, но разобратся с этим - я, увы, не смог :(
> > . grep это нашел (в количестве - 140шт.), а с автоматической заменой -
> > трудности...
> 
>  sed -e s/выражение1/выражение2/g *

А сам пробовал? :)

Hint:
На stdout получится каша из нескольких фалов, склеенных в один

Re: [Sarlug] serach & replace

["Genix"]

>  Люди добрые, помогите, кто может... 
> 
>  Есть большое количество файлов, их нужно просмотреть, и заменить "выражение1" 
> на "выражение2". В  "Linux Gazette на русском" недавно был Однострочник 
> месяца на Perl, но разобратся с этим - я, увы, не смог :( . grep это нашел (в 
> количестве - 140шт.), а с автоматической заменой - трудности...
> 
>  В принципе строчку можно просто удалить, если html переживет без 
> <meta name=...  content=... >
> 
>  Сайт отзеркалировался, но некоторые файлы оказались немного битыми (защита, 
> что-ли у них такая?), вручную поправить можно, но материала уж больно 
> много... (знаю, что есть люди, которые уже ждут результата:)

Простой скрипт, который делает замену text1 на text2 в файле, поданом на вход выглядит так:

#!/usr/bin/perl

while (<>) {
 $_ =~ s/text1/text2/;
 print;
}

Вывод идет на stdout.

доделать его для многих файлов не проблема. легче всего на bash'е складывать вывод во временный файл и потом делать mv. Эот в случае если с перлом вааще не охота замрачиваться. Можно и на перле -- если есть желание возможность. В твоем случае (поиск должен быть рекурсивным?) я бы смотрел в сторону
find /dir -type f -name "*.html" -exec replace.pl {}; (сравни с маном мог что-то забыть)

В любом случае пиши -- что-нить придумаем

Re: Re[2]: [Sarlug] serach & replace

[Roman Bogorodskiy]

Genix wrote:


> >  sed -e s/выражение1/выражение2/g *
> 
> А сам пробовал? :)

sed -e s/выражение1/выражение2/g  -i .bak * 
вот так работает вроде :)

-Roman Bogorodskiy [Novel]

Re: Re[2]: [Sarlug] serach & replace

[Roman Bogorodskiy]

Genix wrote:


> >  sed -e s/выражение1/выражение2/g *
> 
> А сам пробовал? :)

sed -e s/выражение1/выражение2/g  -i .bak * 
вот так работает вроде :)

-Roman Bogorodskiy [Novel]

Re: [Sarlug] serach & replace

[Nickolay Parfenov]

Hi, sinaps !
On Fri, Aug 15, 2003 at 01:26:34PM +0400, you wrote:
>  Есть большое количество файлов, их нужно просмотреть, и заменить
> "выражение1" на "выражение2". В "Linux Gazette на русском" недавно был
> Однострочник месяца на Perl, но разобратся с этим - я, увы, не смог :( .
> grep это нашел (в количестве - 140шт.), а с автоматической заменой -
> трудности...

>  В принципе строчку можно просто удалить, если html переживет без 
> <meta name=...  content=... >

В таких случаях вместо газет лучше читать классику типа Керниган, Пайк
"UNIX - универсальная среда программирования" (а лучше учить наизусть ;) и
man'ы. То же самое и с perl'ом, разбираться с ним не изучив grep, sed,
awk, ... значит просто тратить время. Ну а замену можно сделать, например,
из командной строки:
for f in *.html;do \
	sed 's/выр1/выр2/g'<$f >$f.new && mv $f $f.bak && mv $f.new $f;done

Для рекурсивной замены вместо for используй find с параметром -exec.

SY, Николай
-- 
   Nickolay N. Parfenov       (8452) 73-55-10 73-55-12      EastSoft Ltd.
   E-mail: nik (at) eastsoft.ru   FidoNet: 2:5053/44.1      UIN: 14602777

Re: [Sarlug] serach & replace

[sinaps]

Пятница 15 Август 2003 14:10, Nickolay Parfenov написал:

NP > В таких случаях вместо газет лучше читать классику типа Керниган, Пайк
NP > "UNIX - универсальная среда программирования" (а лучше учить наизусть ;)

 Дык, тупые юзверы мы... :)  (разве только - как мантру:)

NP > из командной строки:
NP > for f in *.html;do \
NP > 	sed 's/выр1/выр2/g'<$f >$f.new && mv $f $f.bak && mv $f.new $f;done
NP > 
NP > Для рекурсивной замены вместо for используй find с параметром -exec.
NP > 

 Sed'ом я даже как-то раз, однажды пользовался, но что-бы ТАК... !!!  :)))
 (рекурсию в этом примере - не пробовал)

 PS: В следующие выходные будет готов диск "Аквариум том-1 1973-1982" :)

 PPS: ogg хорош еще и тем, что пишет теги в уникоде, и читаться они будут 
везде.

-- 
Best regards,			http://saratov.lug.ru 
   sinaps			mailto:sin.a@freeline.ru

sinaps слушает:  Аквариум - Укравший Дождь 

Re: [Sarlug] serach & replace

[sinaps]

Пятница 15 Август 2003 14:10, Nickolay Parfenov написал:

NP > В таких случаях вместо газет лучше читать классику типа Керниган, Пайк
NP > "UNIX - универсальная среда программирования" (а лучше учить наизусть ;)

 Дык, тупые юзверы мы... :)  (разве только - как мантру:)

NP > из командной строки:
NP > for f in *.html;do \
NP > 	sed 's/выр1/выр2/g'<$f >$f.new && mv $f $f.bak && mv $f.new $f;done
NP > 
NP > Для рекурсивной замены вместо for используй find с параметром -exec.
NP > 

 Sed'ом я даже как-то раз, однажды пользовался, но что-бы ТАК... !!!  :)))
 (рекурсию в этом примере - не пробовал)

 PS: В следующие выходные будет готов диск "Аквариум том-1 1973-1982" :)

 PPS: ogg хорош еще и тем, что пишет теги в уникоде, и читаться они будут 
везде.

-- 
Best regards,			http://saratov.lug.ru 
   sinaps			mailto:sin.a@freeline.ru

sinaps слушает:  Аквариум - Укравший Дождь 

Re: Re[2]: [Sarlug] serach & replace

[Roman Bogorodskiy]

I wrote:

> > >  sed -e s/выражение1/выражение2/g *
> > 
> > А сам пробовал? :)
> 
> sed -e s/выражение1/выражение2/g  -i .bak * 
> вот так работает вроде :)

Извеняюсь, что дал не универсальный совет для всех систем:

man 1 sed

---cut 8<---

     The -i option is a non-standard FreeBSD extension and may not be avail-
     able on other operating systems.

---cut 8<---

-Roman Bogorodskiy [Novel]

Re: Re[2]: [Sarlug] serach & replace

[Roman Bogorodskiy]

I wrote:

> > >  sed -e s/выражение1/выражение2/g *
> > 
> > А сам пробовал? :)
> 
> sed -e s/выражение1/выражение2/g  -i .bak * 
> вот так работает вроде :)

Извеняюсь, что дал не универсальный совет для всех систем:

man 1 sed

---cut 8<---

     The -i option is a non-standard FreeBSD extension and may not be avail-
     able on other operating systems.

---cut 8<---

-Roman Bogorodskiy [Novel]

Re: [Sarlug] serach & replace

[Paul P Komkoff Jr]

-----BEGIN PGP SIGNED MESSAGE-----
Hash: SHA1

Replying to sinaps:
> месяца на Perl, но разобратся с этим - я, увы, не смог :( . grep это нашел (в 
> количестве - 140шт.), а с автоматической заменой - трудности...

Мариванна, мне бы ваши проблемы (с)

- -- 
Paul P 'Stingray' Komkoff Jr // http://stingr.net/key <- my pgp key
 This message represents the official view of the voices in my head
-----BEGIN PGP SIGNATURE-----

iD8DBQE/PTT6yMW8naS07KQRAjIsAJ9pV0ltYSWR+aRSHFZeC6cKJ40gcwCglVB+
+60HG7Zs5v0c/jOMm8SPtgQ=
=/Bqd
-----END PGP SIGNATURE-----

Re: [Sarlug] serach & replace

[Paul P Komkoff Jr]

-----BEGIN PGP SIGNED MESSAGE-----
Hash: SHA1

Replying to sinaps:
> месяца на Perl, но разобратся с этим - я, увы, не смог :( . grep это нашел (в 
> количестве - 140шт.), а с автоматической заменой - трудности...

Мариванна, мне бы ваши проблемы (с)

- -- 
Paul P 'Stingray' Komkoff Jr // http://stingr.net/key <- my pgp key
 This message represents the official view of the voices in my head
-----BEGIN PGP SIGNATURE-----

iD8DBQE/PTT6yMW8naS07KQRAjIsAJ9pV0ltYSWR+aRSHFZeC6cKJ40gcwCglVB+
+60HG7Zs5v0c/jOMm8SPtgQ=
=/Bqd
-----END PGP SIGNATURE-----