トップページ⇒php
981コメント337KB

くだすれPerl（超初心者用）3

■ このスレッドは過去ログ倉庫に格納されています
0001nobodyさん2009/03/31(火) 22:20:27ID:???
このスレッドは、他のスレッドでは書き込めない超低レベル、
もしくは質問者自身何が何だが分からない質問を勇気を持って書き込むスレッドです。
Perl使いが優しくコメントを返しますが、
お礼はPerlの布教と初心者の救済をお願いします。

前スレ
くだすれPerl（超初心者用）2
http://pc11.2ch.net/test/read.cgi/php/1204488452/

関連スレ
Perlについての質問箱 39箱目
http://pc12.2ch.net/test/read.cgi/tech/1234181856/
Perlコーディング初心者質問スレ Part 59
http://pc11.2ch.net/test/read.cgi/php/1234752149/
【Perl上級者コーナーPart01】
http://pc11.2ch.net/test/read.cgi/php/1024741312/
0177nobodyさん2009/07/05(日) 09:58:44ID:???
>>176
ありがとう。できた。
0178nobodyさん2009/07/26(日) 00:42:20ID:J3wl39Kv
漏れら極悪非道のageブラザーズ！
今日もネタもないのにageてやるからな！
￣￣∨￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
　 ∧＿∧ 　 ∧＿∧ 　　　age
　（・∀・∩）（∩・∀・）　　　　age
　（つ　　丿 （ 　　⊂）　age
　 （　ヽノ　　 ヽ/　　）　　　age
　 し（＿）　　 （＿）Ｊ
0179nobodyさん2009/07/29(水) 22:19:43ID:???
すみません、質問させてください。

CGI(Perl)を使って外部のサイトからHTMLソースを取り込むにはどうしたら良いでしょう？
外部サイトのデータから統計を取って、データとして出力するようなCGIが書高と思ってます。
0180nobodyさん2009/07/29(水) 22:20:40ID:???
連レスすみません
>>179
「CGIが書高」→「CGIを書こう」です。
0181nobodyさん2009/07/29(水) 22:25:45ID:???
LWPでｸﾞｸﾞﾙといいよ
0182nobodyさん2009/07/29(水) 22:46:06ID:???
> LWPでｸﾞｸﾞﾙといいよ

知らないなら、「わかりません」って言えよ
0183nobodyさん2009/07/29(水) 22:54:54ID:???
それでは>>182先生、よろしくお願いします。
0184nobodyさん2009/07/29(水) 23:26:28ID:???
>>182
よっ！　待ってました！
01851792009/07/30(木) 01:23:24ID:???
LMPでググったところ、HTTP::Liteというのを見つけたので、それを使用して解決しました。
ありがとうございます。
0186nobodyさん2009/08/04(火) 17:31:46ID:opJYW1lj
わからないのでお願いします。
文字化けする文字をこのように変えたいのですが変換されません。
どのように書けばいいのでしょうか。

$a =~ s/髙/高/g;

よろしくお願いします。
0187nobodyさん2009/08/04(火) 18:22:15ID:???
まず置換対象文字列の文字コードと書いてるコードの文字コードを把握しろ
0188nobodyさん2009/08/04(火) 18:46:13ID:Udgymmfy
>>186
髙が文字化けするので高に変えたいってこと？
0189nobodyさん2009/08/05(水) 08:42:09ID:57ai1vyR
test
0190nobodyさん2009/08/05(水) 10:00:37ID:2mkcb2/U
>>187
ありがとうございます。

>>188
はい、そのようにしたいと考えております。

187さんのおっしゃる通りに、書いてるコードを確認したところEUCでしたので
sjisに変えてみたところ、うまくできました！
ここ数日、悩んでいたのですっきりしました。
187さん、188さん、ありがとうございました。
0191nobodyさん2009/08/05(水) 20:48:29ID:???
文字列の抽出についての質問です。
任意の文字で囲まれた
文字列をすべて抽出する方法がわかりません。

たとえば、abcabcabcといった文字列に対し
aとcで囲まれたすべての文字列を取得するには
どうすればいいのでしょうか？

この例だと
abc
abcabc
abcabcabc
abcabc
abc
が該当します。これらをすべて抽出したいのですが。
0192nobodyさん2009/08/05(水) 21:27:00ID:???
my $str = 'abcabcabc';
while($str =~ m/(a)/g){
my $pos = pos($str);
my $result = $1;
while($str =~ m/([^c]*c)/g){
$result .= $1;
print "$result\n";
}
pos($str) = $pos;
}
01931912009/08/06(木) 09:27:03ID:???
返事が遅くなってすみません。
>>192さん ありがとうございました。
思っていたように動作しました。

続けての質問で申し訳ないのですが
アルファベットで構成されるランダムな文字列
CFGTARFEQZCAZVHNNNGZYAKLOPYL..(みたいな感じです)
から例えば、Aから始まり X,Y,Zを中に含まず XまたはYまたはZで終わる
文字列をすべて抽出するには
どのようにすればよいのでしょうか？

実際には単一のアルファベットの連続ではなく
ONETWOTHREEFOURFIVE..のように
単語が適当に連続しているものと想定して使用できる記述を
(ONEで始まりSIXを含まずTENで終わり のように)
提案していただけると助かります。

よろしくお願いします。
01941912009/08/06(木) 09:38:23ID:???
すみません、上の質問に対する追加です。
単語はONE,TWO,THREE,FOUR,FIVE,SIX,SEVEN,EIGHT,NINE,TENが想定される
のように、あらかじめ分かっていて指定することができます。
0195nobodyさん2009/08/06(木) 15:43:26ID:0zj+bmfk
てすと
0196nobodyさん2009/08/06(木) 23:46:37ID:???
んー、文字列探索のパッケージがありそうな気がするけど。てけとうに作って見た。

sub start {
my ($item, $sub) = @_;

return sub{
my ($str) = @_;
my $start = 0;
while((my $new = index($str, $item, $start)) >= 0){
$start = $new+length($item);
$sub->(\$str, $start, length($str), $item);
}
};
}

sub without {
my ($item, $sub) = @_;

return sub{
my ($str, $start, $end, $result) = @_;
my $new = index(${$str}, $item, $start);
$end = $new if ($new >= 0 && $new < $end);
$sub->($str, $start, $end, $result);
};
}
0197nobodyさん2009/08/06(木) 23:47:37ID:???
sub end {
my ($item) = @_;

return sub{
my ($str, $start, $end, $result) = @_;
while(1){
my $new = index(${$str}, $item, $start);
($new >= 0 && $new < $end) or last;
$result .= substr(${$str}, $start, $new+length($item)-$start);
$start = $new+length($item);
print "$result\n";
}
};
}

my $str = join('', map{
qw(ONE TWO THREE FOUR FIVE SIX SEVEN EIGHT NINE TEN)[int(rand(10))]
} (1..100));

print "$str\n\n";

start('ONE', without('SIX', end('TEN')))->($str);
01981912009/08/07(金) 00:23:46ID:???
>>196,197さん　ありがとうございます。
動作検証し、勉強させていただきます。

複数のファイルから質問のようなことをしたくて
テキストエディタでの単純な正規表現での処理だと面倒なので
やったこともないプログラミングのようなことをを試みたのですが
単純なマッチングでは、オーバラップしているところが
検索から漏れて困ってました。
01991962009/08/07(金) 01:07:13ID:???
実際にやってることは、くっだらない事だから、あまり期待しないでね。

終わりの条件を複数にするのを忘れてたけど、
$subを配列にしてループさせると、探索条件を複数にすることもできると思う。
0200nobodyさん2009/08/07(金) 01:34:42ID:???
>>196
是非わが社に(笑)

掲示板見てると出来る人そこそこいるのにperl経験者募集かけても全然こないのは
年寄りが多いのか…若くてもそこそこの地位になってるのか…

正規表現あんまり自信ないですくらいなら許せるが
リファレンスもOOPもわかりませんって人多くて最近疲れ気味だ(泣)
0201nobodyさん2009/08/07(金) 05:53:45ID:???
>>200
待遇がショボいか求人出すところ間違えてる。
0202nobodyさん2009/08/07(金) 10:28:18ID:wZBhH276
PerlよりPHP全盛だしねぇ
0203nobodyさん2009/08/08(土) 08:08:10ID:nShQ5pki
文字の途中に他の変数の値入れるにはどうすればいいの？
$b = "str$astr";だと最初の「str」で途切れるし
$b = "str$a str";にすると空白はいっちゃうし
0204nobodyさん2009/08/08(土) 08:38:19ID:???
"str${a}str"
"str$a\str"
0205nobodyさん2009/08/08(土) 09:58:31ID:???
ありがとう！
0206nobodyさん2009/08/10(月) 13:15:14ID:LPa3QqaE
てすと
0207nobodyさん2009/08/13(木) 09:14:17ID:NeVAVZeH
cgiで受信したHTTPヘッダが丸ごと入ってる環境変数みたいなの無いの？
受け取ったデータまんま返したいんです
環境変数を使い分けるの面倒だし
0208nobodyさん2009/08/13(木) 18:35:28ID:???
>>207
あるけど、そのまま返すとXSS脆弱性持つよ。
0209nobodyさん2009/08/14(金) 04:46:30ID:???
>>203は俺だったら"str".$a."str"にするなぁ
なんとなく変数は文字列定数とは独立させたい
0210nobodyさん2009/08/14(金) 16:39:29ID:???
if文の中身はどう書けばいいのでしょうか？

$str = "euc or shift-jis or utf8";
if ( $strに"euc"と"shift-jis"という両方の文字を含んでいたら ) {
・・・
{
0211nobodyさん2009/08/14(金) 17:03:04ID:???
Encode::Guess の結果か
優先順じゃないから気をつけて


で、正規表現つかってね
0212nobodyさん2009/08/14(金) 18:29:29ID:???
>>210
実直に書けば
$str =~ /(^.*euc.*shift-jis.*$)|(^.*shift-jis.*euc.*$)/
かな

後々にも条件文が続くなら
my %hash = map{ $_ => 1} split ' or ', $str;
if($hash{'euc'} and $hash{'shift-jis'}){
}
elsif($hash{'utf8'}){
}
...

とかどうよ
0213nobodyさん2009/08/15(土) 08:03:40ID:???
>>211-212
はい、Encode::Guessの結果後の処理です。
具体的なコードありがとうございます。
0214nobodyさん2009/08/15(土) 09:36:01ID:njfakeIM
>>208
それでもいいので教えてください
0215nobodyさん2009/08/15(土) 16:36:11ID:???
>>207
%ENV
0216nobodyさん2009/08/18(火) 18:06:40ID:RO5+3AJ6
CUIで実行する時print使うときに改行つけないと画面に表示されないけど
あれなんとか出来ないの？
0217nobodyさん2009/08/18(火) 18:29:11ID:???
flush
0218nobodyさん2009/08/18(火) 18:30:34ID:???
$|=1;
0219nobodyさん2009/08/18(火) 18:53:46ID:RO5+3AJ6
ありがとう
0220nobodyさん2009/08/19(水) 23:25:05ID:???
$|とかググれないし、いい加減なんとかするべきだと思うんだ
0221nobodyさん2009/08/20(木) 02:33:32ID:???
$|でググるやつはおらんだろ・・・
0222nobodyさん2009/08/21(金) 21:25:25ID:OnG1WZEr
$s = 0;
$s =~ /(.)/;
for($i=4; $i>0; $i--) {
print "$1\n";
$i =~ /(.)/;
}
↑これ実行すると「0321」となるはずなのに「0000」になるんだけど何で？
正規表現処理した後にプリント使うと「4321」になるけど、どうしてもこのまま使いたいです
0223nobodyさん2009/08/21(金) 21:34:13ID:???
for($i=4; $i>0; $i--) {
print "$i\n";
$i =~ /(.)/;
}
0224nobodyさん2009/08/21(金) 21:42:18ID:OnG1WZEr
hspとvbがはやいんだろう
0225nobodyさん2009/08/21(金) 21:42:35ID:???
>>222
いや、どう見ても「0321」なんてならんぞ。>>223でも「4321」だし。
何見て書いたそれ？
0226nobodyさん2009/08/21(金) 21:44:13ID:???
試してないけど0432じゃ？
0227nobodyさん2009/08/21(金) 21:49:31ID:???
>>222
多分ループごとに $1 が変数スコープ外れてる

my $num = 0;
my $put;
$num =~ /(.)/;
$put = $1;
for(my $cnt = 4; $cnt > 0; $cnt--){
print "$put\n";
$cnt =~ /(.)/;
$put = $1;
}

これでいけるけど、もっといい書き方がきっとあるはず
具体的に何したいのかを書けばもっといいアドバイスがもらえると思うよう
あと一文字の変数を使うのと use strict しないのはよしといたほうがいいよ
落とし穴ハマってうっきーってなるから


と思ったけど実行結果 0321 なのな・・・ちょっと意味分からんわ
0228nobodyさん2009/08/21(金) 22:33:56ID:???
my $i = 0;
do{
$i =~ /(.)/;
print "$1\n";
$i = ($i-1) % 4;
}while($i > 0);

結果は出るけど、質問の意図が読めないからどうなんだろ。
0229nobodyさん2009/08/21(金) 23:10:07ID:???
my $s = 0 =~ /(.)/ ;
for( my $i=4; $i>0; $i-- and print "$1\n" and $i =~ /(.)/ ) { }
0230nobodyさん2009/08/22(土) 01:20:43ID:???
いろんな書き方知りたいわけじゃなくて
$Nのスコープってどうなってんだ？
って質問なんじゃ？
0231nobodyさん2009/08/22(土) 05:10:44ID:???
#!/usr/local/bin/perl --

$a = "[123][456][789]";

while($a =~ /[(.*?)]/){
print $1"\n";
}

123、456,789と表示したいです
一回ずつづらしてマッチさせられないですか？
0232nobodyさん2009/08/22(土) 05:24:03ID:???
>>231
1回ずつじゃないけど

$str = "[123][456][789];
@contents = $str =~ /[(.*?)]/g;
print "$_\n" foreach @contents;
0233nobodyさん2009/08/22(土) 05:26:41ID:???
実験して3秒あせったw
正規表現もバグってるよ

$str = "[123][456][789]";
@contents = $str =~ /\[(.*?)\]/g;
print "$_\n" foreach @contents
0234nobodyさん2009/08/22(土) 07:32:50ID:???
>>231
my $s = "[123][456][789]";

while($s =~ /\G\[(.*?)\]/g){
print $1, "\n";
}
0235nobodyさん2009/08/22(土) 07:41:35ID:???
>>230
正規表現周りは奇妙だからなぁ。
たとえば、最後にマッチした正規表現を使う、空マッチを使うと期待通りに動く。
$1などの変数はマッチ直後に保存しとくのがベストだろうと思う。

my $s = 0;
$s =~ /(.)/;
for(my $i = 4; $i > 0; --$i){
print $1, "\n";
$i =~ //;
}
0236nobodyさん2009/08/22(土) 08:33:57ID:???
>>234
\Gは何の意味があるのですか？
0237nobodyさん2009/08/22(土) 09:07:20ID:???
>>236
m//gで、前回マッチした直後からマッチングを行う。
my $s = "[123]456][789]";
こんなときに、処理を止める。
0238nobodyさん2009/08/22(土) 09:40:50ID:???
>>237
>>234で\Gをはずしても同じ結果になるのですが、それでも意味があるのでしょうか？
0239nobodyさん2009/08/22(土) 09:48:08ID:???
>>238
意味が分からん。
別に気に入らなければ、付けなきゃいいじゃん。

>>238
じゃあさ、>>231のシェバング行の -- が無くても同じ結果になるけど、
-- に意味があると思う？
0240nobodyさん2009/08/22(土) 10:21:27ID:???
ループ内で宣言したものはその中でしか生きられない

正規表現で （） 使った後に使える $n は、
正規表現使った時に my されると思った方が
いいかも知れません
0241nobodyさん2009/08/22(土) 10:40:35ID:???
しかしスコープの問題だとすると、>>222の結果って「0000」じゃなくて「」（null）になりそうな気もするがな。
$1の初期値が「0」ってことはないだろうし。
0242nobodyさん2009/08/22(土) 11:10:48ID:???
>>241
>>240の言葉を借りれば、グローバルなレキシカル変数$1（下の（1））と、forループ内で
$i =~ /(.)/;より下で有効なレキシカル変数$1の2つが混在していると。

$s = 0;
$s =~ /(.)/; #=> my $1 = "0" ・・・（1）
for($i=4; $i>0; $i--) {
print "$1\n"; "=> この時点では1つ上のスコープのグローバルな$1、すなわち（1）を表示
$i =~ /(.)/; #=> my $1 = $i ・・・（1）のグローバルなレキシカル変数$1は、一旦ここで見えなくなる
}
0243nobodyさん2009/08/22(土) 12:04:28ID:???
>>240
では、面白い例を。結果は0432。

my $s = 0;
$s =~ /(.)/;
foreach(reverse 1..4){
print $1, "\n";
/(.)/;
}
0244nobodyさん2009/08/23(日) 21:12:44ID:???
>>243
何故…
なんか理由があってこうなってんの？
0245nobodyさん2009/08/25(火) 18:13:21ID:???
会社で引き継いだスクリプトに下記の様な記載がありました。
別に現状では何も問題が無いんですが、何の意味があるか良くわかりません。

if 文で変数が未定義だったら何をしているんでしょうか？

$stlist{$kumi}{$bangou}= [] if ! exists $stlist{$kumi}{$bangou};
0246nobodyさん2009/08/25(火) 22:37:47ID:???
use strict;
use warnings;

my %stlist = ();
my $kumi = 1;
my $bangou = 2;

$stlist{$kumi}{$bangou} = 3;
$stlist{$kumi}{$bangou} = [] if ! exists $stlist{$kumi}{$bangou};
print $stlist{$kumi}{$bangou},"\n";

undef $stlist{$kumi}{$bangou};
$stlist{$kumi}{$bangou} = [] if ! exists $stlist{$kumi}{$bangou};
print $stlist{$kumi}{$bangou},"\n";

--

>perl test_perl.pl
3
Use of uninitialized value in print at test_perl.pl line 14.
0247nobodyさん2009/08/25(火) 22:54:19ID:???
まあ

$stlist{kumi}{bango} ||= [];

で同じことできるんだけどな
0248nobodyさん2009/08/26(水) 00:28:41ID:???
>>247
$stlist{$kumi}{$bangou} //= [];

じゃなくて？
0249nobodyさん2009/08/26(水) 09:57:20ID:???
245です。ありがとうございます。

意味はモヤッと解ってきたのですが「[]」 の使い方が解らないんです。
「()」では駄目なんですか？

0250nobodyさん2009/08/26(水) 18:52:28ID:mCRAV2Yd
Cのscanf関数みたいなのってないの・
0251nobodyさん2009/08/26(水) 21:01:17ID:???
>>249
() 配列
[] 配列のリファレンス

ここで
$hoge = ();
とすると、多分スカラーコンテキストで無名配列が評価されるので0が入る
$hoge = [];
だと配列のリファレンスが入るから、何も値が入ってない状態で
$hoge->[0]
とかやってもうまく動く

多分ね
0252nobodyさん2009/08/27(木) 02:29:49ID:???
便乗ですいません。

my $hoge = [1, 2, 3, 4, 5];
my $huga = [6, 7, 8, 9];

という風に二つの配列へのリファレンスがあったとして、
この二つの配列を合わせた配列へのリファレンスを新しく作るには

my $kei = [ @{$hoge}, @{$huga} ];

以外に方法はありますか？
いろいろ試してみたんですが上手くいかなくて…。
0253nobodyさん2009/08/27(木) 05:43:28ID:???
>>250
regular expression

オレオレスクリプト以外に使用厳禁↓
http://search.cpan.org/dist/String-Scanf-2.1/lib/String/Scanf.pm

>>251
undefがはいるよぉぉぉぉぉぉ。

>>252
考えすぎるとハゲるぞ。

おめーら、クソスレより初心者スレ使えよ。
0254nobodyさん2009/08/28(金) 10:14:29ID:???
ubuntu 9.04 で DBIx::Class::Schema::Loader をインストールしようと
してるんだけど, 一緒に要求される DBI::DB2 が入らない.

ubuntu 8.04 用の DB2 deb パッケージを入れたあと

$ sudo su
# export DB2_HOME=/opt/ibm/db2exc/V9.5
# cpan DBI::DB2

すると, include するべきヘッダが無いらしく, 大量の未宣言エラーが出る。
DB2 自体をソースからコンパイルして make install するしか無いかな？

というか DB2 は使う予定が無いから, DBI::DB2 自体をスルーしたいのだけど...

ちなみに CPAN-Testers でもインストール成功例は無いようです.
ttp://static.cpantesters.org/distro/D/DBD-DB2.html
0255nobodyさん2009/08/28(金) 10:16:09ID:???
>>254
develパッケージ入れないとダメなんじゃない？
02562542009/08/28(金) 13:30:37ID:???
えーと最初に, >>254 の DBI::DB2 は DBD::DB2 の間違いでした.

それでですね...
ずらずら出るエラーメッセージを見ていたら, include 出来ずにエラー出してるのは
DBIXS.h とかだったので, cpan DBI してみたらビンゴ.
無事 DBD::DB2 のインストールに成功しました.

しょうもないオチですまんかった. 付き合ってくれた >>255 ありがとう.
0257nobodyさん2009/08/31(月) 21:28:16ID:SNcF+RG0
$s="str"
if ($r =~ /str/){exit;}

↑マッチしたら偽判定にするにはどうしたらいいの？
0258nobodyさん2009/08/31(月) 21:28:57ID:SNcF+RG0
間違えた
$s="str"
if ($s =~ /str/){exit;}
0259nobodyさん2009/08/31(月) 22:32:07ID:???
$s !~ /str/
0260nobodyさん2009/09/01(火) 02:45:08ID:???
unlessと!~でどっちがはやいか調べて早い方使う
0261nobodyさん2009/09/04(金) 13:32:16ID:???
>>257
if ($r !~ /str/){exit;}
if ( ! $r =~ /str/){exit;}
if (not $r =~ /str/){exit;}
unless($r =~ /str/){exit;}

すきなの使え。この条件ならunlessも!~もほとんど差がないと思うぞ。
0262nobodyさん2009/09/04(金) 20:00:55ID:???
テストを作っているんですが、前のページに戻れないようにするには
どうすればいいでしょうか？戻るボタンや戻るボタンの過去の履歴を
押しても、最後にいたページにリダイレクトされるようにしたいんですが、
できるでしょうか？
0263nobodyさん2009/09/04(金) 20:22:09ID:???
全てのページの偏移をリダイレクトにすればいい
つか毎回ログつくってしまうかクッキーで管理すればおｋ
0264nobodyさん2009/09/05(土) 04:55:23ID:UpeEOLWy
DOS画面出さずに実行する方法無いの？
cgi以外で
0265nobodyさん2009/09/05(土) 06:08:28ID:???
tcshでいいんじゃね？
ていうかwperl知らんのけ
0266nobodyさん2009/09/05(土) 06:30:25ID:UpeEOLWy
こんなの知らなかった
ありがとう
0267nobodyさん2009/09/05(土) 11:50:51ID:???
>>262
フレームワークで制御。

>>263
アホかｗ
0268nobodyさん2009/09/05(土) 12:52:13ID:???
フレームワークって言っても、結局セッションでクッキー管理の罠。
0269nobodyさん2009/09/05(土) 14:46:03ID:???
>>267
ありがとうございます。さっそくググって勉強中ですが、cakeやらsymfonyやら
あるようですが、私の用途ですと、どれを使っても問題ないでしょうか？

>>263
リダイレクト関連でheaderを勉強して、キャッシュが残らないように設定して、途中で
「戻る」と、問題がテスト開始前に設定した問題数分最初から出題されるように
なったので（同時にセッションも新規セッション）、20問なら20問後戻りせずに解かせる
という最低限やりたいことは、これで対処できるようになったかと思います。
>>262で質問した内容とはまだ少し違いますが。ありがとうございます。
0270nobodyさん2009/09/06(日) 07:34:15ID:???
>>269
cakeとかPHPだろ。とりあえずCatalyst使っとけ。他にもあるがCatalystは少し枯れてるし情報も豊富。
中規模以のアプリケーションを楽しく書きたいならフレームワーク一択。
0271nobodyさん2009/09/06(日) 10:19:40ID:???
Moose 化以前の Catalyst なのか、Moose 化後の Catalyst なのか
まずはそこをはっきりさせた上で他人に勧めてくれないか。
0272nobodyさん2009/09/06(日) 14:55:45ID:???
>>267が無能だというのはよく分かる質疑応答
0273nobodyさん2009/09/06(日) 16:56:48ID:???
>>271
Catalystスレあるんだからそこでやろーぜ。
0274nobodyさん2009/09/09(水) 16:52:27ID:???
foreach $value (keys %DATA{$unko}){
print $value;
}

これって駄目なの？
0275nobodyさん2009/09/09(水) 17:52:15ID:???
うーん、意味が理解できないけど動いた・・・・。

foreach $value (keys %{$DATA{$unko}}){
print $value;
}

0276nobodyさん2009/09/09(水) 17:57:47ID:???
これはハッシュだよこれはハッシュだよ

と２回言ってるようなもの


簡単にいえば無駄な書き方
■ このスレッドは過去ログ倉庫に格納されています