使用了一下perl的XML::Smart模組，真是太好用了

現在只是那它來做一下config file，不過這個對於資料互動，資料儲存都是非常非常有用啊！xml檔案進了perl裡邊就可以像hash一樣隨便用了

下邊這段程式碼是初始化一個xml檔案的

[root@dw01 robin]# more txml.pl
#! /usr/bin/perl
use strict;
use warnings;
use XML::Smart;
use DBI;

my $conn_str = 'DBI:Oracle:host=dw01-vip;sid=IEODDW1';
my $user = 'dw';
my $password = '******';

my $dbh;

login();

my $sql_statement = qq{
select table_name
from user_tables
order by table_name
};
my $parts_ref = $dbh->selectall_arrayref( $sql_statement );

logoff();

my $xml = XML::Smart->new('./tables.xml');

my $table;
foreach (@$parts_ref) {
$table = {
name => $_->[0],
force_save_days => 61,
ignore_trun_days => [qw(1 15)]
};
push(@{$xml->{tables}->{table}}, $table);
}

$xml->{login}->{user} = $user;
$xml->{login}->{password} = $password;

$xml->save('./tables.xml');

sub login {
$dbh = DBI->connect($conn_str, $user, $password)
or die ("Could not make connection to database: $DBI::errstr");
}

sub logoff {
$dbh->disconnect();
}