web ausgabe in datei umleiten (Perl/CGI)

[thread]14219[/thread]

web ausgabe in datei umleiten

Leser: 23

Articles: hide open all | hide show old branches

+14 replies
chmod777

2009-11-04 15:21

User since
2009-09-14
82 Artikel
BenutzerIn

Hi!

lässt sich die Ausgabe von http://localhost/cgi-bin/hello.cgi in eine datei umleiten anstelle ausgabe auf bildschirm? uns zwar mit dem kompletten html-header & footer (ist im hello.cgi definiert)?
- +6 replies
- bianca
  
  2009-11-04 15:23
  User since
  2009-09-13
  7016 Artikel
  BenutzerIn
  Vielleicht mit einem
  
  Code (perl): (dl )
  
  open (STDOUT,">logdatei.txt") or die $!;
  
  ganz am Anfang im Script?
  
  EDIT: Oder wenn es ohne Webserver über Console gestartet wird mit einer Pipe wie z.B.
  Quote
  perl script.pl > logdatei.txt
  
  Last edited: 2009-11-04 15:25:03 +0100 (CET)
  10 print "Hallo"
  20 goto 10
  - +3 replies
  - havi
    
    2009-11-04 16:06
    User since
    2003-08-04
    2036 Artikel
    BenutzerIn
    
    2009-11-04T14:23:45 bianca
    Vielleicht mit einem
    
    Code (perl): (dl )
    
    open (STDOUT,">logdatei.txt") or die $!;
    
    ganz am Anfang im Script?
    
    EDIT: Oder wenn es ohne Webserver über Console gestartet wird mit einer Pipe wie z.B.
    Quote
    perl script.pl > logdatei.txt
    
    Zum lesen bzgl. open...
    
    http://reneeb-perlblog.blogspot.com/2009/09/verschiedenes-zu-open.html
    
    http://reneeb-perlblog.blogspot.com/2009/09/noch-mehr-zu-open.html
    Perl-Zeitung - http://perl-zeitung.at/
    Perl-Blog - http://usr-bin-perl.blogspot.com/
    - +2 replies
    - bianca
      
      2009-11-04 16:14
      
      User since
      2009-09-13
      7016 Artikel
      BenutzerIn
      
      Lexikalische Filehandels sind mir bekannt aber wie schreibe ich das, wenn es für STDOUT gelten soll?
      10 print "Hallo"
      20 goto 10
      - havi
        
        2009-11-05 07:18
        
        User since
        2003-08-04
        2036 Artikel
        BenutzerIn
        
        2009-11-04T15:14:34 bianca
        Lexikalische Filehandels sind mir bekannt aber wie schreibe ich das, wenn es für STDOUT gelten soll?
        
        Hinweis in diesem Fall war bezogen auf die 3. Argumenten Schreibweise für open!
        Perl-Zeitung - http://perl-zeitung.at/
        Perl-Blog - http://usr-bin-perl.blogspot.com/
  - +2 replies
  - chmod777
    
    2009-11-04 18:31
    
    User since
    2009-09-14
    82 Artikel
    BenutzerIn
    
    2009-11-04T14:23:45 bianca
    perl script.pl > logdatei.txt
    
    daran hätte ich auf gedacht. jetzt fällt mir aber auf, dass nach dem script.pl noch parameter in der url übergeben werden und es damit zu keiner ausgabe kommt:
    
    perl script.pl?eins=null&null=eins > logdatei.txt
    - renee
      
      2009-11-04 19:04
      
      User since
      2003-08-04
      14371 Artikel
      ModeratorIn
      
      Statt des ? und der & einfach Leerzeichen:
      
      Code: (dl )
      
      perl script.pl eins=null null=eins > logdatei.txt
      
      OTRS-Erweiterungen (http://feature-addons.de/)
      Frankfurt Perlmongers (http://frankfurt.pm/)
      --
      
      Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
      Perl-Entwicklung: http://perl-services.de/
- renee
  
  2009-11-04 15:23
  
  User since
  2003-08-04
  14371 Artikel
  ModeratorIn
  
  Von Client-Seite aus, oder Serverseitig? Clientseitig, kannst Du mit LWP::UserAgent einen Request losschicken und die Antwort mittels "as_string" in einen String umwandeln. Das lässt sich sehr leicht in eine Datei schreiben...
  OTRS-Erweiterungen (http://feature-addons.de/)
  Frankfurt Perlmongers (http://frankfurt.pm/)
  --
  
  Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
  Perl-Entwicklung: http://perl-services.de/
- +4 replies
- pq
  
  2009-11-04 15:24
  User since
  2003-08-04
  12208 Artikel
  Admin1
  Code (perl): (dl )
  
  1 2 3
  
  use LWP::Simple qw/ getstore /; my $url = 'http://localhost/...'; getstore($url, $file);
  
  siehe doku zu LWP::Simple
  Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
  lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
  - +3 replies
  - renee
    
    2009-11-04 15:27
    
    User since
    2003-08-04
    14371 Artikel
    ModeratorIn
    
    Das speichert aber keine HTTP-Header mit.
    OTRS-Erweiterungen (http://feature-addons.de/)
    Frankfurt Perlmongers (http://frankfurt.pm/)
    --
    
    Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
    Perl-Entwicklung: http://perl-services.de/
    - +2 replies
    - pq
      
      2009-11-04 15:33
      
      User since
      2003-08-04
      12208 Artikel
      Admin1
      
      aber das war ja nicht gefragt, nur "html-header"
      Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
      lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
      - renee
        
        2009-11-04 15:38
        
        User since
        2003-08-04
        14371 Artikel
        ModeratorIn
        
        hmm... da habe ich wohl was falsch gelesen. Dann ziehe ich meinen Einwand zurück...
        OTRS-Erweiterungen (http://feature-addons.de/)
        Frankfurt Perlmongers (http://frankfurt.pm/)
        --
        
        Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
        Perl-Entwicklung: http://perl-services.de/
- Gast wer
  
  2009-11-04 15:37
  linux?
  
  Code: (dl )
  
  1 2 3 4
  
  netcat localhost 80 << EOL > data.txt GET /cgi-bin/hello.cgi HTTP/1.0 EOL
- Gast wer
  
  2009-11-04 15:42
  oder:
  
  Code: (dl )
  
  curl http://localhost/cgi-bin/hello.cgi > cgi.html

View all threads created 2009-11-04 15:21.