Kommandozeilenparameter übergeben (Allgemeines zu Perl) - Perl-Community.de

Start · Board · Anwendungen/Programme/Skripte in Perl · Allgemeines zu Perl

2024-12-07 02:46:40
Europe/Berlin
Login (Register)
- Preferences
- Statistics
Jemand zu Hause?
0 users online

[thread]15860[/thread]

submit to reddit

Kommandozeilenparameter übergeben

Readers: 33

Articles: hide open all | hide show old branches

Subtree:
FALSE und TRUE in Perl genauso wie in anderen Sprachen? (21 articles) 2011-01-20 09:00

+45 replies
franc

2011-01-17 16:34
User since
2011-01-17
12 articles
BenutzerIn
Hallo,

ich bin blutiger Anfänger in Perl und versuche auf cygwin Parameter auf der Kommandozeile zu übergeben, was mir aber nicht gelingt.

Ich starte das Skript mit:
Code: (dl )

perl meinskript.perl parameter1
und kriege dann einen Fehler:

Quote
Can't open parameter1: No such file or directory at meinskript.perl at line 10.

Im Script habe ich:
Code: (dl )

my $param1 = $ARGV[0];
In Zeile 10 wird das dann als String verwendet.

Was mache ich falsch? Ich will ja gar keinen Dateinamen oder Verzeichnis sondern eine Zeichenkette übergeben.

Danke, Gruß, franc
Last edited: 2011-01-17 16:46:33 +0100 (CET)
- +44 replies
- GwenDragon
  
  2011-01-17 16:47
  
  User since
  2005-01-17
  14749 articles
  Admin1
  
  Und was steht in Zeile 10 deines Programms?
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
  - +43 replies
  - franc
    
    2011-01-17 17:11
    User since
    2011-01-17
    12 articles
    BenutzerIn
    
    2011-01-17T15:47:49 GwenDragon
    Und was steht in Zeile 10 deines Programms?
    
    Code: (dl )
    
    $MapType = <>;
    - pq
      
      2011-01-17 17:13
      
      User since
      2003-08-04
      12208 articles
      Admin1
      
      ja da haben wir den übeltäter doch =)
      
      willst du nicht lieber einfach von STDIN lesen?
      <> liest entweder aus STDIN oder es nimmt sich noch vorhandene parameter und deutet diese als dateinamen. wenn du explizit <STDIN> schreibst, vermeidest du das.
      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
    - +41 replies
    - GwenDragon
      
      2011-01-17 17:24
      
      User since
      2005-01-17
      14749 articles
      Admin1
      
      Damit liest das Programm aus der Datei mit Namen parameter1, weil in $ARGV[0] ja parameter1 drinsteht.
      
      Du solltest die Kommandozeile so einlesen:
      
      Code (perl): (dl )
      
      my $param1 = shift @ARGV;
      
      die Drachin Gwen
      
      Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
      - +40 replies
      - franc
        
        2011-01-17 18:09
        
        User since
        2011-01-17
        12 articles
        BenutzerIn
        
        Dann kriege ich:
        
        Quote
        Type of arg 1 to shift must be array (not array slice) at meinskript.perl line 1, near "];"
        Execution of meinskript.perl aborted due to compilation errors.
        
        Wie gesagt, ich kenne mich mit Perl kaum aus und in der Hilfe (welcher eigentlich?) habe ich keine einschlägigen Beispiele gefunden.
        Last edited: 2011-01-17 18:11:30 +0100 (CET)
        
        +39 replies
        
        Linuxer
        
        2011-01-17 18:56
        
        User since
        2006-01-27
        3890 articles
        HausmeisterIn
        
        Es wäre hilfreich, wenn Du den Code zeigen würdest, der den Fehler verursacht haben soll.
        
        GwenDragon hat schon ein Beispiel geliefert, wie shift mit @ARGV eingesetzt werden sollte.
        
        Etwas derartiges wie my $param1 = shift @ARGV[0]; ist jedenfalls nicht korrekt.
        
        Zeig mal bitte, was Du denn im Code stehen hast.
        meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
        Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!
        
        +38 replies
        
        franc
        
        2011-01-17 19:09
        
        User since
        2011-01-17
        12 articles
        BenutzerIn
        
        Also ich will mehrere Parameter übergeben, daher hatte ich zuerst:
        
        Code: (dl )
        
        1 2 3 4
        
        my $map_type = @ARGV[0]; my $map_zoom = $ARGV[1]; my $top_left = $ARGV[2]; my $bottom_right = $ARGV[3];
        
        am Anfang stehen und diese Variablen dann später verwendet im Skript.
        Das geht nicht, weil Perl dann denkt ich meine Dateien.
        
        (Ich habe jetzt mal die richtigen Parameternamen und keine test-Platzhalter mehr genommen, es ist ja eigentlich egal).
        
        Mit
        
        Code: (dl )
        
        1 2 3
        
        my $map_type = shift @ARGV; my $map_zoom = shift $ARGV; ...
        
        geht es aber auch nicht, da krieg ich wieder einen Fehler:
        
        Quote
        Type of arg 1 to shift must be array (not scalar dereference)
        
        beim zweiten Parameter.
        Wie macht man das denn?
        
        Last edited: 2011-01-17 19:10:26 +0100 (CET)
        
        guest wer
        
        2011-01-17 19:14
        
        Code (perl): (dl )
        
        1 2 3 4
        
        my $map_type = shift @ARGV; my $map_zoom = shift @ARGV; my $top_left = shift @ARGV; my $bottom_right = shift @ARGV;
        
        +28 replies
        
        franc
        
        2011-01-17 19:15
        
        User since
        2011-01-17
        12 articles
        BenutzerIn
        
        AARGL! Ich Dödel!
        
        Klar, ich musste erstmal nachlesen, was shift überhaupt macht, um zu erkennen, dass ich kein $ sondern den @ (fürs Array) nehmen musste, also ein einfacher Syntax Error.
        
        Jetzt gehts. Danke.
        
        +27 replies
        
        franc
        
        2011-01-17 19:35
        
        User since
        2011-01-17
        12 articles
        BenutzerIn
        
        Das funktionierende Skript ist jetzt hier:
        
        http://forum.mgmaps.com/download.php?id=808
        
        +4 replies
        
        havi
        
        2011-01-18 14:44
        
        User since
        2003-08-04
        2036 articles
        BenutzerIn
        
        2011-01-17T18:35:02 franc
        Das funktionierende Skript ist jetzt hier:
        
        http://forum.mgmaps.com/download.php?id=808
        
        Setz mal ein
        
        Code (perl): (dl )
        
        1 2
        
        use warnings; use strict;
        
        in dein Skript...
        Perl-Zeitung - http://perl-zeitung.at/
        Perl-Blog - http://usr-bin-perl.blogspot.com/
        
        +3 replies
        
        renee
        
        2011-01-18 14:57
        
        User since
        2003-08-04
        14371 articles
        ModeratorIn
        
        Dazu sollte man sich auch den Artikel durchlesen.
        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
        
        franc
        
        2011-01-18 15:24
        
        User since
        2011-01-17
        12 articles
        BenutzerIn
        
        Danke für den Link, ich sehe schon, das ist schlecht programmiert worden. Ich mach da aber jetzt doch nichts mehr damit, weil ich nämlich eine weit bessere Software mit GUI für den gleichen Zweck gefunden habe, die noch mehr kann (mehrere Zoomlevels auf einmal).
        gMapMaker
        
        topeg
        
        2011-01-18 17:19
        
        User since
        2006-07-10
        2611 articles
        BenutzerIn
        
        Ein paar Sachen für später:
        
        auf strict und warnings wurde schon hingewiesen.
        
        Perl kann von sich aus Dateien löschen, verschieben und kopieren (Siehe unlink und File::Copy )
        
        zum zusammenfügen von Pfadtrennern nutzt man besser File::Spec
        
        "wget" kann perl auch von sich aus mit LWP oder LWP::Simpe
        
        open ist besser so geschrieben:
        
        Code (perl): (dl )
        
        open(my $filehandle, '<', $file) or die("Error open file $file $!\n");
        
        In $! steht die Fehlermeldung und die drei Parameter Form ist sicherer.
        
        GwenDragon
        
        2011-01-18 17:24
        
        Subtree with 22 replies: FALSE und TRUE in Perl genauso wie in anderen Sprachen?
        
        User since
        2005-01-17
        14749 articles
        Admin1
        
        Was ist denn FALSE?
        Das gibt es nicht in Perl. Es sei denn du hast es als Konstante oder Funktion definiert.
        
        Alles was nicht 0, undef oder "" wird zum boolschen Unwahr (was du wohl mit FALSE) meinst.
        
        //EDIT: Subtitel
        Last edited: 2011-01-19 11:55:42 +0100 (CET)
        die Drachin Gwen
        
        Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
        
        +4 replies
        
        Linuxer
        
        2011-01-17 19:34
        
        User since
        2006-01-27
        3890 articles
        HausmeisterIn
        
        2011-01-17T18:09:14 franc
        Also ich will mehrere Parameter übergeben, daher hatte ich zuerst:
        
        Code: (dl )
        
        1 2 3 4
        
        my $map_type = @ARGV[0]; my $map_zoom = $ARGV[1]; my $top_left = $ARGV[2]; my $bottom_right = $ARGV[3];
        
        am Anfang stehen und diese Variablen dann später verwendet im Skript.
        Das geht nicht, weil Perl dann denkt ich meine Dateien.
        
        Was lässt Dich denken, dass Perl das denkt?
        
        Zunächst ist die Zuweisung von $map_type potentiell falsch (Du meintest wahrscheinlich $ARGV[0]).
        Ansonsten sind das simple Zuweisungen von Array-Werte an skalare Variablen. Das ist nichts, was
        Perl "denken" ließe, es handle sich um Dateinamen.
        
        Die von Dir gezeigte Zeile 10 $MapType = <>; nutzt eine besonderes Verhalten des <>, wonach versucht wird, alle angegebenen Parameter als Dateien zu öffnen und diese einzulesen.
        
        Schau mal dort nach: http://perldoc.perl.org/perlop.html
        und such nach dem String: "The null filehandle"
        Dort wird das Verhalten von <> erläutert.
        
        Deine Zuweisung im Stil $param = @ARGV[0] lässt die Parameter im @ARGV stehen und somit versucht <>, diese Liste abzuarbeiten.
        
        Wenn Du es im Stil $param = shift @ARGV tust, wird das jeweils erste Element aus @ARGV entfernt. Im Idealfall ist dann @ARGV leer und <> reagiert anders als zuvor...
        
        meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
        Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!
        
        +3 replies
        
        franc
        
        2011-01-17 19:40
        
        User since
        2011-01-17
        12 articles
        BenutzerIn
        
        2011-01-17T18:34:34 Linuxer
        ...
        Die von Dir gezeigte Zeile 10 $MapType = <>; nutzt eine besonderes Verhalten des <>, wonach versucht wird, alle angegebenen Parameter als Dateien zu öffnen und diese einzulesen.
        ...
        
        Ach da ist der Hase im Pfeffer. Das soll eigentlich nur eine Benutzereingabe aufnehmen dieses <>. Vielleicht ist das schon falsch?
        
        +2 replies
        
        Crian
        
        2011-01-18 08:49
        
        User since
        2003-08-04
        5871 articles
        ModeratorIn
        
        2011-01-17T16:13:51 pq
        ja da haben wir den übeltäter doch =)
        
        willst du nicht lieber einfach von STDIN lesen?
        <> liest entweder aus STDIN oder es nimmt sich noch vorhandene parameter und deutet diese als dateinamen. wenn du explizit <STDIN> schreibst, vermeidest du das.
        
        Wie pq schon schrieb, benutze <STDIN> statt <>.
        s--Pevna-;s.([a-z]).chr((ord($1)-84)%26+97).gee; s^([A-Z])^chr((ord($1)-52)%26+65)^gee;print;
        
        use strict; use warnings; Link zu meiner Perlseite
        
        franc
        
        2011-01-18 09:06
        
        User since
        2011-01-17
        12 articles
        BenutzerIn
        
        2011-01-18T07:49:39 Crian
        ...Wie pq schon schrieb, benutze <STDIN> statt <>.
        Schon erledigt.
        
        +4 replies
        
        Dubu
        
        2011-01-17 19:59
        
        User since
        2003-08-04
        2145 articles
        ModeratorIn + EditorIn
        
        Das mit dem '$' vs. '@' hat sich ja jetzt aufgeklärt, deshalb hier ein paar Varianten.
        
        Deine erste Form
        
        Code (perl): (dl )
        
        1 2 3 4
        
        my $map_type = $ARGV[0]; my $map_zoom = $ARGV[1]; my $top_left = $ARGV[2]; my $bottom_right = $ARGV[3];
        
        ist möglich, aber fehlerträchtig, weil man den Index hochzählen muss. Das ginge zwar mit einer Zählvariablen, dann wird's aber richtig unübersichtlich.
        
        Die Variante mit shift hat den Vorteil, dass man nicht zählen muss:
        
        Code (perl): (dl )
        
        1 2 3 4
        
        my $map_type = shift @ARGV; my $map_zoom = shift @ARGV; my $top_left = shift @ARGV; my $bottom_right = shift @ARGV;
        
        Außerdem ist @ARGV danach auch leer, was ganz praktisch sein kann. Entweder, wenn man unbedingt <> statt <STDIN> benutzen will ;-) oder wenn man prüfen will, ob @ARGV leer ist, um Fehler bei der Eingabe zu erkennen.
        
        Man kann das Ganze auch etwas verkürzen. Ob es übersichtlicher ist, das ist Ansichtssache. Hängt vielleicht auch von der Formatierung ab:
        
        Code (perl): (dl )
        
        my ($map_type, $map_zoom, $top_left, $bottom_right) = @ARGV;
        
        Alles, was von @ARGV nicht mehr in die Variablen passt, wird hier einfach weggeworfen.
        
        Die ganz vornehme Art, Kommandozeilenparameter auszuwerten, ist natürlich die mit benannten Parametern. Die Kommandozeile sähe dann beispielsweise so aus:
        
        Code: (dl )
        
        perl myprog --type bla --zoom 2 --top-left 0,0 --bottom-right 1280,1024
        
        Das hat natürlich den Nachteil, dass die Zeile länger wird. Dafür ist sie verständlicher und verlangt keine feste Reihenfolge der Parameter, wenn man sie mit dem passenden Modul auswertet. Das ist auch ganz einfach:
        
        Code (perl): (dl )
        
        1 2 3 4 5 6 7 8 9 10 11
        
        use Getopt::Long; # Variablen deklarieren my ($map_type, $map_zoom, $top_left, $bottom_right); GetOptions( 'type=s' => \$map_type, 'zoom=i' => \$map_zoom, 'top-left:s' => \$top_left, 'bottom-right:s' => \$bottom_right, ) or die "Usage: ...";
        
        Hier werden automatisch den Variablen die entsprechenden Werte zugewiesen. Man kann auch ein wenig den erwarteten Parametertyp oder optionale Parameter festlegen. In diesem Fall ist --type ein erforderlicher Parameter und vom Typ String (type=s), --zoom auch erforderlich und vom Typ Integer (zoom=i), während --top-left und --bottom-right optional und vom Typ String sind (:s). Im Fehlerfall wird eine Meldung ausgegeben und GetOptions() gibt false zurück.
        
        Statt die Werte skalaren Variablen zuzuweisen, kann man auch Arrays, Hashes und Referenzen nehmen oder eine Subroutine mit dem jeweiligen Wert aufrufen. Getopt::Long bietet da noch einiges.
        
        +3 replies
        
        franc
        
        2011-01-17 20:10
        
        User since
        2011-01-17
        12 articles
        BenutzerIn
        
        Ok, vielen Dank, ich sehe nun klarer!
        
        +2 replies
        
        pq
        
        2011-01-17 21:01
        
        User since
        2003-08-04
        12208 articles
        Admin1
        
        dass ich das mit STDIN schon weiter oben schrieb, hast du aber gesehn, oder?
        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
        
        franc
        
        2011-01-17 21:35
        
        User since
        2011-01-17
        12 articles
        BenutzerIn
        
        2011-01-17T20:01:52 pq
        dass ich das mit STDIN schon weiter oben schrieb, hast du aber gesehn, oder?
        
        Oh, nein, hab ich übersehen. Ich muss mich an dieses Forum erst noch gewöhnen, es ist etwas anders :-)
        Danke also dennoch!

View all threads created 2011-01-17 16:34.