Perlコーディング初心者質問スレ Part 42
■ このスレッドは過去ログ倉庫に格納されています
0001nobodyさん
2005/05/25(水) 06:36:28ID:PVpWgcdf【投稿する際の注意】
質問するときは内容をよく吟味してから投稿してください。
「コマンドの意味がわかんない」とかはマニュアル見ましょう。
回答者さんは何でも屋じゃありません。
1： 自分はこういう事がしたい。
2： それでこんな風にやってみたが･･･
3： こんなエラーが出て上手く行かなかった。
最低でも1と3が無いと誰も答えられないよ。
ソース貼る時は、全角スペースでインデント忘れずに。
良い回答は良い質問から。一緒に勉強しましょう。
過去ログやお勧めサイトは >>2-10
0584nobodyさん
2005/06/25(土) 15:20:19ID:???！
use strictしたところ、配列の変数名が間違っていることに気づきましたorz
ありがとうございました。
# rootさんのソースなのに…
0585nobodyさん
2005/06/25(土) 15:29:33ID:???0587nobodyさん
2005/06/26(日) 03:21:28ID:???レンタルの日記を借りて、スキンを使ったのですが画像を投稿出来ないので
自分でスキンのタグを変更可能してもおｋと書いてあったので
画像を無理やり出すイレギュラーってのをやりたいのですが
何を挿入していいか分かりません・・。
画像投稿可版・不可版（同スキン）を両方ＤＬしてソースを見比べたのですが
どうしても分らず、ぐぐっても分りませんでした・・。
どんなタグ？をどの辺りに挿入すればいいのか教えてもらえませんか・・？
よろしくお願いします。
（どこで聞いていいか分からなかったのでスレ違いだったらすみません・・）
0588587
2005/06/26(日) 03:24:35ID:???他で聞いて来ます。
申し訳ありませんでした・・。
0589nobodyさん
2005/06/26(日) 23:02:23ID:3dNr93yGprint SOCKET "User-Agent: " . $browser . "\n";
で止まってしまうものがあるようです。
モジュールが入っていることは確認できているのですが、もしも
なにかお気付きの点等ございましたらご教示いただきたく思って
おります。どうか宜しくお願いいたします。
use Socket;
use FileHandle;
my $ip = inet_aton($host) || die "host($host) not found.\n";
my $sockaddr = pack_sockaddr_in($port, $ip);
socket(SOCKET, PF_INET, SOCK_STREAM, 0) || die "socket error.\n";
connect(SOCKET, $sockaddr) || die "connect $host error.\n";
autoflush SOCKET (1);
binmode(STDOUT);
print SOCKET "GET $directory$filename HTTP/1.1\n";
print SOCKET "User-Agent: " . $browser . "\n";
print SOCKET "Host: " . $host . "\n";
print SOCKET "Connection: close\n\n";
while(<SOCKET>){
m/^Content-Type: ([^\r\n]+)/i && print "Content-Type: $1\r\n";
m/^Content-Length: ([^\r\n]+)/i && print "Content-Length: $1\r\n";
m/^\r\n$/ && last;
}
print "\r\n";
while(<SOCKET>){
print $_;
}
close(SOCKET);
0590nobodyさん
2005/06/26(日) 23:41:10ID:???なんで
> print SOCKET "User-Agent: " . $browser . "\n";
で止まってるって思ったの?
0591nobodyさん
2005/06/27(月) 01:10:18ID:???0592nobodyさん
2005/06/27(月) 01:29:08ID:???HTMLの記述をprint "〜"に変換する作業を一括で行うソフトウェアを探しているのですが、そのようなソフトはありますか？
例えば、
<a href="abc.html">ABC</a>
を
print "<a href=\"abc.html\">ABC</a>"
と変換できるものです。
0593nobodyさん
2005/06/27(月) 01:37:26ID:???0594nobodyさん
2005/06/27(月) 01:44:19ID:???そんな方法があったんですか・・・・。今日はじめた初心者だったのでごめんなさい。
>>593さんありがとう('A`)
0596nobodyさん
2005/06/27(月) 02:14:33ID:???0597nobodyさん
2005/06/27(月) 02:18:26ID:???0598nobodyさん
2005/06/27(月) 02:28:57ID:???ご返答有難うございます。
止まっていると思ったのは、
print SOCKET "User-Agent: " . $browser . "\n";
print SOCKET "Host: " . $host . "\n";
を外したら進んだためです。
具体的には、KeitaiPicutureという画像変換サービスで変換された
画像をSOCKETでとってくる仕組みを作っているのですが、
GET $directory$filename?User-Agent=UA
だと成功するんですよね。
とにかくご教示有難うございました。
0599nobodyさん
2005/06/27(月) 03:10:20ID:???そのサービスが$ENV{HTTP_USER_AGENT}じゃなくてクエリーのUser-Agentを見てるからだろ。
0601nobodyさん
2005/06/27(月) 08:08:58ID:7ZY2M4BI0602nobodyさん
2005/06/28(火) 16:25:00ID:l0OJ7VtDuse HTTP::Request;
use LWP::UserAgent;
my $url = 'http://www.yahoo.co.jp';
my $request = HTTP::Request->new(GET => $url);
my $ua = LWP::UserAgent->new;
my $response = $ua->request($request);
if($response->is_success) {
print $response->content;
} else {
print $response->status_line;
}
という LWP::UserAgent をテストするためのCGIを、サンプルを元に組んだのですが、
[Tue Jun 28 15:42:43 2005] [error] Premature end of script headers:
ということで 500 Internal Server Error になってしまいます。
Premeture〜ってぐぐってみたけどよくわかりません。
原因として何が考えられますか？
0603nobodyさん
2005/06/28(火) 16:52:11ID:???0606nobodyさん
2005/06/28(火) 17:58:49ID:???--------------------------------
my %dir_name=();
readDir(\@dir_name);
sub readDir{
my $dirname_ref = shift;
$dirname_ref->{'aaa'}="BBB";
}
--------------------------------
を実行しても
Can't coerce array into hash at cron_day_table.cgi line 50.
とエラーになってしまいます。
何がいけないのでしょうか？
ご助力を頂けますと助かります。
0608606
2005/06/28(火) 18:17:44ID:???本当だー
ありがとーございますっ
スレ汚し失礼いたしました。
0609606
2005/06/28(火) 19:37:41ID:???my %dir_name=();
my $dirname_ref = \%dir_name;
$dirname_ref->{'bbb'}='hoge';
$dirname_ref->{'ccc'}='hoge';
$dirname_ref->{'aaa'}='hoge';
my $key;
foreach $key(keys %dir_name){
print "$key -> $dir_name{$key}\n";
}
--------------------------------
として出力すると↓
--------------------------------
bbb -> hoge
aaa -> hoge
ccc -> hoge
--------------------------------
のようになってしまいます。
下記のように入れた順番通りに出力したいのですが
bbb -> hoge
ccc -> hoge
aaa -> hoge
そういった場合はどうすればよろしいのでしょうか？
ご助力を頂けますと助かります。
0610nobodyさん
2005/06/28(火) 19:44:18ID:???http://perldoc.jp/docs/perl/5.6.1/perlfunc.pod#item_keys_HASH
0611nobodyさん
2005/06/28(火) 19:46:11ID:???もしかして、無かったことになった？
0612nobodyさん
2005/06/28(火) 19:52:27ID:???http://search.cpan.org/~nwclark/perl-5.8.7/pod/perl58delta.pod#Deprecations
0614nobodyさん
2005/06/28(火) 21:58:10ID:???0615nobodyさん
2005/06/29(水) 20:47:26ID:???スマートじゃないけど。
my %dir_name=();
my $dirname_ref = \%dir_name;
$dirname_ref->{'bbb'} = ['hoge', 1];
$dirname_ref->{'ccc'} = ['hoge', 2];
$dirname_ref->{'aaa'} = ['hoge', 3];
foreach my $dir (sort{$a->[1]->[1] <=> $b->[1]->[1]} map{ [$_, $dir_name{$_}] } keys %dir_name){
print "$dir->[0] -> $dir->[1]->[0]\n";
}
0617nobodyさん
2005/06/29(水) 23:40:40ID:4HgpqCXdどうしてこれで "0_" と表示できないのか教えて下さい。
$i = 0;
print "$i_\n";
0619617
2005/06/30(木) 00:06:48ID:nq4lXHpHここでのアンダースコアはどのように効いているのでしょうか？
否定の演算子でもなさそうなのですが･･･
0622nobodyさん
2005/06/30(木) 01:13:28ID:8FYD6O0q簡単なの持っててもえーかな思ったんだけど、チェックボックスとかの複数選択がどーにもできんのです。。
複数のバリュあるときは配列にするのなら、
if (defined $form{$key}){
if(ref $form{$key}){ push @$key,$value; }
else{ @$key=($form{$key},$value); $form{$key}=\@$key; }
}
うろ覚えで書いたんで変かも･･･っていうか、@$keyがおかしいケド。こんな感じで良いのでしょうか？
プログラムそのものもperlが初めてなんで要領得なくて
サブルーチン内外で変数共有しない方がいいのかと思ったんだけど、リファレンスする配列が局所化できません。
0623nobodyさん
2005/06/30(木) 01:17:33ID:???参考にしたスクリプトで使われてたcgi-liteだかではそうなってたような気が。
そして、sageってシステムがよくわからない･･･申し訳ないです。
0624nobodyさん
2005/06/30(木) 02:47:40ID:???push @{$form{$key}},$value;
リファレンスするならこんな感じかの。
push @{$$form{$key}},$value;
でも、別に配列にこだわらなくてもいい気がする。
0625606
2005/06/30(木) 11:45:29ID:???本当にみなさんRESありがとうございます。
順番を保持する配列とその配列の要素をキーとするハッシュで
やる方法で自作し強引に解決（？）いたしました。
本当にRESどうもですっ
そのうちこちらで解決案を書ける人になれますようがんばりますですっ
0627nobodyさん
2005/06/30(木) 13:17:05ID:wTRNDiAZ&decrypt(入力されたパスワード、登録されてるパスワード)
sub decrypt {
local($in, $dec) = @_;
local $salt = $dec =~ /^\$1\$(.*)\$/ && $1 || substr($dec, 0, 2);
if (crypt($in, $salt) eq $dec || crypt($in, '$1$' . $salt) eq $dec) {
return (1);
} else {
return (0);
}
}
パスワード認証のサンプルなんですけど、
入力されたパスワードが認証されれば１を間違っていれば０を返すサブルーチンなんですが、
local $salt = $dec =~ /^\$1\$(.*)\$/ && $1 || substr($dec, 0, 2);
if (crypt($in, $salt) eq $dec || crypt($in, '$1$' . $salt) eq $dec) {
↑の部分がどうしてもわからないのですが御教授お願いします。
0628nobodyさん
2005/06/30(木) 13:22:47ID:???crypt() の仕組みが理解できてないとキツいと思うので、
「crypt パスワード」あたりでぐぐって調べてみるのが良いと思う。
0629nobodyさん
2005/06/30(木) 14:05:04ID:wTRNDiAZありがとうございます。crypt()は勘違いして覚えてました。
変換キーに2文字じゃなきゃいけないんですね。
それで
substr($dec, 0, 2);
の意味はわかったんですが
$dec =~ /^\$1\$(.*)\$/ && $1
と
crypt($in, '$1$' . $salt) eq $dec
の部分がまだわからないのですが
お願いします。
0630nobodyさん
2005/06/30(木) 15:18:51ID:???# - - - - - - - - - - - -
$salt = $dec =~ /^\$1\$(.*)\$/ && $1
||
if (
length $dec >= 3 &&
substr($dec, 0, 2) eq '$1$' &&
substr($dec, -1, 1) eq '$'
) {
$salt =
substr($dec, 2);
chop $salt
;
}
# - - - - - - - - - - - -
if (crypt($in, '$1$' . $salt) eq $dec)
||
my $tmp = '$1$' . $salt;
if (crypt($in, $tmp) eq $dec)
# - - - - - - - - - - - -
とりあえず正規表現学んで来い、といいたい。
作者が $1$ *** $ とつけてるのはよくわからない。
0631nobodyさん
2005/06/30(木) 15:19:50ID:???0632nobodyさん
2005/06/30(木) 16:24:04ID:???0633nobodyさん
2005/06/30(木) 16:30:42ID:wTRNDiAZありがとうございます。
一行づつなら理解できるのですが、
$dec =~ /^\$1\$(.*)\$/
↑この表現は変数$decの頭が $1$ で任意の文字がいくつか入って
その後 $ の文字列にマッチするか否かと理解していいんでしょうか？
$1$ これって特別な意味あるんですか？
local $salt = $dec =~ /^\$1\$(.*)\$/ && $1 || substr($dec, 0, 2);
あと上の処理の順番がよくわらないんですが
Ａ && Ｂ Ａが真ならＢを実行
Ａ || Ｂ Ａが偽ならＢを実行
と言うのならわかるのですが
その辺もご教授願えないでしょうか
一応本を見ながらやっているのですがイマイチ理解できません。
0634nobodyさん
2005/06/30(木) 16:41:02ID:???sub decrypt {
crypt($_[0], $_[1]) eq $_[1];
}
0635nobodyさん
2005/06/30(木) 16:59:34ID:???$in{race}="aa";
$raceindex="bb";
if($in{race} == $raceindex){print "ok";}
exit;
これを実行すると$in{race}の内容と$raceindexの内容は同じではないはずなのに
if分は真となってokと表示されます
これはif分の書き方がおかしいのでしょうか
0636nobodyさん
2005/06/30(木) 17:07:01ID:???== は数値で評価する演算子。
この場合はどっちも 0 と評価されるので真になってしまう。
文字列を比較したい場合は eq 演算子を使う。
perlop - Perl operators and precedence (Perl の演算子と優先順位)
ttp://perldoc.jp/docs/perl/5.6.1/perlop.pod
0637nobodyさん
2005/06/30(木) 17:13:09ID:???有難う御座います
perlのスクリプト書くの１年ぶりですっかり忘れてました
無事解決しました
有難う御座いました
0638nobodyさん
2005/06/30(木) 17:39:09ID:???サーバからsendmailの使用は許可されているのですが、どうやったらメールが来たことが検出できるのかまるでわからないのです。
申し訳ありませんが一手ご教授下さいくださいですよ
0639nobodyさん
2005/06/30(木) 17:42:21ID:???$1$で始まるのはMD5でハッシュ化された文字列です
$1$から次の$までの文字列がハッシュ化のsaltになります
そのサブルーチンはDESとMD5の両方使えるようにしているようだけど意味無いと思われます
DES,MD5どっちを使うかはcrypt関数が知っておりsaltも自動的に判断されるので>>634で十分です。
0640わから〜ん
2005/06/30(木) 19:18:36ID:UYjObKP/２行目 my $delete_url = sprintf ("%s?choice=delete;id=%d", url (), $row->{id});
３行目 print br (), br (),
４行目 "$row->{t} $row->{status}",
５行目 " [", a ({-href => $edit_url}, "Edit"), "]",
６行目 " [", a ({-href => $delete_url}, "Delete"), "]",
７行目 br (), "\n",
８行目 "$row->{content}\n";
１行目の sprinfで整形された文字列 my $edit_url変数に代入される。
２行目も同じ要領で、my $delet_url変数に代入される。
３行目は HTML表示
４行目 意味不明
５行目 １行目の変数が"edit"としてURL表示される。
６行目 ２行目の変数が"delete"としてURL表示される。
７行目 HTML表示
８行目 意味不明
ご質問いたします。
（１）４行目の意味がわからない
（２）５行目と６行目がなぜ、editとdeleteのURL表示となるのか？
（３）８行目の意味がわからない
特に、（２）の質問を詳しく解説してください。（２）の用法について
ラクダ本に記述がありますか？
よろしくお願いいたします。
0641nobodyさん
2005/06/30(木) 19:24:59ID:???0643nobodyさん
2005/06/30(木) 19:59:14ID:???0644わから〜ん
2005/06/30(木) 20:11:02ID:UYjObKP/必死にいろんな本読んでも、記述が無いわけですね。
URLのところを読んで、勉強します。
大変ありがとうございました。
0645>>627
2005/07/01(金) 18:26:12ID:???$1$が謎だったので助かりました。
MD5とDESというのはレベルが高くてよくわかりませんが、
とりあえずそういうものだと思って頭の片隅においておきます。
今の段階では>>634のやり方で問題ないとわかっただけ十分です。
0646nobodyさん
2005/07/01(金) 20:20:31ID:???普通に$ENV{'QUERY_STRING'}などと変わらないような気がするのですが…
0647nobodyさん
2005/07/01(金) 20:31:30ID:???今時つかうやつも少ないだろうしな
0648nobodyさん
2005/07/01(金) 20:55:17ID:???0649nobodyさん
2005/07/02(土) 00:14:53ID:???0650nobodyさん
2005/07/02(土) 01:12:37ID:???CGI::Liteだってあるし
0651nobodyさん
2005/07/02(土) 07:05:02ID:???分からないかも知れないけど。
0652nobodyさん
2005/07/02(土) 13:53:31ID:???0653622
2005/07/02(土) 14:20:11ID:???ありがとうございます。どうも、リファレンスで混乱してたようです＾＾；
「.=」して分割を考えるとかでも十分なのかな。。
モジュールは勉強したいとは思うけれど、種類の多さ機能の多さに・・・
そもそも、なんかもっと根本的な部分で知識と理解が足りてなさすぎる。。
0654nobodyさん
2005/07/02(土) 23:30:34ID:???そうそう、そんな感じ。
複数データはタブとか改行で区切るだけでも十分。
どうせ汚染チェックは必要なんだから、タブや改行はそこで取り除けばいいだけだし。
モジュールはセキュリティに気を配って書かれているのは良いけど無駄が多いからなぁ。
0655nobodyさん
2005/07/03(日) 01:29:15ID:???区切りはタブでデータを記録してた時、フィールド内をさらに区切りたくて、
そのときタブも改行も使えないから何を使えばよいか迷って、結局^fだか^gを
使ったんだけど、こういうときにどういう制御文字を使う（または使う順序）の
約束事みたいなのあるかなと思って調べてわからなかったんだけど、
なにかあります？
0656nobodyさん
2005/07/03(日) 01:33:17ID:???0657nobodyさん
2005/07/03(日) 01:59:23ID:???0658nobodyさん
2005/07/03(日) 02:49:19ID:???ファイルオープンのとき、読み取りモードで開こうとしてファイルがなかった場合に、新しく生成させるために
&file_open(*FILEHANDLE,path)を定義してやってるんですが、
&file_open(FILE,$filepath);
flock(FILE,1);
とすると500Internal（以下略 が出てプロセスのタイムアウトとか言われます。
ファイルロックしているファイルにアクセスしようとしてるのかと思って調べてみましたがそうでもないみたいです。
なにか心当たりがあれば教えていただけませんか？
0659nobodyさん
2005/07/03(日) 02:50:33ID:???5行目 ×&file_open(FILE,$filepath);
○&file_open(*FILE,$filepath);
0660nobodyさん
2005/07/03(日) 03:51:27ID:???ここ参考
ＣＧＩ設置について質問 【Part2】
http://pc8.2ch.net/test/read.cgi/php/1104624784/2
0661658
2005/07/03(日) 04:39:10ID:???大変失礼しました。
もちろんローカルサーバでテストを行っていますが、「プロセス中にタイムアウトしました」としか
メッセージが出なかったもので、そのまま書いてしまいました。
3行ほどのテストプログラムを組んでコマンドプロンプトで実行させてみたところ、
いつまで待っても処理が終わらず、さらに問題と思われる行の前後で文字列を出力させてみたところ、
前ではうまく出力しますが後では出力しないため、問題がこの行にあるのは明白だと思われます。
&file_openのソースは以下のとおりです。
sub file_open{
local *FILE = shift;
my $filename = shift;
if(! -e $filename){
my $fntemp = $filename;
$fntemp =~ s/^(\>|\<|\+)*//;
open(NEW,">$fntemp");
close(NEW);
}
if(!open(FILE,"$filename")){&sub_error(2);}
return;
}
0662nobodyさん
2005/07/03(日) 07:52:34ID:???http://www.kt.rim.or.jp/%7Ekbk/perl5.005/perlfaq5.html#How_can_I_make_a_filehandle_loca
http://www.kt.rim.or.jp/%7Ekbk/perl5.005/perlfaq5.html#How_can_I_use_a_filehandle_indir
0663658
2005/07/03(日) 14:25:42ID:???読ませて頂きましたが、使い方は私ので合っていると思います。
ただ、ファイルオープン後にflock関数が使えないという点について何か教えていただけませんでしょうか。
0665nobodyさん
2005/07/03(日) 15:55:28ID:???sysopenでO_CREAT使えば一発なわけだが。
0666658
2005/07/03(日) 16:00:37ID:???ファイルハンドルを局所化して使うと、サブルーチンの外ではflockは使えないのですか？
0667nobodyさん
2005/07/03(日) 16:26:41ID:???試してみたがお前のプログラムは限定された状況でなら動くので、
問題は別のところにあると思われる。
% cat foo.pl
my $filepath = "foo";
&file_open(FILE,$filepath);
flock(FILE,1) or die "flock: $!";
sub file_open{
local *FILE = shift;
my $filename = shift;
if(! -e $filename){
my $fntemp = $filename;
$fntemp =~ s/^(\>|\<|\+)*//;
open(NEW,">$fntemp") or die "open NEW: $!";
close(NEW);
}
if(!open(FILE,"$filename")){&sub_error(2);}
return;
}
(続く)
0668nobodyさん
2005/07/03(日) 16:26:56ID:???% strace perl foo.pl
(中略)
stat64("foo", 0x814d0c8) = -1 ENOENT (No such file or directory)
open("foo", O_WRONLY|O_CREAT|O_TRUNC|O_LARGEFILE, 0666) = 3
ioctl(3, SNDCTL_TMR_TIMEBASE or TCGETS, 0xbffff5a8) = -1 ENOTTY (Inappropriate ioctl for device)
_llseek(3, 0, [0], SEEK_CUR) = 0
fstat64(3, {st_mode=S_IFREG|0644, st_size=0, ...}) = 0
fcntl64(3, F_SETFD, FD_CLOEXEC) = 0
close(3) = 0
open("foo", O_RDONLY|O_LARGEFILE) = 3
ioctl(3, SNDCTL_TMR_TIMEBASE or TCGETS, 0xbffff5a8) = -1 ENOTTY (Inappropriate ioctl for device)
_llseek(3, 0, [0], SEEK_CUR) = 0
fstat64(3, {st_mode=S_IFREG|0644, st_size=0, ...}) = 0
fcntl64(3, F_SETFD, FD_CLOEXEC) = 0
flock(3, LOCK_SH) = 0
close(3) = 0
exit_group(0) = ?
ファイルは開かれているしflockも正常終了している。
0669nobodyさん
2005/07/03(日) 16:39:25ID:???file_openに渡している'FILE'はただの文字列なので、呼び元と
file_openが別パッケージのときにおかしくなるだろう。
open(NEW,..)の戻り値を見ていない。せめてdieぐらいしとけ。
-eで調べてなければファイルを作っているが、ここがアトミック
に実行されていないのでそのうちメチャクチャになるだろう。
最後の問題のおかしくなるシナリオの例はこんな感じだ。
(プロセスA) -eでファイル調べたらなかった
(プロセスB) -eでファイル調べたらなかった
(プロセスA) ファイル作ってflockしていろいろ書き込む
(プロセスB) open(NEW ">$fntemp")いきなりやるのでAが書き込んだファイルが空っぽに
0671658
2005/07/03(日) 17:01:45ID:???ありがとうございます！
視点を変えてもうすこしバグフィックスしてみますね。
最後の問題は、もう少し煮詰める必要がありそうですね。
open(NEW,"+>$fntemp");truncate・・・のほうがいいんでしょうか。
ともあれ、本件は本当にありでした。
まだ問題の解決になっていませんが、とりあえず問題がこのルーチン以外にあるということが分かったのでもう少し考えて見ます。
0672nobodyさん
2005/07/04(月) 01:53:07ID:???データファイルとして保存する際、特殊な制御文字を使うのはあまりおすすめしない。
テキストエディタでメンテナンスする時のことを考えるとね。
スペースとかカンマとかで区切っちゃっていいんじゃないの？
checkboxやselectでスペースやカンマを使用しなければ済む話なんだから。
0673nobodyさん
2005/07/04(月) 10:25:04ID:???Storableが楽だと思う。
0675nobodyさん
2005/07/04(月) 22:46:13ID:???# Hoge->new() があるかどうか、ってことは ↓ みたいにすればできるみたいなんだけど
use strict;
print defined Hoge; # これは error
print defined &Hoge::new ? 1 : 0; # 1
print defined Moge; # これも error
print defined &Moge::new ? 1 : 0; # 0
package Hoge;
sub new {}
0677nobodyさん
2005/07/05(火) 00:25:37ID:???>>676 ありがとうー。
でも何で？ どういう理屈？
リソースとかあったら教えてほしいわ。
0678nobodyさん
2005/07/05(火) 01:00:15ID:???http://www.kt.rim.or.jp/%7Ekbk/perl5.005/perlmod.html
0679nobodyさん
2005/07/05(火) 01:31:57ID:???ありーー
0680nobodyさん
2005/07/05(火) 04:53:09ID:???@{ $arr[0] } とすると
$arr[0]にある無名配列の参照をデリファレンスしてリストとして見ている
という意味でしょうか？
0681nobodyさん
2005/07/05(火) 05:01:50ID:???0682680
2005/07/05(火) 05:46:53ID:???■ このスレッドは過去ログ倉庫に格納されています