dateien auslesen und schrieben

[alfmanuel]

hallo
ich weiß ich bin nervig mit so vielen beiträgen doch diese, so denke ich, wird so ziemlich der letzte im "perl" bereich sein!

und zwar habe ich 1 datei
und ich will in der datei etwas ersetzen.
also in de rdatei kommt z.b. "...Hallo Welt..." vor und das soll der jetzt umschreiben auf "...Hello World..." -> also das er "Hallo Welt" ersetzt und das ganze speichert.

Im Grunde läuft das ja so ab doer?:

1. datei öffnen
2. ersetzen
3. datei speichern

nur an den befehlen happerts aber vl kann mir ja wer helfen?
danke
manuel

[P4r4]

Hi,

also ich kann ja nun kein Perl, aber guck doch mal hier->http://selfhtml.teamone.de/cgiperl/funktionen/index.htm ;-)

cYa
Para

[webmichl]

Grobe Vorgehensweise:

1. Datei einlesen:

open( FILE, "<datei" ); ( @Inhalt ) = <FILE>; close( FILE );

2. Text wandeln:

foreach $Line ( @Inhalt ) { $Line =~ tr/Hallo Welt/Hello World/ }

3. Rückschreiben:

open( FILE, ">datei" ); foreach $Line ( @Inhalt ) { print FILE $Line }; close( FILE );

[martinR]

Hi,

ich hatte mal ein ähnliches Problem und hatte es so gelöst:

my $file_am_stueck;
my %SuchenErsetzen = (
  'Hallo Welt' => "hello world"
  );

open (HTMLFILE, "deine_datei.htm") || die $!\n";
  { local $/ = undef; $file_am_stueck = <HTMLFILE>; }
close(HTMLFILE) || die $!\n";

my $SucheNach = join('|', keys %SuchenErsetzen);
$file_am_stueck =~ s/($SucheNach)/$SuchenErsetzen{$1}/g;

Den "Umweg" über das hash weil ich nach mehreren Begriffen suchen musste und diese ersetzten.

cu