#!/usr/bin/perl -wpi
my $src = shift;
my $dst = shift;
s/$src/$dst/g;
####
Use of uninitialized value in substitution (s///) at /home/rj/bin/replace line 4, <> line 38.
Use of uninitialized value in regexp compilation at /home/rj/bin/replace line 4, <> line 39.
Use of uninitialized value in substitution (s///) at /home/rj/bin/replace line 4, <> line 39.
Use of uninitialized value in regexp compilation at /home/rj/bin/replace line 4,
##
##
#!/usr/bin/perl
my $src = shift;
my $dst = shift;
print "Replace >$src< with >$dst<.\n";
$dst =~ s/\\n/\n/g;
$dst =~ s/\\t/\t/g;
foreach $file (@ARGV) {
my $file2 = "/tmp/$file.".$$;
print "replacing in File: $file...\n";
print "$file2\n";
open HANDLE, $file or die "$file: $!";
while() {
$zeile .= $_; # Zeile von Datei einlesen
}
close HANDLE;
$zeile =~ s/$src/$dst/gs;
open HANDLE, ">$file2";
print HANDLE $zeile;
close HANDLE;
$zeile = '';
system("mv $file2 $file");
}