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

Perlコーディング初心者質問スレ Part 59

■ このスレッドは過去ログ倉庫に格納されています
0001nobodyさん2009/02/16(月) 11:42:29ID:gvPTpodw
Perlのコーディングで困ってる人のスレです。

【投稿する際の注意】
質問するときは内容をよく吟味してから投稿してください。
「コマンドの意味がわかんない」とかはマニュアル見ましょう。
回答者さんは何でも屋じゃありません。

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

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

お勧めサイトは >2 以降

前スレ　http://pc11.2ch.net/test/read.cgi/php/1218030872/
0491nobodyさん2009/05/19(火) 21:28:16ID:???
@fileの更新日時ソートを、map、stat、sortで一行で書くにはどうしますか？
0492nobodyさん2009/05/19(火) 21:30:22ID:???
自分でやれｗ
俺map嫌いなんだよ
0493nobodyさん2009/05/19(火) 21:36:48ID:???
$dir= ".";
opendir(IN, $dir);
@files= map{$_->[0]}sort{$a->[1]<=>$b->[1]}map{[$_,(stat("$dir/$_"))[9]]}grep(-f"$dir/$_", readdir(IN));
closedir(IN);
0494更新日時でソート2009/05/19(火) 21:49:48ID:???
ありがとう。みなさんありがとう。
0495nobodyさん2009/05/19(火) 21:52:56ID:???
まさに黒魔術だよな
0496nobodyさん2009/05/19(火) 23:18:27ID:???
どいつもこいつも古いopen/opendirの書き方しやがって
0497nobodyさん2009/05/19(火) 23:28:19ID:???
openとか、デバッグくらいにしか使わないからなぁ
0498nobodyさん2009/05/20(水) 00:12:40ID:???
新しいのってどんな書き方？
0499nobodyさん2009/05/20(水) 00:15:44ID:???
open IN, ">", $file;
0500nobodyさん2009/05/20(水) 00:21:19ID:???
my @file = glob("./aaa");
とか？
でもこれはopendir+readdirだな

なんかのモジュール使うとかだと、結局はopenのラップだしなぁ

>>496
答えは？
0501nobodyさん2009/05/20(水) 00:31:37ID:???
>>499
入力ファイルが消えてしまったんだが
0502nobodyさん2009/05/20(水) 01:06:52ID:???
openは3引数で書くようになったが
opendirは相変わらず2引数だなぁ
0503nobodyさん2009/05/20(水) 01:15:45ID:???
>>500
ファイルハンドルはグローバルだから使うべからず（STDINとかの例外を除く）
>502の言うように3引数でmyつけて使うべし
0504nobodyさん2009/05/20(水) 01:28:30ID:???
新しい書き方では、出力ファイルのハンドラをINと書く

俺は古いのでいいや、なんか混乱しそうだし
0505nobodyさん2009/05/20(水) 01:33:39ID:???
自分もファイルハンドルにmy 付けて$変数にするのはもうクセになってるけど、
入出力に文字コード絡みの指定をしない時は、相変わらず2引数使ってることが多いかな。

けど、使い捨ての短いスクリプト書く時は、文字コード絡みがあっても、ついつい、
open(my $f,"$file_name");
binmode($f,":encoding(cp932)");
とかやっちゃうことも多い。
0506nobodyさん2009/05/20(水) 01:36:09ID:???
ファイルハンドラとかopendirのハンドラとか、なんで変数じゃなくていいんだろうな
逆に不思議だ
0507nobodyさん2009/05/20(水) 01:39:23ID:???
open my $fh, '+<', 'path' or die $!;

何のことだろって思って調べたんだが、こんな感じであってる？
0508nobodyさん2009/05/20(水) 01:48:12ID:???
そんな感じであってる
0509nobodyさん2009/05/20(水) 02:03:59ID:???
どうせなら die "$file:$!";
0510nobodyさん2009/05/20(水) 13:51:48ID:???
$hog に何が入っているか利用する前に調べる関数とかあるのでしょうか？
$hog にblessされたハッシュが入っているのか、テキストが入っているのか、
数値が入っているのかを利用する前に知りたい状況です。
05115102009/05/20(水) 13:52:55ID:???
×blessされたハッシュ
○blessされたハッシュのリファレンス
0512nobodyさん2009/05/20(水) 13:57:10ID:???
>>510
ref
05135102009/05/20(水) 14:21:19ID:???
>>512
ありがとうございます。
これでいけそうです。
0514nobodyさん2009/05/20(水) 20:33:00ID:???
正規表現を教えてください。
やりたいことは、"「で始まって」って終わる文字列"を置換したいです。
例えば、"「あ」「い」"を"「★」「★」"に置換したのです。
下記のように記述すると、多分２バイトコードである為、うまくいく場合と行かない場合が
あります。どのように記述すればよいか教えてください。

$data =~ s/「[^「」]*」/「★」/gi;
0515nobodyさん2009/05/20(水) 20:40:54ID:???
s/「(?:あ|い)」/「★」/g
0516nobodyさん2009/05/20(水) 20:55:54ID:???
>>515
ダメ
0517nobodyさん2009/05/20(水) 22:23:39ID:???
>>514
# 例えば入力がCP932（≒Shift JIS）なら……

# foo.pl （UTF-8で保存すること）
use strict;
use warnings;
use utf8;
use Encode;

my $encoding = find_encoding('cp932');
my $data = $encoding->decode(shift);

$data =~ s{
(?<= 「 )
( .+? )
(?= 」 )
}{★}xmsg;
print $encoding->encode($data);

__END__

入力
perl foo.pl 「あ」「い」「ほげほげ」

出力
「★」「★」「★」

まああれだ、正規表現を通さなくても、
入れるときデコード、出すときエンコードの癖を付けような
0518nobodyさん2009/05/21(木) 01:23:27ID:???
ちなみに「ほげほげ」を「★★★★」にする要件なら、
{★}xmsg;
を
{'★' x length($1)}xmsge;
にする感じで。
0519nobodyさん2009/05/21(木) 02:45:24ID:???
(´-`).｡ｏＯ(.xlsの変換なんだろうなぁ。。。)
0520nobodyさん2009/05/21(木) 10:31:35ID:???
>>517
「原理原則」や「机上の空論」を正論と思って賞賛してよいのは中学二年生まで
0521nobodyさん2009/05/21(木) 15:48:56ID:???
>>514の質問は不明な点が多すぎ。
>>517氏の言うように、入出力時に変換するのが基本だから、
どこから読み込んで、どこに出力して、入力、出力、スクリプトそれぞれの
文字コードの情報があると、回答も得られやすいと思う。

古いPerlの場合、CPANからモジュールを突っ込んで使うか、
自分でガリガリ正規表現を書くことになる。
質問に条件をつければ、答えてくれる奇特な人がいるかもしれない。


全て文字コードCP932(日本語Windows環境)と仮定して、
ファイルから読んで、標準出力に出力する場合。

use encoding qw(cp932);
use open qw(:encoding(cp932) :std);

open(my $fh, "foo.txt") or die $!;
my $data = join('', readline($fh));
close($fh);

$data =~ s/「(?:[^」]+)」/「★」/g;

print $data;
05225142009/05/21(木) 16:41:46ID:???
説明足らずですみません。
文字コードはShift_JISです。
具体的に説明します。
以下のコードを実行すると
２番目の「」の部分が置換されないのです。
プログラムを始めたばかりの未熟ですみません。


$data = "あ「い」う「ニ世、三世」え";
$data =~ s/「(?:[^」]+)」/「★」/g;
print $data;

exit(0);
0523nobodyさん2009/05/21(木) 16:42:15ID:???
ﾜﾗﾀ
0524nobodyさん2009/05/21(木) 19:18:34ID:???
$data = "あ「い」う「ニ世、三世」え";
$data =~ s/「.+?」/「★」/g;
print $data;

v(★０★)v
0525nobodyさん2009/05/21(木) 21:18:35ID:???
なぜ(?:を知ってて+?を知らぬ
0526nobodyさん2009/05/21(木) 21:47:57ID:???
それは>>521を丸コピペしただけだからだと思うよぉ
*?と+?は今後よく使うはずだから覚えておこう
0527nobodyさん2009/05/21(木) 22:17:03ID:???
あんな便利というか必須な機能が、perl4には無いんだよな
0528nobodyさん2009/05/21(木) 22:37:14ID:???
ちなみにperlの正規表現についてはここを見ておくと吉
ttp://www.kt.rim.or.jp/~kbk/regex/regex.html#PERL
0529nobodyさん2009/05/21(木) 22:58:52ID:???
perl4は忘れなさい
0530nobodyさん2009/05/22(金) 12:59:45ID:???
>>522
use strict;
use warnings;
use encoding qw(cp932);
use open qw(:encoding(cp932) :std);

my $data = "あ「い」う「ニ世、三世」え";
$data =~ s/「.+?」/「★」/g;
print $data;

exit;

[^x]+より.+?の方が速いは、衝撃的。
05315142009/05/22(金) 13:01:09ID:???
>>524-528

ありがとうございます。
しかし、.+?とは、どういう意味なのかしらん？
0532nobodyさん2009/05/22(金) 13:20:16ID:???
「1文字以上」　の　「何らかの文字」　の　「最短マッチ」　

左から
+ . ?
0533nobodyさん2009/05/22(金) 15:52:26ID:???
えっ
0534nobodyさん2009/05/22(金) 16:25:07ID:???
>>528で確認すると

> +?　+と同様ですが、マッチングがものぐさ(non-greedy)に行われる点が異なります。

とあるが、ものぐさと言われてもわけが分からんだろうな。
greedyが「貪欲な」という意味になるので、non-greedyなら「慎ましく」あたりが該当するのではないか。

だが、慎ましくと言われてもなお意味不明なことだろう。
しかし同時に、分からない者は置いてけぼりで構わないという高潔さも感じたことだろう。
正規表現を覗くものは、正規表現からも覗かれているのだ。
0535nobodyさん2009/05/22(金) 19:12:35ID:???
なんか見つかったらそれで終わり、というあたりがものぐさなんだろうけど

何故原文も翻訳もそんなあいまいな表現をしたがるんだ
0536nobodyさん2009/05/22(金) 21:15:21ID:???
昔読んだ本には最長マッチ、最短マッチと書いてあった気がする
0537nobodyさん2009/05/22(金) 23:04:55ID:???
ものぐさとか、貪欲とか、どういう訳なのかしらんが
最短マッチとかで、十分知られてると思うんだが
0538nobodyさん2009/05/22(金) 23:47:28ID:???
選り好み？だかもな、意味わかんね。
0539nobodyさん2009/05/23(土) 03:20:57ID:???
最短にしたらしたで文句言う人がいるんだよ。
0540nobodyさん2009/05/23(土) 09:02:31ID:???
Perlに限らず、正規表現/正則言語の世界ではnon-greedyで通ってるもんな。
ちなみにlazyと表す場合もあるらしい。'ものぐさ'はこっちから来てるようだね。
0541nobodyさん2009/05/23(土) 19:55:34ID:???
次のように―を半角スペースに置換したいのですが、エラーがでてしまいます
―を別のもの変えれば動くので、―に問題があるようです
\―にしてもできません

$cha =~ s/―/ /g;
0542nobodyさん2009/05/23(土) 20:28:09ID:???
sjisでやるとそうなる
0543nobodyさん2009/05/23(土) 20:36:10ID:???
試してないけど\Q―\E
0544nobodyさん2009/05/23(土) 21:58:57ID:???
>>541
やあ、弾先生のブログは読んでるかい？
いささか古いけど、Jcode.pmの代わりに使うぐらいなら丁度いいかもね。
http://blog.livedoor.jp/dankogai/archives/51031595.html

あとは、マニュアルを読んでほしい。
http://www.kt.rim.or.jp/~kbk/perl-5.8/encoding.html
http://www.kt.rim.or.jp/~kbk/perl-5.8/encode.html
http://www.kt.rim.or.jp/~kbk/perl-5.8/open.html
http://www.kt.rim.or.jp/~kbk/perl-5.8/guess.html
0545nobodyさん2009/05/24(日) 03:43:48ID:51A7n5Gq
perlで
年の第何週という情報からその週が何月何日から何月何日かを求めたいのですが、
わかりません。 どうやって求めたらいいでしょう。

例えば、2009年第2週という情報からその週の初めの日である1/5
その週の最後の日である1/11を算出したいのですが・・(週は月曜始まり)
なかなか探しても見つかりません。

localtime,POSIXあたりを使ってできませんかね？
どなたかわかる方いましたらよろしくお願いします。
0546nobodyさん2009/05/24(日) 04:01:51ID:???
ム板で見つかるんじゃないの
0547nobodyさん2009/05/24(日) 14:21:03ID:???
失礼します。
二次元配列の特定要素をjoinしたいんですが、
ベタに回して代入する以外の方法で、そういうことって可能でしょうか？

my $result;
my @array = (["id1", "name1"], ["id2", "name2"], ["id3", "name3"], ["id4", "name4"], ["id5", "name5"]);

#「,」でjoin後
$result ⇒ "id1,id2,id3,id4,id5"
0548nobodyさん2009/05/24(日) 14:41:40ID:???
print join(',', map($_->[0], @array)),"\n";
0549nobodyさん2009/05/24(日) 14:53:03ID:???
>>548
ありがとうございます！
冷静に考えれば、内部的にはどっちにしろ回すんですね…

とりあえず下記のようにだいぶすっきりしました。
-------
my @aNotIn;
foreach (@$rItem) {
　push @aNotIn, $$_{id};
}
$sNotIn = "AND (id NOT IN(".(join ',', @aNotIn)."))";
-------
↓
-------
$sNotIn = "AND (id NOT IN(".(join(',', (map($$_{id}, @$rItem))))."))";
-------
0550nobodyさん2009/05/27(水) 18:17:04ID:???
大文字と小文字を区別しないでマッチングを行いたいのですが特殊な条件なので難しいです
検索される文字が変数$moziに入っており
$mozi='ARTRYI';
検索キーワードが配列の一要素に入っている状態です
$keyword[0]='y'
$keyword[0]のyが$moziのYにマッチすればOKです

index関数ではindex($content,$keyword)とやっても大文字小文字が区別できないので-1が返されてしまいます。

正規表現でoptionのiを使う場合も変数展開できず失敗します。optionのeを使うことも考えましたが、これも置換のときのみに使えるようなので、マッチングでは使えません。
$mozi =~ /$keyword[0]/i
何かよい方法はないでしょうか
0551nobodyさん2009/05/27(水) 18:24:55ID:???
index lc $content, lc keyword
でよさそうな。
0552nobodyさん2009/05/27(水) 18:30:36ID:???
何文字目かとれればいいの？
use strict;
use warnings;
printf "result:%d\n",index2('ARTRYI' , 'y');
sub index2 {$_[0] =~ /$_[1]/i ? length($`) : -1}

0553nobodyさん2009/05/27(水) 18:33:50ID:???
とりあえず\Q使わないと
0554nobodyさん2009/05/27(水) 22:42:22ID:???
use strict;
use warnings;

my $mozi = 'ARTRYI';
my @keyword = qw(y);

print ("position:", index(uc $mozi, uc $keyword[0]), "\n");
print ("position:", index(lc $mozi, lc $keyword[0]), "\n");
print (($mozi =~ /(?=$keyword[0])/gi ? ("position:", pos($mozi)) : "no match"), "\n");
0555nobodyさん2009/05/28(木) 10:34:19ID:???
>>374
>>379
>>386

の者なんですが、また質問させてください。
map { s/^\Q$erase\E\n$//; } @datalist;
の処理によって該当箇所は問題なく消去できているのですが、
「リストの最初の行だけが２度書き込まれる」という現象が起きているみたいなのです。

1240
985
766

みたいなリストから、1240を消した時、1240が消えている代わりに

985
766
766

のように最初の行が2度重なっている、という感じです。
何か考えられるミスはありますでしょうか。
0556nobodyさん2009/05/28(木) 10:54:29ID:???
なんでこいつデバッグしないの?
05575552009/05/28(木) 11:05:47ID:???
どうもすいません。自分で何とかします。
失礼しました。
0558nobodyさん2009/05/28(木) 12:52:03ID:???
その map を使ってるところから、ファイル書き込みまでの部分が無いと分からんでしょ

もっと質問の仕方を学んでください
0559nobodyさん2009/05/28(木) 13:13:18ID:???
クイズスレじゃないんだからｗ
0560nobodyさん2009/05/28(木) 15:45:21ID:???
とりあえずお前はActivePerlをインストールしろ
話はそれからだ
0561nobodyさん2009/05/28(木) 20:50:21ID:IiL6Ub9r
>>560
macbook で ActivePerlする方法お願いします
0562nobodyさん2009/05/28(木) 21:22:06ID:???
つ http://downloads.activestate.com/ActivePerl/MacOSX/5.10/ActivePerl-5.10.0.1005-darwin-9.6.0-290470.dmg
ダウソしたら勝手にマウントするんで
ActivePerl-5.10.pkg
をダボクリク。
0563nobodyさん2009/05/28(木) 22:53:03ID:???
あるんだｗ
0564nobodyさん2009/05/29(金) 02:01:40ID:???
皮肉でレスしたつもりだろうが恥晒しただけになってるなｗ
0565nobodyさん2009/05/29(金) 02:57:59ID:???
みんな仲良く
0566nobodyさん2009/05/29(金) 17:59:48ID:???
複数のプログラムで使うサブルーチンをexample.pmとして保存し読み込ませる際に質問なのですが、
useとrequireどちらで読み込ませればいいのでしょうか？
今一違いがよくわかりません。
0567nobodyさん2009/05/29(金) 18:09:51ID:???
つ perlfunc を読むとか。
0568nobodyさん2009/05/29(金) 18:20:24ID:???
apache 2.2.9とperl 5.8.8とmod_perl2-2.0.4を使ってCGIを作ろうとしています。
コードにエラーがあった場合、
Software error: ほげほげ
という出力がブラウザに出てしまうのですが、
これを抑制してInternal Server Error等を返すようするにはどうしたらよいのでしょうか。
0569nobodyさん2009/05/29(金) 18:33:00ID:???
コードにエラーがあればプログラムが実行されずにInternal Server Error返すと思うが
05705682009/05/29(金) 18:38:59ID:???
すいません
参考にしていた入門記事の
use CGI::Carp qw(fatalsToBrowser);
をのせいだったみたいです
お手数をおかけしました。
0571nobodyさん2009/06/05(金) 03:14:34ID:N+0uLK7Z
以下のようのものをイメージしております。パスワードを入力して認証後に
、HP上のある特定のテーブル（枠内）に画像をUPしたり、コメントを記入
できるようにしようとしております。枠は例えば一列を（名前・画像・
コメント）としてそれぞれの会員へ割り当てます。あくまでもその枠は、
割り当てられたメンバーしか入力と更新ができない仕組みにしたいと思いま
す。画面としては、HP枠テーブル内に設置されている「更新ボタン」を押す
→パスワード入力画面（認証）→画像UP/コメント記載入力フォーム→HPに
画像UP/コメント修正反映。という形です。パスワードは、会員それぞれが
違うPWをもっていて、他人の入力可能枠に入力をしようとしてもパスワード
が合わない限り、画像UP/コメント入力ができない形です。全般的に初心者と
いうこともあり、教えていただければ助かりますが、特に行き詰っているの
が
１．会員ごとにＰＷを割り振り、上記のように更新場所を分けた場合、認証
CGIは会員ごとそれぞれに作成する必要があるのでしょうか。それとも、こ
のＰＷで認証された会員はこの場所の更新を許可させるというような設定
はできるのでしょうか。
２．フォームで入力したデータを既存のhtml形式のｈｐに更新処理をする
ことは可能なのでしょうか。フォームで入力したデータを
掲示板（cgi)に書き込む事はできるようですが、htmlのテーブル（枠）に
書き込む事はできるのでしょうか。
３．フォーム（cgi）で入力したデータを指定した場所へ書き込むにはどう
したらよろしいのでしょうか。指定の方法はどうやればよろしいのでしょう
か

以上です。

0572nobodyさん2009/06/05(金) 05:00:07ID:???
>>571
複数ユーザーで使える画廊のようなページですかね
まだバイトの身なので見当違いなことを言ってるかもしれませんがアドバイスを。。。

1はCGI2つで実現できると思います。
例えば、画廊ページをhtmlで作り、認証フォームページ表示CGIを作り、実際の処理を認証CGIでするとします
画廊ページからは更新をクリックしたときに、認証フォームページ表示CGIに枠IDを渡します
認証フォームページ表示CGIでは、ユーザーID、ユーザーパスワードなど必要事項を入力する欄とともに、
このcgiに渡された枠IDを hidden 属性で渡せるフォームを出力します
これで3も解決です
認証CGI側ではあらかじめ枠IDとユーザーID・ユーザーパスワードを関連付けたデータを持っておき、
(多分選択肢はデータベースに入れるか他のファイルに書いておくかcgiに直書きかくらい)
フォームから渡ってきたデータと照合します
2の画像の更新については、画廊ページの雛形をまず用意しておき、(画像の入るところなどには{Image}のような仮の文字列を入れておく)
認証CGI側で読み込み本来の画像のurlなどに置換して出力します
こんな感じでいけるかと

こんな説明で分かりますかね？
0573nobodyさん2009/06/05(金) 17:20:18ID:N+0uLK7Z
>>572さん、ありがとうございます。571です。複数のユーザで使える画廊ページ
のイメージはあっております。私が素人のため、ぱっと読んだだけでは、
よく分かりませんが、hidden属性等キーワードをいくつかいただきましたので、
少し、やり方などを調べてみます。また、分からないことがありましたらよろしく
お願いします。
0574nobodyさん2009/06/06(土) 16:54:15ID:???
ハッシュについての質問です。
\t区切りにして保存したdatファイルからデータを読み込む際に
foreachでハッシュに入れて$example{$hoge}{$huga}で読み込めばいいのか、
foreach+正規表現使ってdatから１行だけ抜き出すのがいいのか、どちらがいいやり方なのでしょうか。

0575nobodyさん2009/06/06(土) 16:59:43ID:???
俺はgrepが好き
0576nobodyさん2009/06/06(土) 18:05:42ID:???
>>575
ぐぐってみました。
こんなのがあったんですね。参考になりました。
早速試してみようと思います。
0577nobodyさん2009/06/06(土) 18:14:36ID:???
>>574
データの使われ方による
0578nobodyさん2009/06/06(土) 18:43:32ID:???
>>574 じゃないけど質問

grep って foreach みたいにメモリにがっつり読み込むの？
それとも While みたいに逐一読みに行ってくれるの？
0579nobodyさん2009/06/06(土) 18:49:55ID:???
foreach みたいにメモリにがっつりの意味がわからん
0580nobodyさん2009/06/06(土) 18:55:37ID:???
メモリにがっつりでも、レンタル鯖なので気にしません！
0581nobodyさん2009/06/06(土) 18:58:33ID:???
>>579
何か勘違いがあるんだろ

恐らくファイル読み込み関連でそういう混乱が生まれたんじゃないかと。
0582nobodyさん2009/06/06(土) 19:10:32ID:???
>>578
フィルタみたいなものだから、がっつりメモリ取るよ。
つか、Perlは基本的に何でもリスト展開してから動くように出来てる。
foreachの昇順の範囲演算子は最適化されるけど。
0583nobodyさん2009/06/07(日) 00:15:37ID:???
>>582
端折りすぎた感のある文を読み取ってくれてありがとう

やっぱそうなってるんですね。
数メガならだいじょうだろうけど、十数メガ〜数十メガの TSV を扱うにあたって考えてるとこだったので。

やっぱ DB にプッシュしろってとこかな ＾＾；
0584nobodyさん2009/06/07(日) 00:20:57ID:???
>>583
その方が有りえない
0585nobodyさん2009/06/07(日) 00:33:27ID:???
>>583
十数メガのTSVをバシバシ扱ってるけど、鯖屋は文句言わないよ
0586nobodyさん2009/06/07(日) 02:47:53ID:???
本当は文句を言うべきところなのに
鯖屋が気づいてないだけって可能性もあるな
美味しくいただいちゃいましょう
0587nobodyさん2009/06/07(日) 13:52:57ID:???
mapを使用するときに今何番目の要素を処理しているのか上手く知る方法はあるのでしょうか？

やりたいことは、@before = ('a', 'b', 'c')とう配列があったときに、
”この配列の要素”をkey、”その配列要素の場所”をvaluとしてハッシュを作ることです。

今はmapの外に$iを用意して下記の様にしています。

my @before = ('a', 'b', 'c');
my $i=-1;
my @after = map { ++$i => $_ } @before;

この$iを使わずに実現する方法があったら教えて欲しいです。
この$iがとれない様であれば、forでやった方がキレイかなと思ってしまいます。
0588nobodyさん2009/06/07(日) 13:54:15ID:???
すみません。書き間違えました。
×　@after
○　%after
0589nobodyさん2009/06/07(日) 14:03:51ID:???
ハッシュのスライスでぐぐれ
0590nobodyさん2009/06/07(日) 14:39:07ID:???
>>587
my %after = map +($before[$_] => $_), 0..$#before;
05915902009/06/07(日) 14:41:30ID:???
>>589の言いたいのはこうか
my %after;
@after{@before} = (0..$#before);
■ このスレッドは過去ログ倉庫に格納されています