ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Alexey Bavykin                       2:5020/400     04 Nov 2005  13:25:32
 To : Maxim L. Mazur
 Subject : Re: Hадо мне Search&Replace! *)
 -------------------------------------------------------------------------------- 
 

 Maxim L. Mazur -> All @ Fri 04/11/05 02:34 +0300 :
 
  MLM> Простейший S&R для бинарника.
  MLM> Позволяет менять одну посл.символов на другую хоть в exe, хоть где еще.
  MLM> Можно указывать обе строки в HEX.
  MLM> Чтобы можно было из батника запускать, они должны браться из аргументов
  MLM> комстроки.
 
 Если простейший, то примерно так:
 
 my $search = shift or exit;
 my $replace = shift or exit;
 
 ($|, $/) = 1;
 
 my $content = <STDIN>;
 $content =~ s/$search/$replace/g;
 print STDOUT $content;
 
 или так:
 
 my $search = shift or exit;
 my $replace = shift or exit;
 
 ($|, $/) = (1, $search);
 
 while (my $block = <STDIN>) {
     my $removed = chomp $block;
     print STDOUT $block;
     print $replace if $removed;
 }
 
 А если нужно правильно, то стоит почитать perlvar на тему @+, читать
 кусочками, по необходимости заменять, и эти кусочки аккуратно писать.
 
 -- 
 Alexey
 
 --- ifmail v.2.15dev5.3
  * Origin: MTU-Intel ISP (2:5020/400)
 
 

Вернуться к списку тем, сортированных по: возрастание даты  уменьшение даты  тема  автор 

Тема:    Автор:    Дата:    Hадо мне Search&Replace! *)   Maxim L. Mazur   04 Nov 2005 03:34:42   Re: Hадо мне Search&Replace! *)   Alexey Bavykin   04 Nov 2005 13:25:32