Perl 初心者コーナー Part24

◆fBgbHI04bQ · 03/06/07 22:30

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

【投稿する際の注意】
質問するときは内容をよく吟味してから投稿してください。

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

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

CGIだけど、なんか質問ある？ Part 10
http://pc2.2ch.net/test/read.cgi/php/1048686475/
【Perl,CGI】参考書籍第三版
http://pc2.2ch.net/test/read.cgi/php/1030209573/
CGIに依存しないPerlの話題一般/Part2
http://pc2.2ch.net/test/read.cgi/php/1030548610/
スクリプトの改造依頼は、【スクリプト改造工房 PART 6 】
http://pc2.2ch.net/test/read.cgi/php/1047806915/

過去ログやお勧めサイトは >>2-10

**nobodyさん** · 03/06/16 19:47

>>448
REMOTE_ADDRを記録して、それが同じだったということはREMOTE_ADDRが同じだったということではないですか？
>>451
CGIは全部実行した後出力するんだよ。たしか。

**nobodyさん** · 03/06/16 19:51

え、じゃあスリープの意味って・・・・

**nobodyさん** · 03/06/16 19:51

>>453
PerlはCGIためだけのものではありません。

**nobodyさん** · 03/06/16 19:56

>>449
俺にもよく分からんけど、この辺とか
ttp://www.google.co.jp/search?q=cache:yNlP1fhIQ48J:tohoho.wakusei.ne.jp/lng/199802/98020500.htm+%E3%83%90%E3%83%83%E3%83%95%E3%82%A1%E3%83%AA%E3%83%B3%E3%82%B0+cgi&hl=ja&lr=lang_ja&ie=UTF-8

**nobodyさん** · 03/06/16 20:40

MobileType(スペルあってるかな？モバイルタイプ)っていう
スクリプトで、mt-load.cgiを実行したときに1行ずつ表示されてたんだけどなぁ。
nphでもなさそうだし・・・

**nobodyさん** · 03/06/16 21:32

>>456
mt-load.cgi の20行目で、>>455の "$|=1" してるから

**nobodyさん** · 03/06/16 21:34

>>457
ほんとだ、localついてて見落としてた。。。
でも、sleepもないし、nph-*.cgiでもないのに・・・
どういう仕組みなんでしょうか？

**nobodyさん** · 03/06/16 21:38

うぅ、何回も1行ずつ流れてるのみてる・・
ｲｲﾅｧ

**nobodyさん** · 03/06/16 22:00

>>443
IPをHOSTに変換してみたら何かわかるかも

**nobodyさん** · 03/06/16 22:06

どれもこれもネタか？
あああ鬱。

**458** · 03/06/16 22:08

ほんとお願いしますよ～～
どうやったらできるんでしょ。。
ネタとか言わないで・・・

**nobodyさん** · 03/06/16 22:26

REMOTE_ADDRが常に同じ値になるように設定してあるサーバがあるよ。

**nobodyさん** · 03/06/16 23:52

REMOTE_ADDRを表示するだけのスクリプト書いて
いろんな串さしてみて試せば？

**nobodyさん** · 03/06/16 23:55

>>449

$| = 1;
@data = ("あ","い","う","え","お","か","き","く","け","こ");
print "Content-Type: text/plain\n\n";
for($i=0; $i<=$#data; $i++){
print "$data[$i] \n";
sleep(1);
}
exit;

これでやってみれ。

**458** · 03/06/16 23:57

>>465
ん～、やっぱり始めに全部sleepして一気に吐き出しますねぇ。。。

**nobodyさん** · 03/06/17 00:02

いっそのこと、１行ずつ表示する部分はJavaScriptに任せちゃうとか。

**nobodyさん** · 03/06/17 00:09

>>466
そりゃ環境がおかしいんだわ

**458** · 03/06/17 00:12

>>468
マジっすか？

**nobodyさん** · 03/06/17 00:14

>>466
htmlについてもよく考えてみれ。
ブラウザがソースを受け取り、解釈してからレイアウトを決めて
どの時点でどういう順番で表示するか保証はないんだぞ？

**458** · 03/06/17 00:14

NNならちゃんと1文字ずつ出ました。
IEだと無理です。

**458** · 03/06/17 00:17

うーんと、、、
1行ずつ表示する文字をdatなりに保存して読み出したいので、cgiがいいんですけどね～。。
javaはソース見え見えなのがいやだなぁ。。

**nobodyさん** · 03/06/17 00:18

>>465
WinのIE6で1秒ずつ表示になるね

**458** · 03/06/17 00:20

>>473
え？？？
俺、ローカル(Win)でやると、
あ 
い 
ってのが一気に表示されて、
レンタルサーバ(linux)だと、
ファイルのダウンロードになった

**nobodyさん** · 03/06/17 00:31

>>472
とりあえずJavaとJavaScriptは別モンだｺﾞﾙｧ!とお約束の突っ込み。

CGIでは、表示するぶんだけの文字列とそれを表示するためのJavaScriptを出力して
実際の表示はJavaScriptに委ねる、って意味なんだけど。
まあ、可能かどうかは分からんが。

**nobodyさん** · 03/06/17 00:39

初心者の質問で申し訳無いのですが
foreach文の中で次のループに移るコマンド(for文のcontinueみたいなやつ)
はあるのでしょうか？
御教授くださいませ。

**nobodyさん** · 03/06/17 00:40

sage忘れｽﾝﾏｿﾝ（；´Д｀）

**nobodyさん** · 03/06/17 00:43

>>476
next

あとsageてもスレが下がるわけじゃないんで。

**nobodyさん** · 03/06/17 00:48

>>476
goto

あとsageてもスレが下がるわけじゃないんで。

**nobodyさん** · 03/06/17 00:50

>>478,>>479
即レスありが㌧。早速試してみます。

**nobodyさん** · 03/06/17 01:02

しかし何で一文字づつ表示させたいの？
まさか、CGIで　よ　う　こ　そ　とか、下らない事やりたい訳じゃないよね。
JavascriptやFlashが無難だと思うけど・・・。

**nobodyさん** · 03/06/17 01:06

だよな
見るほうはさっさと表示されたほうがありがたいだろうに
自分のセンスでおもしろいカッコイイと思ってもみんながそうとは

**nobodyさん** · 03/06/17 01:08

皆さん目が悪いようなのでもう一度質問します。

SSIでCGIを呼び出そうとして失敗したときに
[an error occurred while processing this directive]
というエラー文が.sthmlファイルの中に出てくるんですが、
この文章を自由な文面に変更したり出来るんでしょうか？
出来ればリンクタグに変えたいんですが・・・

**nobodyさん** · 03/06/17 01:10

えっと、まずスレタイと>>1をどうぞ。

**nobodyさん** · 03/06/17 01:12

>>483

**nobodyさん** · 03/06/17 01:13

globについて質問ですが、

my $file = '/dir/*';
my @list = glob("$file");

このようなイメージでglob内ワイルドカードを
変数化することは可能でしょうか。

**nobodyさん** · 03/06/17 01:22

>>486
>>1を読んで出直せ。答える必要なし。

**nobodyさん** · 03/06/17 01:22

>>486
そのやり方じゃダメなの？

それより、何でスカラー変数をいちいち "" で囲むんだろう。
たまにリストでそれやってハマってる人がいるけど、なんかそういう参考書があるのだろうか。

**nobodyさん** · 03/06/17 01:29

>>483
頭が悪いようなのではっきり言っておきます。
Perlに関係ないだろうが。

**486** · 03/06/17 02:09

いや、ごめんなさい。

$file = '/dir/*';
my @list = <$file>;

はいかないのに

$file = 'dir/*';
my @list = </$file>;

はいったので、すごい疑問に感じ、ここでglobについて
質問させていただきました。
雰囲気を壊してしまいすみませんでした。

**nobodyさん** · 03/06/17 06:23

>>490
<$file>と書いた場合は、$fileがファイルハンドルと解釈されてるだけだよ。
<>演算子は、中身によって行入力になったりグロブ演算子になったりと、紛らわしい。
だからPerl5以降では、glob()を使ったほうがいい。

**nobodyさん** · 03/06/17 07:06

掲示板の記事削除処理において
ファイルを開き、記録された記事番号とパスワードを取りだし
入力されたパスワードと選択された記事をそれぞれ比較して
該当した記事以外を記録しなおすという処理を作ったんですが
いろいろいじってるうちになんだか変な動作するようになりました。
入力したパスワードが正しいとなぜが一番違いの記事のパスワードと比較します。
入力されたパスワードが間違ってると、その記事のパスワードと比較します。
何が悪いんでしょう？

**nobodyさん** · 03/06/17 07:07

foreach $line (@lines) {
$del = 0;
local($no,$key) = split(/,/,$line);
if( ( $FORM{'delete'} eq $key ) ){
if ( $no eq $FORM{'target'} ) {
$del = 1;
}
if ( $del == 0 ) {
push (@line2,$line);
}
}
else {
&error("キーが違います。");
}
}

**492** · 03/06/17 07:08

493も俺です(´∀｀;)

**nobodyさん** · 03/06/17 09:48

オブジェクト指向で書いているのですが、ファイルのラッパーのような
ものを作っています。その際、ファイルハンドルなどはインスタンスごとに
違うものにしたいのですが、どのようにすればよいのでしょうか？

滅茶苦茶な例なのですがC＆Perlで言うと下のようなイメージでやりたいと思っています
my $seif = shift;
$self->{handle} = fopen( …

**nobodyさん** · 03/06/17 10:39

>>495
IO::File

**>>492** · 03/06/17 13:30

foreach $line (@lines)
{
　　$del = 0;
　　local($no,$key) = split(/,/,$line);
　　if( ( $FORM{'delete'} eq $key ) ){
　　　if ( $no eq $FORM{'target'} ) {
　　　　$del = 1;
　　　}
　　　if ( $del == 0 ) {
　　　　push (@line2,$line);
　　　}
　　}
　　else {
　　　&error("キーが違います。");
　　}
}

字下げくらいしろ。
見易さが違うだろうが。

っといいつつ、俺はPerlに関しては初心者だからまだ分からんがな。
今アクセスログやってんねや。んじゃ

**nobodyさん** · 03/06/17 13:36

>>492-493
その書き方はおかしいだろう。
記事番号$noはユニークだろうが、パスワード$keyは同じ値が
ありえるはず。
評価の順番が逆だ。
これでどうだ？

foreach $line (@lines) {
local($no, $key) = split(/,/,$line);
if ( $FORM{'target'} eq $no) {
if ( $FORM{'delete'} ne $key ) { &error("キーが違います。"); }
} else {
push (@line2, $line);
}
}

書き直しただけで、上記は再考の余地あり。
最初のほうで一致しても最後までループ処理が続いてしまって無駄。

新着 · 03/06/17 14:12

ホームページはこちら--->　http://www.ecopig.jp/comucale/index.htm

**nobodyさん** · 03/06/17 14:23

質問です。
cryptの暗号化についてです。
cryptによる暗号化は、サーバーによって結果が異なるのでしょうか？
自分のローカル環境とinfoseekの鯖では同じ結果になったのに、
友人のFreeBSDの鯖では結果が異なりました。
ラクダ本も見てみたのですが、詳しく載ってないみたいで。

以下がソースです。
#!/usr/local/bin/perl

$salt = 'sa';
$key = 'hogehage';
$crypt = crypt($key,$salt);
print "Content-type: text/plain\r\n\r\n";
print "salt=$salt\n";
print "key=$key\n";
print "crypt=$crypt\n";

ローカルの結果が、
salt=sa
key=hogehage
crypt=saaqOoONNsWPU

友人の鯖での結果が、
salt=sa
key=hogehage
crypt=$1$sa$YaIYjBa3kyQD6Oqo6pfMi.

でした。
もし可能なら、暗号化した後の結果が同じにしたいのですが、
どなたか方法をご存知ないでしょうか？

**nobodyさん** · 03/06/17 14:34

というか、同じになったら暗号化にならないだろ。

**nobodyさん** · 03/06/17 14:37

同じ種と同じキーを使えば、同じ結果になるのがcryptではないんでしょうか？

**nobodyさん** · 03/06/17 14:40

>>500
cryptはOSによって暗号化のアルゴリズムが異なることがある
ttp://hasunuma.pobox.ne.jp/support/cyclamen.cgi?log=perl&tree=r18

こんなのを使う手もあるし
ttp://www.mikeneko.ne.jp/~lab/perl/des/

**500** · 03/06/17 14:56

>503
どうやら友人の鯖ではMD5がなにか関係しているようですね。
ライブラリの紹介もありがとうございました。
試してみたところ、これを利用すれば同じ結果になりました。
ありがとうございました。

**nobodyさん** · 03/06/17 15:37

CSVを開いたあと、各行（@values）について、
$LOCATION[$values[0]] = {
"locationname" => $values[1],

としているのですが、

@locationlist = split(/_AND_/,$in{'locationid'});
#（$in{'locationid'}は「1_AND_3_AND_7」のカタチで入ってきます。）
for($i = 0; $i <= $#locationlist; $i++){
　　$HtmlLocationList .= $LOCATION[$locationlist[$i]]->{locationname} . "***":
}

で、表示されるのでが「***」の部分だけで、
$LOCATION[$locationlist[$i]]->{locationname}の部分が表示されません。
なぜなのでしょうか？

**nobodyさん** · 03/06/17 16:03

document.write("◆リニューアルオープンいたしました！");
というものから、「◆リニューアルオープンいたしました！」を取り出したいのですが、

$JSAll =~ m/document\.write$\"(.*)\"$\;)/;

で。$1を得ようとすると、
/document\.write$"(.*)"$;)/: unmatched () in regexp at index.cgi line 34.
といわれてしまいます。
どうしたらちゃんと動くのでしょう？
そもそも、 unmatched ()ってどういう意味なのでしょう？

**nobodyさん** · 03/06/17 16:37

>506
()の数があってない。
板違いだが、1行目のJSすらエラーだな。

**nobodyさん** · 03/06/17 16:37

$str = 'document.write("◆リニューアルオープンいたしました！")';
$str =~ s/^\w+\.\w+$\"(.*)\"$$/$1/;

**nobodyさん** · 03/06/17 16:38

「２ｃｈからきました」ってコメントに書いたら値引きしちゃうよ(^_^)v
↓↓↓
　http://www.dvd-yuis.com/

**nobodyさん** · 03/06/17 16:41

$str = "abcdabcdef";
@array = split(/\t/, $str);

foreach $value (@array){
$flag = 0;
foreach (@result){
if($_ eq $value){ $flag = 1; }
}
if($flag == 0){
push(@result,$value);
}
}

重複した要素を除く処理を作ったんですけど無駄はありますか？

**nobodyさん** · 03/06/17 16:49

>510
ツッコミどころが多すぎてどこからつっこんでいいかわからん。
無駄以前に、思い通りの動作しないだろ。

**nobodyさん** · 03/06/17 16:51

>>506
エスケープしなきゃいけないんじゃないですか？

_ · 03/06/17 16:51

http://homepage.mac.com/hiroyuki44/

**nobodyさん** · 03/06/17 16:51

>>512
誤射、すいません。

**nobodyさん** · 03/06/17 16:52

>>510
漏れもそんなに詳しいわけじゃないが、こんなんは駄目か？

$str = "abcdabcdef";
@array = split(/\t/, $str);

foreach $value (@array){
$hoge{$value} = '';
}

foreach $value(keys(%hoge)){
push(@data,$value);
}

**nobodyさん** · 03/06/17 17:19

$a = 'abcdabcdef';
@a = split(//,$a);
for (@a) {
$a{$_} += 1;
}
@a = sort keys %a;

**nobodyさん** · 03/06/17 17:26

>>511
いえ、します。

>>515-516
ちょっと試してみます。

**nobodyさん** · 03/06/17 17:33

>511
@resultはどこから沸いて出たんだ？
$strにタブがないのにタブで区切ってどうするんだ？

**nobodyさん** · 03/06/17 17:33

>518 =~ s/>511/>510/;

**nobodyさん** · 03/06/17 17:34

>>510
その処理が、全体のパフォーマンスに影響するのかな？
影響しないなら、考えるのが無駄。

**nobodyさん** · 03/06/17 17:50

>518
@resultは宣言してないだけ、
タブが勝手に消えるのは２ちゃんねるの掲示板の仕様

>520
パフォーマンスのこともあるけど、
もっといい方法があるならそれを見て勉強になるし。

**nobodyさん** · 03/06/17 17:53

質問です。
ｻﾌﾞﾙｰﾁﾝのなかで、ｻﾌﾞﾙｰﾁﾝ書くのはなんか悪いことありますか？
グローバル変数つかうのと、一連の処理をすべて、同じブロックに入れるのはどれがいいでしょうか？

**nobodyさん** · 03/06/17 18:16

すみませんが、
正規表現で使う「=~」の「~」つまりチルダですが、これってチルダでいいですか？
というのは私の持っている本ではこの波が真ん中に来ていて、チルダに見えないんですよ。
実際これはチルダで委員ですか？

**nobodyさん** · 03/06/17 18:27

>522
サブルーチンの中にあるサブルーチンを
どこか別のサブルーチンから呼び出す時に
面倒だ罠。

**nobodyさん** · 03/06/17 18:28

>>523
それはフォントの問題。どうしても心配ならキャラコード調べてみれば？

**nobodyさん** · 03/06/17 18:28

>>524
その同じブロックにある中から以外から呼ぶことはありません。
それならどうでしょうか？

**506** · 03/06/17 18:31

>>507-508
ありがとうございます。

ところで、

$srt = 'document.write("◆ホームページがリニューアルオープンいたしました！")';
$str =~ s/^\w+\.\w+$\"(.*)\"$$/$1/;

print $str;
とやったのですが、
なんにもprintされません。確かに正規表現はあってるかと思うのですが・・・・・
わかるかたいらっしゃいますか？

**everybody** · 03/06/17 18:44

>>510
my %temp;
@a = grep !($temp{ $_ }++), @a;

**nobodyさん** · 03/06/17 18:56

>>526
local *hogehoge = sub {
return shift ** shift;
};

**523** · 03/06/17 18:59

チルダでよかったんですね。
動きました。
別のところでエラってました。スマソ

**nobodyさん** · 03/06/17 19:00

ttp://ritsumei.s20.xrea.com/x/

ここの掲示板のソースみてみれ・・・ﾜﾗﾀ

**nobodyさん** · 03/06/17 19:24

チルダではなくティルデ

**nobodyさん** · 03/06/17 19:48

よくBEGIN not safe after errors--compilation aborted at index.cgi line 48
っていうエラーを見るんですが。

BEGIN not safe after errorsってどういう意味ですか？

**nobodyさん** · 03/06/17 19:58

>>529
その手があったか!?ありがとうございます。
それを、ブロック内で呼び出せば、その中の変数使えますよね。

**670=676** · 03/06/17 20:31

>>527
自分の書いたコードをよーく見てごらん。
ちなみに、「"」はメタ文字じゃないから、「\」はあってもなくてもいいよ。

**nobodyさん** · 03/06/17 20:39

535です。↑HNは前に別スレに書いたものが残っていただけです。

**525** · 03/06/17 21:58

>>527

１０回＊３０秒くらいみたのですが、わかりませんでした・・・
どうみても正しいようにしか見えないのですが、
どうしてこんな結果になるのでしょう・・・

どうか教えてください。。。

**nobodyさん** · 03/06/17 22:13

>>537
--- test.p ---
$srt = 'document.write("◆ホームページがリニューアルオープンいたしました！")';
$str =~ s/^\w+\.\w+$\"(.*)\"$$/$1/;
print $str;
---
> perl -wc test.p
Name "main::srt" used only once: possible typo at test.p line 1.
test.p syntax OK
>

**nobodyさん** · 03/06/17 22:24

>>533
http://www.kt.rim.or.jp/~kbk/perl5.doc/perldiag.html

**458** · 03/06/17 23:41

ほんとしつこいけどお願いします。
おっしゃられたとおり、私の環境がおかしいにしても、mt-load.cgiのは正常に表示されるんです。。
だれか、教えてくださいまし・・・・

**nobodyさん** · 03/06/17 23:48

>540
そのしつこさを別の方向に向ければいいのに。
正常に動くスクリプトがあるなら、いらない部分をガンガン削って、どの部分でそれを表現してるか調べてみるとかあるだろ。

レス遡るのもマンドクセ。

**nobodyさん** · 03/06/17 23:48

>>537
ソースを１文字ずつ声に出して読んでみれば分かる。

>>540
しつこいよ。
そのソースを解析すりゃいいだろう。

**座敷荒氏** · 03/06/17 23:50

Perlでファイルの存在確認をして
Sｈｅｌｌに結果を渡すようにしたいのです。

Perlでtestコマンドを実行してから結果を
どうやってShellに引き渡せばいいのでしょうか？

最終的には1ではなく100や255エラーを返すようにしたいのですが。

**525** · 03/06/18 00:00

>>538
それは、たぶんですが、
文法は間違いないということですよね？

なぜ、$strが空になってしまうのか、教えていただけませんか？
（それともデバッガになれてないので勘違いしてるのかしら）

**nobodyさん** · 03/06/18 00:05

この板ってｶｽばっかだな
あってもない自分の脳内知識をお互いに自慢してる。
横から見てるとﾊﾗｲﾃｰﾖ

**nobodyさん** · 03/06/18 00:14

>>543
exit $error_number;

**nobodyさん** · 03/06/18 00:24

>>544
Name "main::srt" used only once: possible typo at test.p line 1.
(main パッケージの srt という名前の変数は一度しか使われていません。
誤字の可能性があります。(test.p の 1 行目))

**547** · 03/06/18 00:29

>>544
s/の変数//;

**nobodyさん** · 03/06/18 00:39

>>544
なぜって……さっきからみんな指摘してるよ。

**nobodyさん** · 03/06/18 00:41

（≧∇≦）ぶぁっはっはっ！！まだ気がついてなかったのか

(･∀･)ﾉ"　またあとで見に来るよん

**506** · 03/06/18 01:07

ああああ、情けない。。。。
しかし、デバッガって便利なんですね。使ってみよう。
いままでKCatchしか使ってなかった。