#! /usr/bin/perl # # update/postgre_update.pl # # Jun/08/2015 # # ----------------------------------------------------------------------- use strict; use warnings; use utf8; use Encode; # use DBI; use lib '/var/www/data_base/common/perl_common'; use sql_manipulate; use text_manipulate; # # ----------------------------------------------------------------------- print (encode ('utf-8',"*** 開始 ***\n")); my $id_in = $ARGV[0]; my $population_in = $ARGV[1]; # print ("$id_in\t$population_in\n"); # my $constr = 'DBI:Pg:dbname=city host=localhost'; my $user = 'scott'; my $passwd = 'tiger'; my $dbi = DBI->connect($constr, $user, $passwd); # sql_manipulate::dbi_update_proc ($id_in,$population_in,$dbi); # $dbi->disconnect; # print (encode ('utf-8',"*** 終了 ***\n")); # -----------------------------------------------------------------------