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 12:04

>>426
どいうこと？ワイルドカード使ってやる方法キボンヌ。
awkにできてPerlにできないはずないだろうから。

**nobodyさん** · 03/06/16 12:07

>>425
http://www.google.com/search?num=100&hl=ja&inlang=ja&ie=Shift_JIS&safe=off&c2coff=1&q=perl+http+get&lr=lang_ja

**nobodyさん** · 03/06/16 12:11

>>427
できません

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

>>428
ありがとうございます

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

>>429
厨め。できたよ。教えてやらない。

**nobodyさん** · 03/06/16 12:59

>>425
>>398は無視か？この糞野郎。二度と来んなﾎﾞｹ。氏ね。

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

この場合は
$a = 0;
if (!$a)
真でいいんですよね。
では↓こういう式の時は
if (!($a==0 && $b))

変数が
$a = 1 $b = 1 の時は偽
$a = 1 $b = 0 の時は真
$a = 0 $b = 1 の時は偽
$a = 0 $b = 0 の時は偽

でいいのかなそれとも

$a = 1 $b = 1 の時は真
$a = 1 $b = 0 の時は真
$a = 0 $b = 1 の時は偽
$a = 0 $b = 0 の時は真

こっちでしょうか? よろしくお願いします。

**nobodyさん** · 03/06/16 13:50

>>433
そこまでわかってるなら自分で試せよ…。

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

>>419
ASCIIモードで転送しろ
と誰も言わないのはなぜだ・・・

**nobodyさん** · 03/06/16 13:59

>>433
なんだ、そのif文の条件は。
ただの嫌がらせだろ。

$aが真であり、なおかつ、$bが偽の場合という条件。

**nobodyさん** · 03/06/16 14:08

>>434
自分で書いたものではなくて試そうにも中に実際中に何が
はいっているのかも解らず1つ1つ解決していこうとは思っているのですが、
検索したり、リファレンスみたりしてるのですが、こういった例が見当たら
なかったので質問しました。よろしくお願いします。

**nobodyさん** · 03/06/16 14:13

>>436
ありがとう。助かりました。

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

>437
ローカルにテスト環境を作って試す。
これ常識。
マジで。

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

>>439
一応ためしているのですが
解ったことは
$a = 0　$b = 0 は実行されているみたいです。
でもそれだとアレ?

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

>>437
まあマジレスすると

$a=1;
$b=1;
if (!($a==0 && $b)){
print "ok\n";
}

こんな感じにして、４回変数を書き換えればテストは出来る。
記述が正しいかの動作確認だけなら、一々スクリプト全体を
見直す必要は無い。

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

>>441
ありがとうございます!!
結果がわかりました。
でも、頭で理解しようとすると自分にはとても難しい。。。

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

メールフォームを作ってます。
$addr = $ENV{'REMOTE_ADDR'};
でＩＰアドレスを取得するように設定したのですが
友人に送ってもらったメールのＩＰアドレスと自分で送ってみたものが
同じＩＰアドレスになってました。
なんでー？？？

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

>>443
念のため確認だが、実は二人とも同じケーブルで同じ収容局とか、
そういった落ちは無いよな？

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

>>443
> なんでー？？？
あなたの描いたスクリプトがバカだから。
と答えて欲しいの？

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

>>443
REMOTE_ADDRが同じだったから。

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

>>425
$port = getservbyname('http', 'tcp');
$iaddr = inet_aton($host);
$sock_addr = pack_sockaddr_in($port, $iaddr);
socket(SOCKET, PF_INET, SOCK_STREAM, 0);
connect(SOCKET, $sock_addr);
select(SOCKET); $|=1; select(STDOUT);
print SOCKET "GET /$path HTTP/1.0\r\n";
print SOCKET "\r\n";
@get = <SOCKET>;

こんな感じで

**443** · 03/06/16 18:05

REMOTE_ADDRは同じではないと思います。
住んでる所は友人は関東で私は中部だしプロバイダーも違うし。
$addr = $ENV{'REMOTE_ADDR'}; の箇所以外に
ＩＰ取得に干渉するものがあるんでしょうか？
もちょい試行錯誤してみます。

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

1秒ごとに@dataの文字を書き出したいのですが、
↓のようにすると、sleep(1)×配列の個数ぶん待った後
一気に出力されます。。
1文字づつ1秒間隔で出力したいのですが、、どこがまちがってますか？

@data = ("あ","い","う","え","お","か","き","く","け","こ");

print "Content-Type: text/html\n\n";
print "<html>\n";
print "<title>self</title>\n";
print "<body>\n";

for($i=0; $i<=$#data; $i++){
print "$data[$i] \n";
sleep(1);
}

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

>>449
CGIスクリプトとして動かしてる？

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

>>450
どういうことでしょうか？
ローカルで動かしているんですが、
AddHanderもして、
拡張子もcgiで、ちゃんとスクリプトのはずですが。。。

**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
その同じブロックにある中から以外から呼ぶことはありません。
それならどうでしょうか？