【Perl 】初心者コーナーPart8

**名無しさん＠お腹いっぱい。** · 01/10/24 14:11

いらっしゃーい、perlのコーディングで困ってる人のスレです。

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

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

参考書籍はこちら【【Perl,CGI】参考書籍第２版】
http://ebi.2ch.net/test/read.cgi/php/988809842/l50
CGIの質問はこちら【ＣＧＩだけど、なんか質問ある？part４】
http://ebi.2ch.net/test/read.cgi/php/1000804655/l50

過去ログ、その他の役立ち情報は>>2-10を見よう。

**今日からPerlさん** · 01/10/25 19:50

結局わかんないので正解ください

**名無しさん＠お腹いっぱい。** · 01/10/25 19:58

>>42
答え出てます。
>>28、>>31

**JAPU** ◆JAPUTeX. · 01/10/25 20:08

>>42
何が分からないの?
単に正解だけを求めるのは良くないよ。

----
ちなみに、http://www.japu.org/cgi/security/ は既に移転しています。
(ジャンプするようにしてあるけど。)

**名無しさん＠お腹いっぱい。** · 01/10/25 20:39

(^∀^) ｵﾏｴﾆﾊﾑｲﾃﾅｲｶﾗﾔﾒﾄｹ　　ﾏｳｽﾃﾞｺﾋﾟｰｼﾛ
ｱﾊﾊﾊh　ｱﾎｶ

**名無しさん＠お腹いっぱい。** · 01/10/25 21:06

45 = japu

**名無しさん＠お腹いっぱい。** · 01/10/25 21:18

45=46

**27の母** · 01/10/25 21:23

初心者を指導して気持ちよくなるのは自慰行為
本当に２７＝４２だか知らんが、オナニスト先生は正解も書いてちょんまげ～

40 · 01/10/25 21:36

>>41
ハッシュに入れてるのでメモリを食ってるのかと思ってました。
ありがとうございました。

27 · 01/10/26 00:07

>>48 当然。
ボランティアで質問に答えるのが自慰行為以外の何者であるか。

**名無しさん＠お腹いっぱい。** · 01/10/26 05:34

掲示板を作ろうとしています。
.htmlファイルにあるフォームに内容を書いて投稿すると.cgiファイルに渡して
処理をし、表示させるというものはどうにか作ることが出来ました。
しかし色々な方が作っている掲示板の中には投稿フォームの表示から書き込まれ
た内容の処理、それらの表示までを.cgiファイルだけでほとんど全ての処理を行
うものがあります。次はこういうスクリプトを作りたいのですが、どうしてもう
まく行きません。

既にログファイルに書き込まれている内容を投稿フォームの下に表示することと
投稿した内容をログファイルに書き込むことはできるのですが、書き込み→処理
→表示ができません。つまり、投稿した内容はリロードしないと読むことが出来
ないのです。

ただ上の動作をさせたいためだけに作ろうとしたスクリプトとはいえ、仕上って
みるとやたらに『</body></html>』の多いものになってしまいました。今までは
どんなに頑張ってもできなかったのに、ここに載せるために書いたものが偶然そ
ういうものになったという棚ボタスクリプトのため、効率も何もあったものでは
なく・・・。

ここに載せるにはあまりにも長いため、別サイトに置くことにしました。
http://www.geocities.co.jp/Outdoors-River/5665/sample.txt

よろしくお願いします。

01/10/26 07:00

http://www.kent-web.com/
ここにある簡単なBBSのスクリプトをダウンロードしてから処理の流れ見て
みましょう。
デバッグの方法がわからないなら、
sub debug_print {
print "Content-Type: text/plain\n\n";
foreach (@_) { print "$_," }
exit;
}
でも使って1行ずつわからない変数があれば目で見て調べましょう

**名無しさん＠お腹いっぱい。** · 01/10/26 07:36

>>51
そのソースのまま順番を変えたら表示出来たよ。
$ENV{"CONTENT_LENGTH"}空なら書き込み処理はいらないよね。

**名無しさん＠お腹いっぱい。** · 01/10/26 13:12

⊤ # 投稿フォームを表示して
&log_viewer; # ログ展開して記事表示
&get_time; # 日時取得して
&decord; # フォームデコードして
&data_write; # ログに書き込み。

>>52さんの言うように
他の配布スクリプトの処理の流れを見て、
BBSがどういう処理をすれば動くのか考えてみるといいかも。

&decord; # フォームデコードして
&get_time; # 日時取得して
&data_write; # ログに書き込み。
⊤ # 投稿フォームを表示して
&log_viewer; # ログ展開して記事表示

**名無しさん＠お腹いっぱい。** · 01/10/26 15:10

cronを制御するプログラムを書こうと思っています。
Schedule::Cronを使おうかと考えていますが、実行プログラムをエントリーすることは
できても削除することはできません。
(全部削除することはできる)

cronを自由自在に操るライブラリもしくはcron likeなプログラムってありませんか？

**名無しさん＠お腹いっぱい。** · 01/10/26 18:06

はじめまして。
PerlでCGIを書いてるプログラミング初心者です。
いきなりですが、
ローカルで動いたCGIがアップすると動かない場合、
どんなミスが考えられるでしょうか。
パスはあってます。
パーミッションもあってます。
これ意外でなにか思い当たることがあれば教えていただけませんか？
よろしくお願いします。

**名無しさん＠お腹いっぱい。** · 01/10/26 18:14

>>56
エラーになる原因はいくらでもあります・・
httpdのエラーログ見ましょう。

56 · 01/10/26 19:14

>>57
すみません、httpdって何ですか？

**名無しさん＠お腹いっぱい。** · 01/10/26 19:23

（＾∀＾）すみません、ｱﾅﾀﾊﾞｶﾃﾞｽｶ？

**名無しさん＠お腹いっぱい。** · 01/10/26 19:58

>>59
貴様が馬鹿だ。

56 · 01/10/26 20:22

>>59
馬鹿かどうかはともかく、知識がないことは認めます。

質問の仕方が悪かったようなのでまとめます。。

自分用に日記スクリプトを組んで、
ローカルでは正常に動きました。
環境はMacJPerlとWEB共有でした。
MacJPerlでの構文チェックはOKが出ました。

このあと、借りているサーバにアップして
パーミッション設定をして動かしてみました

そしたら、一部の機能は動いたんですが
サーバがエラーを返す時もありました

なぜかわからないので、
もしかしたら・・と思うところがあったら
教えていただけませんか？

**名無しさん＠お腹いっぱい。** · 01/10/26 20:26

詳しくないけどシステムに依存したコマンドがあるんじゃないの？

**名無しさん＠お腹いっぱい。** · 01/10/26 20:40

ふむ、初めからそう書けば良いのに、httpdは検索してくれ、サーバの事
で、残念だけど、自分で書いたコードならその「エラーを返す時」がどんな
コードなのかを書かないと答えられない
これを使ってエラーを捕捉してみてくれ
http://www.kawa.net/works/perl/catch/news.html

Unixlike<=>Mac<=>WIN、環境で結構引っ掛かるので俺が知ってるのは
ディレクトリ区切り子　\とか/とか:とか
ディレクトリ相対パスの問題　IIS3とか
スクリプト起動時のカレントディレクトリの問題
OSに依存したシステムコール
OSに依存した関数の使用

多分まだまだネタはあるはず

**名無しさん＠お腹いっぱい。** · 01/10/26 22:16

find関数（File::Find）ではファイルがアルファベット順に
出てくるようなのですが、これをタイムスタンプ順にすることは
可能でしょうか？

51 · 01/10/27 00:19

>>52
>>53
>>54
ありがとうございます。
確かに・・・。
流れを読んだ上で組み合わせれば何と言うことのないことでした。

>>52さんが紹介してくれたサイトのスクリプトをじっくり眺めてみることにします。

ありがとうございました。

**名無しさん＠お腹いっぱい。** · 01/10/27 01:54

>>64
ディレクトリ単位でソートするなら可能だよ。

find( {wanted => \&wanted, preprocess => \&preprocess }, $dir );

sub preprocess {
@_に入ってくるファイル名をタイムスタンプでソートした結果を返す
}

**名無しさん＠お腹いっぱい。** · 01/10/27 08:38

>>66 わぁ。ありがとうございます。
ディレクトリ単位で良いです。っていうかディレクトリ単位が良いです。
助かりました！

**名無しさん＠お腹いっぱい。** · 01/10/27 15:49

俺ってまだよく理解できてないからフローチャートとか書いて
から組んでるんだけど知り合いとかはさくさく組んじゃうんだよね。
フローチャート作ってる俺って厨房ですか？

**名無しさん＠お腹いっぱい。** · 01/10/27 16:12

なんでもそうだろけど使い方による。
グチャグチャと絡まった概念を解く事が出来るから漏れは良く書いてる
(覚え書き程度のもんだが・・・)
Keyboardばっかり叩いてると、紙に書いた事は結構クッキリと頭に残ったりとかね

*死ぬ程忙しい時は、するべき事を紙に書いてみよう、意外と大事な用は一つだったりして

**名無しさん＠お腹いっぱい。** · 01/10/27 18:37

ageageage

**名無しさん＠お腹いっぱい。** · 01/10/27 20:09

$var /= 32;
$var >>= 5;

ではどっちが速いですか？？

**Perl上級者** · 01/10/27 20:32

くだらん。そんなことを気にするぐらいならPerlで書くな。

**名無しさん＠お腹いっぱい。** · 01/10/27 20:33

>>71
自分でベンチマークとれ。

71 · 01/10/27 20:34

ベンチマークってどう取ればいいのですか？それがわからないのか(＾＾；；；＞俺

**名無しさん＠お腹いっぱい。** · 01/10/27 20:40

Perl上級者は真性、相手すると感嘆符使いまくってウザイので完全無視でお願いします　

**名無しさん＠お腹いっぱい。** · 01/10/27 20:42

>>74
perldoc -u Benchmark
これで大体分からないかな、要はかっこでくくるだけだよ

**名無しさん＠お腹いっぱい。** · 01/10/27 20:45

>>71
後者は小数点以下切り捨ててないかい？

**名無しさん** · 01/10/27 20:50

Perl上級者＝高卒　ﾌﾟ

**名無しさん＠お腹いっぱい。** · 01/10/27 20:53

Perl上級者＝jaﾌﾟ

**名無しさん＠お腹いっぱい。** · 01/10/27 21:13

>>78-79
煽り止めれ。Perl上級者と同レベル。

**Perl上級車** · 01/10/27 21:16

この板で一番レベルの高いスレッドはどこだ？
こんな程度の低いところは嫌だからな。

**名無しさん＠お腹いっぱい。** · 01/10/27 21:18

車だってさ(w

**名無しさん＠お腹いっぱい。** · 01/10/27 21:21

>>81　eq　ﾀｰﾐﾈｰﾀ

**名無しさん＠お腹いっぱい。** · 01/10/27 21:24

>車
過疎地うろついてないでマ板いきなよ
Perlスレもぽこぽこ建ってるし

**名無しさん＠お腹いっぱい。** · 01/10/27 22:52

ログ移転前に書いてみる。

**名無しさん＠お腹いっぱい。** · 01/10/27 22:56

移転上げ

**名無しさん＠お腹いっぱい。** · 01/10/28 21:53

age

**名無しさん＠お腹いっぱい。** · 01/10/29 03:25

(aa..zz,aA..zz,Aa..zz,AA..zz)
みたいなアルファベット大・小文字全部並べるスライスの，簡単な書き方ってありますか？

関数に文字数指定して，文字列として書かせたのを，evalして使ってるんですが
無駄なことしてるかもと思ったので。

**名無しさん＠お腹いっぱい。** · 01/10/29 03:30

もっと具体的に説明きぼん

88 · 01/10/29 03:50

>>89
普通に手で書くと，文字数増えるごとに書くのもどんどん増えていっちゃうので，
(aa..ZZ)とか(\w{3})みたいな書き方はできないかなぁと。

88の関数はこんなのです。
@arry = eval getArry(1);
sub getArry {
　my $nest = shift;
　my $word = shift || '';
　my $i = 0;
　my $ret = '';
　foreach (a,A) {
　　my $word = $word.$_;
　　if ($nest>0) {
　　　$ret .= getArry($nest-1, $word);
　　} else {
　　　$i++;
　　　$ret .= "$word..";
　　　$ret .= 'z'x length $word;
　　　$ret .= ',';
　　}
　}
　return $ret;
}

**名無しさん＠お腹いっぱい。** · 01/10/29 07:15

それ異常の書き方は無いと思うなあ。
つーかむしろ(a..z)だけにして、文字列長投げるような関数に
した方が良いんじゃないの?
呼び出しのコストを嫌ってるのか･・・・
漏れはデカイ配列の方が嫌いだけどなあ

**名無しさん＠お腹いっぱい。** · 01/10/29 07:19

あ、すまん、そうしてるんだね。
再帰しなくても良さそうだな、、
帰ったら書くわ

**名無しさん＠お腹いっぱい。** · 01/10/29 17:18

>>91
>漏れはデカイ配列の方が嫌いだけどなあ
俺もおなじくです。2文字(aa～ZZ)ぐらいならいいんですが、
4文字(aaaa～ZZZZ)なんかはちょっと配列に入れるのがつらい。

用途にもよるけど、呼び出すごとに「次の文字列」を返す関数を
作って、STLのnext_permutationみたいな使い方をするのが
いいと思う。

**名無しさん＠お腹いっぱい。** · 01/10/29 20:26

あるファイルの行数を調べたいのですが、
一番メモリを使わずに調べる方法は何ですか？

**名無しさん＠お腹いっぱい。** · 01/10/29 21:04

my宣言した変数は出来るだけ早くundefした方が良いのでしょうか？

**名無しさん＠お腹いっぱい。** · 01/10/29 21:14

>>94
nバイトずつreadして"\n"の個数を数える。

**名無しさん＠お腹いっぱい。** · 01/10/29 21:15

>>94
my ($lineNum,$fileName,$buf);
open (FH,"fileName");
while (1){
read(FH,$buf,1);
last if $buf eq '';
$lineNum++ if $buf eq "\n";
}
print "行数は$lineNumです\n";

**名無しさん＠お腹いっぱい。** · 01/10/29 21:45

>>94
open(FH, $file) or die "Can't open $file";
my $count;
$count = $. while (<FH>);
close(FH);

**名無しさん＠お腹いっぱい。** · 01/10/29 21:54

>>95
大量のデータを長期間無駄に保持するのは避けたいけど、
ほとんどの場合、あえて明示的にundefするまでもないと思う。
まあ具体的なコードを見ないと判断つかないっすね。

**始めて数日なんですが** · 01/10/29 22:08

検索したり本を見ても、書いてなかったり、さっぱり意味不明だったりと自分ではなかなか判断がつかないとき、「内では～となっているので～とした方がいい」って明解に断言してくれる人がいると役に立つんだけど、みなさんはどうしてるんですか？

**Perl上級車** · 01/10/29 22:11

>>100
首吊って氏ね。

**名無しさん＠お腹いっぱい。** · 01/10/29 22:14

>>100
> 始めて数日なんですが
日本語を？

**名無しさん＠お腹いっぱい。** · 01/10/29 22:21

>>100
perldocの該当個所を4～5回読み直し、それでも理解できなければ
いまは知る必要がないのだとあきらめて後回しにした。
すくなくとも他人の言葉には頼らなかった。

**名無しさん＠お腹いっぱい。** · 01/10/29 22:21

>>100
とにかく、首をくくるのがいいと思われ

**マジレス** · 01/10/29 22:23

>>100
始めて数日の人がそんな壁にぶつかる訳がありません。
Googleで検索したりリンク辿ったりすれば、参考になるものが
見つかるはずです。
少なくとも初心者の内は検索などで十分です。
（分不相応な事をしなければ）

そして初心者を抜ければ殆ど自分で判断できるようになる筈です。

**Perl上級者** · 01/10/29 22:27

とにかく邪魔だから二度と出てこなくていいよ。

**名無しさん＠お腹いっぱい。** · 01/10/29 22:28

>>106
お前も一々煽るな。邪魔臭い。

**Perl上級者** · 01/10/29 22:29

ﾊｧ？ココは気持ち悪い馴れ合いスレですか(わら

**名無しさん＠お腹いっぱい。** · 01/10/29 22:32

>>108
馴れ合いの逆は煽りかよ。馬鹿丸出し。
いいからとっとと失せろ。

01/10/29 22:34

Perl上級者は無視の方向で。

**名無しさん＠お腹いっぱい。** · 01/10/29 22:37

CGI.pmってどうなの？

**名無しさん＠お腹いっぱい。** · 01/10/29 22:43

>>111
「どうなの？」って聞かれても何と答えれば良いのやら。

**名無しさん＠お腹いっぱい。：** · 01/10/29 22:59

つーかPerlの上級者って、、、なんかショボイなあ　(ﾟεﾟ)

**Perl上級者** · 01/10/29 23:09

・・・と、初心者以下の素人が言いました、とさ（大爆笑）

**Perl上級者** · 01/10/29 23:12

これこの板の名無しにどうよ？
あとtinkopinpinとか　　ｹﾞﾗｹﾞﾗ～

**名無しさん＠お腹いっぱい。** · 01/10/29 23:18

shigeより馬鹿っぽい所が悲しいよな、（大爆笑）だって･・・・
この板の哀愁が漂ってくるね
もっと勉強しよ･･･

**名無しさん＠お腹いっぱい。** · 01/10/30 01:03

未熟ながら、初心者スレッドと言う事でお許しください。

あるログインCGIを作っていて
ログイン（ID/Pass）→　メニューとメイン画面をフレームで表示
と言う処理を行っています。
このときメニューとメイン画面もログイン用のファイルと一緒にしているのですが、
別々の物に分けたほうが良いのでしょうか？

//サンプル
if{
　&ログインパスチェック
}elsif{
　&左フレーム（メニュー）表示
}else{
　&右フレーム（メイン画面）表示
}
#それぞれ引数を変更してやって判定

sub ログインパスチェック{
if(パスチェックが成功したら){
print <<EOM;
<FRAME SRC=./login.cgi?id=$in{'id'}&passwd=$in{'passwd'}&cmd=01 NAME="menu">
<FRAME SRC=./login.cgi?id=$in{'id'}&passwd=$in{'passwd'}&cmd=02 NAME="main">
EOM
}else{
print <<EOM;
<FRAME SRC=./login.cgi?id=$in{'id'}&passwd=$in{'passwd'}&cmd=01 NAME="menu">
<FRAME SRC=./login.cgi?id=$in{'id'}&passwd=$in{'passwd'}&cmd=03 NAME="main">
EOM
}

瞬間的に3度同じファイルを実行する事になり、そのたびにデータを読み出しているので心配です。
また、他のファイルに分けて処理した方が動作がスムーズになる、とも聞きました。
どうでしょうか。
足りない部分があれば随時補足させて頂きます。
根本的にこんなロジックにした方が良い、と言う意見もあれば是非お聞かせください。

**名無しさん＠お腹いっぱい。** · 01/10/30 01:27

>>117
この場合、認証をすべてlogin.cgiでまかなうのも、
login.cgi、frame.cgi、main.cgi、menu.cgi等に分割するのも、
さして変わりはないと思う。
どちらにしても認証後に3つのCGIがほぼ同時に起動するわけだし。

なにか改善策があるとすれば、
＞根本的にこんなロジックにした方が良い、と言う意見
ここだろうけど、おれには考えつかない。
CGIで認証する限り、「１ページ表示するごとにパスワードファイルの読み書きが必要」と
いう問題は避けられないのでは。

**名無しさん＠お腹いっぱい。** · 01/10/30 03:48

>>118
なるほど、貴重なご意見有難うございます。
やはり逐一パスワードファイルにアクセスしないといけないのは
宿命ですかね。

**名無しさん＠お腹いっぱい。** · 01/10/30 09:32

>>117&119
どっちかってーとCGIだけどなんか質問ある？向きだけど・・・
とりあえず「セッション」とかって言葉を調べると幸せになれるかもしれません。。。えいめん。

ぽ · 01/10/30 14:05

cron でフルパス起動されるコマンドなんだけど
ライブラリの場所は相対で ../lib にあります。
エレガントな指定方法を教えてください。
今は
{
my $base;
BEGIN{
$libPath = $0;
$libPath =~ s|/[^/]+$|/lib|;
}
use lib ($libPath);
}

**名無しさん＠お腹いっぱい。** · 01/10/30 14:12

素直にフルパスで書くのが一番だと思うが。

**名無しさん＠お腹いっぱい。** · 01/10/30 16:33

>>121
フルパス指定がいやならFindBinモジュールを利用。

**121** · 01/10/30 17:03

>>123
ありがと（＾－＾）
まだまだ知らないモジュールがいっぱい．．．
精進せねば．．．

**名無しさん＠お腹いっぱい。** · 01/10/30 17:04

>>121
cronで起動するときにchdirする方法を愛用してます。
スクリプトのほうで小細工する必要なし！

**121** · 01/10/30 17:12

>>125
あと /etc/aliases から "| /foo/bar/hogehoge" でも起動されるやつも
あるんで FindBin でいくことにします

はっ /etc/aliases のやつも "| (cd /foo/bar ; ./hogehoge)" すると
いけるのかな？

**名無しさん＠お腹いっぱい。** · 01/10/31 11:19

すいません、perl全くの初心者なんですが
Mac OS 9.02から、Mac OS 10.1にして勉強を始めようと思っています
しかし、Mac OS 10.1に入ってるperlは日本語関連でかなり問題がある、
というのを聞いて驚きました。
ビギナーではMac OS 10.1はやめておいた方がいいのでしょうか？
参考書みてもそもそも正常に動作しなかったら挫折しやすい、というか。
どのような問題があるかはgoogleなどで引っかけても上手くかからなかったので
わからないんですが、よろしければアドバイスお願いします。

**名無しさん＠お腹いっぱい。** · 01/10/31 11:30

ここはマック使う人少ないみたいだよ。
マックのことはマック使ってる人に聞くのがよろし。

マックでプログラムやるなら
http://pc.2ch.net/test/read.cgi/mac/1003548817/
ＭＡＣの開発ソフト
http://pc.2ch.net/test/read.cgi/tech/978844038/

**名無しさん＠お腹いっぱい。** · 01/10/31 11:41

あの＝。jcode.plとcgi-lib.plって再配布して
いいんですか？

**名無しさん＠お腹いっぱい。** · 01/10/31 12:04

>>128
あ、ありがとうございます

**あげてみる** · 01/11/02 13:01

seekの説明にある、「行番号をバイトオフセットに変更するインデックス」を作成してくれるモジュールないっすかねえ

**名無しさん＠お腹いっぱい。** · 01/11/02 19:40

質問なんですが
ハッシュをサブルーティンに渡して、サブルーティンの中でも同じように
ハッシュとして参照したいのですが、どうもうまくいきません。
下のように書いたのですが、値が表示できません。
どのようにすればうまくいくか教えていただけないでしょうか？

my %jjj ;
$jjj{'aaa'} = "111";
$jjj{'bbb'} = "222";
$jjj{'ccc'} = "333";
&test( %jjj ) ;

sub test {
my $jjj_ref = @_ ;
print("####　$jjj_ref->{'aaa'}") ;
}

Ks · 01/11/02 20:11

掲示内容が不適格であったらごめんなさい。
httpヘッダで困っています。

・httpの拡張ヘッダって編集できるものなの？
・どうやって編集するの？
・拡張ヘッダの設定内容を見て処理をするって可能なの？どうやって
　するの？

誰か教えて頂けませんか？
もしくはわかるサイトを教えて頂けませんか？宜しくお願いします。

**名無しさん＠お腹いっぱい。** · 01/11/02 20:17

&test( \%jjj ) ;
sub test {
my $jjj_ref = $_[0] ;
print("####　"."$jjj_ref->{'aaa'}") ;
}
ハッシュの前に引数の受け取り方を調べよう　：-）

**名無しさん＠お腹いっぱい。** · 01/11/02 20:18

どうやってするのか分からないけど全て可能です。
詳しくはここ
http://www.w3.org/Protocols/rfc2616/rfc2616.html

**名無しさん＠お腹いっぱい。** · 01/11/02 20:34

冷たいんだね

**名無しさん＠お腹いっぱい。** · 01/11/02 20:37

プロトタイプって手もある
sub test(\%);

test(%jjj);

sub test(\%){
my $href = shift;
print $href->{aaa};
}

**名無しさん＠お腹いっぱい。** · 01/11/02 20:41

変数に例えば
$hoge ='aa,bbb,cc,ddd,nn,nn,yy,zzz';
のように格納されていた場合後ろから2つ目の「,」
の位置を調べたいのですがどうすれば良いのでしょうか？
お願いします。

**名無しさん＠お腹いっぱい。** · 01/11/02 21:38

(length join ',,',(split /,/,reverse $test)[0,1])

**名無しさん＠お腹いっぱい。** · 01/11/02 21:43

>139
レスありがとうございます。
早速使わせていただきます。
どうもでしたm(_ _)m

**名無しさん＠お腹いっぱい。** · 01/11/02 21:46

rindexを２回使うという手も。