Beefy Boxes and Bandwidth Generously Provided by pair Networks
The stupid question is the question not asked

Re^3: XML::Twig output problem

by plockhart (Initiate)
on Jan 12, 2012 at 02:10 UTC ( #947468=note: print w/replies, xml ) Need Help??

in reply to Re^2: XML::Twig output problem
in thread XML::Twig output problem

I updated the code that I was having trouble with, in particular:

sub DumpOldAds { my ($twig,$nisNISJob)=@_; my $date = UnixDate("today", "%Y-%m-%d".'T00:00:00'); chomp $date; my $adate = $nisNISJob->findvalue('.//JobActiveDate'); print "\n$adate -|- $date\n"; if( $adate ne $date) { $nisNISJob->delete; } else { print $nisNISJob; }; }

When I replaced "else {$twig->flush} with else {print $nisNISJob), it worked. What am I missing concerning flush not working? Thanks, P

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://947468]
[marto]: FWIW, people shipping things as perl, which aren't strictly perl can cause confusion (Perl and OpenWrt - where to the communities intersect?)
[marto]: cpanm is lighter on resources than cpan, which is handy when working with consumer grade NAS hardware

How do I use this? | Other CB clients
Other Users?
Others chanting in the Monastery: (7)
As of 2018-03-17 13:21 GMT
Find Nodes?
    Voting Booth?
    When I think of a mole I think of:

    Results (224 votes). Check out past polls.