トップページ⇒php
1001コメント346KB

【Perl】初心者コーナー Part16

■ このスレッドは過去ログ倉庫に格納されています
00013PIO ◆3pIoOHKo 02/09/15 15:11ID:???
いらっしゃーい、Perlの「コーディング」で困ってる人のスレです。

1：自分はこう言う事がしたい。
2：それでこんな風にやってみたが･･･
3：それだとこんなエラーが出て上手く行かなかった。

1と3が無いと誰も答えられないよ。
良い回答は良い質問から。一緒に勉強しましょう。

CGIだけど、なんか質問ある？ Part 6 （その2)
http://pc.2ch.net/test/read.cgi/php/1025930486/
参考書籍の話題は【【Perl,CGI】参考書籍 第２版】
http://pc.2ch.net/test/read.cgi/php/988809842/
その他の雑多な話題は、【CGIに依存しないPerlの話題一般】
http://pc.2ch.net/test/read.cgi/php/991313362/
スクリプトの改造依頼は 【スクリプト改造工房 Part4】
http://pc.2ch.net/test/read.cgi/php/1012839651/

過去ログ、その他の役立ち情報は>>2-10あたりを見よう。
0164 ◆AOHU.zVE 02/09/20 21:27ID:???
>>162
関数化できる部分も展開した状態で書いた状態をさしてました。

>>163
それが本当だと
AutoSplitとAutoLoader使って書かれてる
CPANモジュールって多数ありますけど、
あえて効率悪くしてるのでしょうか？
0165 ◆JAPH9PWA 02/09/20 22:04ID:???
>>163に同意。
CPANのも「なんでこの程度でAutoLoader使ってるの？」ってモジュールばかりだよ。
0166 ◆AOHU.zVE 02/09/20 22:59ID:???
すべての処理を１つのCGIで済ませるタイプの場合
1回の起動でよばれない部分が大半なきもするんですが...

またCPANモジュールの場合、モジュールがモジュール呼んで
って繰り返す場合がおおいので、AutoLoaderなかったら
それこそ無駄なコンパイル、無駄なメモリがたっぷりなきがします

#具体例もなしに不毛なきがしてきた...
0167nobodyさん02/09/20 23:10ID:???
いらない部分までコンパイルするのが無駄って理屈はわかる。
ただ、この場合は一つのファイルの一度のコンパイルで全てが終わるって事も
わかる。

処理してからコンパイルするんじゃなくてコンパイルしてから
処理するんでしょ？
って事はコンパイル後に外部を呼んだら外部もコンパイル、又は
全てを再コンパイルって事にはならんの？
0168 ◆AOHU.zVE 02/09/20 23:25ID:???
requireは遷移して初めて読み込み/コンパイルが行われるはず...
(useは最初によまれちゃいますけど...)

むちゃくちゃ強引な例)
if(1){
require "a.pl";#ここに遷移したとき初めてコンパイルされる
}else{
require "b.pl";#つまりこっちはコンパイルされない
}

ちがいましたっけ？
0169 ◆AOHU.zVE 02/09/20 23:35ID:???
もうちっとまともに書くと

(AutoLoader簡易版の一例)
sub AUTOLOAD {#定義されていない関数があると呼ばれる
my $file = $AUTOLOAD;
$file =~ s!::!/!g;
if(eval{require "$file.pl";}){
die('ダメっぽい')if($AUTOLOAD{$file});
$AUTOLOAD{$file}=1;
return &{$AUTOLOAD}(@_);
}
return undef;
}

とかしてあげると、ある関数が呼ばれたとき
初めて読み込んでコンパイルされ、
2回目以降は関数が存在するので
AUTOLOADは呼ばれないって動きになるものだと...

#突っ込まれるとなんか自身がなくなってしまう^^;
0170nobodyさん02/09/20 23:41ID:???
さあ、そろそろ誰か裁定を下してくれ。
0171nobodyさん02/09/20 23:42ID:???
if(1){
require "a.pl";#ここに遷移したとき初めてコンパイルされる
}else{
require "b.pl";#つまりこっちはコンパイルされない
}

動かなきゃそこに行くことは分からないんでしょ？
動くならそもそもコンパイルの必要が無いと思うんだけど。
017217102/09/20 23:45ID:???
呼ばれないのがコンパイルされないって事はわかってる。
ただ、コンパイル＞requierがあった＞コンパイルって二度手間に
なるんじゃないかと言ってるわけで。
0173nobodyさん02/09/20 23:58ID:???
PerlではYO-
コンパイルをYO-
２段階でやってるからYO-
２度手間にはならねーYO!
0174 ◆JAPH9PWA 02/09/20 23:59ID:???
>>168
それはもちろんそう。というか、そうじゃなきゃAutoLoaderの実装に苦労するよ…

で、内部のpp_requireのコード読んでたら妙なことみっけ
#!perl -w
sub Loader::new{
return bless{}, $_[0];
}
sub Loader::INC{
my($self, $file) = @_;
print "ファイル $file が要求されました\n";
return "/path/to/$file.pm"; # フルパスを返す
}
@INC = (Loader->new());
require foo;
__END__

こんなの何処かに書いてあったっけ？
INC()の挙動が妙なんで実験機能かなぁ。
0175nobodyさん02/09/21 00:06ID:???
>>173
じゃ、分岐で外部を呼んだときは最低でも3段階になるって事？
0176nobodyさん02/09/21 00:16ID:???
>>175
だから、２段階だって。。。以下の動作わかる？

if (0){ use Hoge; }
0177nobodyさん02/09/21 00:43ID:???
>>176
Hogeから外部を呼んだらまた…って、ああそうか
Perlはインタプリタだったっけか。
ごめん勘違い。
0178 ◆AOHU.zVE 02/09/21 01:07ID:???
もとの話からずいぶんずれてきた？＾＾；
（ってじぶんのせいかな（汗）
017915602/09/21 03:05ID:mTosX4PH
なるほど。
勉強になります。

ちなみにわたしのスクリプトは書いてあるルーチンをか必ずすべて使うスクリプトなので
1-3すべて無意味っぽいですね。
アルゴリズム見直しかあ。手に負えなそうtt

奇特な方がソースみてくれるの期待して公開してるスクリプト晒しときます。
http://tokada.s19.xrea.com/

今負荷率みてみたらあほみたいなアクセスは減ってるみたいで、
負荷も落ちついてるみたいですが。
0180 ◆AOHU.zVE 02/09/21 03:31ID:???
しまった、危篤な人演じようと思ったら
PCインストールしたばっかでtarとgz解凍できる
ソフトがないΣ（￣ロ￣；）
018115602/09/21 04:22ID:???
おおお。
感謝です。
http://olive.zero.ad.jp/~zbk52224/files/Random2ch-0-2-1a.zip
にzipもあります
0182nobodyさん02/09/21 04:26ID:???
>>181
180 じゃないけど、俺流で書き換えて遊んで(･∀･)ｲｲ?
018315602/09/21 04:42ID:???
改変・再配布自由なのでどーぞー

もしよければ、改変したものを公開していただけるとうれしいです。
勉強になるしw
0184 ◆AOHU.zVE 02/09/21 05:35ID:???
ぱっと見の感想
１．不要なコード,極端なコメント,不要な変数、ループの削除
２．局所化されてない変数ありません？(不確か)
３．関数内での定数の宣言,requireの廃止
４．Random2ch.pl,linksFromHtml.plの統合
５．インデントの調整
すると、もちっとよさげかなぁ？とかおもいますが、
Socket周りをちゃんとするのはえらいと思う
0185 ◆AOHU.zVE 02/09/21 05:39ID:???
(つづき)

毎回HTTPのリクエストしないで、
解析結果を保存しておいて、一定期間内のアクセスであれば
保存したデータを使うようにするだけで、
結構スピードアップしそう。
ネットワークの開くのって結構コスト高いっすよね？

って感じかなぁ？
0186 ◆AOHU.zVE 02/09/21 06:02ID:???
ｺﾚかわいくて気に入ってるんだけど^^;

　おやすみなさい。
￣￣￣V ￣￣￣￣￣￣￣
　　　　.∧∧ ｴﾋﾞﾌﾘｬｰ
　　,.、,(ﾟДﾟ )　　　　 　／i
　;'｀;、.　:,.:∪｀ﾞ:ﾞ:｀''':,'.´ -‐i
　'､;:.: .､.:',.: .:: _;.;. :.‐'ﾞﾞ~ ￣
　　｀｀　U U 　
018715602/09/21 06:53ID:???
>>184
なるほど参考になります。
ソースを再検討してみます。

>>185
たしかにbbsmenu.htmlは"比較的"静的なので1日ごとの更新でもいいかもしれませんね。
subback.htmlはどうしよう。更新時間の匙かげんが難そう。
まあどちらも

ファイルがない||更新時間以前のファイルがある場合、HTTPリクエストしてlocalに保存する。
そうでない場合localのファイルに対して処理する。

ってかんじですかね。

>>186
おやすみなさい^^
0188nobodyさん02/09/21 06:59ID:???
GETの前にHEADで更新を確認したら？
018915602/09/21 07:06ID:???
>>188
なるほど。bbsmenu.htmlはそれでよさげ
019018202/09/21 10:28ID:???
(･∀･)ｵﾊﾖｰ
とりあえずコードをまとめ直しただけですが。
http://boobar.hoops.ne.jp/Rand2ch/Rand2ch_0.2.1a.txt
0191 ◆AOHU.zVE 02/09/21 11:28ID:???
みんないつねてるんだろ（汗

connectの回数減らさないと体感できる遅さの原因になりやすいので
KEEP-ALIVEとかちゃんと使わないとまずそうですね。
0192nobodyさん02/09/21 11:38ID:???
いらっしゃーい、Perlの「コーディング」で困ってる人のスレです。

1：自分はこう言う事がしたい。
2：それでこんな風にやってみたが･･･
3：それだとこんなエラーが出て上手く行かなかった。

1と3が無いと誰も答えられないよ。
良い回答は良い質問から。一緒に勉強しましょう。
019315602/09/21 11:53ID:???
>>190
。。。。。。。。。
すげーーーーー
あまりのエレガントさにびびりました。
わたしの元ソースと比べるべくもないですな。
ハハハハハハハハ

めちゃくちゃ示唆に富んでるソースだし。。。。
ただ私のPerlへの理解度が追いついてない部分があるので、ラクダ本と突き合わせながらじっくり読ませてもらいます。

ここに質問してよかったです。
ありがとー

#こんな時に明日からしばらく出かけなくちゃいけないtt
#どっぷり漬かりたいのにtt
019415602/09/21 12:02ID:mTosX4PH
>>192
おはよーございますw
KEEP-ALIVEですか。ほうほう。
はじめて聞きます(汗

字面からは、一度ソケットひらいて通信してそのまま次の通信をするって感じとか想像するんですが、
大外ししてるかな。。。。

資料あさりたいですが、後日ってことになりそうです。
すみませんtt
0195nobodyさん02/09/21 12:57ID:/+fRFKXb
jcode.plを用いてテキストファイル(EUC)をsjisに置き換える物をつくったんですが
正しく動きません。見てもらえませんでしょうか・・・

require "./jcode.pl";
open(IN, "aaa.txt");
$xxx = <IN>;
close(IN);
&jcode'convert($xxx,'sjis');
open (FILEOUT, ">aaa.txt");
print FILEOUT $xxx;
close (FILEOUT);
0196nobodyさん02/09/21 13:00ID:???
*xxx or \$xxx
019719502/09/21 13:40ID:/+fRFKXb
>>195
無事解決できました。ありがとう！
0198nobodyさん02/09/21 13:41ID:???
自己解決？
0199nobodyさん02/09/21 14:02ID:???
ほえー、こんなスレあったんだァ。。。。
ぼく小学生だけとPerlのことはなんでも聞いてよ！
0200どうにかして02/09/21 14:15ID:???
54 名前：3PIO ◆3pIoOHKo ：02/09/13 22:21 ID:???
俺のサイトは全てCGIを経由しないと表示できないようにしてる
リモホしだいでどんなページにでもジャンプさせてるぞ

56 名前：Name_Not_Found ：02/09/14 12:20 ID:???
>>54
鯖のことを少しは考えてやれ・・・
自分の鯖なら別にいいが。

57 名前：3PIO ◆3pIoOHKo ：02/09/15 21:39 ID:???
>>56
トップページの表示にかなり時間がかかる
苦情が鯖の管理人からきたらどうにかする
0201nobodyさん02/09/21 14:25ID:???
で、質問は？
0202nobodyさん02/09/21 15:22ID:acWgwkOR
質問なんですが、
とりあえず初心者本読んでperlをちょっと勉強したんですが、
Web上でよくみる掲示板のソースを見ると
もう何がナンだか分からなくなって、
でももっと勉強すれば理解できるようになりますか？
才能とか関係ないっすよね？
0203nobodyさん02/09/21 15:26ID:???
>202
才能は必要。
努力しつづけるという才能が。
途中で諦め、投げ捨てるような人には無理。

要は根気だ。
俺は根気があるのは才能だと思ってる。
0204b02/09/21 15:31ID:ererLzW2
http://muvc.net/jsweb/profiles.html
0205nobodyさん02/09/21 16:22ID:???
>>202が見ているのがHTMLのソースとかだったら爆尿
0206nobodyさん02/09/21 18:15ID:???
>>205
え、違うんですか？
0207nobodyさん02/09/21 18:19ID:0Otbw0Zc
ば！

く！

にょ！


ウウウウウウゥゥ！
0208nobodyさん02/09/21 18:19ID:???
ザバーーーーーーー
0209nobodyさん02/09/21 18:20ID:???
Perl/CGIのソースと
右クリックの「ソースの表示」は違うぞ
というか基本的なHTMLの知識があればそれぐらいわかるだろ
0210nobodyさん02/09/21 18:27ID:???
>>207 >>208
はいはいおじいちゃん、
おむつ替えますよー
0211２０２02/09/21 18:41ID:/+fRFKXb
根気は無いですが、男根ならあります。
だめでしょうか？
0212nobodyさん02/09/21 18:44ID:f7+ObQJd
01,田代,まさし,40歳,
02,田代,花子,40歳,
03,泉,まさし,40歳,
04,泉,ピン子,60歳,
05,泉,茂千代,118歳,
06,…
07,…続く

例えば上記のようなデータから

田代に該当 2
泉に該当 3
…

まさし 2
花子 1
ピン子 1
茂千代 1
…

40歳 3
60歳 1
118歳 1
…

というふうに列の重複数をすべて書き出したいんです。
どしたらいいでしょうか？
0213nobodyさん02/09/21 19:33ID:acWgwkOR
なんか俺の偽者がいっぱいいるなぁ
ソースはちゃんとダウンロードしたCGIファイルを見てるよ
0214nobodyさん02/09/21 19:38ID:???
>>212
乱暴なやり方。

my @data = qw(
　 　01,田代,まさし,40歳,
　 　02,田代,花子,40歳,
　 　03,泉,まさし,40歳,
　 　04,泉,ピン子,60歳,
　 　05,泉,茂千代,118歳,
);

my %count;
foreach (@data) {
　 　foreach (split /,/) {
　 　 　 　$count{$_}++;
　 　}
}

foreach (sort keys %count) {
　 　print($_, 'に該当 ', $count{$_}, "\n");
}
0215nobodyさん02/09/21 20:33ID:???
>>214
ありがとうございます。動きました！
別ファイルにデータを置いてるので、

$data='data.txt';
open(IN,"$data");
@data = <IN>;
close(IN);

として大丈夫でした。
あつかましくも追加で…上記データで言うと名字の部分と年齢の部分というふうに
特定の列のみ抽出することは出来るでしょうか？
0216nobodyさん02/09/21 20:35ID:???
>215
できる。
どうやればできると思う？
0217nobodyさん02/09/21 21:37ID:f7+ObQJd
>>216
それがどうにも分からんのです…
0218nobodyさん02/09/21 21:58ID:???
>217
>>214 さんが示している例がどうして動くのか、理解しましょう。
そうするとどこが問題点か解るはずです。
まず、その問題点を探してみて下さい。
0219 ◆AOHU.zVE 02/09/21 22:23ID:???
ヽ(´▽｀)ﾉ
while(<IN>){
chomp;
my @data = split(/,/);
push(@{$count{$data[$IDX]}},\@data);
}
for(sort keys %count){
printf("%sに該当%d\n",$_,scalar @{$count{$_}});
}
0220nobodyさん02/09/22 00:28ID:???
GyRCJCokXiQoJGkySyRAJEohKhsoQg
0221nobodyさん02/09/22 00:49ID:bAgDqIKf
ユーザー名とパスワード認証後、各ユーザー”別”のデータをcsvから読み出すにはどうしたら
良いのでしょうか。
イメージとしてはYahooや、ポイント制のあるEコマースサイトの様な機能なんですが。

もう少し具体的に書きますと、

・ユーザーID,パスワード,ポイント
以下同じ構文のcsv

みたいなcsvファイルを使って

・そのcsvに記載されてあるID,パス認証
・認証後、”同じ列”にあるポイントの表示

というような事はどうすればよいのでしょうか。
よろしくお願いします。
0222nobodyさん02/09/22 00:56ID:???
>>221
やる手順は解っているわけだから、実際にやってみてどの部分でつまづいてるの？
0223nobodyさん02/09/22 01:16ID:bAgDqIKf
>>222さん
初歩的なID,パスワード認証
(csvを読み込んで、変数に格納、それとFORMの数値を見比べてイコールなら移動)
まではわかるのですが、
その後のcsvから、ポイントの取り出しが分かりません。

縦の関係は分かっても、横の関係が分からない、というか何というか。
よろしくお願いします。
0224nobodyさん02/09/22 01:27ID:???
>>223
splitっていうか、分割できないでＩＤどう取るわけ？
すっげー非効率なことしてる気がしてきた。

まぁＣＳＶ落とされないようにね。
0225nobodyさん02/09/22 01:29ID:???
IDとﾊﾟｽは暗号化しておいて欲しいな。
022622202/09/22 01:55ID:???
認証後のポイントの取り出し方は、シュウォーツ変換を利用して
ユーザIDを比較して取り出せば？

($point)= map{ $_->[0] eq 'id' ? $_->[2] : () }map{ chop, [split(/,/, $_, 3)]} <DATA>;
022722202/09/22 02:09ID:???
チョット修正

my $point;
($point)=map{ $_->[0] eq 'id' ? $_->[2] : () }map{ $point?last:chop, [split(/,/, $_, 3)]} <DATA>;
0228nobodyさん02/09/22 12:03ID:dGvJOxY3
IDパスワードを暗号化しないとどうなるの？
0229nobodyさん02/09/22 12:14ID:???
IDのほうは暗号化しなくてもいいんじゃねー？
0230 ◆AOHU.zVE 02/09/22 16:21ID:???
cpan.jpというドメインを取得したのですが
なんか使い道ないかなぁ。。。
CPANミラーする程度しかおもいつかなくて、、、
(すれ違い？）
0231nobodyさん02/09/22 16:28ID:Fc82peeX
お
0232nobodyさん02/09/22 16:59ID:???
いるよな、こういう「ドメイン取ったぜ！使い道ないけど」厨房
0233nobodyさん02/09/22 17:21ID:???
JPAH隊長！PPMサーバーが撃沈してます！
0234nobodyさん02/09/22 20:07ID:???
Perlネットゲームの管理人の発言です。

かずあき(1001) > いや、アップロードしたプログラムは実行効率上げるためにコメント行を全てカットしてあるから、正直なにが書いてあるかウチ本 人にもわかんないのよ (9/22(日)20:06 )

実行効率上がるんですか？変わらない気がするんですけど。
0235nobodyさん02/09/22 20:12ID:???
#がある行は読み込んでから、無視される。
0236nobodyさん02/09/22 20:56ID:???
>234
ナノ秒単位でなら上がるかも。
0237nobodyさん02/09/22 21:21ID:dGvJOxY3
ただCGIを動かす物を作りたいんですが、
<img src="xx.cgi">で起動させた後、空白を表示させる方法が分かりません。
ヒントをください
0238nobodyさん02/09/22 21:32ID:???
>>237
xxx.cgi
print "text/html\n\n";
print " ";
0239nobodyさん02/09/22 22:06ID:???
>237
なんかいかにも「こっそりIP抜きたい」っていうやり方だね・・・。
024023702/09/22 22:37ID:dGvJOxY3
>>238
CGIの方に(xxx.cgi)
print "text/html\n\n";
print " ";
htmlの方に
<img src="xxx.cgi">
と書いてもCGIは実行されるのですが、html側は□に×（画像が表示できない状態）
になってしまいます。なんでしょうか？

>>239
違いますよ
0241nobodyさん02/09/22 22:41ID:???
>240
イマイチ信用できないな。
でも、まぁ、ヒントだけ。

・1*1の透過GIF
・バイナリモード
0242nobodyさん02/09/22 22:45ID:???
>>240
えっ、ホントにやったの？
あなたｈｔｍｌをちゃんと理解してます？
画像ファイルを入れなきゃ画像は表示されませんYo
<a href="xxx.cgi">
<img src="nantoka.gif">
</a>
0243nobodyさん02/09/22 22:49ID:???
単純に1x1の画像にlocationでいいんじゃないの？　
024423702/09/22 22:52ID:dGvJOxY3
print "Content-type: image/gif\n\n";
print `/bin/cat space.gif`;
で解決しました。が/bin/catの意味が分かりません。
どんな意味をもってるんですか？
0245nobodyさん02/09/22 23:05ID:aEiiJGxo
ど初心者です。
HTMLで書いてから
printとか付けたしてったら
エラーでまくりです。
とりあえず「"」の前にはちゃんと「\」を書いてますが
それ以外にも「\」を書かないといけない文字ってありますか？
0246nobodyさん02/09/22 23:10ID:???
>245
山のように。
0247nobodyさん02/09/22 23:11ID:???
>>245
正規表現スレに逝ってこい
0248nobodyさん02/09/22 23:12ID:aEiiJGxo
>>246
マジですか？
出来ればよく使うタグで\をしなきゃいけない文字教えて下さい。
0249nobodyさん02/09/22 23:29ID:Ao5uw2aw
aというサブルーチンを100回動かすとして同時に3個動かすにはどうしたらいいんでしょうか？
1個終われば次の1個がはじまって。。。

と、言う内容で。
0250nobodyさん02/09/22 23:42ID:aEiiJGxo
>>247
正規表現スレ見たけど、何がなんだか全然分からん。
教えて。
0251nobodyさん02/09/22 23:55ID:???
>>249
マシン上に、少なくとも３つはCPUが必要でしょう
0252nobodyさん02/09/23 00:00ID:Igutub/E
>>251
forkとやらの関数でaが一度に多数流れるのは見たんですが多すぎて逆に遅くなってしまいます。
んで、3個ぐらいに制限したいなと・・・
0253nobodyさん02/09/23 00:09ID:???
>>252
どういうルーチン組んだ？
0254nobodyさん02/09/23 01:07ID:???
>>248
とりあえず、すべての文字に\つけとけば安心だ。
0255nobodyさん02/09/23 01:25ID:???
>>248
print "<a href="a.html">表示<a>";　　#エラー
print \"<a href=\"a.html\">表示<a>\";　　#エラー
print "<a href=\"a.html\">表示<a>"　　#エラー
print "<a href=\"a.html\">表示<a>";　　#エラーじゃないけどSJISだと文字化け
print "<a href=\"a.html\">表\示<a>";　　#OK

print "<a href=\"mailto:[email protected]\">メアド<a>";　　#エラー
print "<a href=\"mailto:meidohuku\@moemoe.ne.jp\">メアド<a>";　　#OK
0256nobodyさん02/09/23 01:33ID:???
>>255
タグぐらいまともに書けよ
0257nobodyさん02/09/23 01:47ID:???
>>256
脳内補完よろ
0258nobodyさん02/09/23 03:47ID:???
>>245
ちょっと難しい内容だが、これを読んでくれ。
ttp://homepage1.nifty.com/nomenclator/perl/shiftjis.htm

要は苦労したくなければ、現状では文字コードは EUC-JP で

print <<HTML;
<a href="a.html">表示</a>
HTML

等としろってこったな。
0259 ◆AOHU.zVE 02/09/23 04:07ID:???
>>232
厨でもなんでもいいけど、、、
面白い（興味を持てる）事したいだけなんだけどね。
(すれ違いってより、聞くとこ間違ったカナ)
0260nobodyさん02/09/23 04:11ID:???
面白いことでも何でも、すればぁ？
0261nobodyさん02/09/23 04:59ID:v/9sXn0J
よく local よりも my を使えとか言われるけど、
たとえば関数なんかで

func{
　local ($a,@b) = @_;

}

ってやる場合、my にできないよね？
こういう場合って、local でやるしかないかな〜、、
配列とか引き渡す場合、どうやってる？
0262nobodyさん02/09/23 05:06ID:v/9sXn0J
ごめん、素で間違えた。

func{
　local ($a,*b) = @_;
　print "変数の中身は→$a\n";
　print "配列の最初の要素は→$b[0]\n";
}

たとえば、こう言う風に使うとき

@a = (1,2,3,4,5);
&func('オマエモナー',*a);
0263nobodyさん02/09/23 05:10ID:v/9sXn0J
連ｶｷｽﾏｿ
>>262 の例で、

my $a = 'あほか？';
my @b = (1,2,3,4,5);
&func($a,*b);

で実行するとエラー出るよね？？

my $a = 'あほか？';
local @b = (1,2,3,4,5);
&func($a,*b);

だったら、OKでした。なんか my と local が同じソース内に、ごっちゃになってるのが
気に入らないので、結局

local $a = 'あほか？';
local @b = (1,2,3,4,5);
&func($a,*b);

と、local で統一することに、、、でも、周りからは my 使えと、、、
■ このスレッドは過去ログ倉庫に格納されています