Path: ccsf.homeunix.org!ccsf.homeunix.org!news1.wakwak.com!nf1.xephion.ne.jp!onion.ish.org!onodera-news!newsfeed.media.kyoto-u.ac.jp!newsfeed.mesh.ad.jp!news-sv.sinet!crick.nih.go.jp!news.nih.go.jp!jun
From: jun@nih.go.jp
Newsgroups: fj.comp.lang.perl
Subject: Re: my in eval
Date: 04 Nov 2003 03:45:10 GMT
Lines: 64
Message-ID: <JUN.03Nov4124510@watson.nih.go.jp>
References: <JUN.03Oct31190218@watson.nih.go.jp>
 <3FA32785.3090209@geocities.co.jp>
 <3989168news.pl@insigna.ie.u-ryukyu.ac.jp>
NNTP-Posting-Host: watson.nih.go.jp
Mime-Version: 1.0
Content-Type: text/plain; charset=ISO-2022-JP
X-Trace: crick.nih.go.jp 1067917510 28061 202.241.78.19 (4 Nov 2003 03:45:10 GMT)
X-Complaints-To: USENET@nih.go.jp
NNTP-Posting-Date: Tue, 4 Nov 2003 03:45:10 +0000 (UTC)
In-reply-to: kono@ie.u-ryukyu.ac.jp's message of 01 Nov 2003 23:57:43 +0900
Xref: ccsf.homeunix.org fj.comp.lang.perl:35

In article <3989168news.pl@insigna.ie.u-ryukyu.ac.jp> kono@ie.u-ryukyu.ac.jp (Shinji KONO) writes:

> In article <3FA32785.3090209@geocities.co.jp>, Masanori HATA <lovewing@geocities.co.jp> writes
> $a,$b は特別扱いされるので使わない方が良いです。どういう
> 意図なのか良くわからないけど、たぶん、eval しないで、sub {}
> と[]とか使った方がいいんじゃないかなぁ。

$a,$bと書いたのは投稿のために簡素化したかったからで、実際にはもっ
と長い変数名を使っています^^;

で、意図についてなんですが、PostgreSQLへの問い合わせ結果を

while (<DB>) {
    my($column1,$column2,$column3) = split /\|/, $_;
    ...処理...
}

というように処理しているのですが、同じコード(各列を変数に代入す
るコード)を含むスクリプトが複数あります。そして、近い将来、列が
追加されることがわかっているので、その時に複数のスクリプトにある

my($column1,$column2,$column3) = split /\|/, $_;

という部分を

my($column1,$column2,$newcolumn,$column3) = split /\|/, $_;

のように書き直すのはメンテナンス制が悪いので、サブルーチンにする
ことを考えました。その時サブルーチンの返す値が配列やハッシュだと、
これまで$column1,$column2,...のようにしていた変数名を全部付け替
えないとなりません。だからと言って、サブルーチンの中で、

($column1,$column2,$column3) = split /\|/, $_;

のようにしてグローバル変数にはしたくない。それで、変数名の付け替
えをせずに、グローバル変数にもせずにサブルーチン化するには、eval
がいいかも知れないと考えたわけです。それで、以下のようなものを書
いてみたら、代入されなかったというわけです:

while (<DB>) {
    $cmd = subroutine();
    eval $cmd;
    ...処理...
}

sub subroutine { #別のファイルに作りrequireする
    my $cmd = 'my($column1,$column2,$column3) = split(/\|/,$_);';
    return = $cmd;
}

畑さんのフォロー<3FA32785.3090209@geocities.co.jp>にあるように、
evalの前にmyすると、列が追加されるたびに、複数のスクリプトを書き
換えることになり、もとの木阿弥です^^;

やはり手抜きをせずに、変数名を付け替えるしかなさそうですX-<

--
    石川　淳            国立感染症研究所
    (Jun Ishikawa)      生物活性物質部第四室
    jun@nih.go.jp       (旧遺伝生化学室)
    Tel. 03-5285-1111   Fax 03-5285-1272
    http://nocardia.nih.go.jp/
    I hate damn sequences!