Log::Log4Perl::CommandLine und Getopt::Long für eigene Argumente (gelöst) (Allgemeines zu Perl)

[thread]17070[/thread]

Log::Log4Perl::CommandLine und Getopt::Long für eigene Argumente [gelöst]

Tags: perl5 getopt log4perl Ähnliche Threads

Leser: 13

Articles: hide open all | hide show old branches

+5 replies
orui

2012-01-16 15:02
User since
2012-01-16
3 Artikel
BenutzerIn
Hallo Perl-Community,

ich möchte Log4Perl und Getopt::Long nutzen. Log4Perl parst ja schon eigene Argumente. Leider füllt mein eigenes GetOptions danach nicht mehr meine Variablen mit entsprechenden Werten.

Log::Log4Perl::CommandLine sagt, daß es @ARGV auswertet, aber das Array danach für eigenes Parsing bereitsteht. Leider funktioniert es nicht.
Code (perl): (dl )

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

#!/usr/bin/perl use strict; use warnings; use lib './lib'; use Log::Log4perl qw(:easy); use Log::Log4perl::CommandLine qw(:all no_init); Log::Log4perl->easy_init({ level => $ERROR, layout => "%p\t%d(%r) %F:%M(%L) - %m%n", }); Log::Log4perl::CommandLine::handlelogoptions(); use Getopt::Long qw(:config gnu_getopt); use Data::Dumper; our $opt_file; GetOptions('file|f=s') or die('useage...'); print "file: $opt_file\n";
Code: (dl )

1 2 3

.% /versuch.pl --file=test.txt Use of uninitialized value $opt_file in concatenation (.) or string at ./versuch.pl line 22. file:
Last edited: 2012-01-16 15:32:50 +0100 (CET)
- +4 replies
- murphy
  
  2012-01-16 15:37
  User since
  2004-07-19
  1776 Artikel
  HausmeisterIn
  2012-01-16T14:02:09 orui
  [...]
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7
  
  #line 17 our $opt_file; GetOptions('file|f=s') or die('useage...'); print "file: $opt_file\n";
  
  [...]
  
  Das sieht so aus, als läge das Problem eher an einem falschen Aufruf von GetOptions, denn es fehlt hier eine Angabe, wohin das Optionsargument gespeichert werden soll. Ich nehme an es sollte wohl
  
  Code (perl): (dl )
  
  1 2
  
  #line 20 GetOptions('file|f=s' => \$opt_file) or die('useage...');
  
  heißen.
  When C++ is your hammer, every problem looks like your thumb.
  - +3 replies
  - orui
    
    2012-01-16 16:04
    User since
    2012-01-16
    3 Artikel
    BenutzerIn
    
    2012-01-16T14:37:22 murphy
    Das sieht so aus, als läge das Problem eher an einem falschen Aufruf von GetOptions, denn es fehlt hier eine Angabe, wohin das Optionsargument gespeichert werden soll. Ich nehme an es sollte wohl
    
    Code (perl): (dl )
    
    1 2
    
    #line 20 GetOptions('file|f=s' => \$opt_file) or die('useage...');
    
    heißen.
    
    Hm. Getopt schreibt die Ergebnisse aber direkt in die darüber deklarierte Varibale. Das hier funktioniert zum Beispiel (ohne Log4Perl):
    
    Code (perl): (dl )
    
    1 2 3 4 5 6 7 8 9 10 11
    
    #!/usr/bin/perl use strict; use warnings; use lib './lib'; use Getopt::Long qw(:config gnu_getopt); our $opt_file; GetOptions('file|f=s') or die('usage...'); print "file: $opt_file\n";
    
    Code: (dl )
    
    1 2
    
    % ./versuch2.pl --file=test.txt file: test.txt
    
    [/quote]
    - orui
      
      2012-01-16 16:06
      
      User since
      2012-01-16
      3 Artikel
      BenutzerIn
      
      Mit
      
      Code (perl): (dl )
      
      GetOptions('file|f=s' => \$opt_file) or die('useage...');
      
      funktioniert es tatsächlich dann auch zusammen mit Log4Perl.
      
      Danke!
      
      Trotzdem unschön, daß es nicht mehr so funktioniert, wie es vorher ohne Log4Perl funktioniert hat.
    - murphy
      
      2012-01-16 16:31
      
      User since
      2004-07-19
      1776 Artikel
      HausmeisterIn
      
      2012-01-16T15:04:02 orui
      [...]
      Getopt schreibt die Ergebnisse aber direkt in die darüber deklarierte Varibale.
      [...]
      
      Das stimmt nicht ganz: GetOptions schreibt den Wert für eine Option X, für die keine explizite Zielvariable angegeben ist, in eine globale Variable namens C::opt_X, wobei der Namensteil X noch von Sonderzeichen gesäubert wird und C der Namensraum des aufrufenden Programmteils ist, welcher mit Hilfe schwarzer Magie ermittelt wird.
      
      Dieses Verhalten ist ganz offensichtlich unzuverlässig, weil es Namensraummagie erfordert, es ist explizit in der Dokumentation von Getopt::Long als "Legacy" markiert und überhaupt sollten sich bei jedem Programmierer, der auch nur im Ansatz Wert auf sauberen Stil legt, sofort die Fußnägel aufrollen, wenn er einen solchen Murksmechanismus verwendet ;-)
      When C++ is your hammer, every problem looks like your thumb.

View all threads created 2012-01-16 15:02.