Datei auslesen

[Larsiboy]

Halo ;
Ich habe eine frage :
Ich habe html dateien die ein perl script einlesen soll in der html datei steht z.b. [kunst] wie kann ich es ereichen ,dass das perl script [kunst] gegen einen wert aus dem parameter $kunst austauscht ?
cu ; Larsiboy

[Philipp Hasenfratz]

Halihallo

Ich habe eine frage :
Ich habe html dateien die ein perl script einlesen soll in der html datei steht z.b. [kunst] wie kann ich es ereichen ,dass das perl script [kunst] gegen einen wert aus dem parameter $kunst austauscht ?

open( F, '<bla.html' );
my $html_source = join( '', <F> );
close F;

$html_source =~ s/[kunst]/$kunst/msig;

Viele Grüsse

Philipp

[Alexander Foken]

Halo ;
Ich habe eine frage :
Ich habe html dateien die ein perl script einlesen soll in der html datei steht z.b. [kunst] wie kann ich es ereichen ,dass das perl script [kunst] gegen einen wert aus dem parameter $kunst austauscht ?
cu ; Larsiboy

Moin Moin !

$kunst='an einem Stück nasser Seife ein Streichholz anzünden';
open FILE,"<some-file.ext" or die "read: $!";
$text=join ('',<FILE>);
$text=s/[kunst]/$kunst/gse;
close FILE;
open FILE,">same-or-other-file.ext" or die "write: $!";
print FILE $text;
close FILE;

Das ist natürlich ein echter Speicherfresser, optimiert für(TM) zwei unterschiedliche Dateien geht's so:

$kunst='an einem Stück nasser Seife ein Streichholz anzünden';
open INFILE,"<some-file.ext" or die "read: $!";
open OUTFILE,">other-file.ext" or die "write: $!";
while (defined ($line=<INFILE>)) {
  $line=~s/[kunst]/$kunst/ge;
  print OUTFILE $line;
}
close OUTFILE;
close INFILE;

Der Rest steht in der Perl-Doku, siehe auch z.B. unter "in place edit".

Alexander

[Larsiboy]

Das Script legt eine Datei an aber sonst nichts !
also meine ausgabe datei heisst t_artikel.htm , aber mein script zeigt nichts an , warum ?

[Alexander Foken]

Das Script legt eine Datei an aber sonst nichts !
also meine ausgabe datei heisst t_artikel.htm , aber mein script zeigt nichts an , warum ?

Laß mich raten: Du haßt vergessen, uns zu sagen, daß Du ein CGI-Script hast/haben willst.

CGIs schreiben ihr Ergebnis an die Standard-Ausgabe.

#!/usr/bin/perl -w
use strict;
use CGI::Carp qw(fatalsToBrowser);
use CGI qw(header);

my $line;
my $kunst='nasse Seife';

open FILE,"<dunno.html" or die "dunno.html: $!";
print header();
while (defined ($line=<FILE>)) {
  $line=~s/[kunst]/$kunst/ge;
  print $line;
}
close FILE;

Alexander

[Larsiboy]

Das Script legt eine Datei an aber sonst nichts !
also meine ausgabe datei heisst t_artikel.htm , aber mein script zeigt nichts an , warum ?

Laß mich raten: Du haßt vergessen, uns zu sagen, daß Du ein CGI-Script hast/haben willst.

CGIs schreiben ihr Ergebnis an die Standard-Ausgabe.

#!/usr/bin/perl -w
use strict;
use CGI::Carp qw(fatalsToBrowser);
use CGI qw(header);

my $line;
my $kunst='nasse Seife';

open FILE,"<dunno.html" or die "dunno.html: $!";
print header();
while (defined ($line=<FILE>)) {
  $line=~s/[kunst]/$kunst/ge;
  print $line;
}
close FILE;

Alexander

Vielen Dank Alexander