$xNeTworKx: in 1200 Files, je eine bestimmte Zeile editieren

Beitrag lesen

Hallo,
hier eine mögliche Lösung mit Perl, falls du es installiert hast:
(Das Script muss sich im gleichen Verzeichnis wie die Dateien befinden)

#!/usr/bin/perl -w

use strict;

my @dateien = ();

opendir(DIR,'.') or die "Kann dieses Verzeichnis nicht oeffnen, weil : $!\n";
while (defined($_ = readdir(DIR)))  {
     if ($_ =~ /^.+?.html?$/i)  {
     push @dateien, $_;
     }
}
closedir DIR;

foreach(@dateien)   {
      open(FILE,"+<$_") or die "Kann $_ nicht oeffnen, weil : $!\n";
      local $/;
      my $in = <FILE>;
      $in =~ s/<link rel="stylesheet" type="text/css" href="/styles/stylesheet.css">/<link rel="stylesheet" type="text/css" href="stylesheet.css">/s;
      seek FILE, 0, 0;
      truncate FILE, 0;
      print FILE $in;
      close FILE;
}

--
Weissagung der Cree:
Erst wenn der letzte Baum gerodet, der letzte Fluss vergiftet, der letzte Fisch gefangen, werdet ihr feststellen, dass man Geld nicht essen kann!