perlでPostgreSQL | PostgreSQL | 阿部辰也のブログ――人生はひまつぶし。 http://homepage1.nifty.com/yito/anhttpd/faq/postgresql.html

copy:ファイルコピー move:ファイル移動 #ファイルコピー use File::Copy; #ファイル存在チェック if(-e "ff.txt"){ print "ファイル存在\n"; copy("ff.txt","ff00.txt"); #ファイル移動 move("ff11.txt","./data/ff11.txt"); if(-e "ff00.txt"){ print "フ…

reset関数：複数の変数を一度に削除する。 #reset関数 $a = "a"; $ab = "ab"; print "$a\n"; #複数の変数の削除 reset "a"; print "$a\n"; if(defined($a)){ print "定義\n"; } else { print "未定義\n"; }

undef関数：変数を未定義にする。よって、メモリも開放される。 #未定義にする。 $word = "aaa"; print "$word\n"; undef($word); if(defined($word)){ print "定義\n"; }else{ print "未定義\n"; }

defined関数：定義されていれば、1。定義されていなければ、0を復帰。 #nullチェック #未定義チェック @ary = ("a","","c"); $cnt = 1; $num = @ary; #foreach $v (@ary) { for($i;$i<$num;$i++){ #print "$ary[$i]--"; printf ("%02d：",$i); if (defined(@…

#ディレクトリ操作 #ディレクトリ内のファイルフォルダ一覧取得 opendir(DIR, "/home/aaa"); @file = readdir(DIR); closedir(DIR); foreach (@file) { print "$_\n"; } #ディレクトの存在チェック if(-e "./data"){ print "ディレクトリ作成処理実行なし\n"…

◆ライブラリ・文字列ライブラリ substr--- 文字列の抜き出し、切り出し、置換 #文字列操作 $str = "abcdefg123456"; $str_ch = substr($str,0,5); print "$str_ch\n"; index --- 文字列の検索 #index関数 $word = "abcdefghigk"; $num = index($word,"d"); p…

#ローカル変数、グローバル変数 $word = "aaa"; &func_str; print $word."\n"; #local宣言なので、完全な局所化でない sub func_str { local $word = "bbb"; print $word."\n"; } $word = "晴れ"; &today; #my宣言なので、完全な局所化 sub today { my $word…

perlでは、ファンクションのことをサブルーチン(ユーザ関数)と呼ぶらしい。 #サブルーチン $x = 123; $y = 234; $t = 99; &total; $to = &func_sum($x,$y,$t); print $to."\n"; #引数、戻り値なし sub total{ $z = $x + $y; print "total="."$z\n"; } #引数…

#外部ファイルをプロパティファイルにみたててみた print "--プロパティファイルもどき^---\n"; open(IN,"test_properties"); @pro_list = <IN>; close(IN); #連想配列に値を設定 foreach $v (@pro_list) { @tmp = split(/=/,$v); @tmp[1] =~ s/\n//; $pro_hash{</in>…

ファンクション一覧 SELECT prosrc FROM pg_proc; PL/pgSQL が使用可能か調べる select * from pg_language; テーブル一覧 select * from pg_tables 【参考URL】 http://www.yamada-lab.org/doc/linux/postgresql8.2/02psql/0201.html

●perl概要http://www.site-cooler.com/kwl/perl/environment.htm#about◆開発環境・Eclipseでperl http://thleave.com/coding/98 【参考URL】 ・Perl基礎入門 | KentWeb ・Perl“ü–å ・http://homepage2.nifty.com/sak/w_sak3/doc/sysbrd/pe_k01.htm