Post by Shinji KONO$a,$b $B$OFCJL07$$$5$l$k$N$G;H$o$J$$J}$,NI$$$G$9!#$I$&$$$&(B
$B0U?^$J$N$+NI$/$o$+$i$J$$$1$I!"$?$V$s!"(Beval $B$7$J$$$G!"(Bsub {}
$B$H(B[]$B$H$+;H$C$?J}$,$$$$$s$8$c$J$$$+$J$!!#(B
$a,$b$B$H=q$$$?$N$OEj9F$N$?$a$K4JAG2=$7$?$+$C$?$+$i$G!"<B:]$K$O$b$C(B
$B$HD9$$JQ?tL>$r;H$C$F$$$^$9(B^^;
$B$G!"0U?^$K$D$$$F$J$s$G$9$,!"(BPostgreSQL$B$X$NLd$$9g$o$;7k2L$r(B
while (<DB>) {
my($column1,$column2,$column3) = split /\|/, $_;
...$B=hM}(B...
}
$B$H$$$&$h$&$K=hM}$7$F$$$k$N$G$9$,!"F1$8%3!<%I(B($B3FNs$rJQ?t$KBeF~$9(B
$B$k%3!<%I(B)$B$r4^$`%9%/%j%W%H$,J#?t$"$j$^$9!#$=$7$F!"6a$$>-Mh!"Ns$,(B
$BDI2C$5$l$k$3$H$,$o$+$C$F$$$k$N$G!"$=$N;~$KJ#?t$N%9%/%j%W%H$K$"$k(B
my($column1,$column2,$column3) = split /\|/, $_;
$B$H$$$&ItJ,$r(B
my($column1,$column2,$newcolumn,$column3) = split /\|/, $_;
$B$N$h$&$K=q$-D>$9$N$O%a%s%F%J%s%9@)$,0-$$$N$G!"%5%V%k!<%A%s$K$9$k(B
$B$3$H$r9M$($^$7$?!#$=$N;~%5%V%k!<%A%s$NJV$9CM$,G[Ns$d%O%C%7%e$@$H!"(B
$B$3$l$^$G(B$column1,$column2,...$B$N$h$&$K$7$F$$$?JQ?tL>$rA4ItIU$1BX(B
$B$($J$$$H$J$j$^$;$s!#$@$+$i$H8@$C$F!"%5%V%k!<%A%s$NCf$G!"(B
($column1,$column2,$column3) = split /\|/, $_;
$B$N$h$&$K$7$F%0%m!<%P%kJQ?t$K$O$7$?$/$J$$!#$=$l$G!"JQ?tL>$NIU$1BX(B
$B$($r$;$:$K!"%0%m!<%P%kJQ?t$K$b$;$:$K%5%V%k!<%A%s2=$9$k$K$O!"(Beval
$B$,$$$$$+$bCN$l$J$$$H9M$($?$o$1$G$9!#$=$l$G!"0J2<$N$h$&$J$b$N$r=q(B
$B$$$F$_$?$i!"BeF~$5$l$J$+$C$?$H$$$&$o$1$G$9(B:
while (<DB>) {
$cmd = subroutine();
eval $cmd;
...$B=hM}(B...
}
sub subroutine { #$BJL$N%U%!%$%k$K:n$j(Brequire$B$9$k(B
my $cmd = 'my($column1,$column2,$column3) = split(/\|/,$_);';
return = $cmd;
}
$BH*$5$s$N%U%)%m!<(B<***@geocities.co.jp>$B$K$"$k$h$&$K!"(B
eval$B$NA0$K(Bmy$B$9$k$H!"Ns$,DI2C$5$l$k$?$S$K!"J#?t$N%9%/%j%W%H$r=q$-(B
$B49$($k$3$H$K$J$j!"$b$H$NLZ0$Lo$G$9(B^^;
$B$d$O$j<jH4$-$r$;$:$K!"JQ?tL>$rIU$1BX$($k$7$+$J$5$=$&$G$9(BX-<
--
$***@P@n!!=_(B $B9qN)***@w>I8&5f=j(B
(Jun Ishikawa) $***@8J*3h@-J*<AItBh;M<<(B
***@nih.go.jp ($***@82=3X<<(B)
Tel. 03-5285-1111 Fax 03-5285-1272
http://nocardia.nih.go.jp/
I hate damn sequences!