* Re: [Comm] regexp по дереву исходников.
2002-12-25 12:15 [Comm] regexp по дереву исходников vic ismakaev
@ 2002-12-25 12:22 ` Sergey Degtyaryov
2002-12-25 12:24 ` Sergey Vlasov
` (4 subsequent siblings)
5 siblings, 0 replies; 8+ messages in thread
From: Sergey Degtyaryov @ 2002-12-25 12:22 UTC (permalink / raw)
To: community
Доброго дня, vic ismakaev.
Wed, 25 Dec 2002 17:15:10 +0500 Вы сказали буквально следующее:
> Необходимо в каталоге с исходниками в куче файлов заменить одну строку другой.
> Как это сделать по аналогии
> perl -pi -e "s#str1#str2#" somefile
> но рекурсивно по всему дереву каталогов?
perldoc File::Find
--
Rgds, Сергей Дегтярев
[maga@localhost]$ /usr/games/fortune
Липа - это сосна, внесенная в отчет как дуб.
^ permalink raw reply [flat|nested] 8+ messages in thread* Re: [Comm] regexp по дереву исходников.
2002-12-25 12:15 [Comm] regexp по дереву исходников vic ismakaev
2002-12-25 12:22 ` Sergey Degtyaryov
@ 2002-12-25 12:24 ` Sergey Vlasov
2002-12-25 12:24 ` [Comm] " Alexey Tourbin
` (3 subsequent siblings)
5 siblings, 0 replies; 8+ messages in thread
From: Sergey Vlasov @ 2002-12-25 12:24 UTC (permalink / raw)
To: community
On Wed, 25 Dec 2002 17:15:10 +0500
vic ismakaev <viclists@mail.esoo.ru> wrote:
> Необходимо в каталоге с исходниками в куче файлов заменить одну строку другой.
> Как это сделать по аналогии
> perl -pi -e "s#str1#str2#" somefile
> но рекурсивно по всему дереву каталогов?
find /some/dir -type f -print0 | xargs -r0 perl -pi -e 's#str1#str2#' --
^ permalink raw reply [flat|nested] 8+ messages in thread* [Comm] Re: regexp по дереву исходников.
2002-12-25 12:15 [Comm] regexp по дереву исходников vic ismakaev
2002-12-25 12:22 ` Sergey Degtyaryov
2002-12-25 12:24 ` Sergey Vlasov
@ 2002-12-25 12:24 ` Alexey Tourbin
2002-12-25 12:25 ` Alexey Tourbin
2002-12-25 12:25 ` [Comm] " Myroslav M. Rozum
` (2 subsequent siblings)
5 siblings, 1 reply; 8+ messages in thread
From: Alexey Tourbin @ 2002-12-25 12:24 UTC (permalink / raw)
To: community
[-- Attachment #1: Type: text/plain, Size: 381 bytes --]
On Wed, Dec 25, 2002 at 05:15:10PM +0500, vic ismakaev wrote:
> Необходимо в каталоге с исходниками в куче файлов заменить одну строку другой.
> Как это сделать по аналогии
> perl -pi -e "s#str1#str2#" somefile
> но рекурсивно по всему дереву каталогов?
find -type f -name '*.[ch]' -print 0 | xargs -r0 -- perl -pi -e "s#str1#str2#g"
--
WBR, Alexey Tourbin
BIOZAK Ltd., Russia
[-- Attachment #2: Type: application/pgp-signature, Size: 189 bytes --]
^ permalink raw reply [flat|nested] 8+ messages in thread* [Comm] Re: regexp по дереву исходников.
2002-12-25 12:24 ` [Comm] " Alexey Tourbin
@ 2002-12-25 12:25 ` Alexey Tourbin
0 siblings, 0 replies; 8+ messages in thread
From: Alexey Tourbin @ 2002-12-25 12:25 UTC (permalink / raw)
To: community
[-- Attachment #1: Type: text/plain, Size: 506 bytes --]
On Wed, Dec 25, 2002 at 03:24:50PM +0300, Alexey Tourbin wrote:
> On Wed, Dec 25, 2002 at 05:15:10PM +0500, vic ismakaev wrote:
> > Необходимо в каталоге с исходниками в куче файлов заменить одну строку другой.
> > Как это сделать по аналогии
> > perl -pi -e "s#str1#str2#" somefile
> > но рекурсивно по всему дереву каталогов?
>
> find -type f -name '*.[ch]' -print 0 | xargs -r0 -- perl -pi -e "s#str1#str2#g"
^^^^^^^^
-print0
--
WBR, Alexey Tourbin
BIOZAK Ltd., Russia
[-- Attachment #2: Type: application/pgp-signature, Size: 189 bytes --]
^ permalink raw reply [flat|nested] 8+ messages in thread
* Re: [Comm] regexp по дереву исходников.
2002-12-25 12:15 [Comm] regexp по дереву исходников vic ismakaev
` (2 preceding siblings ...)
2002-12-25 12:24 ` [Comm] " Alexey Tourbin
@ 2002-12-25 12:25 ` Myroslav M. Rozum
2002-12-25 12:27 ` Myroslav M. Rozum
2002-12-25 12:39 ` vic ismakaev
5 siblings, 0 replies; 8+ messages in thread
From: Myroslav M. Rozum @ 2002-12-25 12:25 UTC (permalink / raw)
To: community
> Необходимо в каталоге с исходниками в куче файлов заменить одну строку
> другой. Как это сделать по аналогии
> perl -pi -e "s#str1#str2#" somefile
> но рекурсивно по всему дереву каталогов?
Может подставить вместо somefile - `find $DIR -print` ?
но - честно, говоря, именно ваш примерчик не пробовал :)
--
Best regards,
Myroslav M. Rozum
^ permalink raw reply [flat|nested] 8+ messages in thread* Re: [Comm] regexp по дереву исходников.
2002-12-25 12:15 [Comm] regexp по дереву исходников vic ismakaev
` (3 preceding siblings ...)
2002-12-25 12:25 ` [Comm] " Myroslav M. Rozum
@ 2002-12-25 12:27 ` Myroslav M. Rozum
2002-12-25 12:39 ` vic ismakaev
5 siblings, 0 replies; 8+ messages in thread
From: Myroslav M. Rozum @ 2002-12-25 12:27 UTC (permalink / raw)
To: community
блин, сорри.
--
Myroslav M. Rozum
^ permalink raw reply [flat|nested] 8+ messages in thread* Re: [Comm] regexp по дереву исходников.
2002-12-25 12:15 [Comm] regexp по дереву исходников vic ismakaev
` (4 preceding siblings ...)
2002-12-25 12:27 ` Myroslav M. Rozum
@ 2002-12-25 12:39 ` vic ismakaev
5 siblings, 0 replies; 8+ messages in thread
From: vic ismakaev @ 2002-12-25 12:39 UTC (permalink / raw)
To: community
25 Декабрь 2002 17:15, vic ismakaev написал:
> Необходимо в каталоге с исходниками в куче файлов заменить одну строку
> другой. Как это сделать по аналогии
> perl -pi -e "s#str1#str2#" somefile
> но рекурсивно по всему дереву каталогов?
Спасибо всем за помощь.
Воспользовался рецептом Сергея Власова.
--
С уважением
Виктор В Исмакаев
^ permalink raw reply [flat|nested] 8+ messages in thread