ARGV-Check (Allgemeines zu Perl)

[thread]14112[/thread]

ARGV-Check

Leser: 25

Articles: hide open all | hide show old branches

+9 replies
Gast Web

2009-10-07 15:40
Code (perl): (dl )

1 2 3 4 5 6 7 8 9 10

#!/usr/bin/perl use strict; die "Usage: $0 startdir search replace\n" unless scalar @ARGV == 3; my $startdir = shift @ARGV || '.'; my $search = shift @ARGV or die "Search parameter cannot be empty.\n"; my $replace = shift @ARGV; ...
Das ist der Anfang eines Skriptes, das ich WWW gefunden habe.
Ich finde das
Code (perl): (dl )

|| '.'
und das
Code (perl): (dl )

or die "Search parameter cannot be empty.\n";
machen wegen der vorherigen Abfrage der Anzahl der Argumente keinen Sinn.
Habe ich etwas übersehen?
- +6 replies
- betterworld
  
  2009-10-07 15:42
  
  User since
  2003-08-21
  2614 Artikel
  ModeratorIn
  
  Kommt drauf an. shift @ARGV || '.' benutzt man normalerweise, um "." zu verwenden, wenn kein Parameter da ist. Jedoch wird auch dann "." verwendet, wenn der Parameter "0" oder "" ist. Ob das gewünscht ist, ist eine andere Frage, jedenfalls hat der Code durchaus eine Auswirkung.
  Lieblingsmodule: IPC::System::Simple, Path::Class
  - +5 replies
  - itispit
    
    2009-10-07 21:40
    
    User since
    2009-10-07
    2 Artikel
    BenutzerIn
    
    Rein formal mag so ein Script ja funktionieren, aber für ARGV-Auswertungen vorzunehmen, ist es viel besser immer ein Modul wie zB "Getopt::Long" zu benutzen. Das kann alles, was man auch in Zukunft benötigen wird.
    - +4 replies
    - Dubu
      
      2009-10-07 21:50
      
      User since
      2003-08-04
      2145 Artikel
      ModeratorIn + EditorIn
      
      Getopt::Long (und auch Getopt::Std) ist nur zur Auswertung von Optionen, also Argumenten, die normalerweise mit - oder -- eingeleitet sind. Das ist hier aber wohl nicht der Fall, daher ist es schon okay, @ARGV selbst auseinander zu nehmen.
      - +3 replies
      - pq
        
        2009-10-07 22:05
        
        User since
        2003-08-04
        12209 Artikel
        Admin1
        
        wenn man aber den script-aufruf umstellen will und kann, dann wuerde ich auch Getopt::Long empfehlen. besser frueh darauf umstellen als spaeter viel mehr code aendern muessen. mit Getopt kann man auch shell-completion ermoeglichen, also dass die parameter bei tab automatisch komplettiert werden.
        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
        
        +2 replies
        
        Dubu
        
        2009-10-07 22:31
        
        User since
        2003-08-04
        2145 Artikel
        ModeratorIn + EditorIn
        
        2009-10-07T20:05:04 pq
        wenn man aber den script-aufruf umstellen will und kann, dann wuerde ich auch Getopt::Long empfehlen. besser frueh darauf umstellen als spaeter viel mehr code aendern muessen.
        
        Da bin ich voll mit dir einer Meinung.
        Wenn ein Programm schon mehr als zwei Parameter erwartet, sollte man sich wirklich überlegen, ob Optionen nicht der bessere Weg sind, denn irgendwann kommt man mal mit der Reihenfolge durcheinander und wundert sich über das kaputte Ergebnis ...
        
        Quote
        mit Getopt kann man auch shell-completion ermoeglichen, also dass die parameter bei tab automatisch komplettiert werden.
        
        Da kann ich dir wiederum nicht ganz folgen. Was hat Getopt mit Shell-Completion zu tun? Bisher kenne ich nur Shells (bash, zsh), bei denen man solche Options-Completion selber schreiben muss. (Wie soll die Shell auch an die möglichen Parameter und Wertebereiche kommen?)
        
        pq
        
        2009-10-07 23:03
        
        User since
        2003-08-04
        12209 Artikel
        Admin1
        
        2009-10-07T20:31:49 Dubu
        (Wie soll die Shell auch an die möglichen Parameter und Wertebereiche kommen?)
        
        es gibt da tools fuer (z.b. Term::Bash::Completion::Generator), die das weitgehend generieren koennen.
        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
- +2 replies
- Dubu
  
  2009-10-07 22:44
  User since
  2003-08-04
  2145 Artikel
  ModeratorIn + EditorIn
  Guest Web
  Ich finde das
  
  Code (perl): (dl )
  
  || '.'
  
  und das
  
  Code (perl): (dl )
  
  or die "Search parameter cannot be empty.\n";
  
  machen wegen der vorherigen Abfrage der Anzahl der Argumente keinen Sinn.
  Habe ich etwas übersehen?
  
  Das, was betterworld schon sagte: Statt eines leeren Argumentes zählt für "||" (und auch "or"!) auch eine 0 als false. Und es könnte jemand natürlich absichtlich einen Leerstring übergeben:
  
  Code: (dl )
  
  $ programm verzeichnis "" ersetzung
  
  Das Skript macht bis dahin also folgendes:
  Wenn man keine drei Argumente übergibt, bricht es ab.
  Wenn das erste Argument eine 0 oder ein Leerstring ist, wird $startdir zu "."
  Wenn das zweite Argument eine 0 oder ein Leerstring ist, bekommt man die Fehlermeldung Search parameter cannot be empty.
  
  Ich bezweifle allerdings, dass das komplett so vom Autor beabsichtigt war. Schließlich kann man so nicht einmal eine Null durch etwas anderes ersetzen.
  - Gast Web
    
    2009-10-08 08:27
    
    Aha, dann war das vermultich doch so gewollt. Bleibt noch die Frage mit der Null-Ersetzung.
    
    Das ist das Skript: _http://lostsouls.org/grimoire_convert_all

View all threads created 2009-10-07 15:40.