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を見よう。

0342340

01/11/18 01:40ID:GYkHI9xF

おお、かぶった。
>>341
gethostbyaddr を使うことになると思う。
CPAN突っ込めるならもう少し楽になる。

0343340!=341=342

01/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

0347336

01/11/18 14:08ID:HApvi2Od

>>336
誰か教えて～

0348名無しさん＠お腹いっぱい。

01/11/18 14:25ID:???

>>347
>>342に答えあるだろうが…。

0349348

01/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:???

・初心者向け結論・
サーバーの設定によってはリモートホストは取得できない。
ＩＰで我慢すれ。

0353344

01/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()

0355353

01/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生成ってどうやってんだろ。

0408403

01/11/24 23:00ID:???

>>405-405
ありがとうございます！
なんとなくわかりました。
あとは私自信の勉強あるのみですね。

ほんとにどうもありがとう

0409名無しさん＠お腹いっぱい。

01/11/24 23:28ID:PCZZBwJC

くだらない質問でしょうがお願いします。

PerlでＣＧＩの勉強をしようと想い、参考書に付属してあった
PerlとApacheというWebサーバをインストールしました。
そしてまず基本の文字を出力すると言うコードを書き、
ＩＥのブラウザから、そのＣＧＩファイルがあるディレクトリを指定したのですが、
ブラウザに表示されず、そのＣＧＩファイルをダウンロードしてしまいます。
ＩＥの設定が間違っているのでしょうか？
解決方法お分かりでしたら教えてください

0410名無しさん＠お腹いっぱい。

01/11/24 23:42ID:???

>>409
貴方はとんでもない思い違いをしています。
参考書をもっとよく読みましょう。

0411409

01/11/24 23:58ID:???

>>410
もう一度読みましたが分かりませんでした。
このApacheというソフトをインストールし、起動していれば
通常のようにネットに繋いでサーバにアクセスしなくてもいいんですよね？
どうか先ほどの説明して頂けないでしょうか

0412名無しさん＠お腹いっぱい。

01/11/25 00:20ID:???

普通は、パーミッションを疑う。

0413名無しさん＠お腹いっぱい。

01/11/25 01:09ID:ytkqM1hX

ファイル読み込みについて質問です。
open(DATA, "<./honbun.dat");
$bundata = <DATA>;
としてhonbun.datというファイルを$bundataに全て読み込めるのですが
下記のようにファイルパスを絶対参照にするとエラーが出てしまいます。
open(DATA, "<http://www.domain.com/honbun.dat");
下記のようなエラーメッセージです
[an error occurred while processing this directive]
パスを変更しただけで、他は何も変えてないんですが。
ちなみにSSIのincludeを使ってCGIを呼び出してます。
対処法アドバイスお願いします。

0414すみません

01/11/25 01:21ID:2tsqouHY

Perlの本についているCDからPerl　For　Win32とJPerl　For　Win32を
インストールしました。

そこから、その本に書いてあるとおりにプログラムを始めたいのですが、
メモ帳で作っても良い、という風に書いてあったのでメモ帳で書いたのですが。
メモ帳で作ったデータをhello.plという名前で保存して、
MS　DOS　プロンプトでperl hello.plとしても、
Can't open perl script"hello.pl"～以下と出てしまいます。
確認しましたが、確かにPerlのインストールはされていたのです。（Cドライブに入れました）
これにはどのような理由が考えられるでしょうか？

0415413

01/11/25 01:25ID:???

>>414
perlのパスを通してないとか？または
hello.plを保存したフォルダに移動してないとか？

0416名無しさん＠お腹いっぱい。

01/11/25 02:13ID:zHplANiE

>>409

>ＩＥのブラウザから、そのＣＧＩファイルがあるディレクトリを指定したのですが、
「アドレス」で指定せずに「ファイル」→「開く」にしたんじゃ？

0417413

01/11/25 02:15ID:ytkqM1hX

何度もすみません、>>413の質問内容を補足します。
他のサイトのhtmlファイルを読み込みたいんです（許可はとってあります）
その際、>>413のようにopenでアドレス指定でいいかと思ったんですが、
うまくいかないのです。それ以前に自分のサイト内でも絶対参照でopenしようと
してもエラーが出ます。読めていたファイルが絶対参照にしただけで読めなく
なるのでパーミッションではないと思うんですが。

0418名無しさん＠お腹いっぱい。

01/11/25 02:38ID:???

httpとOSのパスは違います
あなたが ./hoge.html とか index.html で読めていたファイルの
絶対パスは C:\www\hoge.html や /home/foo/public_html/index.html
で http://bar.com/hoge.html では***ありません***
って言うかそんな事出来たら困るでしょ?
httpd 仮想パスで検索しよう

0419413

01/11/25 02:49ID:ytkqM1hX

>>418　ありがとうございます。検索したらいっぱい出てきました。
ニュース記事のhtmlから見出し記事を自動抽出しようと思ったんですが。
（くどいですが許可はとってます）
見出しをdatにしてないのでhtmlから読み込むしかないよ～と言われたもので
そのまま出来るのかなぁと。
調べてはみますが、無理って事なんでしょうか？

0420名無しさん＠お腹いっぱい。

01/11/25 03:17ID:???

>>419
それならLWPモジュール使うといいっす。
use LWP::Simple;
$bundata = get("http://www.domain.com/honbun.dat");

0421名無しさん＠お腹いっぱい。

01/11/25 03:18ID:???

出来ますよ
LWP::Simple と言うモジュールを使えば簡単に取ってこれます。
自分で書くことも出来ますが、、
どっちにしても、サーバがPerl(と言うかユーザ)にSocket接続を許している
のが大前提だけどね
http://x68000.startshop.co.jp/~68user/net/　ここをざっと読んでみて

0422414

01/11/25 06:57ID:DFU5N1cC

>>413
あ、多分それです。本にもパスがどうとか書いてあったし・・・。
ただ、それについてのやり方が全く具体的に書いてなかったので
分からないのです。。
初歩的すぎて書くまでもないことだったのかもしれませんが、
ちょっと始められなくなってしまってるので・・・
手順を教えていただけないでしょうか？
他のHPのPerlページでも、そこまで基本的なことは載っていないんで・・・
すみません。

0423413

01/11/25 09:56ID:ytkqM1hX

>>420-421 ありがとうございます！
LWPモジュールというのは聞いたこともなかったですが調べてみます。
420と421さん別人ですよね？タイミングがすごいなぁ（^^;

0424413

01/11/25 10:08ID:???

>>414
Cドライブのルートにperlがインストールされてると思うので
CドライブルートにあるAutoecec.batファイルにperlのパスを記述して
みるといいです。メモ帳で開いて大丈夫です。
上のほうにpath "%path%;c:\Perl\bin;"としてみて下さい。
書き換える前に、一応batファイルのバックアップとって下さいね。
書き換えたあとにパソコン再起動してから試して下さい。

0425414

01/11/25 10:16ID:sJfjrujt

>>413
ありがとうございます。
後で挑戦してみますね。

本に
Autoexec.batに以下のような記述をします、
PATH C:\WINDOWS;C:\WINDOWS\COMMAND
SET PATH=%PATH%;E:\USR\PERL5\BIN　　←この行を追加する

とかかれていたのですが、
AUTOEXECを開くと
Must Be installed Japanese Mode.
Cannot Install Device Driver.と出てしまいます。
これはどういうことなんでしょう？
日本語版をインストールすることが必要ということなんでしょうか？

0426

01/11/25 15:23ID:???

>>425
pathはおそらく通っている。
>>415にあるようにカレントにhello.plが存在しない。
perlよりも先に、MS-DOSを勉強することをオススメする。

0427414

01/11/25 19:45ID:elN1fKSW

>>426
了解です。ありがとうございます。
連続教えてチャンで恐縮なのですが、MS-DOSを勉強するのに何かオススメの
書籍・サイトってありますか？
検索サイトで調べても、ダウンロードとかについてしか
見つからないので・・・。

0428名無しさん＠お腹いっぱい。

01/11/26 12:50ID:z2hJCNpL

>>427
http://www.nara-edu.ac.jp/~asait/latex/msdos.htm
こんなところかな。他にもあるだろうけど。
身近にCGI勉強中で、HTMLとDOSの使い方も同時に学ぶ必要があって
苦労している人がいるからつい気になってしまった。

こういうことは知ってる人がいたほうがいいと思うけど、そういう知り合いは
いないの？

0429名無しさん＠お腹いっぱい。

01/11/26 19:19ID:o9/cvZ3V

スレ違いならすいません。
NT3.51ServerでWin32::DDEをuseできるようPerlを導入したいのですが、可能でしょうか。
実はActivePerl5.6.1-630をインストールしようとしてMSVCRT.DLLが足りないといわれ、
何とかインストールしてもPerlCRT.dllが足りないとかいわれてWin32::DDEがuse出来ないのです。

0430429です

01/11/26 19:22ID:o9/cvZ3V

PerlCRT.dllは同じPerlをインストールしたNT4.0WorkStationでも見つかりませんでした。
Win32環境では必要ないのでしょうか?

0431名無しさん＠お腹いっぱい。

01/11/26 21:13ID:???

perlcrt.dllは存在しないよ。当方Win2K+SP2

0432名無しさん＠お腹いっぱい。

01/11/26 22:11ID:???

>429
インストーラはバージョンアップ済み？

0433429

01/11/26 22:37ID:Owo3tZsO

インストーラはmsiのことでしょうか？ならば使わずにインストールしました。
batchからインストールです。
>>431　perlcrt.dllがなぜ必要になるのか私も不思議です。

0434名無しさん＠お腹いっぱい。

01/11/26 22:58ID:???

>>433
InstMsi.exeを先にインストールしないとだめだよ～ん

0435名無しさん＠お腹いっぱい。

01/11/27 00:49ID:9VBxm652

i-modeサイトやっていてPCでのアクセスを防ぐ為、
i-modeはリファラーが取れないのを利用してi-modeとPCを
振り分ける下のようなCGIを書いたのですがうまくいきません。
どこが間違ってるのでしょうか？
ちなみに初心者ですので大勘違いしてたらすいません。

#!/usr/bin/perl

$a1 = $ENV{'HTTP_REFERER'};
if ($a1 eq '') {
print "Location: http://www.aaa.com/i-mode.html\n\n";
}else{
print "Location: http://www.aaa.com/pc.html\n\n";
}
exit;

0436名無しさん＠お腹いっぱい。

01/11/27 00:52ID:???

>>435
PCからだってReffererを吐かない場合は幾らでもあるよ。

0437名無しさん＠お腹いっぱい。

01/11/27 01:09ID:???

$ENV{HTTP_*}は100%信用出来る情報ではないことを覚えておくとよろし。

0438名無しさん＠お腹いっぱい。

01/11/27 01:26ID:???

msvcrt.dllなんて、標準で入っているような

0439名無しさん＠お腹グー

01/11/27 03:17ID:???

>>429
ttp://www.activestate.com/Products/ActivePerl/download.plex から
リンクを辿ってInstMsi.exeを導入してからMSI versionのActivePerl
5.6.1-630をインストールし直した方が早いだろう。 Win32-DDEはppmで
インストールしろ。
MSVCRT.DLLについて文句言われるならversionが古いんじゃあないの？
NT3.51Serverはアップデートしてあんのかよ。perlcrt.dllはbuild
5XXの時の話だよ。　欲しいならCPANにある、取ってこい。

0440名無しさん＠お腹いっぱい。

01/11/27 06:36ID:LKRP0gaE

初心者というか、まだ勉強を始めてない者なんですが、
ウェブサイト更新時刻情報取得エージェント？(いわゆるアンテナ)を
作るためにはどの言語を勉強する必要があるんでしょうか？

↓こういう感じの奴
http://www.st.rim.or.jp/~kiwamoto/hina/

Perlであってます？

0441名無しさん＠お腹いっぱい。

01/11/27 07:10ID:???

別に言語はなんでも良い。

■ このスレッドは過去ログ倉庫に格納されています