#!/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;
In reply to Re^2: perl db_file
by keiusui
in thread perl db_file
by keiusui
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |