Larsiboy: Datei auslesen

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

  1. 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

  2. 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

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

    1. 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

      1. 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