Der folgende Beitrag wurde am 01. 11. 2002, 18:41 Uhr von Larsiboy veröffentlicht.
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
Der folgende Beitrag wurde am 01. 11. 2002, 18:47 Uhr von Philipp Hasenfratz veröffentlicht.
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
Der folgende Beitrag wurde am 01. 11. 2002, 18:50 Uhr von Alexander Foken veröffentlicht.
> 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
Der folgende Beitrag wurde am 01. 11. 2002, 19:27 Uhr von Larsiboy veröffentlicht.
Das Script legt eine Datei an aber sonst nichts !
also meine ausgabe datei heisst t_artikel.htm , aber mein script zeigt nichts an , warum ?
Der folgende Beitrag wurde am 01. 11. 2002, 19:37 Uhr von Alexander Foken veröffentlicht.
> 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
Der folgende Beitrag wurde am 01. 11. 2002, 19:47 Uhr von Larsiboy veröffentlicht.
> > 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
© 1998-2013 SELFHTMLImpressumSoftware: Classic Forum 3.4