△▲　WebProg 初心者の質問 Part8　▼▽

△▲　WebProg 初心者 ..

524:nobodyさん
04/05/05 15:19 iuTSZuI/
Perlで簡単なメモ帳を作って設置したのですが、見る人に対して書き込む人の割合が極体に低いので
書き込みがあったごとに表示HTMLをファイルに書き込もうと思っています。、
予めprint文で構成してあるHTML表示部を用いてそれをファイルに書き込むにはどうしたら良いのでしょうか？
一応、表示部は関数化してあります。どなたか良い方法を教えてくださるとうれしいです、、、

525:nobodyさん
04/05/05 16:05
よくわからん。おそらくLWP？

526:nobodyさん
04/05/05 16:24
わしもよくわからんが、STDOUT に書き出すコードが既にあって、
そのコードを極力いじらずにファイルに書き出すようにしたい、
ということなんじゃないかという気がする

527:nobodyさん
04/05/05 16:28
1. CGIからCGIをバッククォートで呼び出して、出力をファイルに書き込む
欠点: サーバ負荷が多少上がる。引数を渡すのが若干面倒

2. CGIからCGIをLWPで呼び出して、出力をファイルに書き込む
欠点: サーバ負荷がもっと上がる

3. STDOUT をファイルハンドラに付け替える CPAN モジュールを使う
欠点: ごめん、何ていう名前のモジュールだったか思い出さない…

528:524
04/05/05 17:21
>>525-527
わかりにくくて済みません；しかも、関数化じゃなくてサブルーチン化でした。。。本当にごめんなさい。
LWPのリファレンス見てみます、、、

529:nobodyさん
04/05/05 17:24
>>524
print に出力先を指定する。
printf qq|<textarea cols="80" rows="25" tabindex="20" accesskey="R">%s</textarea>|, $Out_strings;
これなら標準出力に。
local *Out_HTML;
open Out_HTML, ">$HTML_filename" or die $!;
printf Out_HTML qq|<textarea cols="80" rows="25" tabindex="20" accesskey="R">%s</textarea>|, $Out_strings;
close Out_HTML;
これならファイルに。
ほかいろいろ。

530:nobodyさん
04/05/05 17:40 5Fq0Gcd+
質問です。
Web拍手の過去ログは14日間分保存になっていますが、それを60日にするには
どこをどう書きかえたらいいんでしょうか。

531:nobodyさん
04/05/05 17:44
14ってとこを60に置換する。

532:nobodyさん
04/05/05 17:56
>>528
2chの様にHTML吐かせて鯖の負荷を軽減したいって事？

533:nobodyさん
04/05/05 18:04
2chはcgiを経由してたような？
表示部をサブルーチン化してあることだし、
selectで出力先をバシバシ切り替えるのも手かと。

534:nobodyさん
04/05/05 18:19 sv68sKr6
PHPなんですが、既存のプログラム（理由があって一部しか公開できない）
では、メール送信時に文字化けが発生して何とか解決法を模索しています。

function send_email($email_to,$email_cc,$email_priority,
$email_subject,$email_body,$email_from,$email_bcc=NULL)

の部分を何とか修正して、文字化けしないようにできないでしょうか？
はっきり言って当方、phpの知識もコードの知識もさっぱりなんですが、
なんとかヒントだけでも教えていただけないでしょうか？

mail関数とか使ってるのなら、mb_send_mail関数に変えるだけで
良いと思ったのですが、phpでなぜにsend_emailってのを使ってる
のでしょうか？

535:nobodyさん
04/05/05 18:26
JISで送れ

536:nobodyさん
04/05/05 18:27
どうせ誰かのスクリプトから著作権表示だけ消して使いたいんだろ。
書いた本人に聞いてみれば？

537:524
04/05/05 18:28
>>529
レスありがとうございます。ですが、私の知識不足でよく分かりませんでした。。。すみません。
>>532
そんな感じかもしれません。。。書き込みがあったごとにサブルーチン化した関数をそのまま出力するのではなく
ファイルに出力したいんです。。。
>>533
ありがとうございます！こんな便利な物もあるんですね。。。無事出来ました。

私のわかりにくい文書にレスして下さってみなさんありがとうございました(_ _)

538:nobodyさん
04/05/05 18:34 sv68sKr6
>>536
俺に言ってるんですかね？完全な的はずれですが。
なぜ文字化け云々が、著作権表示に・・・。

>>535
JISで送らなければならないことは分かってるんですが、
どうやってJISにするのかが分からないんです。
jcode.php とか使う必要があるんですかね？

539:nobodyさん
04/05/05 18:39
mb_convert_encoding。MB関数使えなければjcode.php

540:nobodyさん
04/05/07 17:43
Amazon
Yahoo! Auction
楽天市場
これらはどんな言語で作られているんでしょうか？

541:nobodyさん
04/05/07 17:53
>>540
とりあえずHTML

542:nobodyさん
04/05/07 18:10
日本語、英語、各国語対応しているよ。

543:nobodyさん
04/05/07 20:54
プログラミング言語

544:nobodyさん
04/05/07 23:53 SD6Cw3rl
PerlでCGIを勉強しててふと思ったんですけど、foreachとforの違いは配列にてループしたとき、
foreachのみがループ内で容易に、読み出された任意の配列の要素へ値を代入できると言うことだけでしょうか？
公開されているCGIで試してみたところそうみたいなのですが、
そうなるとforeachを必要ないのに使っているプログラムが非常に多い事になってしまうので…
何か他にforよりforeachを使う利点はあるのでしょうか？ご教授して頂けると幸いです。

545:nobodyさん
04/05/07 23:58
速い

546:nobodyさん
04/05/08 00:00
for と foreach って、実は名前が違うだけで、内部処理は一緒だったように思ったが
単に可読性のために名前を変えてるだけじゃなかったっけ

547:544
04/05/08 00:12
すみません、リファレンス等調べてみたら以下のことが分かりました。
forとforeachは基本的に同じ(と言うか完全に同じ)で>>546さんの言うとおり可読性の為に名前を変えている様です。
と言うことは、>>544の動作もforeachだけではなくforでも出来るかなと調べてみたら出来ました…申し訳ありませんでした。
配列を使って処理をするのはforeachを使うというのが一般的なスタイルのようです。
どうもありがとうございました。

548:nobodyさん
04/05/08 02:26 dvstKHVT
すいませんACTIVE Perlを新しいバージョンにしようと
思い古いACTIVE Perlをアンインストールしたいんですけど
アプリケーション削除しようとするとコマンドプロンプトが
表示されアンインストールできません。
削除のしかたを教えてくれませんか？
お願いします。

549:nobodyさん
04/05/08 10:06
単に新しいのを上書きインストールすればいいんじゃないか？

550:nobodyさん
04/05/08 14:36 jodQmWfe
ＣＧＩこんなの探してます「>>329」でもちょっと書き込みしたのですが、自分で出来ることがあるのなら先にやってしまおうってことで
こちらでも質問させていただきます。
こういうのはどこでたずねたらいいでしょうか？
------------------------------
プロフィール登録CGIを探しています。機能としては、がらくたBOOK(URLﾘﾝｸ(tinkle.cside.com))さんの「すぽっとりんく」が一番近いのですが、
画像アップロード機能が無かったので、とほほさんのところで配布している「wwwupl2」を組み込んでみようとしたのですがうまく出来ません。

本来ならバナー登録部分に「<INPUT type=\"file\" name=\"AAA\" size=\"40\">」として直接アップさせたかったのですが、うまく動作しませんでした。
そこで、ちょっと方法を変えいくつかの実験をしてみました。
まず、「wwwupl2」を丸々コピーして「spotlink.cgi」内に「sub up{ }」として記入。（もちろん#!/usr/local/bin/perl等は削除）
元々の登録サブルーチン「sub new_entry { }」を「sub new_entry_of_main { }」として退避。
新しく登録サブルーチン「sub new_entry { }」を作り、
print "<FORM method=\"$method\" enctype=\"multipart/form-data\" action=\"$script\"><BR>\n";
print "<input type=hidden name=mode value=\"up\">\n";
print "<INPUT type=\"file\" name=\"AAA\" size=\"40\"><BR>\n";
print "<INPUT type=\"submit\" value=\"送信\"></FORM>\n";
（一部抜粋）を作成。
メインプログラムに
elsif ($mode eq "up"){&up;}
を追加。
でも、こうすると、送信を押してもトップ画面（一覧を表示する通常表示画面）に行ってしまいます。
で、何が悪いのかが良くわからなかったため、
<FORM method=\"$method\" enctype=\"multipart/form-data\" action=\"$script\">
これを
<FORM method=\"$method\" action=\"$script\">
こうすると、ファイルはアップされないのですが、「sub up { }」に移動します。（「下記のファイルを受け取りました」だけ表示。）
一体どうしたら良いのでしょうか？

551:>>550
04/05/08 14:39 jodQmWfe
文字数制限が出たため、ちょっと一部内容を削除しまいましたが、今やってるところまでをどこかにTXTとして掲載した方がいいでしょうか?

552:nobodyさん
04/05/08 14:48
>>550
■ 設置の方法がわからない場合には
ＣＧＩ設置について質問
ｽﾚﾘﾝｸ(php板:15番)（テンプレ）

■ 自分で改造できない場合には
【スクリプト改造依頼スレ】(丸投げ)
ｽﾚﾘﾝｸ(php板:324番)（テンプレ）

■ 自分で改造するアドバイスが欲しい場合には
★三　【スクリプト改造工房 PART 8 】　★三
ｽﾚﾘﾝｸ(php板:79番)（テンプレ）

553:>>550
04/05/08 14:51 jodQmWfe
>>552サンクス。

私の場合、スクリプト改造工房 PART 8 がベストのようですね。
逝って来ます。

554:nobodyさん
04/05/08 15:45 UDCg2nm2
java studio creatorとjava server facesに関するスレってありますか？

555:nobodyさん
04/05/08 17:54
>>554
・ctrl + F してみる。
・ぐぐる様にご相談してみる。
・find.2ch.net してみる。

556:nobodyさん
04/05/08 21:26
>549
5.6->5.8とかの大幅なアップデートだとダメ。5.6のファイルが半端に残る。
こないだ何も考えずに上書きしてppmの動きがガタガタになって焦った焦った……

てことで>548
とりあえず「コマンドプロンプトが～」の辺りをもうちっと詳しく説明してくれ
どんなウインドウが開いて、それから何でそれが表示されるとアンインストール
できないのか(「アンインストールできねーから中止するぞｺﾞﾙｧ」とか出て
作業を強制中断されるとか? )を明確にタノム。

557:nobodyさん
04/05/08 21:27 3p4uAER8
コーディングスレではスレ違いだと教えてもらいましたので、こちらならいいかと思い質問です。

コーディング（符号化）の流れについてなんですが、
例えばＵＮＩＸ系のサーバにあるwebページに対して、「あいうえお」と送ったとします。

そのときの内部で起こっている事は、
１、送られてきた文字データをＥＵＣでコーディング（エンコード）
２、それをさらにＡＳＣⅡコードでエンコード

文字列データとして表示させるには
１、まずはＡＳＣⅡコード化されたデータを受け取りＡＳＣⅡ方式でデコード
２、それをさらにＥＵＣでデコード

で、合っていますか？なんか違う気もするんですが・・・
一番初めに文字列データをどの形式でコーディングするかの決定権をもっているのは
クライアント側のユーザですよね？受け取り側で自動でされる処理はASCⅡでエンコードするのみですか？
でもそれだと、何故ＵＮＩＸ系でＥＵＣを指定されているのか？ですし・・

・・・ここでもスレ違いでしょうか？

558:nobodyさん
04/05/08 21:34
＞コーディング（エンコード）

ﾁｮｰうけるんだけどぉ

559:nobodyさん
04/05/08 21:37
>>557
英数字は半角で書け。
Ⅱのような機種依存文字を使うな。
ＡＳＣⅡじゃなくてASCIIだ。

PerlにしろCGIにしろ本でも買ってきて一から勉強しろ。
脳内用語や脳内解釈で一人よがりにやってたって無駄なだけ。

560:nobodyさん
04/05/08 21:42
>>557
> 例えばＵＮＩＸ系のサーバにあるwebページに対して、「あいうえお」と送ったとします。
送っちゃいけません。
詳しい話は URLﾘﾝｸ(cgi-spec.golux.com) あたりのドキュメントをご覧ください。
前提がオカシイので以下略。

561:nobodyさん
04/05/08 21:57
みんな優しいいなｳﾙｳﾙ

562:nobodyさん
04/05/08 22:14 GHSjKHwv
質問です！perlで
*****[tab]iiiii[tab]oooo[tab]･･･[tab]oooo・・・・・・・・・・・・・・・
っていう内容のテキストファイルがあって
*****を読むにはどうしたらいいですか？
よろしくお願いします

563:557
04/05/08 22:29
UNIX系サーバにある、とあるウェブページの掲示板とかで
テキストボックスに「あいうえお」といれると次のページで「あいうえお」と書きこみが完了しますよね。

そのとき「あいうえお」という文字列が内部でどうゆう順番どんな処理をされていくのか。
という質問だったのですが、説明が下手ですいませんでした。

>>560
サイトを教えていただいてありがとうございます。翻訳で読んでみます。

>>559
全角と機種依存文字を使ってすいませんでした。
現在勉強中なので、勉強しろと言われても困りますが、WebProg 初心者の質問
というスレタイのこのスレはもしかして本当は質問するスレではないのですか？
勉強の一環としてここで質問したのですが・・・

564:nobodyさん
04/05/08 22:43
ssl通信の場合hiddenのセキュリティってどれくらい？
例えばフォームからpost形式でデータを送らせるのと比べて。

っていう質問はどこのスレッドですればいい？

565:nobodyさん
04/05/09 00:31
ここでいうセキュリティが復号化のされなさとすれば、
sslを使わない時のpostデータに比べて、sslの共通鍵が40,56,128bitだから、
128/0 = ∞倍ってことでええんでないの？

566:nobodyさん
04/05/09 01:49
(∞) ＜ｺﾞﾚﾝｼﾞｬｲ！

567:nobodyさん
04/05/09 02:24
(∞)(↑)(－)(？)(Ｖ)

568:564
04/05/09 03:11
>>565
ごめんpostデータもsslを使ってって話だった。

DBもCOOKIEも使わないでpostデータとhiddenだけつかって相手の入力した住所を
相手に確認させたのち、sendmailで送らせようと思ってるんだけど、そのときhidden
で住所の入力値をページ持ち越しさせようと思って。

ssl使ってて、住所をどっかに保存する必要がないならそれが一番安全だよねって。
まあそうゆうサイトを今すぐ作るわけじゃなくて、勉強中に気になっただけなんだけどね。

569:nobodyさん
04/05/09 03:52
>>568
ますます意味わからん。
そうなると問題はformのtype=hiddenのセキュリティはどれだけかって聞いてるのか?
hiddenだろうとtextだろうとpasswordだろうと、波平のうぶ毛程度にも大局に影響ない

570:nobodyさん
04/05/09 03:58
平文でメール書くって落ちはないよな

571:564
04/05/09 05:18
>>569
そうだよね。意味わかんないよね。変わらないに決まってるよね。

>>570
平文？サニタイジングした後JIS変換くらいするけど多分そうゆう意味じゃないね。

>>563
なんとなく俺が答えてみる。
１、「あいうえお」の文字コードの種類はブラウザに依存。
２、ブラウザによって（JIS/sjis/EUC)コード化されているデータがいつASCになるのかは知らないけど
とりあえずpostならSTDINで読み込むとASC状態。
３、ASCをpackでchar値に直すと送られてきた時の（JIS/sjis/EUC）コードに戻る。
４、それを普通はEUCに直して処理。出力時にsjisにしておしまい。

合ってるか保証できないから聞き流してね。ところでASCにはいつなってるんだ？
誰が知ってるの？

572:nobodyさん
04/05/09 08:23 x0wso6xn
Perl用のエディタで、Perlを動かすことのできるフリーソフトってないですか？
Visual Studio の Run見たいな機能がほしいんです。
英語版の製品（DzSoft Perl Editor）を使ったことがあるんですけど、
日本語が文字化けしたりするんですよね・・・

誰かおすすめあったら教えてください。

573:nobodyさん
04/05/09 08:27
557と564は”超初心者同士で勉強するスレ”でも立てて
お互いに助け合いした方がいいんじゃないだろうか。

その場しのぎの対症療法だけ知ろうとしないで
自分で基礎から積み重ねないと教える側の言葉すら通じない。
ASCⅡとか平文って何？とかいう状態じゃどうにもならないよ。

574:nobodyさん
04/05/09 10:11
>>572
おまいは今現在どうやってPerlを動かしているのかな？
まさかエディタで編集後FTPでUPして…とかやってるのか？

575:nobodyさん
04/05/09 10:24
>>571
なんのために HTTPS を使うのかわかってんのか。
入力された情報を生のまま SMTP に投げるのなら
HTTPS でセッション盗聴を防いだ意味がないだろうが。
メールも SMTP over TLS なり PGP なりで防御しろ。

576:nobodyさん
04/05/09 10:48
ASC2なんて思ってる人がこの世に二人もいるとは思えない。

577:nobodyさん
04/05/09 10:52 x0wso6xn
>>574
ActivePerlガうまく動かないので、そのまさかだったりします・・

578:nobodyさん
04/05/09 10:56
>>577
今すぐやめろ。
おまいにPerlをいじる資格はない。

579:nobodyさん
04/05/09 10:57
>>578
黙れ

580:座敷荒氏
04/05/09 11:13
お聞きしたいのですが、
よくネット通販で注文したとき、確認メールが自動配信されてきますよね。
あのメールって送信側にとうぜん残っているものでしょうか？

581:nobodyさん
04/05/09 11:16
>>577
ActivePerlさえ入れれないようじゃ・・・

582:nobodyさん
04/05/09 11:16
>>577
どううまく動かないのかな？
ActivePerlはｲﾝｽｺ出来たのか？
ｳｲｿだな？
コマンドプロンプトでperl -vって打って見ろ
httpdはどうした？

583:nobodyさん
04/05/09 11:17
>>580
そんなのはどちらだってある

584:nobodyさん
04/05/09 11:18
>>580
ま、残しておくべきものでしょうが、送信側はメールという物で残してない。

585:座敷荒氏
04/05/09 11:29
>>583・584
ありがとうございます。
ものによるでしょうから断定はできないですよね。
ただどちらもありうるということだけでもわかりました。

586:nobodyさん
04/05/09 11:32
ID:x0wso6xnが俺と同じレンタルサーバーを使ってないことを祈るよ。

587:nobodyさん
04/05/09 13:29
PHPで2GB以上のファイルのサイズを正しく取得する良い方法って無いですか？
オンラインマニュアルを見ると、
>2GBから4GBのサイズのファイルについては sprintf("%u", filesize($file))を
>使うことで打開されます。
とあるんだけど、うちの環境(PHP4+orenosrv)ではfilesize()が誤った+の値(600,000,000とか)を
返してきてうまくいきませんでした。

588:nobodyさん
04/05/09 13:34
>>572
Winだけど「Perlを始めよう」はエディタに標準出力のウィンドウが合体してるからボタン一個で動作確認できるよ。
けどエディタで編集・保存→DOSプロンプトで確認でも大して面倒とは思わないけど。

589:nobodyさん
04/05/09 14:43
今時ApacheやらActivePerlやら本家をインストールしなくても
WAMP環境のパッケージが一杯あるやん。
UniformServer使ってるけどライブラリやら拡張dll入れたら楽に使えていいよ。
他のは試してないんだけどね。

590:nobodyさん
04/05/09 15:59
保守あげ

591:nobodyさん
04/05/09 16:01
今時ApacheやActivePerlごときのインスコでつまづくやつなんかいないでしょ。

592:nobodyさん
04/05/09 18:00
上のほうにいるﾓﾖﾝ

593:nobodyさん
04/05/09 18:43
おまいらPerlのパッケージとかモジュールとかオブジェクト指向について詳しく解説してるサイトってどこ？
自分のサイトにリンク貼ろうと思ってるんだけど、お勧めのページある？

594:nobodyさん
04/05/09 18:47
Perlスレのテンプレでも見れば

595:nobodyさん
04/05/09 20:00
>>593
あなたのサイト教えて下さい。

コンストラクタの必要性もわからない初心者です。

596:517
04/05/09 20:51 iCumG1+f
おかげさまでＣＭＳのXoopsのダウンロードと導入まではできました。
ありがとうございます。

いまは、Xreaで独自ドメイン＋広告免除サービスのものを使っています。

URLﾘﾝｸ(sample.s23.exrea.com)<)に飛べるようになりました。

public_html/htmlの中にXOOPSのインストールもできました。
初期の設定画面も出て、成功したようです。

でも… URLﾘﾝｸ(sample.com)にしないとサイトが表示されないのです。
URLﾘﾝｸ(sample.com)でサイトが表示されるようにするには、どうしたらいいでしょうか？
エクスリアのpublic_htmlにインストールするとXOOPSが動かなかったのです。

597:nobodyさん
04/05/09 20:56
ここで聞くな

598:nobodyさん
04/05/09 22:17
質問です。
自宅のPCでhttpd使ってPerlでCGI作ってるんですが、
画像の表示が上手くできません。

#!/usr/local/bin/perl
$pass = 'image.gif';
$size = -s $pass;
print ("content-type: image/gif\n\n");
open(IN,"$pass");
binmode(IN);
binmode(STDOUT);
read(IN,$buf,$size);
print $buf;
close(IN);

こんな感じで、cgiと同一ディレクトリにimage.gifを用意して、

[c:\www\home] とか [c:\www\home\a]
上みたいなディレクトリにある時は上手く動くんですが、

[c:\www\home\cgi-bin]
上みたいにcgi-binディレクトリに移動すると画像が表示されません。

どなたか対処法など御教授お願いします m(_ _)m

599:nobodyさん
04/05/09 22:20
ぱーみっしょん

600:598
04/05/09 22:28
あ、ちなみにWindows環境であります(ﾟ-ﾟゞ

601:nobodyさん
04/05/09 22:33
画像をcgiと別のディレクトリに置いてみるのはどうよ。

602:598
04/05/09 22:36
それも試してみたんですけど上手くできないです。

相対パスも絶対パスも試したのでパス指定のミスでも無いと思うんですけど('A`)

603:nobodyさん
04/05/09 23:01
・ print $size してみて、ちゃんとサイズが取れているか確認する
・いろんな関数のあとに || print 'error dayo'; などとつけまくって、どっかでコケてないか確認する

604:nobodyさん
04/05/09 23:09
>>598
> [c:\www\home\cgi-bin]
> 上みたいにcgi-binディレクトリに移動すると画像が表示されません。
httpd.conf 嫁。
になるので（ｗ

Manual の ScriptAlias 嫁。ってことでご勘弁を。

605:598
04/05/09 23:25
>>604
一言、言わせてもらいます

ホントに　　　有　難　う　！

606:598
04/05/09 23:31
そうしてHPスペースにageてみると・・・

また動かなかったとか･･･ｶﾞﾝｶﾞﾘﾏｽ＿|￣|○

607:nobodyさん
04/05/10 00:05
>>604
ん？
gif を直接呼び出してるんじゃなくて CGI 経由で出力してるんでしょ？
関係ないのでは？

608:nobodyさん
04/05/10 00:11
ずいぶん前の話だけど、ScriptAliasで指定したディレクトリに
CGIのスクリプトファイルとcssファイル置いたら
Apacheがcssを実行形式と見なして(当然実行できるわけもなく)500エラーが出まくって
何事かと思ったことがあった。
604が考えているのはそういう事態かな? と見当外れかも知れないことを言ってみるテスト。

609:nobodyさん
04/05/10 00:59 bW7dwAUu
初心者質問で本当にすみません。

携帯のメール料金節約にと、
自分のサーバーにanonymailのようなCGIを設置してみました。
送信などはきちんとできるのですが、
送信文、送信先のログを残しておければなーと思っています。
もし可能であれば簡単な説明で構いませんので教えて頂けると助かります。
どうか宜しくお願いします。

610:nobodyさん
04/05/10 01:14
>>609 同じ物を鯖に保存すればいいだけだろ。何か問題でも。

611:609
04/05/10 01:49 bW7dwAUu
同じcgiファイルをサーバーの別フォルダに保存しておくと言う事でしょうか？
本当に初心者なもので…申し訳ないです。
メール送信後に自動的にログができるようなシステムにしたいのですが…。

612:nobodyさん
04/05/10 02:07
ファイルのIOといったら基本中の基本だろ。
ここは一応プログラミングの初心者が来るところだぞ。
プログラミングできない香具師はスレ違い。

613:nobodyさん
04/05/10 02:28
>>609
まあ、改造依頼丸投げスレにでも行ってみては

614:nobodyさん
04/05/10 02:57
■ 設置の方法がわからない場合には
ＣＧＩ設置について質問
ｽﾚﾘﾝｸ(php板:15番)（テンプレ）

■ 自分で改造できない場合には
【スクリプト改造依頼スレ】(丸投げ)
ｽﾚﾘﾝｸ(php板:324番)（テンプレ）

■ 自分で改造するアドバイスが欲しい場合には
★三　【スクリプト改造工房 PART 8 】　★三
ｽﾚﾘﾝｸ(php板:79番)（テンプレ）

615:nobodyさん
04/05/10 15:20
Perlをインストールしてるよ俺。
vectorから拾って来たPerl5だけど5.の後がわからない。

自分のpcにいれてるPerlの正確なverを知る方法ってあるのかい？

ところで俺の自信のバージョンを調べたら「役に立たないタイプです」ってさ・・・
マホカンタ！！

616:nobodyさん
04/05/10 15:25
perl -v

617:nobodyさん
04/05/10 15:35
うちの615がすみません。
毎日～家で暗～くなってたものですから、試しにパソコンを買ってあげたのですが、
それからというもの少しは明るくなったかなと思ったらこの頃「ごちそうさまですた」
とか「漏れ」とか「キター」？？？とか意味のわからない言葉を使うようになってしまって
頭を悩ませてるんです。

成人しても未だに無職で・・・この子もう駄目なのかなってなんだか私の方がふさぎこんで
しまうような状態で・・・

でもねこの間、そんな私を見てあの子が「イキロ」って言ってくれたんです。嬉しくて気づいたら
あの子にすがって泣きながら「モマエモナー」って繰り返してました。

618:nobodyさん
04/05/10 20:52
PERLの話なんだけどさ
test.txtに下記のような文があったとして

<p>$x</p>

このtest.txtをsample.cgiで読み込出力

$x=123456789;
open(FH,"<test.txt");
while(<FH>){
print;
}

ってすると当然ブラウザには$xが展開されずに「$x」だけが表示されるけど、これを
ブラウザに「123456789」って表示させるのっておまいらできる系？

619:nobodyさん
04/05/10 20:56
俺はできる系。
すごいだろ？

620:nobodyさん
04/05/10 21:22
俺もできる系（,,・ｅ・）

621:nobodyさん
04/05/10 21:24
おまいら凄いな。軽くウケたw

622:nobodyさん
04/05/10 21:34
>>621
おまい、できない系？

623:621
04/05/10 22:02
俺はできない系だから618を書いたけど

おまいらが方法について全く書く様子がないあたりが面白かったよ。

<できない系の俺の回答>
sample.cgiのコードをこう変える

$x=123456789;
open(FH,"test.cgi");
binmode(FH);
@a=<FH>;
$b=join('',@a);
seek(FH,0,0);
print "Content-type:text/html\n\n";

read(FH,$c,index($b,'$x',0));
print $c;
print $x;
以下略・・・

さあおまいら心の準備はできてるから、馬鹿にしてくれ！！！！

・・・・・・優しい心をもってるそこのおまい。教えてくれても良い系みたいよ。

624:nobodyさん
04/05/10 22:28
>>623氏ね

625:nobodyさん
04/05/10 22:32
while (<FH>) {
eval "print \"$_\"";
}

626:nobodyさん
04/05/10 22:37
んー、、、じゃあ

while(<FH>){
$_ =~ s/\$x/$x/g;
print;
}

627:621
04/05/10 22:54
うお！！

・・・・・俺って馬鹿だね>>624も合わせて軽く鬱。

Template-Toolkitって説明みるの面倒だからHTML部分はShift_JISでテキストファイルに別に書こうと
とか思ってたけど、俺の脳みそで思いついたそのやり方じゃどうせゴミみたいなもんなんだろな・・・

ていうかeval位知ってろよと・・・・

628:621
04/05/10 23:13
とりあえずPerl限定なんだけどさ・・・

こんな機能を実現するためのコードを書け！！（中級レベル）
っていう感じ頼むよ。

馬鹿な漏れに問題をだしておくれ。

629:nobodyさん
04/05/10 23:23
問題集スレみたいなのか。
それはそれでおもしろいかもな。

630:nobodyさん
04/05/10 23:25
>>628
Web注文システム。セッション管理を使用したカートによる注文システム。
Webベース、またCSVフォーマットファイルでの商品・顧客管理。

631:621
04/05/10 23:43
>>630
おまい長い

632:nobodyさん
04/05/10 23:48
>>628
%itemと%maneyの同じキー同志を掛け算して%pricetotalっていうハッシュを作れ

633:621
04/05/10 23:54
>>632
キー？値じゃなくて？多分値の間違いと思うけど、漏れ的馬鹿回答↓

@key = keys %item;
for($i = 0 ; $i < $#name ; $i++){
$pricetotal{@name[$i]} = $item{@name[$i]} + $money{@name[$i]};
}

634:nobodyさん
04/05/10 23:56
>>633
掲示板を作るから、フォームに入力された文字列を無害化したいんだけどそれ

635:621
04/05/11 00:03
>>633
>@key = keys %item;
これ
@name = keys %item;
の間違い。

636:nobodyさん
04/05/11 00:04
%pricetotal = map { ($_, $item{$_} * $maney{$_}) } keys %item;

%maney (･∀･)ﾆﾔﾆﾔ

637:621
04/05/11 00:48
>>636
やっぱり漏れってゴミなのね・・・

>>634
難しいから明日やるよ。今日はご飯食べて寝まつ。

638:nobodyさん
04/05/11 02:38 b1LbH1Z6
質問です、すいません。
The RoomのRanking Link Ver.1.86という
ランキングCGIを設置してるんですけど、
登録されるURLの記述が
http://
じゃなく
http%3a%2f%2fwww%2e
のように記号が文字化けします。
このままだとrl_out.cgiをかまないと相手先に飛べません。
記号の文字化けを無くす方法わかる方お願いいたします。

639:nobodyさん
04/05/11 02:41
文字化け？してないよ。

640:nobodyさん
04/05/11 02:42
茶化しつつも文句言われたらコードで答える。
ｶｺｲｲな。

641:nobodyさん
04/05/11 02:49
>>638
同梱のマニュアルをちゃんと読め。
そもそもスレ違い。

642:636
04/05/11 05:13
>>637
なにをもって「ゴミ」なのかよーわからん。

643:nobodyさん
04/05/11 08:03 d7QjPssI
クローラーってPHPで作れますか？
どっかスクリプトあったら、教えてください。
英語でもOK！！！！！
ロボット型価格比較サイト作りたくて？

え？
価格コム＝YAHOOっぽい
わがサイト＝GOOGLEっぽくしたくてね。

644:nobodyさん
04/05/11 08:24
>>643
ここは作る人の板だ。
クレクレは他に池

645:621
04/05/11 09:08
>>634
<漏れ的馬鹿回答>
require "jcode.pl";
read(STDIN,$x,$ENV{'CONTENT_LENGTH'});
jcode::convert(\$x,"euc");
$x =~ s/[\x21-\x2f\x3a-\x40\x5b-\x60\x7b-\x7e]//g;
jcode::convert(\$x,"sjis");
print "Content-type:text/html\n\n";

print $x;

ってこれ記号系を排除しただけなやつだから的外れかも・・・
的外れな上、相手がJISで送って来たものをEUCに変換すると「紗」とかが文字化けして
タグになっちゃうとかいう辺りの対策をどうやればいいかもわかんないから書けなかったよ。

っていうかJISをEUC変換すると文字化けするとかってどっかで読んだけど意味をイマイチ理解できてない漏れ＿|￣|○

646:nobodyさん
04/05/11 09:23
$maney = 0;
$okozukai = 0.001;
for (1..10000) { $maney += $okozukai }
print $maney;

正しく貯金する方法を教えてくださいm(_ _)m

647:621
04/05/11 09:30
>>645
>>jcode::convert(\$x,"euc");
の前に
$x =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",hex($1))/eg;

648:621
04/05/11 10:09
>>646
おまい難しいこというね。1052回くらいからおかしくなっていくみたいだけど・・・・

もうちょっと頑張ってみるよ。

649:nobodyさん
04/05/11 16:36
>>647
リファレンス全部読め。
$x =~ s/%([0-9A-Fa-f][0-9A-Fa-f])/pack("H2", $1 )/eg;

650:nobodyさん
04/05/11 16:43
ファイルのDLカウンターについて質問があるのですが
ファイルへのリンクをクリックした後ファイルのダウンロードをキャンセルしてもカウントされてしまうのではないですか?

651:nobodyさん
04/05/11 16:44
されるんじゃないの？

652:nobodyさん
04/05/11 16:46
カウントの仕方にもよるよな。途中できれてrange指定で
やり直しなんてのもあるし、あまりマジメに数えようとすると
ハゲそうだが。

653:nobodyさん
04/05/11 18:05 xLF+apwo
situmonndesu
Perlで出来なくてJavaやASP.netとか他の言語でしか出来ない事って
あるんですか？（個人でＨＰを作るにあたって）

654:nobodyさん
04/05/11 18:07
>>653
Perl使いをいじめることぐらいかなぁ。。

655:nobodyさん
04/05/11 18:10 xLF+apwo
>>654はどの言語使ってるんですか？？

656:nobodyさん
04/05/11 18:12
PerlやASPに出来なくてJAVAに出来ることはいっぱいいっぱいあるぞ!

ま、そういうときのJAVAは板違いかもしれんが

657:nobodyさん
04/05/11 18:19 xLF+apwo
では皆さんがサーバーサイドとしてお勧め"しない"言語はありますか？
出来れば理由も教えて頂けますか？

658:nobodyさん
04/05/11 18:37
おまいさん、なんか忙しいねー＾＾；
そんなスピードの速い板・スレじゃないんだから、もう少しレス待ちゃいいのに。

どんな言語でも目的があって存在してるんだから、無条件で「お勧めできない」もの
なんてないよ
もうちょっと条件絞られるなら向き不向きが出てくるだろうけど。
どうしてもスピードが欲しいならCとか、初心者なのでサンプルが豊富に欲しいなら
Perlだとか。

それより個人のHPなら、サーバー自前で立てるわけじゃなし、言語にそんなに選択肢
ないんじゃないの?
その中で目的や自分のスキルにあった言語を選べばよろしいかと。

659:遙皇 ◆HEHARUKAoo
04/05/11 21:59
>>657
ROM-BASIC
理由は訊かないでくれ

660:nobodyさん
04/05/11 22:53
>>657
入力→処理→出力な流れだから、
LOGOやprologのような対話型の言語は向かない(使えない)と思う。
処理系にも依存しそうだけど。

661:nobodyさん
04/05/11 22:57
PL/IやCOBOLは、お勧め"しない"。

662:nobodyさん
04/05/12 00:22 jSU92ZY8
掲示板で名前の後ろに#（文字列）を付けるとトリップ可能な方法を教えてください。

663:nobodyさん
04/05/12 00:29
クラブ行って売人からEってのを買って服用するといいよ。トリップ可能です。

664:621
04/05/12 11:35
>>646
漏れにはわかんね。もっと簡単なやつがいい。

>>649
ありがと

誰か漏れを育てておくれ。自分のＨＰの作成の途中にまたくるよ

665:nobodyさん
04/05/12 12:42 RTxoXUFl
クライアント側でurlエンコードする方法ってありますか？
getで、送信してもらうときに、日本語文字列がはいっててうまく
受信できないときがあるので。
フォームを使わず、リンクでやってるのでpost使えという案は
ナシで。

受信側はservletです。

666:nobodyさん
04/05/12 13:13 4+cRhCAf
質問です。
XMLスタイルシートに
<xsl:stylesheet version="1.0" xmlns:xsl="URLﾘﾝｸ(www.w3.org)">
と記述した場合はXMLとXSLTから画面が表示されるのですが
<xsl:stylesheet xmlns:xsl="URLﾘﾝｸ(www.w3.org)">
と記述した場合はスタイルシート中の「xsl:～」がそのままブラウザで表示されてしまいま
す。

なぜでしょうか？教えてください。

667:621
04/05/12 15:33
foreach(keys %item){
jcode::convert(\$item{$_},"sjis");
}

自分だけのモジュール作ってるんだけど、terapad使って初め間違えてShift_JIS
で書いちゃったから全文コピーしてEUCで新規に空けたとこにペタリ。

その直後からエラーになってuseが成功しない・・・３～４時間かけて実は上から２行目の文法が原因であると気づく。
いやでもおかしくないはずなのに・・・色々試すと、何故か他のフォルダでやると問題なし・・・？？？？

そしてやっと気づいた、jcode.plのバージョンが古かったことに・・・・エラーがでたのは
requireしたjcode.plが17kb位で、問題なくいくとこのは21kbくらいだった。

３時間もこんなことに使うなんて・・・・・

668:nobodyさん
04/05/12 15:46
>>665
JavaScript。

>>667
日記は夢板へ。

669:nobodyさん
04/05/12 15:49
>>666
Web制作板へどうぞ

670:nobodyさん
04/05/12 15:50
>>667
そんなもん　/home/hoge/lib にでも置いて　use lib '/home/hoge/lib'; して
いろんなとこからrequre　でも　use　でもすべき。

671:nobodyさん
04/05/12 17:05 RTxoXUFl
>>668
JavaScriptでurlエンコードしたものをサーブレットで
もどせんの？
エンコード方法が同じなのかよくわからん

672:nobodyさん
04/05/12 17:39 yQeTe8PQ
初歩的な質問なんですが、教えて頂ければ幸いです。

Postgresql7.3からINT型を読み込むときに空文字列を入れると
エラーが出るようになったために以下のメッセージが出ます。
pg_atoi: zero-length string in /opt/apache/htdocs/public_html/keijiban.php

原因は理解できるのですが、どうやって解決してよいものかわかりません。
どうか、アドバイスを...
↓PHPのソース
#error_reporting(0);
require('./include/init.inc');
$admin_pass = '12345678';
$limit = 10;
$max = 100;
$R = pg_query("select title,body from bbs_title_table where bbs_id='$bbs_id'");
$rows = pg_num_rows($R);

環境：PostgreSQL 7.3.5
PHP 4.3.6
Apache 1.3.29
OS : Red hat Linux 9

673:636
04/05/12 17:40
>>671
RFC 嫁ってことで FA

↓次の方ﾄﾞｿﾞｰ

674:nobodyさん
04/05/12 17:42
>>672
鰓を読んで如し。
空文字列チェックするがよろし。

675:672
04/05/12 18:26 yQeTe8PQ
PSQLのテーブルか、
PHPを修正してエラーが出ないようにしたいのですが＞＿＜

見当違いなこと言ってたらすいません...

676:nobodyさん
04/05/12 18:39
>>675
>>674の意味がわからんの？
クエリ結果を判定したらいいじゃんってことでそ？

677:672
04/05/12 18:47 yQeTe8PQ
PSQLは、テーブルを定義しただけで
テーブルの中にはまだデータ入ってないんです...
だから検索しても何にもでてこないです＋＋

また見当違いなこと言ってたらすいません

678:nobodyさん
04/05/12 18:51
>>672
空文字列だった時にどう処理したいのかをスクリプト内に書く。
データが入ってない時にどう処理したいのかをスクリプト内に書く。
それがプログラマさんのお仕事れす。

679:nobodyさん
04/05/12 18:52
いいかげんウゼェ！
専用スレがあるんだからそっちでやれや！

PHP + PostgreSQL
ｽﾚﾘﾝｸ(php板)

680:nobodyさん
04/05/12 19:37
質問～。
xrea鯖でC言語CGI使えるってんで、やってみようと思い、
ローカルで動作確認してageてみたら動きません。
何か設定とか必要でつか？

681:nobodyさん
04/05/12 19:54
>>680
コンパイルしてからうｐしたか？

682:nobodyさん
04/05/12 20:46
してからウｐしますたけれど・・・。
駄目ぽ？

683:nobodyさん
04/05/12 20:48
動きませんなんて言ってるやつは放置しとけ

684:680
04/05/12 20:53
じゃ、放置しといてください。

685:nobodyさん
04/05/12 21:02
どうした？
気が付いて恥ずかしくなったか？ｗ

686:nobodyさん
04/05/12 21:07
xreaのサポート掲示板で聞けばいいのになんでここで聞くのだろうね？
しかも何をどのようにやったかも書かずに、ただ「動きません」だもんな。
鯖が厨に使わせると危険と判断して拒否したのかもなｗ

687:nobodyさん
04/05/13 06:27
「bccとかでコンパイルした」に一票。

688:nobodyさん
04/05/13 07:53
Linuxでgcc使ってコンパイルしる
xreaって鯖でコンパイル可だったっけ
昔トクトクでコンパイルしてxreaで動かしたって話を聞いたことがある。

689:nobodyさん
04/05/13 09:56
perlのforeachとmap・・・・・・

mapの方が処理が早いらしいね・・・・foreachって・・・・

690:nobodyさん
04/05/13 10:32
>>688
サーバ上でできるよ。
一番手軽なのはPerlのsystem関数でgccを実行する方法。

691:nobodyさん
04/05/13 10:55
>>689
へーと思ってちょっと試してみたが逆の結果が。
ダマサレタ...

use Benchmark qw(:all);

@a = (1..1000);

timethese(100000, {
sum_foreach => sub {
my $sum;
for (@a) { $sum += $_ }
},
sum_map => sub {
my $sum;
map { $sum += $_ } @a;
},
});

を実行すると

Benchmark: timing 100000 iterations of sum_foreach, sum_map...
sum_foreach: 44 wallclock secs (44.29 usr + 0.00 sys = 44.29 CPU) @ 2257.85/s (n=100000)
sum_map: 47 wallclock secs (46.58 usr + 0.00 sys = 46.58 CPU) @ 2146.84/s (n=100000)

692:nobodyさん
04/05/13 10:55
と思ったのだが、最後の式がサブルーチンの値になってしまうので
mapの値はいらないことが処理系にわかるように少し直して

use Benchmark qw(:all);

@a = (1..1000);

timethese(100000, {
sum_foreach => sub {
my $sum;
for (@a) { $sum += $_ }
$sum
},
sum_map => sub {
my $sum;
map { $sum += $_ } @a;
　　　　$sum;
},
});

とすれば

Benchmark: timing 100000 iterations of sum_foreach, sum_map...
sum_foreach: 45 wallclock secs (44.25 usr + 0.00 sys = 44.25 CPU) @ 2259.89/s (n=100000)
sum_map: 43 wallclock secs (42.00 usr + 0.01 sys = 42.01 CPU) @ 2380.39/s (n=100000)

疑って悪かった。ごめんよ。

693:nobodyさん
04/05/13 13:35 PZ9gvfp2
ハテナ　アンテナみたいに
PINGなしの通常サイトの更新を教えてくれるサービス教えてチョ

694:nobodyさん
04/05/13 16:24
foreachの生きる意味をみんなで考えてみよう・・・

695:nobodyさん
04/05/13 16:50 maKDveah
簡単にP3Pを導入する方法教えて～

自鯖のページにてクッキーを挿入
↓
別鯖に飛んで指定のページをめくったら
イメージタグで自鯖のCGIを呼び出す
↓
前に入れておいたクッキー情報を(識別用の文字列と時間の２つだけでつ)
テキストファイルに吐き出す

IEのセキュリティの設定を変えないと上手くいかない～

696:nobodyさん
04/05/13 22:25
>>695
鏡の前で「あぽぅ」って馬場さんのマネしてみ

697:nobodyさん
04/05/13 22:38
activeperlインスコしたいんだけどさ、何故かうまくいかんのよね。
win98:ie6で容量も空いてるんだけどね。

とりあえずよくあるactiveperlインスコ講座みたいなサイトは見尽くしたんだけどさ、
インストーラ入れてmsiファイルを落として。インストーラsetupして、

そしてmsiファイルのactiveperl5.6をダブルクリック!!

って言ってもファイルの関連付けができてないから、アプリ選択になるのよね。一体どのアプリで起動させるのかわからんち。

PERLの質問板ってもうどこも廃墟っぽいだけど、どこに行くのが一番いいかな

698:nobodyさん
04/05/13 22:45
>>697
Win98の場合、まず Windows Installer というのを入れないとだめぽ。
URLﾘﾝｸ(support.microsoft.com)

699:697
04/05/13 23:35
>>698
ちゃんといれてあるぽ。

今、msiファイルってのがなんなのか説明読んでたら、もしや！？と思って落としたactiveperl5.613の
ファイルの関連付けを、その他から選んでインストーラ（InstMsiA.exe）にしてみたよ！

そしたら
Command line option syntax error. Type Command/?for HELP.
訳）ライン・オプション・シンタックス・エラーを抑制してください。Command/?for HELPをタイプしてください。

だってさ。とりあえずこのエラーの意味を調べる事にしたよ。

700:nobodyさん
04/05/13 23:45
>>699
InstMsiA.exeはアーカイブファイルじゃねぇか。
そんなものに関連付けて動くわけないだろ。
Windows Installerを正しくインストールすればmsiファイルは関連付けされて
ダブルクリックでインストールできる。

701:nobodyさん
04/05/14 00:07
まさかInstMsiA.exeをダウンロードした時点で
インストールできたと勘違いしてるわけじゃないよね。

702:697
04/05/14 00:13
正しくインスコできてないってことかぁ・・・正しくインスコできれば関連付けは自動。
自動でなんていうアプリケーションに関連付けられるてるんだろ。

インスコが失敗ってアンインスコのやり方もわからんちだしな。アプリケーションの追加と削除の中にもないんだよね。

って書きながらも色々試してたら、msiexecとかいうやつを見つけたからそれに関連づけてみたけど失敗。

お腹空いたぽ

703:697
04/05/14 01:03
できたぽ

c:\windows\systemフォルダの中にあるmsiexecってやつを恐る恐る削除してインスコもう一度
やってみたら、正常にインスコを完了できた。PERLのインスコまで完了。

・・・できてみるとあっけない。でも５時間も掛かった・・・・ありがとう

704:nobodyさん
04/05/14 07:06
>>694
use Benchmark;
my @aa = 1..10;
my @bb = 10..20;
timethese(-1, {
'foreach' => sub {
foreach my $xx (@aa) {
foreach (@bb) { my $yy = "$xx-$_" }
}
},
'map' => sub {
map {
my $xx = $_;
map { my $yy = "$xx-$_" } @bb
} @aa;
},
});

古いバージョンだとmapは全般的に遅かったような。

705:nobodyさん
04/05/14 10:00
それは>>691,>>692で書かれているようにmapの戻り値がいらないことを
処理系が判断できないので戻り値の配列を作ってしまっているから。

foreach版と同じことをさせてるならmapの戻り値はいらないはずなので

'map' => sub {
map {
my $xx = $_;
map { my $yy = "$xx-$_" } @bb;
1;
} @aa;
1;
},

としてみ。逆転すると思うよ。

706:nobodyさん
04/05/14 13:52
foreachとmapはどちらが先に生まれたの？同時かな？

707:nobodyさん
04/05/14 14:16
perl
モジュールをインストールするってどういうこと？モジュールって
use モジュール名;
って記述するcgiファイルと同じディレクトリにあればいいんじゃないの？

そういうことを勉強するならここっていうお勧めのサイトないでせうか。

708:nobodyさん
04/05/14 14:40
perl のモジュールには、大雑把に分けて
・純粋に perl スクリプトだけで構成されたモジュール
・CやC++のコードと組み合わせて構成されたモジュール(XSモジュール)
の二種類がある。
前者の場合、*.pm を適切にコピーしさえすればたいてい動く。
しかし後者の場合は、CやC++のコードをコンパイルする作業も必要になる。
Crypt::SSLeay, DBI, HTML::Parser, Image::Magick, NKF, Unicode::Map8 などは後者。

詳しい話は Perlモジュールスレの方がいいかも。

709:707
04/05/14 15:28
>>708
ありがと。かなりわかりやすい説明だった。

あれからぐるぐる回ってたら、どうやらactiveperlはppmとかいうの使えば知識要らないYO!
とかに気づいてbulid638入れてプロンプトから
ppm install パッケージ名;
って打ち込んだだけでできちゃった；

その後>>708をみたらより理解できた。本当にありがと。

710:704
04/05/15 06:44
>>705
どーもです。了解しました。

711:nobodyさん
04/05/15 10:23 UYhfDapR
で、foreachの存在意義だが、

foreach (1..$N) {～}

と

map {～} 1..$N;

あたりでどうだろうか。mapだと先に1..$Nのリストを生成
してからの処理になるらしく、$Nが大きくなると遅いし、
とても大きな値にするとOut of memory!で終わってしまう。
foreachはカッコの中が範囲だと特別扱いしてるらしく
そんなことはない。

あとmapではlastとか使えないってのもあるな。

712:nobodyさん
04/05/15 15:03
>>711
そもそも用法・用量を守っていない悪寒。

次ページ