Thread Log::Log4Perl::CommandLine und Getopt::Long für eigene Argumente (4 answers)
Opened by orui at 2012-01-16 15:02

orui
 2012-01-16 15:02
#155465 #155465
User since
2012-01-16
3 Artikel
BenutzerIn
[default_avatar]
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)

View full thread Log::Log4Perl::CommandLine und Getopt::Long für eigene Argumente