LINUX.ORG.RU

История изменений

Исправление debugger, (текущая версия) :

У тебя есть задача, в решении которой ты заинтересован. Это отличный мотиватор, причина и повод изучить что-то новое. Вот тебе перловая рыба:

#!/usr/bin/perl

use strict;
use warnings;
use Path::Tiny;

my $iter = path( "path/to/your/dir" )->iter( { recursive => 1 } );
while ( my $path = $iter->() ) {
    if ( $path->is_file ) {
         my $text = $path->slurp_utf8();
         $text ~= s/search/replace/g;
         $path->spew_utf8( $text );
    };
};

See also https://perldoc.perl.org/perldoc.html, https://metacpan.org/pod/Path::Tiny.

При желании дальше так же элементарно наворачивается вывод прогресса, запись файла только если были изменения, замена только в файлах с определённым расширением, сохранение оригинальных версий и т. д. и т. п.

Скрипт написать это пока не в моих силах…

При таком настрое сил у тебя никогда не будет.

Исправление debugger, :

У тебя есть задача, в решении которой ты заинтересован. Это отличный мотиватор, причина и повод изучить что-то новое. Вот тебе перловая рыба:

#!/usr/bin/perl

use strict;
use warnings;
use Path::Tiny;

my $iter = path( "path/to/your/dir" )->iter( { recursive => 1 } );
while ( my $path = $iter->() ) {
    if ( $path->is_file ) {
         my $text = $path->slurp_utf8();
         $text ~= s/search/replace/g;
         $path->spew_utf8( $text );
    };
};

See also https://perldoc.perl.org/perldoc.html, https://metacpan.org/pod/Path::Tiny.

Скрипт написать это пока не в моих силах…

При таком настрое сил у тебя никогда не будет.

Исходная версия debugger, :

У тебя есть задача, в решении которой ты заинтересован. Это отличный мотиватор, причина и повод изучить что-то новое. Вот тебе перловая рыба:

#!/usr/bin/perl

use strict;
use warnings;
use Path::Tiny;

my $iter = path( "path/to/your/dir" )->iter( { recursive => 1 } );
while ( my $path = $iter->() ) {
    if ( $path->is_file ) {
         my $text = $path->slurp_utf8();
         $text ~= s/search/replace/g;
         $path->spew_utf8( $text );
    };
};

See also <https://perldoc.perl.org/perldoc.html>, <https://metacpan.org/pod/Path::Tiny>.

Скрипт написать это пока не в моих силах…

При таком настрое сил у тебя никогда не будет.