Hlavní navigace

Názor k článku Jak na hromadné nahrazování textu? od Ondřej Solanský - Nebo využít pro nahrazování jenom Perl: #!/usr/bin/perl while (glob('*.html'))...

  • Článek je starý, nové názory již nelze přidávat.
  • 11. 5. 1999 12:48

    Ondřej Solanský (neregistrovaný)

    Nebo využít pro nahrazování jenom Perl:

    #!/usr/bin/perl
    while (glob('*.html')) {
    open (SOURCE,$_) or die '$!\n';
    print 'Zpracovávám soubor ','$_,'\n';
    open (TARGET, ')$_.new') or die '$!\n';
    while ((SOURCE)) {
    chomp;
    s/nejaky text/za nejaky text/g;
    print TARGET $_,'\n';
    };
    close SOURCE;
    close TARGET;
    }
    while (glob('*.new')) {
    $old = $_;
    s/\.new//;
    rename $old,$_;
    }