経験ゼロからプロのＳＥを目指しているさまを書きなぐり★
Perlでデータベース編集
★サンプル
modify_database.pl
#!/usr/bin/perl
use strict;
use BerkeleyDB;
my $database = "test.db";
my (%db_hash, $key, $value);
tie %db_hash, 'BerkeleyDB::Btree',
-Filename => $database,
-Flags => DB_CREATE
or die "Cannot open $database: $!\n";
my $key = $ARGV[0];
$db_hash{$key} = $ARGV[1];
untie %db_hash;
http://takusato.net/article/bdb_oboegaki.html
こちらを参考にさせていただきました。
実行するには第一引数に変更するデータのキー、
第二引数に変更するデータを指定して実行。
$ perl modify_database.pl 2 testtest
★サンプル
modify_database.pl
#!/usr/bin/perl
use strict;
use BerkeleyDB;
my $database = "test.db";
my (%db_hash, $key, $value);
tie %db_hash, 'BerkeleyDB::Btree',
-Filename => $database,
-Flags => DB_CREATE
or die "Cannot open $database: $!\n";
my $key = $ARGV[0];
$db_hash{$key} = $ARGV[1];
untie %db_hash;
http://takusato.net/article/bdb_oboegaki.html
こちらを参考にさせていただきました。
実行するには第一引数に変更するデータのキー、
第二引数に変更するデータを指定して実行。
$ perl modify_database.pl 2 testtest
PR
この記事にコメントする
