Re: Yet another xml::simple question

You have this:

my $confOut = $conf->XMLout($confIn, OutputFile => $xmlConf);
# ...
$confOut->{conf}->{lastRun} = $epoch;
[download]

I don't use XML::Simple much, but I'm guessing that XMLout returns a simple status code (1 for success), and you're trying to use that has a hash reference.

I'm guessing here somewhat since the error you show us says "line foo", and there's no indication of which line that is.

Update: After a little fooling around, I find that this does what I think you want:

use strict;
use warnings;

use XML::Simple; 

my $xmlConf = "file.xml";
my $conf    = new XML::Simple(
    NoAttr     => 1,
    KeyAttr    => [],
    ForceArray => [qw(box1 box2)],
    KeepRoot   => 1,
    SearchPath => "."
);

my $confIn = $conf->XMLin("$xmlConf");

printf "box 1: Username - %s, Password - %s\n",
  $confIn->{conf}->{box1}[0]->{username},
  $confIn->{conf}->{box1}[0]->{password};

printf "box 2: Username - %s, Password - %s\n",
  $confIn->{conf}->{box2}[0]->{username},
  $confIn->{conf}->{box2}[0]->{password};

my $epoch = time();

$confIn->{conf}->{lastRun} = $epoch;

$conf->XMLout( $confIn, OutputFile => $xmlConf );
[download]

Comment on Re: Yet another xml::simple question Select or Download Code

Replies are listed 'Best First'.
Re^2: Yet another xml::simple question by sandcrawler (Initiate) on Jan 26, 2009 at 21:45 UTC
The line it references is the line with `$confOut->{conf}->{lastRun} = $epoch;` [download] on it. the resulting XML does not have the new epoch time it in.	[reply] [d/l]
Re^2: Yet another xml::simple question by sandcrawler (Initiate) on Jan 26, 2009 at 21:54 UTC
Kyle, It does seem I need to go back and look at the tutorial I used as the basis of my code I was just fixing to update with nearly the exact same thing. Your first response was the nudge I needed. Thanks for the help!! Kevin	[reply]
Re^3: Yet another xml::simple question by toolic (Bishop) on Jan 26, 2009 at 22:07 UTC
Yet another recommendation to use XML::Twig instead, if you're on a learning curve anyway.	[reply]