Parameterübergabe von Zeichenketten (Allgemeines zu Perl)

[thread]19075[/thread]

Parameterübergabe von Zeichenketten

Tags: perl5 Similar Threads

Readers: 15

Articles: hide open all | hide show old branches

+9 replies
jan99

2014-05-06 12:58
User since
2008-09-18
439 articles
BenutzerIn
Hi !

ich möchte mit einer Option mehrere zeichengetrennte Begriffe übergeben. Das ganze unter Win7 und ActivePerl.

Mein Code beginnt wie folgt:
Code: (dl )

1 2 3 4 5 6 7 8 9 10 11 12 13

#!/usr/bin/perl use strict; use warnings; use utf8; use Getopt::Long; # main-parameeters my %config=( flag_name=>1, flag_ref=>1, highwayclasses_string=>'motorway|primary|secoundary|residental', );
Wenn ich den Aufruf starte:
Code: (dl )

perl meineFunktion.pl --osm=test.osm --output=test_way.osm --class="secoundary|track"
Dann bekomme ich die Meldung:

Quote
way.osm --class="secoundary|track"
Option class does not take an argument
****** error in program start ******
-help this help
...

Kann mir einer weiterhelfen? Die Trennung muss nicht zwangsläufig über die Pipe erfolgen. Es kann auch jedes andere Zeichen (außer dem Doppelpunkt!) sein.

Gruß Jan :-)
perl-Greenhorn - Win7 64bit / strawberry (ehem. activeperl) - www.OpenStreetMap.de
- +8 replies
- Linuxer
  
  2014-05-06 13:16
  User since
  2006-01-27
  3891 articles
  HausmeisterIn
  Warum nicht mehrere Optionen in einen Array schreiben lassen?
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8
  
  use Getopt::Long; GetOptions( 'foo=s@' => \my @opt_foo, ) or exit 255; print $_."\n" for @opt_foo;
  
  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!
  - +7 replies
  - jan99
    
    2014-05-06 15:02
    User since
    2008-09-18
    439 articles
    BenutzerIn
    
    hi !
    
    kann mir dann noch einer sagen wie ich den Parameter unter Win-Batch aufrufe?
    
    Mein Versuch
    
    Code: (dl )
    
    perl getoptions.pl --foo jan1 jan2 jan3
    
    hat mir dann nur den ersten Wert hinter foo geliefert und dann habe ich auch schon einmal gegoogled ....
    
    http://www.perlmonks.org/?node_id=705257
    
    das war die Grundlage für mein Aufruf-Beispiel.
    
    Gruß Jan :-)
    perl-Greenhorn - Win7 64bit / strawberry (ehem. activeperl) - www.OpenStreetMap.de
    - GwenDragon
      
      2014-05-06 15:08
      
      User since
      2005-01-17
      14835 articles
      Admin1
      
      Du willst ja mehrfach foo mit Werten besetzen:
      perl getoptions.pl --foo jan1 --foo jan2 --foo jan3
      
      Oder falls du lieber Leerzeichen oder Komma als Trenner willst.
      
      Beispiel:
      
      Code (perl): (dl )
      
      1 2 3 4 5
      
      my $FOO; GetOptions ('foo=s' => \$FOO ); # Zeichenkette als Parameter my @foo = (split /,/,$FOO); # Auftrennen mehrfacher Werte nach Leerzeichen und Komma print "$_\n" for (@foo); # und anzeigen
      
      Das klappt auch mit
      perl getoptions.pl --foo jan1,jan2,"Buh!!!! jan3 !"
      
      Editiert von GwenDragon: Hinweis Trennmöglichkeit
      Last edited: 2014-05-06 15:29:32 +0200 (CEST)
      die Drachin Gwen
      
      Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
    - Linuxer
      
      2014-05-06 15:32
      
      User since
      2006-01-27
      3891 articles
      HausmeisterIn
      
      Das Modul hat eine Perldoc, wo das doch drin steht: siehe http://search.cpan.org/perldoc?Getopt::Long#Option...
      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!
    - +4 replies
    - GwenDragon
      
      2014-05-06 15:46
      
      User since
      2005-01-17
      14835 articles
      Admin1
      
      Bei durch Leerzeichen getrennte Parameter (ACHTUNG: laut Moduldoku experimentell):
      
      Code (perl): (dl )
      
      1 2 3
      
      my @foo; GetOptions ('foo=s{,}' => \@foo ); # mehrfache Zeichenketten als Parameter print "$_\n" for (@foo); # und anzeigen
      
      die Drachin Gwen
      
      Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
      - +3 replies
      - jan99
        
        2014-05-06 17:06
        
        User since
        2008-09-18
        439 articles
        BenutzerIn
        
        also wenn ich, ohne zu lesen in der Doku, das nochmal vor der Heimfahrt ausprobiere, dann kommt als Ergebnis ...
        
        Quote
        jan1,jan2,jan3
        
        Das sieht am Prompt in Windows nicht nach aufspalten aus.
        
        Gruß Jan :-)
        perl-Greenhorn - Win7 64bit / strawberry (ehem. activeperl) - www.OpenStreetMap.de
        
        +2 replies
        
        GwenDragon
        
        2014-05-06 17:17
        
        User since
        2005-01-17
        14835 articles
        Admin1
        
        Du interpretierst das Komma im Code falsch.
        s{,} bedeutet String, 0fach bis mehrfach
        
        C:\> type opt.pl use strict; use warnings; use Getopt::Long; my @foo; GetOptions ('foo=s{,}' => \@foo ); print "$_\n" for (@foo); C:\> perl opt.pl -foo jan1 ja2 j3 jan1 ja2 j3 >
        die Drachin Gwen
        
        Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
        
        jan99
        
        2014-05-07 07:03
        
        User since
        2008-09-18
        439 articles
        BenutzerIn
        
        Bingo und Danke !
        perl-Greenhorn - Win7 64bit / strawberry (ehem. activeperl) - www.OpenStreetMap.de

View all threads created 2014-05-06 12:58.