Diamond OP und @ARGV (gelöst) (Allgemeines zu Perl)

[thread]18506[/thread]

Diamond OP und @ARGV [gelöst]

Tags: perl5 Ähnliche Threads

Leser: 12

Articles: hide open all | hide show old branches

+7 replies
rosti

2013-08-10 12:30
User since
2011-03-19
3496 Artikel
BenutzerIn
hi, im Vorab: Ich habe es getestet ;)

Also ich nutze den <> OP um mal eben eine Datei über ein CGI-Script einzulesen, Funktion:
Code (perl): (dl )

1 2 3 4 5 6

# Content from file sub cff{ local @ARGV = @_; local $/ = undef; <>; }
Es tut mit local @ARGV und auch ohne local.

Nun hat ein CGI-Script ja auch Parameter, die ich mit CGI::param() einlese. Lt. Spezifikation liegen in @ARGV die Argumente, sofern ein Script auf der Kommandozeile aufgerufen wurde. Da müssten eigentlich auch die CGI-GET-Parameter zu finden sein, ein Test bestätigt dies.

Wenn ich CGI::param verwende, ist das jedoch nicht der Fall, da ist @ARGV leer.

Das ist für mich OK, aber ich will es genau wissen: Gibt es irgendwelche unerwartete Überraschungen/Nebeneffekte, wenn ich obenstehende Funktion cff() in Verbindung mit CGI::param verwende?

Bitte mal um Hinweise, danke ;)

PS/Edit: http://test/cgi-bin/umg.cgi?x=y zeigt nix in @ARGV auch ohne CGI.pm

http://test/cgi-bin/umg.cgi?asdf+qwertz
zeigt asdf und qwertz in @ARGV

http://test/cgi-bin/umg.cgi?asdf+qwertz;x=y
@ARGV ist leer.

Erwartet hätte ich asdf+qwertz;x=y in "@ARGV"

modedit Editiert von GwenDragon: noparse um unerreichbare URLs
Last edited: 2013-08-10 12:58:49 +0200 (CEST)
- +4 replies
- pq
  
  2013-08-10 13:24
  
  User since
  2003-08-04
  12208 Artikel
  Admin1
  
  http://www.tinita.de/docs/slides/cgi/cgi.html
  speziell http://www.tinita.de/docs/slides/cgi/node9.html
  
  ein gleichheitszeichen in den parametern, und schon sind es name-value-paare.
  dann wird @ARGV nie gefüllt.
  
  was CGI.pm beim aufruf über die kommandozeile macht, ist nur als bequeme hilfe zum entwickeln gedacht.
  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
  - rosti
    
    2013-08-10 13:38
    
    User since
    2011-03-19
    3496 Artikel
    BenutzerIn
    
    Quote
    ein gleichheitszeichen in den parametern, und schon sind es name-value-paare.
    dann wird @ARGV nie gefüllt.
    
    Das ist der Knackpunkt, danke Dir!
    
    Also mit anderen Worten: Ich kann in meiner Funktion @ARGV bedenkenlos verwenden bzw @ARGV = @_ setzen, was dann den <> OP ermöglicht.
    
    Einwände?
    - +2 replies
    - Raubtier
      
      2013-08-10 13:48
      
      User since
      2012-05-04
      1076 Artikel
      BenutzerIn
      
      Was passiert mit cff, wenn du mehrere Parameter übergibst bzw ist gewünscht, was passiert?
      
      Ich finde das hier besser lesbar:
      
      Code (perl): (dl )
      
      1 2
      
      use File::Slurp; $inahlt = read_file("datei");
      
      Wenn du dein cff nutzt, würde ich das ARGV local machen, damit es keinen unerwünschten Nebeneffekt hat.
      - rosti
        
        2013-08-10 14:27
        
        User since
        2011-03-19
        3496 Artikel
        BenutzerIn
        
        Quote
        Was passiert mit cff, wenn du mehrere Parameter übergibst bzw ist gewünscht, was passiert?
        
        Es funktioniert wie gewünscht ;)
        
        Quote
        Wenn du dein cff nutzt, würde ich das ARGV local machen, damit es keinen unerwünschten Nebeneffekt hat.
        
        Denke ich auch so.
        
        Viele Grüße!
- +2 replies
- rosti
  
  2013-08-10 15:05
  User since
  2011-03-19
  3496 Artikel
  BenutzerIn
  Hintergrund: Das Einlesen mehrerer Dateien (mir gehts um Templates) soll möglichst einfach realisiert werden. Hab jetzt noch einmal einen Test gemacht und das hier funktioniert jetzt einwandfrei (Kein Slurp!):
  
  Code (perl): (dl )
  
  1 2 3 4 5 6
  
  sub _fetchFileContent{ local @ARGV = @_; my $content = ''; $content .= $_ while <>; return $content; }
  
  PS/Edit: So, fertisch! So muss das gehen:
  
  Code (perl): (dl )
  
  1 2 3 4 5
  
  my $theader = $self->{TMPLDIR}."/tableHeader.tmpl"; my $tfooter = $self->{TMPLDIR}."/tableFooter.tmpl"; my $taddrs = $self->{TMPLDIR}."/tableAddrs.tmpl"; my $tt = XR->new( files => [$theader, $taddrs, $tfooter], stash => \%stash) or die $@; $self->{BODY} = $tt->output;
  
  Und: So geht das auch ;)
  
  Schönes Wochenende!
  --Rosti
  Last edited: 2013-08-10 18:35:34 +0200 (CEST)
  - Raubtier
    
    2013-08-10 17:22
    User since
    2012-05-04
    1076 Artikel
    BenutzerIn
    
    2013-08-10T13:05:07 rosti
    
    Code (perl): (dl )
    
    1 2 3 4
    
    my $content = ''; $content .= $_ while <>; return $content; }
    
    Wo soll jetzt genau der Vorteil hiervon sein? Erst wird die Datei zeilenweise eingelesen und dann aber doch in einem Skalar wieder zusammengehängt. Das ist nicht wirklich effizient...

View all threads created 2013-08-10 12:30.