Hi,
I am trying to save data in an xml file.
What I am seeing is when I enable the file locking commands
the file is completely wiped out.Just zero bytes.
But it works correctly when I remove the file locking commands.
Please help ?? What I am doing wrong .
Regards,
Alok
use XML::Twig;
use Fcntl qw(:DEFAULT :flock);
my $registerFile = "Register.xml" ;
my $twig = XML::Twig->new( pretty_print => 'indented' );
# Save data into the xml file
my $node = XML::Twig::Elt->new(
'User', {'name' => $usr},
XML::Twig::Elt->new( 'email' =>
$email )) ;
$node->paste( last_child => $twig->root ) ;
#use lock to write into the file
sysopen( FH, $registerFile, O_RDWR )
or die "can't open $registerFile: $!";
flock( FH, LOCK_EX)
or die "can't lock filename: $!";
truncate(FH, 0) or die "can't truncate filename: $!";
$twig->parsefile( $registerFile );
$twig->print_to_file( $registerFile ) ;
close(FH)
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
