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

【Perl 】初心者コーナーPart8

■ このスレッドは過去ログ倉庫に格納されています
0001名無しさん＠お腹いっぱい。01/10/24 14:11ID:???
いらっしゃーい、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を見よう。
0313名無しさん＠お腹いっぱい。01/11/16 01:07ID:???
shige虫がｳｻﾞｲからです　　ｗ
0314名無しさん＠お腹いっぱい。01/11/16 05:11ID:???
>>308 むかしはCGI/Perl板だったから、こっちでやれってことじゃない？今でも。
>>312 それはただ単に世間が狭いからでは？ Autoconfの一部, tmake(Qt), fmlとか幾らでもあるでしょ。
0315名無しさん＠お腹いっぱい。01/11/16 05:27ID:???
Perlしか出来ないCGI厨も多いのも事実だな(w
0316名無しさん＠お腹いっぱい。01/11/16 07:11ID:???
Perlしか出来ないCGI厨は氏ね。
0317名無しさん＠お腹いっぱい。01/11/16 10:40ID:???
Perlすら満足に出来ないCGI厨も居るがな。
0318名無しさん＠お腹いっぱい。01/11/16 13:40ID:???
>>315はまだいい。ってか折れだし。
>>317はマジ迷惑。
0319名無しさん＠お腹いっぱい。01/11/16 14:08ID:???
どこまで出来れば「満足に出来る」ことになるんだろう・・・（ぼそっ）
perl理解して無いより、CGI理解してない方が迷惑だけど、それはまぁいいや。
0320名無しさん＠お腹いっぱい。01/11/16 22:12ID:eZwp685j
$ENV{'HTTP_HOST'}$ENV{'SERVER_NAME'}$ENV{'SERVER_ADDR'}
って全部同じ？
0321名無しさん＠お腹いっぱい。01/11/16 22:17ID:???
>320
ＬＡＮを組んだローカルサーバーで試してみそ。
0322名無しさん＠お腹いっぱい。01/11/16 23:49ID:WbULnsbP
>>321

どんな環境で試すと。。。3つ同じになるのかよく考えてみよう
032332101/11/17 00:24ID:???
>322
俺はこれで違うものが出るからこう言ってるんだけど？
>320はそれが全部同じ物と思ってるんでしょ？
反例出せばいいのかと思ったんだけど違ったならスマソ。
0324名無しさん＠お腹いっぱい。01/11/17 10:00ID:caH7oXws
２つの変数($HOGEと$SAGE)の値を交換する方法を教えてください

今現在、
$TEMP = $HOGE ;
$HOGE = $SAGE ;
$SAGE = $TEMP ;
にしてるわけですが非効率ですよねぇ
0325名無しさん＠お腹いっぱい。01/11/17 10:06ID:???
($hoge, $sage) = ($sage, $hoge)
032652101/11/17 10:10ID:FtGVdyVD
そのやり方で良いよ、仮に「2つの変数を入れ替える関数」が有ったとしても(無いけど)
どちらかをtempの領域にコピーして入れ替えた後復帰してる事に変わりない
メモリを使わずに空中で交換なんて出来ないんだから。
もしHOGEとSAGEが大きな変数ならリファレンスを使おう
0327名無しさん＠お腹いっぱい。 01/11/17 10:11ID:???
ぐはっ、HNが
0328名無しさん＠お腹いっぱい。01/11/17 15:58ID:???
> メモリを使わずに空中で交換なんて出来ないんだから。
xorしてxorしてxorすればテンポラリ領域なしで交換できるよ。
でも、素直にテンポラリ使った方が速い、安全、わかりやすい。
0329名無しさん＠お腹いっぱい。01/11/17 16:29ID:???
本当だ。数値なら、
$b+=($a=($b+=$a)-$a);
で入れ替わる。
0330名無しさん＠お腹いっぱい。01/11/17 18:51ID:???
$b -= ($a = ($b += $a) - $a);
じゃないか？
033132901/11/17 19:21ID:???
>>330 本当だ。どこでコピペをミスったのだろう。。。(鬱
0332　01/11/17 21:16ID:hnjwBqTf
Windows2000、ActivePerlです。
ActiveState Perl Dev Kitをインストールして使っていて、

C:\>perl -d hoge.perl
で自動的にGUIベースのデバッガが自動で起動しますが、CUIでデバッグ
したいときだけCUIデバッグを開始する方法ありますか？
0333名無しさん＠お腹いっぱい。01/11/17 23:34ID:JGfA8W5O
スゲー
$b ^= $a ^= $b ^= $a;
で入れ替わるんだ。 これだと文字列でもできるんですね。
0334名無しさん＠お腹いっぱい。01/11/17 23:58ID:???
>>333
長いほうにあわせてzerofill(?)されるので問題ありとか。
033533301/11/18 00:05ID:???
本当だ。整数同士、文字列同士なら問題なさそうだけど、
少数が混ざったり、整数と文字列を交換しようとしたらダメなんですね。
確かにリスクが多そうだ。
0336名無しさん＠お腹いっぱい。01/11/18 00:34ID:???
アクセス解析で訪問者のドメインを取得しようとしたんですが、
下の書き方だとCGIを置いてるサーバーのドメインが取得されて
しまいます。どこが間違ってるのでしょうか？

$a1 = $ENV{'HTTP_HOST'};

open (ANSWER, ">>data.txt");
flock (ANSWER, 2);
print ANSWER "$a1\n";
flock (ANSWER, 8);
close (ANSWER);
0337名無しさん＠お腹いっぱい。01/11/18 00:57ID:???
ファイルを1ビットずつコピーするっていうやつを何処かで見かけて、
使ってみようと探してみたら見つかりません。（Perlメモだったと思ったけど、見つからない・・・）
ご存知の方教えてください。　よろしくお願いします。

>>336 $ENV{REMOTE_ADDR}でいけるはず
0338名無しさん＠お腹いっぱい。01/11/18 01:00ID:???
HTTPリクエストヘッダについて学んで下さい。
0339名無しさん＠お腹いっぱい。01/11/18 01:05ID:???
>>336
普通は $ENV{REMOTE_HOST}だとおもう。
034033601/11/18 01:29ID:jf4mdJsf
>>337
$ENV{REMOTE_ADDR}だとIPが取得されてしまいます。
>>339
$ENV{REMOTE_HOST}だと何も取得出来ないのですが・・
0341名無しさん＠お腹いっぱい。01/11/18 01:37ID:GYkHI9xF
>>339
サーバの設定によってはいちいち逆びきしないのも
あるんじゃなかったけ？
034234001/11/18 01:40ID:GYkHI9xF
おお、かぶった。
>>341
gethostbyaddr を使うことになると思う。
CPAN突っ込めるならもう少し楽になる。
0343340!=341=34201/11/18 01:48ID:GYkHI9xF
342>340だった。
CPAN使わんでも標準モジュール(perl-5.6.1では)で
Net::hostent というのがあった。
0344　01/11/18 07:40ID:ec8bnEpU
locationやredirectを使わず、CGIから直接ファイルをダウンロードさせる事って出来ますか？

print "Content-type: application/download\n";
print "Content-disposition: filename=\"test.lzh\"\n\n";　だと駄目みたいです
0345　01/11/18 07:43ID:???
あれ？これは全然違ったかな
やっぱりブラウザからGET送られないと無理ですかね・・・
0346名無しさん＠お腹いっぱい。01/11/18 10:02ID:???
>>344
FAQかな？ここに書いてあったよ。
http://web11.freecom.ne.jp/~chaichan/qanda/qa414.htm
034733601/11/18 14:08ID:HApvi2Od
>>336
誰か教えて〜
0348名無しさん＠お腹いっぱい。01/11/18 14:25ID:???
>>347
>>342に答えあるだろうが…。
034934801/11/18 14:26ID:???
それで分からなきゃ検索しなさい。
検索して分からないようなら
自治体主催のIT講習会でも行って来なさい。
0350名無しさん＠お腹いっぱい。01/11/18 14:43ID:???
>>349
ここは初心者用スレだというのがわからんのか？
0351名無しさん＠お腹いっぱい。01/11/18 14:53ID:???
>>350
だから何か？
0352名無しさん＠お腹いっぱい。01/11/18 14:58ID:???
・初心者向け結論・
サーバーの設定によってはリモートホストは取得できない。
ＩＰで我慢すれ。
035334401/11/18 18:07ID:???
>>346さんので成功したんですが、
Perlを通して吐き出す際、壊れてしまうみたいです。(Windows+ActivePerlで.zipを出力)

foreach $_ (@temp) {
　　$_ =~ s/\n//g;
　　print $_;
}
とりあえずこれで\nは消してみたんですが、後ろの方がさっぱり消えてしまいます。
(.rarに関してはRar!としか出ません・・・)
何をどう置き換えればいいんでしょうか？
0354名無しさん＠お腹いっぱい。01/11/18 18:36ID:???
binmode()
035535301/11/18 21:14ID:???
>354 出来ました！　もっと調べるべきでした。すいません
0356RA・イール01/11/19 15:45ID:jO7Jmwt3
300で質問している者です。度々申し訳ありません。
grepの部分で
１.　$command .= '"/usr/bin/grep ' . "\'$string\' " . "$filepath " . "| head -n $linenum \"|";
１のようにした場合、２バイト文字や記号等も拾ってくれるのですが
２.　$command .= '"/usr/bin/grep -h "' . "^$day_string" . '" ' . "$filepath " . "| grep " . "\'$string\' | head -n $linenum \"|";
上記の場合、２バイト文字や記号等を認識してくれないのですがどうしてでしょうか？
どうすればよいのかアドバイスしていただけないでしょうか？
よろしくお願いします。
0357名無しさん＠お腹いっぱい。 01/11/19 16:05ID:???
良く解らんけど、2回目のgrepの手前でnkf通すとどうなる?
2バイトはさっぱりだけど＆％＄とかは2回通ったけどなぁ･･･
Unix板のハッカーに聞けばどしどし答えてくれそう　（＾＾；
0358名無しさん＠お腹いっぱい。01/11/19 16:06ID:???
あ、違った。パイプから返ってくる時におかしくなってるのか？
だったら解んないっす
0359名無しさん＠お腹いっぱい。01/11/19 19:04ID:pdb1llN8
>>を見つけたら置換したいんですが上手くいきません

$test =~ s/>>/aa/g;

>>の指定はどのようにしたらいいのでしょうか
0360名無しさん＠お腹いっぱい。01/11/19 19:21ID:???
んなこたあ無い
0361名無しさん＠お腹いっぱい。01/11/19 20:48ID:f2JzrPLI
掲示板の改造してたんですが
>じゃなくて>に中で変換されていました・・・
0362名無しさん＠お腹いっぱい。01/11/19 20:49ID:f2JzrPLI
↑＆ｇｔに変換されていました
（半角で書くと変換されちゃうんですね）
0363名無しさん＠お腹いっぱい。01/11/19 21:32ID:j7n2AWkf
デザイン的に良くないので、petitboardの著作権表示を修正したら動かなくなったんですけど、何故でしょうか？
冬厨ですみません。
0364名無しさん＠お腹いっぱい。01/11/19 21:48ID:???
>363
http://pc.2ch.net/test/read.cgi/php/988808396/
どうぞこちらへ。
0365名無しさん＠お腹いっぱい。01/11/19 21:53ID:j7n2AWkf
>>364

flock(OUT, 8);
close (OUT);

を、

exit;

に変えればよろしいのですか？
0366名無しさん＠お腹いっぱい。01/11/19 22:19ID:???
そのとおりです！！
凄いですね　(^ｖ^
0367名無しさん＠お腹いっぱい。01/11/19 22:29ID:WFMClysi
data.txtに
1・・
2・・
3・・
・
・
と並んでいるのを読み込み、上から「10件まで」と件数を決めて
別のファイルに書き込みたいのです。
openやprintの使い方はわかるのですが、件数の決め方がわから
ないので教えて下さい。
0368名無しさん＠お腹いっぱい。01/11/19 22:39ID:???
openやprintの前にforの使い方をおぼえよう（ｗ
0369名無しさん＠お腹いっぱい。01/11/20 00:17ID:???
>>368
forの方が後だろ(w
0370名無しさん＠お腹いっぱい。01/11/20 00:19ID:???
>>369はforで挫折したそうです　pupu
0371名無しさん＠お腹いっぱい。01/11/20 00:34ID:???
>370
他人を主人公にして自分の思い出を語るのはやめれ。
0372名無しさん＠お腹いっぱい。01/11/20 00:45ID:???
鋭いですね、そのとおりです>>371さん
あれは小学5年頃の話でしょうか
話について来れなくて気を悪くなされたならごめんなさい。
0373名無しさん＠お腹いっぱい。01/11/20 01:31ID:???
a.cgiからb.plのサブルーチンを呼び出す事は可能でしょうか？
0374名無しさん＠お腹いっぱい。01/11/20 01:35ID:???
require または　use
ってことでしょーか？
0375名無しさん＠お腹いっぱい。01/11/20 03:42ID:???
>>370、372

369をどう読めばforで挫折したと解釈出来るんだ？
ぼうやはforより先にひらがなを勉強すべき(w
0376名無しさん＠お腹いっぱい。 01/11/20 06:49ID:???
(w(w
0377名無しさん＠お腹いっぱい。01/11/20 17:18ID:???
小学校５年生の頃といえば・・・ベーマガに投稿した自作ＰＲＧが掲載された頃ゾヌ
あの頃はフロッピーディスクなんて高嶺の花・・・
0378名無しさん＠お腹いっぱい。01/11/21 01:35ID:???
Perlってヌルターミネートして、文字列を分割とかって出来ない?
例えばstring = "hoge#poyo#1000#comment"、みたいなデータが有ってCommentだけが
不定長だとするとCとかならstring[4] = '\0';とかしてmoveせずにガンガン使えるんだけど
splitだとCommentの最後までループしちゃうし、値をコピーするから
凄く遅そうですよね。commentが10000バイトとかだと結構差が有るんで
何とかしたいんです。
BBSなんかの行解析は大抵splitを使ってるけど・・・・
indexとか使って上手く出来ないですかね････
0379適当に即答。01/11/21 01:41ID:???
s/^(.*?)#/\1/ じゃだめ？
0380名無しさん＠お腹いっぱい。01/11/21 07:57ID:???
>378
comment以外が固定長なら
substr($string,14,length($string))
でできないかな？
0381名無しさん＠お腹いっぱい。01/11/21 20:46ID:???
>377
３０代オヤヂ族かよ（ｗ
いいトシして板スレ違いは自粛しようぜ（大爆笑）
0382名無しさん＠お腹いっぱい。01/11/21 22:47ID:???
ごめんチャイナ（ぐすん）
0383名無しさん＠お腹いっぱい。01/11/22 13:24ID:???
それってもへんじょだろ？
0384名無しさん＠お腹いっぱい。01/11/22 14:27ID:???
うむむ。。。本当にそれでインカ？
0385名無しさん＠お腹いっぱい。01/11/23 06:07ID:rvdfMFcf
Perlの練習に一番いいエディタって何でしょう？
今Vivi使ってますが試用期間過ぎてるのでウザイです。
シェアの定番は秀丸というのは知ってますがフリーで
いいのありませんか？
あまりいいのなければViviに3000円出そうと思ってるのですが。。
0386_gunzip@vimﾏﾝｾｰ01/11/23 06:39ID:???
>>385
Viviっていえば、たしかvi互換エディタだったよね？
Windows版vim(gvim)はどうでしょうかね。

本家 http://www.vim.org/
Windows版 http://www.kaoriya.net/（日本語）
0387名無しさん＠お腹いっぱい。01/11/23 06:45ID:???
Perlで書かれたCGIスクリプトをコンパイルしたいんですけど、
そのためのツールは何て名前でしたっけ？
いくら検索しても見つかりません。
よろしくお願いします。
0388白夜 ◆GiKO.QrM 01/11/23 07:06ID:???
＞385
パールエディタってのを一応持ってる。
あんまり使わないけど一応フリーなんで。

ttp://www.k-collect.net/
0389名無しさん＠ＸＥｍａｃｓ01/11/23 07:14ID:MqJMqOjc
>>387
perlcc
perl2exe
0390名無しさん＠お腹いっぱい。01/11/23 11:53ID:???
開発には向かないが、Copalってのもある。。。ちょっとしたコードのテストに使ってる。
0391名無しさん＠お腹いっぱい。01/11/23 16:39ID:???
>385
Tera Padというのが雑誌で評判よかったのでDLしてみたけど
マルチウィンド出来ないので使いづらかった。
やはりいいやつはお金出すしかないかも。
0392名無しさん＠お腹いっぱい。01/11/23 23:17ID:???
>>385

…せっかくだから定番だがXEmacsとかMeadowとかxyzzyとか。
0393名無しくん01/11/24 00:03ID:???
>>385
Meadow最高！
0394名無しさん＠お腹いっぱい。01/11/24 00:08ID:2uJfuz0i
そうそう、そして秀丸に行くんだよ。
地味な面構えが邪魔にならなくて素敵。
って、お試しで使い始めたばかりの奴が言うのもなんだけど。
0395正規表現わけわからん01/11/24 00:08ID:ZE9o/Xh4
２ちゃんねるみたく「ｈttp://・・・」があったら、アンカーでリンク貼るみたいな
のってどうやればいいんですか？
0396名無しさん＠お腹いっぱい。01/11/24 01:43ID:???
>>395
http://pc.2ch.net/test/read.cgi/php/996105815/104-
0397正規表現わけわからん01/11/24 01:50ID:???
>>396
まじさんくす！ログ全て読む気になれなかったんで。
0398名無しさん＠お腹いっぱい。01/11/24 02:21ID:QdQjjDaq
いちごちゃんねるが今移転してますけど、
サイト全体をgzip+tarで圧縮、新サーバーへファイルを転送、解凍
というプロセスでサイトの移転は出来ますか？
パーミッションをそのままでできたらいいな、と思うのですが。
0399名無しさん＠お腹いっぱい。 01/11/24 02:30ID:???
http://www.linux.or.jp/JM/html/GNU_tar/man1/tar.1.html
0400名無しさん＠お腹いっぱい。01/11/24 07:30ID:???
質問なんですが。
日付を乱数に変換したいのですがどうすればいいでしょう？

たとえば01/11/24 02:30をランダムな英数字に暗号化のやり方が
わかりません。

一応自分なりに考えて
日付 = (( 日付 ) + 1 ) * 123;
などのように考えてやってみたのですが
どの日付も同じ結果になってしまって・・・。

だれかヘルプミー（；；
0401名無しさん＠お腹いっぱい。01/11/24 07:46ID:???
>>400
$salt = "abcde";
crypt($salt, time());
0402名無しさん＠お腹いっぱい。01/11/24 07:53ID:???
>>401
ちょっと質問していいですか？
そのcryptとはどういう意味を持つ単語でしょうか…。

$salt = "abcde";
crypt($salt, time());

って、$salt = "abcde";で、$saltはabcdeという意味にしてってところまでは
わかるのですが、下のcrypt($salt, time());がよくわからないので・・・。
time()が上で私がいった日付のことで、
で、ランダムにした日付を表示させたい場所に$saltを書くってとこまで理解したのですけど・・・
0403名無しさん＠お腹いっぱい。01/11/24 07:56ID:???
crypt($salt, time())＝crypt(abcde, 日付);　として、
cryptはどういう効果を出すんでしょうか。
あと$saltとtimeの間にいれる,もよくわからなくて・・・。

cryptはシャッフル。
,は合わせるという意味で、

シャッフル（abcde　合わせる　日付）

という感じなんですか？
0404名無しさん＠お腹いっぱい。01/11/24 08:19ID:???
>>403
あ、引数逆だった。 crypt(time(), $salt) でよろしく。

$perldoc crypt
$man 3 crypt
http://www.nlp.ie.niigata-u.ac.jp/~hiro/parole/kh.html
0405これを読んでも。。。結局わかりにくいかな？01/11/24 16:01ID:???
>>400 「日付を乱数に変換する」という、考え方そのものに抜けがあるんです。
乱数というのは、求める度に違う数になって、別々に出した乱数が同じ数字になることはあり得ないものです。

日付を乱数に変換しても、適当に乱数を求めても、本質的な違いはないはずなんです。
ただ今の普通のコンピューターには本当の乱数を出す機能はありませんので、
「日付を種に、擬似乱数を生成する」ということはあります。(種が日付だけだと、かなり危険ですが。)
でもこれはたぶんおっしゃられていることと違うと思います。

日付から、一見でたらめに見える数を求めるということがしたいのだと思います。
このとき、日付→数 は求められても、 数→日付は求められないようにするのが、
「ハッシュ関数」というものです。
ハッシュ関数の場合、入力が同じである場合、出力は必ず同じものになります。
だから、考えられる全ての日付を入力して再計算をすれば、どの日付から求めたのかは
たちどころにわかってしまいます。
そのような攻撃をちょっとだけ、やりにくくするのが、味付け作業(塩を振る)という作業です。
ただ、saltは4096通りしかあり得ないので、総当たりすればばれてしまうことには代わり有りません。
注意が必要です。

最近は、cryptよりもmd5の方が流行っています。
2chでは、トリップはcryptで、IDはmd5でやっているようです。

数→日付 の再計算ができるようにしておくこともあります。この場合は、
共有鍵暗号や、公開鍵暗号を使うことになります。
0406名無しさん＠お腹いっぱい。01/11/24 16:12ID:???
ufc-cryptが最強、これホント
0407名無しさん＠お腹いっぱい。01/11/24 16:53ID:???
2chのID生成ってどうやってんだろ。
040840301/11/24 23:00ID:???
>>405-405
ありがとうございます！
なんとなくわかりました。
あとは私自信の勉強あるのみですね。

ほんとにどうもありがとう
0409名無しさん＠お腹いっぱい。01/11/24 23:28ID:PCZZBwJC
くだらない質問でしょうがお願いします。

PerlでＣＧＩの勉強をしようと想い、参考書に付属してあった
PerlとApacheというWebサーバをインストールしました。
そしてまず基本の文字を出力すると言うコードを書き、
ＩＥのブラウザから、そのＣＧＩファイルがあるディレクトリを指定したのですが、
ブラウザに表示されず、そのＣＧＩファイルをダウンロードしてしまいます。
ＩＥの設定が間違っているのでしょうか？
解決方法お分かりでしたら教えてください
0410名無しさん＠お腹いっぱい。01/11/24 23:42ID:???
>>409
貴方はとんでもない思い違いをしています。
参考書をもっとよく読みましょう。
041140901/11/24 23:58ID:???
>>410
もう一度読みましたが分かりませんでした。
このApacheというソフトをインストールし、起動していれば
通常のようにネットに繋いでサーバにアクセスしなくてもいいんですよね？
どうか先ほどの説明して頂けないでしょうか
0412名無しさん＠お腹いっぱい。01/11/25 00:20ID:???
普通は、パーミッションを疑う。
■ このスレッドは過去ログ倉庫に格納されています