くだすれPerl（超初心者用）

[表示 : 全て最新50 1-99 101- 201- 301- 401- 501- 601- 701- 801- 901- 2chのread.cgiへ]
Update time : 05/08 16:18 / Filesize : 307 KB / Number-of Response : 980
[このスレッドの書き込みを削除する]
[＋板最近立ったスレ＆熱いスレ一覧 : ＋板最近立ったスレ／記者別一覧] [類似スレッド一覧]


↑キャッシュ検索、類似スレ動作を修正しました、ご迷惑をお掛けしました

くだすれPerl（超初心者用）

1 名前：nobodyさん mailto:sage [2006/09/10(日) 13:33:48 ID:???]: このスレッドは、他のスレッドでは書き込めない超低レベル、
もしくは質問者自身何が何だが分からない質問を勇気を持って書き込むスレッドです。
Perl使いが優しくコメントを返しますが、
お礼はPerlの布教と初心者の救済をお願いします。
383 名前：nobodyさん mailto:sage [2007/09/09(日) 12:02:21 ID:???]: 複数のラジオボタンの結果の受け取り方がわかりません。
TMPL_LOOPでいくつかのラジオボタンを表示してます。
NAMEはすべて変えてます。
ただparamを配列で受けとればいいのですか？
ラジオボタンの個数とNAMEをhiddenで渡さないとだめでしょうか？
384 名前：nobodyさん mailto:sage [2007/09/10(月) 09:56:44 ID:???]: チェックされてないラジオボタンも欲しいの？
だったらそうなるね
385 名前：383 [2007/09/10(月) 11:57:32 ID:pVVOBct/]: >>384
なんというか、二択のラジオボタンが複数あるということです。
それぞれどちらがチェックされたかが知りたいのですが
386 名前：nobodyさん mailto:sage [2007/09/10(月) 12:17:53 ID:???]: 本来なら、同じグループのラジオボタンは同じ名前にしてValueで確認するんだが
全部Name変えてるならその名前で全部チェックしては。
チェックされてなければValueが入ってこない
387 名前：nobodyさん mailto:sage [2007/09/10(月) 19:36:15 ID:???]: >>383
ラジオボタンのグループごとにidを決める。
ex.radio1,radio2...

次にデコード後に送信内容をハッシュに収めて↓みたく値を参照する。
$DATA{'radio1'},$DATA{radio2'}...

これで中身に其々の値が代入される。
388 名前：nobodyさん [2007/09/11(火) 23:05:59 ID:bdpoEocx]: textareaに入力された情報をCGIで受け取りたいのですけどうまく行きません。
どのようにすれば取得できますか？
389 名前：nobodyさん mailto:sage [2007/09/12(水) 00:28:37 ID:???]: つMETHODに合わせて送信情報をデコード
390 名前：nobodyさん [2007/09/12(水) 00:31:26 ID:m2heepaU]: すみませんけど、その情報のデコード方法が分からなくて；；
formなどの受け取りは普通に出来るのですが、
textareaだけは同じように受け取ろうとしても出来なくて、、
391 名前：nobodyさん mailto:sage [2007/09/12(水) 00:52:50 ID:???]: perlで掲示板のcgiつくってます。

terminalから
> /usr/local/bin/perl < hoge.cgi
とすると、
Content-type: text/html;\n\n
<html>
中略
</html>
みたいに目的のhtml書き出せるんですが、ブラウザからやると
500になってしまいます。。。
パーミッション／転送モードは大丈夫です。
何か考えられる原因ってありますか？？
392 名前：nobodyさん mailto:sage [2007/09/12(水) 00:53:02 ID:???]: google先生「"perl デコード"に一致する日本語のページ約 231,000 件」
393 名前：nobodyさん mailto:sage [2007/09/12(水) 00:58:46 ID:???]: >>391
エスパーレス、ブラウザに対する出力がなされていない。
次の文章をスクリプトの最終処理の後にくっつけてみれ。

print "Content-type: text/html; charset=Shift_JIS\n\n";
print "テスト";

これでテストが表示されれば、HTMLの出力なりlocation指定するなりすればよかろう。
それでもアウトなら上の二行を少しずつ処理の前方へとズラしていけ。
394 名前：nobodyさん mailto:sage [2007/09/12(水) 03:04:50 ID:???]: どうせエスパーレスつけるんだったら

> Content-type: text/html;\n\n
> <html>
> 中略
> </html>

print 'Content-type: text/html;\n\n'; と書いてるところを
print "Content-type: text/html;\n\n"; に書き換えろ
じゃないのか。出力がそうなってるらしいし。
395 名前：394 mailto:sage [2007/09/12(水) 03:06:38 ID:???]: ていせい。

誤: print "Content-type: text/html;\n\n"; に書き換えろ
正: print "Content-type: text/html\n\n"; に書き換えろ
396 名前：nobodyさん [2007/09/20(木) 19:00:31 ID:tH1/iNYn]: 動的なトップページですが、HTMLに複数のSSI(例えば5つ以上、index.shtml)を使うのと、perlで全て一括で出力(index.cgi)させるのとではどちらがサーバにやさしいですか？
397 名前：nobodyさん mailto:sage [2007/09/20(木) 20:28:19 ID:???]: その程度じゃ変わらないから気にするな
398 名前：396 mailto:sage [2007/09/20(木) 21:20:19 ID:???]: >>397
了解です。
PHPを覚えるまではindex.cgiにしてみます。
399 名前：nobodyさん [2007/09/24(月) 16:40:32 ID:HMQ03/cj]: 家庭的な事情で貧乏学生なのでお金稼ごうとWebアプリ作ろうと思っています。
将来的にIT系に就職を考えてるので、もし失敗しても良い経験になるかなと思ってます。

質問なのですが、WebアプリはGatewayの7万円台で買った安パソコンでも作れますか？
一応情報系なのでPerlやコンピュータの基礎知識はあるつもりですが、
制作実務経験が足りてないもので、ましてやWeb系は手を出したことがなく右も左も上もわからない状態です。
調べたところCatalystというフレームワークがよく使われるそうですね。
簡単に作れるというふうに書いてありました。
しかし、常識的に考えると、serverを増強していくのにかなり費用が必要だったりするので、
ちょっと学生が手を出して儲かる世界なのかなと思います。
学生で儲かっている人はいますか？
周りの友達などからは何もそういう類の情報がないので、わかりません。
ちょっと傲慢な申し出ですが、何か少しでもヒントやアドバイスを頂ければと思う次第であります。
400 名前：399 [2007/09/24(月) 16:52:16 ID:HMQ03/cj]: すみません。上のものです。書き忘れていました。
Webアプリは一人でも開発できますか？
もちろん、一人が作ったという話はちらほら聞きますが、
Perl暦一年の私でも大丈夫でしょうか？
PerlはLLだから簡単という話もありますが、一人だと出来ることはかなり小規模なものに限られてくるのでしょうか？
たとえば、はてなは少人数ですが、みんなすごいPerl使いなはずなので、はてなを見て「少人数でもあれだけのものが
作れるのだから、一人でもそれなりのものが作れるはずだ」などと思うのは早計でしょうね。
何が言い対価というと、一人だときついかもしれないということです。
個人的にはこのように(勝手に)判断していたのですが、最近どうしても学生のうちに作りたいと
思ってきたので、一人で作れないかと思い始めています。
ちなみに、協力者(同志)はいまのところいそうにないので、まずは一人で作る線で考えている次第です。
Web系のPerl熟練の皆様の判断をいただければと思います。

どうかよろしくお願いいたします。
401 名前：nobodyさん mailto:sage [2007/09/24(月) 17:15:49 ID:???]: 一人でも中規模だろうが大規模だろうが作れる。
できなければリーナスは誕生していない。
CだろうがJAVAだろうがPerlだろうが計算機は所詮計算機でしかない。
402 名前：nobodyさん mailto:sage [2007/09/24(月) 17:40:21 ID:???]: ヤフーや日経の株価・為替レートを自サイトで表示したいです。
　　　２チャン工業[150円]+0.5%　　　ひろゆき証券[3,270円]+1.7%
みたいに表示させたいです。
parlでできる事は調べたら分りましたが、解説サイトが少なくて分りにくいです。
どこか初心者向けのないでしょうか？

www110.kir.jp/study/jissen/script2143.html
↑これをhtmlに変換したけど動かなかった。
d.hatena.ne.jp/hetappi/20070313/1173800678
↑これは動いたけど、もっと沢山数値が欲しい時どうするのか分らない。
403 名前：nobodyさん mailto:sage [2007/09/24(月) 18:26:44 ID:???]: 一つだけアドバイス。
本で買える情報は本で買ったほうが早い。

時間が有り余っているなら別ですが。
404 名前：399 [2007/09/24(月) 18:28:06 ID:HMQ03/cj]: >>401
ありがとうございます。
作れるのはいいとして、
しかしサーバ増強などに費用がかかりませんか？
405 名前：nobodyさん mailto:sage [2007/09/24(月) 20:05:11 ID:???]: グーグルは
スタンフォード大学の
コンピューターセンターに
転がってるマシンを勝手に
無断で持ってきて自分達のものにしてた。

また、配送されてきて、
梱包を解かれないで
配送センターに放置されたままの
マシンは
「誰も必要としていない」
と勝手に判断して、それも
自分達のものにしてた。
406 名前：nobodyさん mailto:sage [2007/09/24(月) 20:42:24 ID:???]: >>404
いったいどの程度の規模のサイトを作るかによる。
(単位時間当たりのアクセス数、コンテンツの要領、動かすアプリのメモリ使用etc...)

まあはっきり言って、Dellやらのやすもんセットでも、ちょっと型落ちの中古機なんかでも
サイト立てるだけなら全然可能。(それこそ３～５万位のマシンでも十分)

初めから処理能力とかハード的なこと気にするより、とりあえず自分でサイトなりなんなり立ててみて、
公開とか運用とかしてみる。

それでハード的にきつそうになってから、気にしましょう。
407 名前：399 [2007/09/24(月) 21:13:35 ID:HMQ03/cj]: >>405 nice hackですね。感動しました。Google信者なので、見習おうと思います。

>>406 やってみないと分からないですね。規模は。
目標は、10,000PV/day, 100MBのコンテンツです。

サイト立てるためにapacheというやつを導入しました。
localhostを立てるまでは出来ました。
この調子でいくとlampかなと思ってます。
Windows依存できたので、1からunix勉強しなおすのは少し大変です。

ありがとうございます。
408 名前：nobodyさん mailto:sage [2007/09/24(月) 22:40:40 ID:???]: >>407
その3-5倍程度のサイトを椅子で運営してるがレンタルでもクレーム来たことない。
まぁ、共用ですらその程度なら大丈夫ってことだ。
409 名前：399 [2007/09/24(月) 22:50:31 ID:HMQ03/cj]: >>408
貴重なアドバイスありがとうございます。
すみませんが、椅子、レンタル、共用というのはどういう意味ですか？
検索にかけてみたんですが、わかりませんでした。
お手数かけてすみません。。
410 名前：nobodyさん mailto:sage [2007/09/24(月) 23:29:42 ID:???]: 椅子はともかく
レンタル・共用が分からないってのは……
411 名前：nobodyさん [2007/09/24(月) 23:34:58 ID:HMQ03/cj]: >>410
質問の仕方が悪かったようです。
共用サーバサービスやレンタルサーバなら聞いたことあるんですが、
レンタルや共用が何の略かが分からなかったんです。

何か根本的に基礎知識がかけていると考えたほうが妥当でしょうか？
先達は、どのようにして知識を得たのでしょうか？
412 名前：nobodyさん mailto:sage [2007/09/24(月) 23:41:48 ID:???]: >>411

#/usr/bin/perl

#生きてる限り勉強
while(>>411){
　print "トライ&エラー";
}
__END__
413 名前：nobodyさん [2007/09/25(火) 00:10:08 ID:OOv8Weab]: >>412
なんだかそう言われると、これまで学習を継続してきたことを肯定されたようで
安心します。笑
とりあえず、これまでやってきたことは当たり前のことではありますが、少なくとも
間違ってはいなかったと思えました。
414 名前：nobodyさん mailto:sage [2007/09/25(火) 00:27:49 ID:???]: >>413
一年やってきたとは言っても、動くスクリプトはどれだけ書いたんだ？
415 名前：nobodyさん mailto:sage [2007/09/25(火) 00:50:17 ID:???]: 成功するような奴はこんな所でグダグダ質問する前に行動してる奴だ
416 名前：nobodyさん [2007/09/25(火) 00:53:46 ID:OOv8Weab]: >>414
動くスクリプトというのはどういうことなんでしょう。

スクリプトは1日平均100行くらいですかね。
やっていた時期は、300行くらいでしたが、最近はネットワークやUNIXに関する勉強にも
追われていて。
417 名前：nobodyさん mailto:sage [2007/09/25(火) 01:14:03 ID:???]: >>415
ここで質問するよりも、本を読むよりも↓行って作って来い。
多分その方がいい勉強になる。作れないものは調べて作る。

ご希望のCGIを作成いたします
pc11.2ch.net/test/read.cgi/php/1145308869/
418 名前：nobodyさん [2007/09/25(火) 01:37:09 ID:OOv8Weab]: >>415
その行動としてどういったものが妥当かを入念に検討しているのです。
私は学生なので、行動範囲も限られはしますが、まずは手始めにWeb applicationを制作しようかと
考えております。
一年perlやってきましたが、これまではこれを生かそうという計画はなかったのですが、
それは行動力がなかったというよりも、
もとからそういう発想がなかったんです。
それがここ数週間に間に急にWeb applicationをやろうという欲望がふつふつとわきあがってきているので
自分でも驚いています。
この欲望を実現すべく、過去の先達たちはものすごい行動力を発揮してこられたのでしょうが、
私も負けてはいません。

>>417

CGIを作ってもらうんですか。
スレッド見ました。
オープンソースのperl scriptを見るのも良い勉強になりますよね。

あと、思うんですが、方法にグタグタこだわるよりも、何をやりたいかが
大事ですよね。
ところが、自分の場合は何をやりたいかが明確なのにそのための方法がまるで
分からないというか少しずつ分かっているのですが、
その分かっていくスピードがあまりに低速であきれているんです。
なんと進みにくいのだろうかと。
だから、少しでも速く進めるように先輩方のお力を頂きたくこのスレッドに
参上いたしました。
419 名前：nobodyさん mailto:sage [2007/09/25(火) 16:28:46 ID:???]: 思うんだが行って参考にならないよな。
俺が苦労して書いた10行ぐらいの処理が
うまい人だと2～3行で処理効率も上とか普通にあるし。
420 名前：nobodyさん mailto:sage [2007/09/25(火) 17:11:40 ID:???]: 参考にならない。
「○○するスクリプトを××行で書きました」
ならまだしも。
421 名前：nobodyさん mailto:sage [2007/09/25(火) 18:43:18 ID:???]: 経験に対して行数を申告する人って何か誤解してる人が多いと思う
422 名前：nobodyさん mailto:sage [2007/09/25(火) 20:20:09 ID:???]: 行数で測るなんて無意味だよな
423 名前：399 [2007/09/25(火) 21:39:39 ID:tW7VjElz]: 行が参考にならないのですか。
申告すべきものが何もなかったので行を申告しました。

ところで、上のほうで少し書いたかもしれませんが、私は長いプログラムを書いた経験がありません。
そこで、サイト制作に着手しようかと今日サーバについて調査しておりました。
そこで質問ですが、アプリケーション開発はどういう手順で行われるのでしょうか？
一応情報系なので、要件定義から設計・coding、テストといった過程については勉強したのですが、
実際の現場でどういう開発工程がとられているかというのは、
いかなる手段で学べばいいのでしょうか？
やはり、アルバイトが一番でしょうか。
しかし、アルバイトは当たり外れが大きいとも聞きます。
424 名前：nobodyさん mailto:sage [2007/09/25(火) 21:43:43 ID:???]: なんだいろいろ理由つけて面倒なことは避ける主義か
425 名前：399 [2007/09/25(火) 21:55:39 ID:tW7VjElz]: >>424
というよりは、これも自分のなかでは地道な努力の一環なのですが、いかがでしょう。
たとえば、第一線の開発者が実際にどんなツールや手法やスタイルで仕事をしているか、
というのは学生が学ぶのは困難なのでしょうか、ということを現在調査中なのです。
426 名前：nobodyさん mailto:sage [2007/09/25(火) 22:14:32 ID:???]: 調査した成果をここで報告してくれんの？
427 名前：399 [2007/09/25(火) 22:23:40 ID:tW7VjElz]: >>426
はい。どういう形で報告すればいいのか指定くだされば、検討します。
428 名前：399 [2007/09/25(火) 22:32:09 ID:tW7VjElz]: 私のようなしがない学生が言うのもなんですが、瑣末なテクニックの習得よりもまずは
現場の空気を吸うことが大事かなと考えまして、それで、さっそくサーバについて調査していたのです。
幸い、私にはやりたいことがそれなりに明確です。だが、よく考えてみると道のりがはなはだしく曖昧なのです。
それは当然です。全く未経験なのですから。

そこで、「ロードマップ」が欲しいと考えたのです。
何かおかしなところがあればご指摘ください。
429 名前：nobodyさん mailto:sage [2007/09/25(火) 22:38:38 ID:???]: まずはやってみろ。
430 名前：399 [2007/09/25(火) 22:39:50 ID:tW7VjElz]: >>429 いまやってます。
431 名前：399 [2007/09/25(火) 22:41:44 ID:tW7VjElz]: 誤解のないように解説しますと、いま現在も私は調査活動を続行中です。
他所で調査をしながら、ここでも質問しているという次第です。
ただし、マルチポストはしていませんよ。笑
432 名前：nobodyさん mailto:sage [2007/09/25(火) 22:42:20 ID:???]: omotiを思いだしたのは俺だけだろうか、、、
まあ、コードを書いた経験があるだけomotiよかましだろうが
「ハイキング程度の人間がエベレストに挑む」
「プーアルが完全体セルに挑む」
のを単に夢想してるだけだ。
「ロードマップが欲しい」？
地図の見方すら分ってない人間に分るようなフローチャートを無償で作れと？

おまえさんがやるべき事は経験を積むことだよ。
ここでうだうだ、くだらん持論を述べる事ではなく。

さっさとアルバイトに応募しろ、外れだと思ったら止めて他を当りゃいいだけだ。
433 名前：399 [2007/09/25(火) 23:08:16 ID:tW7VjElz]: >>432
ある意味納得です。アルバイトへの応募も必要だし、経験を積むことをするのは必須事項でしょう。
omotiって何か知りませんが、私は地図を読む能力がゼロだとは思いません。
私は自分を過少評価する傾向がありますが、それをゼロだと言ってしまうと、卑下しすぎでしょう。

地図を必要とする理由は、地図を頭に入れてから実践したほうが効率面で有効だと判断したからです。
どういった手段で、先人達は、地図を入手してこられたのでしょう。素朴な疑問。
434 名前：nobodyさん mailto:sage [2007/09/25(火) 23:29:27 ID:???]: >>433
>omoti
ぐぐれ。
>地図を読む能力
「読む」のは誰でも出来る、経験に応じたレベルで。
経験を積むと見方が分ってきてより深く地図を読むことが出来るようになる。
>自分を過少評価
何様だ？オマエ。

経験をコードの行数で書くようなドシロウトみたいなマネしといて、
よくもまあ、自分を過大評価出来るもんだ。
435 名前：nobodyさん mailto:sage [2007/09/25(火) 23:38:09 ID:???]: アルバイトに来られる側の人間として一言だけ
迷惑だから来ないで下さい
436 名前：399 [2007/09/25(火) 23:45:43 ID:tW7VjElz]: >>434
どうも意志の伝達が正常に行われなかったようです。
自分を過少評価というのは、自分が偉いというのとは逆に、
自分をネガティブに評価する傾向があるという私の一般的性質を指しています。
だから、なぜあなたが怒りを発生させたかについては責任を負いかねます。

それから経験をコードの行数で書くのが実力や経験量を測定する尺度としてあまり妥当な手段でないことは認めるものの
何がしかの尺度にはなるかと思います。
一応情報系なので日常会話で行数について耳にしますので、補足しました。

>>435
アルバイトに来ると迷惑ですか。
私はやる気だけはありますよ。これまでもアルバイトしてましたが、面接でそう言いました。
437 名前：nobodyさん mailto:sage [2007/09/25(火) 23:52:05 ID:???]: >>399
PMだけを目指すのならともかく、若いうちはガンガンスクリプトを書いとけ。
出来たものから汎用性のある部分をモジュールとして使えるようにしろ。
モジュールとして使わないまでも、関数なりクラスとして再利用出来るようにストックしとけ。

ロードマップだの何だの言うよりも、とにかくショウモないスクリプトでもいいから書いて書きまくれ。
言われてることが分からないなら、とっとと現実に戻ってクソして寝てみる夢を見つづけろ。
438 名前：nobodyさん mailto:sage [2007/09/26(水) 02:18:47 ID:???]: perlの仕事なんか無いよ
439 名前：nobodyさん mailto:sage [2007/09/26(水) 02:21:03 ID:???]: namcoの遠藤みたいにプログラムなんか欠片も知らないで入って
それでいてゼビウスのようなゲーム作って大成功する奴もいるんだ
お前みたいに能書きだけで先に進もうとしない奴は何やっても駄目
440 名前：nobodyさん mailto:sage [2007/09/26(水) 02:24:18 ID:???]: >>399
とりあえず、会員制のサイトでも作ってみたら？最初はモジュールを
使わず、全てPurePerlで組む。完成しても公開はしない。あくまで、
自分の学習用。機能としては…
・新規登録フォームで必要項目を記述して送信すると
　入力されたデータを保存。同時に確認メール発射。
・確認メールの中にURLが記入されていて、そこに
　アクセスすると入会登録完了。
・入会登録完了すると完了メールが届いて、そこに
　書かれているIDとパスワードでログイン。
ここまで出来れば、Webサイトを作成する上での基本は学べると思う。

その後に、サイトの中でBBSなりユーザ情報設定等を追加していく。
ここまでで、Webサイトを運営する上で解決策が学べると思う。

その後に、同じ物をモジュールを使って作り直す。
ここまでで、モジュールの有難さを学べると思う。

ここまでできて、解らない事があれば、質問してくれ。逆に
それまでは、自分の力で解決してくれ。途中でどうしても
自分の力で解決できなければ、才能が無いので、諦めてくれ。
441 名前： ◆T7TfLMI9dM mailto:sage [2007/09/27(木) 00:54:04 ID:???]: 2ch検索でうっかりomotiを入力しちゃった俺が来ましたよｗ

>>399
いきなり大きなものを一から作ろうとすると挫けるから、自分の思ってる機能に
一番近いものを実装してるCGI探してきて設置。まずはそれを好きなように
改造しまくる。これだけで一通りの流れは掴めると思う。次が>>440かな。

ちなみに個人で始めるWebサービスは99%赤字になるから、金が欲しいなら
素直に今できるバイトで稼げ。
442 名前：nobodyさん mailto:sage [2007/09/27(木) 22:26:20 ID:???]: タクトと同じ匂いがする...
443 名前：nobodyさん mailto:sage [2007/09/28(金) 09:09:43 ID:???]: 初心者スレにも湧いてるしな。
うざったいことこの上ない。
444 名前：nobodyさん mailto:sage [2007/09/28(金) 20:52:36 ID:???]: その前はProgの方のperlスレに湧いてたw
全部同一人物かw
445 名前：437 mailto:sage [2007/09/29(土) 00:32:05 ID:???]: やっぱり口だけ君だったのか。
プログラミングなんて習うよりも作れだというのに。
446 名前：nobodyさん mailto:sage [2007/09/29(土) 01:20:03 ID:???]: T7すっげぇ久々に見たな
ってか実はいつもいるのか？
447 名前：nobodyさん mailto:sage [2007/09/29(土) 01:25:07 ID:???]: どこに沸いたって？
448 名前：nobodyさん mailto:sage [2007/09/29(土) 13:45:18 ID:???]: どのスレかわからんが、いつも見てるやつじゃないとOmotiを知らないし付き合わんだろｗ
449 名前：nobodyさん mailto:sage [2007/10/04(木) 08:24:35 ID:???]: 質問です。
if ($vote_terminal == 0){$voteflag = 1;}
else{
$a1 = $ENV{'HTTP_USER_AGENT'};
if (($a1 =~ /^DoCoMo\//)||($a1 =~ /^ SoftBank\//) ||($a1 =~ /^UP\.Browser/)){
if ($vote_terminal == 1){$voteflag = 0;}else{$voteflag = 1;}
}
elsif ($vote_terminal == 1){$voteflag = 1;}else{$voteflag = 0;}
}

HTTP_USER_AGENTの部分をREMOTE_ADDRにしたいのですが
携帯電話会社のIPアドレスをどう追加してやれば良いのでしょうか？

携帯電話のIPアドレスリスト
ja.wikipedia.org/wiki/%E5%88%A9%E7%94%A8%E8%80%85:Tietew/%E6%90%BA%E5%B8%AF%E9%9B%BB%E8%A9%B1%E3%81%AEIP%E3%82%A2%E3%83%89%E3%83%AC%E3%82%B9%E3%83%AA%E3%82%B9%E3%83%88
450 名前：nobodyさん mailto:sage [2007/10/04(木) 09:06:18 ID:???]: その部分を変えても仕方ないと思うが。
IPアドレスで判定する部分そのものを新たに追加するってんならわかるが。
451 名前：449 [2007/10/04(木) 13:54:49 ID:wlik/mVj]: レスありがとうです。
そうなんですか
尚更手に追えそうもないです；
失礼しました
452 名前：nobodyさん mailto:sage [2007/10/06(土) 23:30:58 ID:???]: 標準入力を二度読み込みたいんだけど、方法ないですか？
目的は一度、デコード&整形した後でデコードだけの整形していないデータを取り出すこと。
seek STDIN 0, 0;は既に試しました。
453 名前：nobodyさん mailto:sage [2007/10/06(土) 23:35:10 ID:???]: 最初に配列に放り込んでキープしておけば？
454 名前：nobodyさん mailto:sage [2007/10/06(土) 23:40:05 ID:???]: >>452
STDIN→デコード→ファイル1に保存→整形→ファイル2に保存

ができない訳を言え
455 名前：nobodyさん mailto:sage [2007/10/07(日) 00:05:53 ID:???]: >>454
やっぱり、その方法が手っ取り早いですか？
考えてはみたけど、それなら結局は最初から変数に読み込んで後で使う方がいい気も…
んー、キーボード入力じゃなくてPOSTデータだから取り出せるものと思ってました。
一生手を入れないでマージンまでやってくれるクラスを作ろうと思ってまして。
456 名前：nobodyさん mailto:sage [2007/10/07(日) 02:14:11 ID:???]: >>455
何だか大きく勘違いをしているような気がするが、
POSTデータなら最初から変数に入ってる
457 名前：nobodyさん [2007/10/21(日) 09:54:12 ID:xMq+XN4p]: やりたいこと：mod_perl2をインストールしたい。
できなかったこと：ActivePerlへのppmを通じたインストールがうまくいきませんでした。
やったこと：ActivePerl5.8.8上でmod_perl2をインストールしようとし、
ppm> rep
Repositories:
[1] theoryx5.uwinnipeg.ca
...
[7] Autonamed 2
ppm> search mod_perl
Using cached search result set 1.
1. Apache-mod_perl_gui~ [1.31] mod_perl Guide
2. mod_perl [2.0.3] Embed a Perl interpreter in the Apache/2.2~
3. mod_perl [1.29_01~ Embed a Perl interpreter in the Apache/1.3~
....
ppm> install 2
Package 2:
====================
Install 'mod_perl' version 2.0.3 in ActivePerl 5.8.8.817.
====================
Downloaded 2886493 bytes.
Extracting 737/737: blib
Error: can't run 'C:\Perl\bin\perl.exe install_script': No such file
or directory
となったので、「"install_script" ActivePerl」でググってみたりしたのですが、
どこに問題があるのか特定できませんでした。

次のアクションをご教示ください。よろしくお願いいたします。
458 名前：nobodyさん mailto:sage [2007/10/21(日) 10:59:29 ID:???]: >>457
apache2.2は入ってるのか？
459 名前：457 [2007/10/21(日) 11:18:08 ID:xMq+XN4p]: >>458
入ってます。
460 名前：nobodyさん mailto:sage [2007/10/21(日) 11:19:32 ID:???]: >>457
ん？うちでは問題なくinstallできるべ。

>>458が言ってるみたいに、
Apache2.2じゃなくて、Apache2.0にmod_perl入れたかったら、ppm install mod_perl2.0 ってしなきゃだめよ。

ちなみにひとつ言っとくが、Win版の2.0.61,2.2.6では両方とも、theory58Sのmod_perlは正常に動作しないべ。

あと、install_scriptってのはこれのこと
theoryx5.uwinnipeg.ca/ppms/scripts/install_modperl
461 名前：nobodyさん mailto:sage [2007/10/21(日) 11:32:16 ID:???]: 失敬。リロードしてなかった。

で、もっかい、今度は、(threory58Sはreposにいれてるんだよな？)
ppm install mod_perl ってやってみ。
462 名前：nobodyさん mailto:sage [2007/10/21(日) 11:43:40 ID:???]: 実はapache2.0を入れているという罠
463 名前：どうしてパンチラが流出？ mailto:パンチラなし？佐藤ゆかりタン？ [2007/10/21(日) 14:04:29 ID:???]: 　　　　　　　　　＿　　　　　　⌒ヽ_　／　｀ヽ、
　　　　　　　／´_　｀ヽ、　,ィ''´￣ハ､i,／lヽ、 l!
　　　　 ,ィ´/'´／::/:::ﾗ.／　　／　/!ｲｿ !i .ﾊ /
　　　　/ﾞ ! ' ::´:::::::|:／/　/　,ｲ　　/!"ﾞヾ|ﾘ　i ﾒ
　　　　!　|　::　::::::ri/| |:::i|ﾊ i.||　i,/|!　 _//!:::|::::|
　　　　 |　 :: .::ｲﾘﾉﾊ　::!lｨl丙｀|/ |、 _ﾊ/::/:::;/
　　　　 i　 ;　::::ﾚl/ !,ヾ､! ﾞ'ﾟ┘　　尤i'/,' ／２０万人くらいが見ちゃったパンチラ！？
　　　　　/　 !..:::::l/　::::ｱi. 、　　　, ﾞ‐'ｿ'"'´ 元女子アナウンサー丸川珠代さん（白パンティー）
　　ﾄ､_／/ :::|:::::/　:::::/／＾ヽ、　~ ,.ｨi′ ex21.2ch.net/test/read.cgi/ana/1191988450/9
　　｀ー'ﾅ/.:/::::/　::::/´!　　　ヾ "´l:::l|
　　　　i / .:|:::/ :::;ｨ/　|!　　　　ヽ:::!:riﾄ､_, 日本人でよかった♪ 白でよかたーーー！
　　　 !| /:|/ .／/!　,!|　ヽ　　　ヾ､,ﾘこの番組で有名となった参議院議員（東京）のまるたまさん
　　　　 | | /／:::/:::!　! ＼. ＼　　ヽ＼ love6.2ch.net/test/read.cgi/furin/1148694809/174
　　　　ヾ// ::::/:::::|ノ　　_二;ヽ　　ﾞ､ ,}
　　　　　ｵ′:::i :::::::|／￣　　　＼　　ヾー-､たけしさんとツーショットのまるちゃんに注目！（白パンティー）
　　　　/ |　:: ::|::::::::::!　　　　　　ﾊ　　 iヽ　i でも、小泉チルドレン筆頭の
　　　　i　|　　::|:::::::::ﾘ　　　　　 ,ｲバｰ‐'′! ヽ佐藤ゆかりタン萌えパンチラは無いよーーーーーーん
　　　　!　|i　 : :|:::::ノ　　　　　 i　/ﾊ | /　|　＼
　　　　　ヾ _,, !＜＿. 　　　 { //／"　　　　　ヽ
　　＿,. ‐''";;;;;;;,:'";;;;;/￣ﾞT''''ｒ-ﾚ　＼　　＿　　　i
　ヾ"､_;;;;_,;:'";;;;;;;;;;/;;;;;;;;;i;;;;;l;;;;;|　　　 }=ﾆl!;;ﾄ､／
　　ヾ;;;;;;/｀''ー--ヶ､;;;;;;ｼ;;;;;;|;;;;;;!　　ぐー｀"ヽ!
　　　ヾi'　　　　 /　ヾ､;;;;;;;/;;;;;;;|　〈´ ￣~ﾞ'''┘
　　　 ;ﾍ　　 ,　i　　　　ﾞ＼;;;;;;;;;ﾊｪｭｊパンチラ規制厨と闘ってます
　　　　!　｀ヽ､'_,{_　　　　　ﾞ＼;;;;;| qb5.2ch.net/test/read.cgi/sec2chd/1192266095/639
464 名前：457 [2007/10/21(日) 15:13:46 ID:xMq+XN4p]: >>461
やはり無理でした。
>>462
再確認しましたがapache2.2です。

--------------------------------------------

やむを得ず、「何かカオスな理由でトラブルが起きた」ということにして、
ActivePerlのリインストールという強硬手段に出ました。
その結果、無事インストールできました。

結局、問題の原因はミステリーのままに。^^;

アドバイスくださった方、ありがとうございました。
465 名前：nu. [2007/10/21(日) 15:30:36 ID:hpzcI35P]: 初めまして超くだらない事かもしれませんが質問させてください。
OceanGrid形式の動画を録画するにはどうしたらいいですか？
また録画出来るものなのでしょうか…？
よろしくお願い致します。
466 名前：１０い mailto:ｄ [2007/10/21(日) 19:05:50 ID:???]: 質問します。
if( $ENV{'HTTP_USER_AGENT'} =~/bot|twiceler/){&zap;}
上みたいなのがあったとして、　USER_AGETNに、bot かtwiceler　があると。
って感じなのですが、これですと例えば、Googlebotが来ると一致してしまいます。
bot以外の　Googlebot　や　1bot、 bots　などに合致させない方法はありますか？
ifからの文はなるべく変えない方法を教えてください。
できれば、=~//　この中の範囲内の変更でできないでしょうか。よろしくお願いします
467 名前：nobodyさん mailto:sage [2007/10/21(日) 19:16:00 ID:???]: and $ENV{'HTTP_USER_AGENT'}!~/Googlebot|1bot|bots/

これを条件に加えるのがわかりやすくないかな
468 名前：１０い mailto:ｄ [2007/10/21(日) 19:37:52 ID:???]: >>467 お答えありがとうございます
467さんが書かれたのは、botに一致しないのでしょうか？
test下のですが　and　にエラーがでてしまい結果がでません
Premature end of script header
s: /home/oo/public_html/index.cgi
syntax error at /home/oo/public_html/index.cgi line 462, near "and"
Execution of /home/oo/public_html/index.cgi aborted due to compilation errors.

前後の流れは
if( $ENV{'HTTP_USER_AGENT'} =~/bot|twiceler/){&zap;}
else{&zap2;exit;}

のifからの部分を
and $ENV{'HTTP_USER_AGENT'}!~/Googlebot|1bot|bots/){&zap;}のように変えてエラーです
469 名前：nobodyさん mailto:sage [2007/10/21(日) 19:43:45 ID:???]: めちゃくちゃ古いヴァージョンなら and => && でどーでしょ
470 名前：１０い mailto:ｄ [2007/10/21(日) 19:51:36 ID:???]: エラーが
syntax error at /home/oo/public_html/index.cgi line 462, near "=> &&"
です

$perl -version
This is perl, version 5.005_03 built for i386-freebsd
apache はApache/1.3.39 です
パールを最新にしてみます
471 名前：nobodyさん mailto:sage [2007/10/21(日) 19:58:24 ID:???]: if( $ENV{'HTTP_USER_AGENT'} =~/bot|twiceler/ and
$ENV{'HTTP_USER_AGENT'}!~/Googlebot|1bot|bots/){&zap;}

エラー出ないよ
472 名前：１０い mailto:ｄ [2007/10/21(日) 20:18:23 ID:???]: >>471さん
取り急ぎ
andから書いてました
perlのｱｯﾌﾟｸﾞﾚｰﾄﾞを始めてしまってなかなか終わらないので
終わったら試して確認してみます
473 名前：１０い mailto:ｄ [2007/10/21(日) 21:22:35 ID:???]: >>471　上行のキーワード完全一致だけがzap4に飛びました
perlのバージョンじゃなくて書き方が違っていたようです
!~/hoge/　の意味を教えてください
474 名前：nobodyさん mailto:sage [2007/10/21(日) 21:58:00 ID:???]: hogeにマッチしなければ真を返す（=~/hoge/の逆）
475 名前：１０い mailto:ｄ [2007/10/21(日) 23:00:45 ID:???]: >>474ありがとうございます
476 名前：nobodyさん mailto:sage [2007/10/23(火) 20:50:38 ID:???]: 変数が配列であるかどうかを確認するには、どうすればよいのでしょうか？
477 名前：nobodyさん mailto:sage [2007/10/23(火) 21:36:17 ID:???]: wantarray
478 名前：nobodyさん mailto:sage [2007/10/23(火) 21:54:51 ID:???]: >>477
すいません、
sub write {
my $name = $_[0], $data = null;
if (　$_[1]が配列かどうかを確認したい　) { $data = join( "\n", $_[1] ) }
else { $data = $_[1] }

open( OUT, ">$name" ) || return 1;
print OUT $data;
close( OUT );
return 0;
}
のようにして、ifのところで、$_[1]が配列かどうかを確認したいのですが・・・・・
wantarrayの使い方がいまいち理解できませんでした。
このような場合は、どのようにすればよいのでしょうか
479 名前：nobodyさん mailto:sage [2007/10/23(火) 23:15:24 ID:???]: >>478
「$_[1] が配列」ってPerlの言語仕様上ありえないわけだが？
$_[1]が配列のリファレンスか否かってんであれば、
if ( ref $_[1] eq 'ARRAY' ){ }

まあ、ソースを拝見した所、おそらく
&write( 'name', @data ) ;
あたりで呼ぶんだろから、
my $name = shift @_ ;
my $data = undef ;
if ( @_ >= 1 ){ $data = join( "\n", @_ ) ;}
でいいんじゃね？

余分なことだが、
1. write は perl ですでに使われてるので他の名前にした方がいい。
2. 、、、、まあいいや。
480 名前：nobodyさん [2007/10/24(水) 13:14:01 ID:nBn+cskB]: いまだにphpではなくperlで動いているあたり。。。
ttp://yoshihi6.com/perl/?q=http%3A%2F%2Fja.wikipedia.org%2Fwiki%2FPerl
481 名前：nobodyさん mailto:sage [2007/10/24(水) 18:26:51 ID:???]: >>479
その方法で解決しました。
ありがとうございます。
482 名前：nobodyさん [2007/10/25(木) 17:20:59 ID:ZciT02o+]: スライスした配列の参照を表現するにはどのように書けばいいですろうか。
@org[0..2]のリファレンスを作るとして、
イメージは$ref = \@org[0..2];みたいなことなんですが・・・
483 名前：nobodyさん mailto:sage [2007/10/25(木) 18:16:27 ID:???]: $ref = [@org[0..2]];

[ 続きを読む ] / [ 携帯版 ]

read.cgi ver5.27 [feat.BBS2 +1.6] / e.0.2 (02/09/03) / eucaly.net products.
担当:undef