On Tue, 2008-08-05 at 01:33 +0200, rafailowski wrote: > Yes, without argument, the error is normal : > > $ perl test.pl > Use of uninitialized value in hash element at > /usr/local/share/perl/5.10.0/Log/StdLog.pm line 57. > Use of uninitialized value in string at test.pl line 25. > > But with an argument like this : > > $ perl test.pl --log-level=info > Use of uninitialized value in hash element at > /usr/local/share/perl/5.10.0/Log/StdLog.pm line 57. > info > > level => $cmd_args_ref->{"log_level"} stay undef and > print $cmd_args_ref->{"log_level"}; return the good value. > > I don't understand why in : use Log::StdLog {...}, the value of > $cmd_args_ref->{"log_level"} stay always undef??? > >
Sorry, I was thinking about the problem correctly. Try: #!/usr/bin/perl use Getopt::Long; use Log::StdLog; my %cmd_args = (); my $cmd_args_ref = \%cmd_args; GetOptions( "log-level=s" => \$cmd_args{"log_level"}, ); sub log_format { my ($date, $pid, $level, @message) = @_; return "[$date][$level]: " . join(q{}, @message); }; Log::Stdlog::import( { format => \&log_format, file => "$0.log", level => $cmd_args_ref->{"log_level"}, } ); print $cmd_args_ref->{"log_level"}; __END__ This re-runs the import function after the program has started. -- Just my 0.00000002 million dollars worth, Shawn "Where there's duct tape, there's hope." "Perl is the duct tape of the Internet." Hassan Schroeder, Sun's first webmaster -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] http://learn.perl.org/