🚀 go-pugleaf

In article <MPG.11818707c261d910989696@news.unisource.ch>,
	me@ieo.ch (Eggenberger Marc) writes:
> hi ...
> 
> gibt es ein replace in dateien?
> 
> also sowas wie s/muster/neues_muster/g in Perl auf textdateien .. dann 
> msus ichs nicht noch in perl machen (mann bin ich faul ;) ...)

Sowas wie dasda:

#!/usr/bin/perl
#
# Author: Peter Keel <killer@discordia.ch>
# Changes some string in various textfiles into another. Does not accept
# a string on the commandline because I want to be able to use wildcards
# on the filenames.
#

$string1="main.htm";   # or "�" or "none" or whatever..
$string2="index.html"; # or "ss" or "None" or whatever..

die "Usage: $0 filenames\n"       unless($ARGV[0]);

foreach $file_name (@ARGV) {
    $temp_file="/tmp/$file_name";
    open(IN_FILE,"<$file_name") || die "Cannot open $file_name for input\n";
    open(TEMP,">$temp_file");
    while(<IN_FILE>){
        $_ =~ s/$string1/$string2/g;
        print TEMP ($_);
    }
    close IN;
    close TEMP;
    system ("mv $temp_file $file_name");
}


Mehr solchen Krempel gibts auf 
http://killer.discordia.ch/Unix/Programs/

Peter
-- 
"The more prohibitions there are, The poorer the people will be"
-- Lao Tse