Re^2: perl db


#!/usr/bin/perl
print "Content-type:text/html\n\n";
use CGI::Carp qw(fatalsToBrowser);
use DB_File;
my $x = tie(%data, DB_File, "data.db");
die unless $x;
$data{"1131764522.1131769129"} = "1131764522.1131769129\tJiskha Webmas
+ter\t\tMt Tarawera\t\t70.228.93.58" || die "$!";
untie(%data);
print "success!";
1;
[download]

Comment on Re^2: perl db_file Download Code

Replies are listed 'Best First'.
Re^3: perl db_file by jZed (Prior) on Nov 12, 2005 at 05:42 UTC
This script works for me: `#!/usr/local/bin/perl use warnings; use strict; use DB_File; my %data; tie(%data, 'DB_File', "data.db") or die $!; $data{"1131764522.1131769129"} = "1131764522.1131769129\tJiskha Webmas +ter\t\tMt Tarawera\t\t70.228.93.58" \|\| die "$!"; untie(%data) or die $!; %data=(); print "success!\n"; tie(%data, 'DB_File', "data.db") or die $!; print $data{"1131764522.1131769129"};` [download]	[reply] [d/l]

Replies are listed 'Best First'.

Re^3: perl db_file
by jZed (Prior) on Nov 12, 2005 at 05:42 UTC

#!/usr/local/bin/perl
use warnings;
use strict;
use DB_File;
my %data;
tie(%data, 'DB_File', "data.db") or die $!;
$data{"1131764522.1131769129"} = "1131764522.1131769129\tJiskha Webmas
+ter\t\tMt Tarawera\t\t70.228.93.58" || die "$!";
untie(%data) or die $!;
%data=();
print "success!\n";
tie(%data, 'DB_File', "data.db") or die $!;
print $data{"1131764522.1131769129"};
[download]

[reply]
[d/l]