Tried a Data Dumper and this is what I got:
Straight Perl Script:
#!/usr/bin/perl
use Storable;
use Date::Format;
use Data::Dumper;
# Retrieve status snapshot data. Update it and put it back.
if (-e 'status.dat') {
my ($hashref) = retrieve('status.dat') || die "Can't retrieve status data. $!";
%sdat = %$hashref;
}
my ($timestamp) = time2str('%Y-%m-%d',time());
$sdat{Survey_Form_Received} = "$timestamp";
print Dumper(%sdat);
store \%sdat, 'status.dat' || die ("Can't store data to status storable. $!");
Output from this script:
$VAR1 = 'Survey_Form_Received';
$VAR2 = '2002-03-18';
EmbPerl Script outputting to a file:
[-
use Storable;
use Date::Format;
use Data::Dumper;
# Retrieve status snapshot data. Update it and put it back.
if (-e 'status.dat') {
my ($hashref) = retrieve('status.dat') || die "Can't retrieve status data. $!";
%sdat = %$hashref;
}
my ($timestamp) = time2str('%Y-%m-%d',time());
$sdat{Survey_Form_Received} = "$timestamp";
open(SESAME, ">datadump.txts");
print SESAME Dumper(%sdat);
close (SESAME);
store \%sdat, 'status.dat' || die ("Can't store data to status storable. $!");
-]
File contents:
$VAR1 = 'Survey_Form_Received';
$VAR2 = '2002-03-18';
Something else appears to be the cause of this problem!
Scott
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
