Perlコーディング初心者質問スレ Part 56

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


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

1 名前：nobodyさん mailto:sage [2007/09/16(日) 19:49:43 ID:???]: Perlのコーディングで困ってる人のスレです。

【投稿する際の注意】
質問するときは内容をよく吟味してから投稿してください。
「コマンドの意味がわかんない」とかはマニュアル見ましょう。
回答者さんは何でも屋じゃありません。

1：自分はこういう事がしたい。
2：それでこんな風にやってみたが･･･
3：こんなエラーが出て上手く行かなかった。

最低でも1と3が無いと誰も答えられないよ。
良い回答は良い質問から。一緒に勉強しましょう。

お勧めサイトは >2 以降

前スレ　ttp://pc11.2ch.net/test/read.cgi/php/1180492441/
過去ログ倉庫　ttp://user.ftth100.com/mirrorhenkan/perl/
514 名前：nobodyさん mailto:sage [2007/11/09(金) 17:49:37 ID:???]: tokuhirom自重
515 名前：nobodyさん mailto:sage [2007/11/09(金) 18:08:33 ID:???]: Perl死んじゃうん？
516 名前：nobodyさん mailto:sage [2007/11/09(金) 18:57:53 ID:???]: （・∀・）ﾆﾔﾆﾔ
517 名前：JAPU ◆lVJAPUTeX. mailto:sage [2007/11/09(金) 18:59:46 ID:???]: >>511

use utf8;
518 名前：nobodyさん [2007/11/09(金) 19:09:09 ID:8S2oyKnm]: >511
use dan;
で解決するよ。
519 名前：nobodyさん mailto:sage [2007/11/09(金) 19:26:50 ID:???]: tokuhirom の直近の発言をコピペすることによりスレを荒らす tokuhacks.
520 名前：nobodyさん mailto:sage [2007/11/09(金) 21:31:54 ID:???]: plaggerのソース読めって言ってるやつのほとんどはplaggerのソースが読めない
521 名前：nobodyさん mailto:sage [2007/11/09(金) 22:28:46 ID:???]: コード解説読めってならともかくコード読ませたってしょうがないだろ。Perlなんだから
522 名前：nobodyさん [2007/11/09(金) 23:35:40 ID:8S2oyKnm]: tokuhiromのソース読めって言ってるやつのほとんどはtokuhiromのソースが読めない
523 名前：nobodyさん mailto:sage [2007/11/09(金) 23:39:07 ID:???]: プラガー（笑）
524 名前：nobodyさん [2007/11/10(土) 10:49:28 ID:Z9OcedPC]: web上の圧縮ファイル(.lzh)をダウンロードして保存、
さらにその圧縮ファイルを解凍するスクリプトを作りたいです。

例えば、LWP::Simpleを使った場合
my $dat = get('hoge.com/071110.lzh');
の後はどう処理していけばいいでしょうか？
525 名前：nobodyさん mailto:sage [2007/11/10(土) 11:02:39 ID:???]: > の後はどう処理していけばいいでしょうか？

lha 書庫を解凍する処理を行えばよい。
526 名前：nobodyさん mailto:sage [2007/11/10(土) 11:03:28 ID:???]: >>524
はい。
www.google.co.jp/search?q=lzh+%E8%A7%A3%E5%87%8D+perl&ie=utf-8&oe=utf-8
527 名前：nobodyさん mailto:sage [2007/11/11(日) 02:16:45 ID:???]: 2chみたいに携帯から固有のＩＤを作りたいんですが
どうすればいいんでしょうか。
528 名前：nobodyさん mailto:sage [2007/11/11(日) 07:14:50 ID:???]: >>527
i-mode：UTN
EZweb：HTTP_X_UP_SUBNO
Y!：UA
529 名前：nobodyさん [2007/11/11(日) 14:32:10 ID:4iiY3aOI]: 正規表現について質問です。
urlからファイル名だけを取り出したいです。
例えば、$urlという変数に下の3つのurlがあった場合は
hoge1.html, hoge2.html, hoge3.htmlを取り出したいです。

localhost/hoge1/hoge1.html
localhost/hoge1/hoge11/hoge111/hoge2.html
localhost/hoge2/hoge21/hoge3.html

下のように自分でやってみたのですが、localhostの前の/から取得してしまいます。
if( $url =~ /\/(.*\.html)$/ ){
print $1 . "\n";
}

どうすればやりたい事ができますか？
教えてください、お願いします。
530 名前：nobodyさん mailto:sage [2007/11/11(日) 14:35:11 ID:???]: ワイルドカードにすべき部分は「全ての文字」じゃない、「/を除いた全ての文字」だ。

あ、とりあえず ?xxx=hoge とかの引数は考えなくていいよね？
531 名前：529 mailto:sage [2007/11/11(日) 14:47:19 ID:???]: >>530
レス有難うございます。

>ワイルドカードにすべき部分は「全ての文字」じゃない、「/を除いた全ての文字」だ。
なるほど。でも頭では理解できてもそれをコーディングするとなると・・・
.*の部分を弄ればいいのかなぁ。

>あ、とりあえず ?xxx=hoge とかの引数は考えなくていいよね？
はい、このパターンは今回ありえないっす。
532 名前：529 mailto:sage [2007/11/11(日) 14:58:10 ID:???]: 条件文を下のコーディングに変更したらできました。
if( $url =~ /\/([^\/]*\.lzh)$/ ){

正規表現すげー
>>530さんアドバイスありがとうございました。
533 名前：nobodyさん mailto:sage [2007/11/12(月) 08:03:25 ID:???]: .*?も覚えたらいいとおも
534 名前：nobodyさん [2007/11/12(月) 16:33:29 ID:XNEEDQVz]: そのファイルがバイナリなのかテキスト(shift-jis,euc,utf8)なのかを判断するにはどのようにしたら良いのでしょうか？

最初、linuxの fileコマンドを使用していたのですが誤認識がよくあり使えません。
バイナリなのかテキストなのかだけ分かればいいのですがperlでそれを行うにはどのようにしたら良いのでしょうか？
535 名前：nobodyさん mailto:sage [2007/11/12(月) 16:42:39 ID:???]: ファイルテスト演算子
536 名前：nobodyさん [2007/11/12(月) 18:17:28 ID:XNEEDQVz]: >>535
有難う御座います。
試してみましたが、EUCだったり10文字程度のcp932などの場合に誤認識するようです。
537 名前：nobodyさん mailto:sage [2007/11/12(月) 18:33:52 ID:???]: \0が含まれてればバイナリでいいんでないの
それ以外だと各文字コードの仕様を調べて
全データがそれに矛盾してないか判断するしかないと思
538 名前：nobodyさん mailto:sage [2007/11/12(月) 18:39:12 ID:???]: 正規表現使えばいいじゃない
539 名前：nobody [2007/11/13(火) 03:52:36 ID:fKqfq45H]: ttp://www.jpopfan.co.jp/uranai/uranai000.htm
上のサイトのようなゲームをperlで作りたいと思っています。
htmlのみでも十分なゲームだとは思いますが、あえてCGIゲームとして作りたいです。
(学校の授業の自由課題であるので・・・)

一応以下のようにhtmlは作ってみました。

<html>
　省略
<body>
<h1>オーケストラ楽器別診断</h1>
<p>次の質問にお答えください♪</p>
<form action="/nussknac/cgi-bin/kadai.cgi" method="post">
<dl><dt>お名前</dt>
<dd><input type="text" name="name" value=""></dd><br>
<dt>Q1. あなたはプライドが高いほうですか？</dt>
<dd><ul>
<li><input type="radio" name="answer1" value="Yes" checked>Yes</li>
<li><input type="radio" name="answer1" value="No">No</li>
</ul></dd></dl>
<p><input type="submit" name="send1" value="送信"><br></p>
</form></body></html>
540 名前：nobody [2007/11/13(火) 03:57:04 ID:fKqfq45H]: 539の続きです。
HTMLのフォームから情報をCGIに送り、最初の質問に対してYesならAの質問、NoならBの質問・・・というように
答えによって質問を分岐させるように作りたいです。
if文でひたすら分岐するというイメージはありますが、どうすれば、送信ボタンを押した時に次の質問ページにリンクさせる事ができるかが分かりません。
質問ページは一つ一つ作りたいです。
よろしくお願いします。
541 名前：nobodyさん mailto:sage [2007/11/13(火) 04:18:50 ID:???]: そういうアルゴリズムも含めて課題になってるんじゃねーのか・・・まぁいいけどさ。
で、htmlはともかくどこまでperl書いたのよ。まさか1行も書かずに相談しにきてるわけじゃあるまい？
542 名前：nobodyさん mailto:sage [2007/11/13(火) 06:54:14 ID:???]: 何日か前に別のスレでも見たけど、ここで聞いてて課題間に合うの？
543 名前：nobodyさん mailto:sage [2007/11/13(火) 08:58:39 ID:???]: あみだくじでいいのか、選択によってポイントがたまってその結果で振り分けられるのか。
色々ロジックはあると思うけど、そこら辺はどうするのかな
544 名前：nobodyさん mailto:sage [2007/11/13(火) 09:17:32 ID:???]: >542
提出日まで1～2週間とかなら大丈夫じゃない？

その昔、C言語の授業があって、その授業終了直後に提出したら怒られたことがあったなあ（笑）
ごめん、確かに授業聞いてませんでした。
545 名前：nobodyさん mailto:sage [2007/11/13(火) 09:19:51 ID:???]: あみだくじでいいなら、
<li><input type="radio" name="answer" value="Aの質問のURL" checked>Yes</li>
<li><input type="radio" name="answer" value="Bの質問のURL">No</li>
ってして、
print "Location: answerの値\n\n";
でリダイレクトさせていけばいいだけでは？
546 名前：nobodyさん mailto:sage [2007/11/13(火) 10:36:02 ID:???]: HTMLでおｋ
547 名前：nobodyさん mailto:sage [2007/11/13(火) 11:10:10 ID:???]: リンク元のURLに%??%??～が含まれてる場合に、その文字をデコードしてUTF-8として表示しようとしています。
元の文字コードがUTF-8のときは問題なく表示できるのですが、
文字コードの判別を含めてやる場合どうやったらいいのでしょうか？
Perlのバージョンは5ですが、プロバイダ(@nifty)のサーバーのため標準モジュールを使用できません。
いきなり変換が難しいならUTF-8か否かを判別できれば、
UTF-8の場合→直デコード
UTF-8でない場合→直デコード→jcode.plで変換
でいいのかもと考えているのですが、UTF-8か否かの判別法がわかりません。
よろしくお願いします。
548 名前：nobodyさん [2007/11/13(火) 15:19:48 ID:lcS1D/Cp]: 539です。
一応perlでは以下のように作りました。
#!/usr/local/bin/perl

use CGI;
$query = new CGI;

$q1 = $query->param('answer1');
if ($q1 eq Yes) {
open(F, ">>q2.html");
} else {
open(F, ">>q3.html");
}

でもこれだとエラーが出てしまいます。
どのように直せばいいでしょうか。
リンクのさせ方など教えて下さい。
課題提出は12月までです。
違うスレには書いていないので私ではないです。
549 名前：nobodyさん mailto:sage [2007/11/13(火) 15:34:47 ID:???]: use constant Yes => 'Yes';
550 名前：nobodyさん mailto:sage [2007/11/13(火) 15:56:31 ID:???]: 課題は自分でやれｗｗｗ
551 名前：nobodyさん mailto:sage [2007/11/13(火) 16:29:42 ID:???]: >>54
こんな感じはどうよ。適当に書いたからちゃんと動くかどうか知らんけど。
#!/usr/bin/perl
use strict;
use warnings;
use CGI;
use FileHandle;
use File::Spec;

my $cgi = CGI->new;
my $fh = FileHandle->new;
my $html_dir = '/path/to/html/dir';
my $output = $cgi->header( -type => 'text/html' );
my $fn = q{};

if ( $cgi->param('answer1') eq 'Yes' ) {
$fn = 'q2.html';
}
else {
$fn = 'q3.html';
}

$fh->open( File::Spec->catfile( $html_dir, 'q2.html' ) '<');
my $data = do { local $/; <$fh> };
$fh->close;
$output .= $data;

print $output;
552 名前：nobodyさん mailto:sage [2007/11/13(火) 16:30:23 ID:???]: レス番ミスった。
誤 >>54
正 >>548
553 名前：nobodyさん mailto:sage [2007/11/13(火) 16:31:27 ID:???]: さらに訂正。
誤 $fh->open( File::Spec->catfile( $html_dir, 'q2.html' ) '<');
正 $fh->open( File::Spec->catfile( $html_dir, $fn ) '<');
554 名前：nobodyさん [2007/11/17(土) 14:33:33 ID:GlJQ98hk]: oshiete.new-akiba.com/archives/2007/01/webarchivedlwarrick.html
ここを見ながらコマンドプロンプトを操作しているのですが
ダウンロードされる段階まで行っても
Can't locate strict.pm in @INC (@INC contents: .) at C:\Program Files \warrick\warrick.pl line8.
BEGIN failed--compilairion aborted at C:\Program Files \warrick\warrick.pl line8.
と出ます。

意味もそもそも分からないのですが、解決方法教えてください
555 名前：nobodyさん mailto:sage [2007/11/17(土) 15:24:40 ID:???]: >>554
エラーの原因は@INCが空になってるから。なんでそうなってるのかは知らん。
ActivePerlを入れ直してみたら？

あとここはコーディングスレだからスレ違いだと思わなくもない。
556 名前：nobodyさん mailto:sage [2007/11/17(土) 20:14:46 ID:???]: >>555
最新版入れてみたけど同じでした
質問スレいってきます
557 名前：nobodyさん mailto:sage [2007/11/17(土) 20:58:37 ID:???]: >>にアンカを３つだけつけたいんだけど、これだと同じとこにリンクをかけてしまいます。
どうすればいいんでしょうか。
for($i=0;$i<3;$i++)
{
$str=~s/>>[0-9]{0,10}[-]{0,1}[0-9]{0,10}/<a href="$_[1]p=$&">$&<\/a>/;
$str=~s/p=>>/p=/;
}
558 名前：nobodyさん mailto:sage [2007/11/17(土) 22:00:49 ID:???]: $i = 0; $buf =~ s/(>>\d+)/$i++ < 3 ? "LINK:$+" : $+/egs;
559 名前：556 mailto:sage [2007/11/17(土) 22:23:56 ID:???]: >>558
ありがとうございます。
そんな書き方知りませんでした。
560 名前：557 mailto:sage [2007/11/17(土) 22:26:54 ID:???]: >>559
556じゃなくて557でした
561 名前：nobodyさん mailto:sage [2007/11/18(日) 19:50:49 ID:???]: 自作モジュールをロードするときに、BEGINブロックで@INCに追加してからBEGINの外でuseするのは外道
562 名前：561 mailto:sage [2007/11/18(日) 19:51:25 ID:???]: ↑
「ですか？」が抜けた。
すまぬ
563 名前：nobodyさん mailto:sage [2007/11/18(日) 20:25:36 ID:???]: >>561-562
外道かどうか知らんが、普通は use lib でしょ。
564 名前：nobodyさん [2007/11/19(月) 06:13:08 ID:s0DcKkZM]: これからプログラムをやりたいと思ってます。
いまからやるならperlは覚えたほうがいいですか？
565 名前：nobodyさん mailto:sage [2007/11/19(月) 06:19:02 ID:???]: PHPでいいよ
566 名前：561 mailto:sage [2007/11/19(月) 08:54:57 ID:???]: >>563
ありがｔ
567 名前：nobodyさん [2007/11/20(火) 11:38:30 ID:PLctc9ni]: 多重起動の禁止はできたが、解放がうまくいかない。
どこが悪いか教えてください。

#登録＆多重起動禁止
use Win32::API;
use Win32::Mutex;
my $mutex = Win32::API->new("kernel32","CreateMutex",["N", "N", "P"], "N");
die "二重起動" if(Win32::Mutex->open('TestProgram123'));
$mutex=Win32::Mutex->new(1, 'TestProgram123');

#解放
my $releacemutex = Win32::API->new("kernel32","ReleaseMutex",["N"], "N");
$releacemutex->call($mutex);
568 名前：576 [2007/11/20(火) 14:43:38 ID:PLctc9ni]: 自己解決

Win32-API使わなくてもできるのねぇ
569 名前：nobodyさん mailto:sage [2007/11/21(水) 03:27:48 ID:???]: むしろ何の為のラッパーだよ
570 名前：nobodyさん [2007/11/23(金) 21:52:32 ID:BH2PwYj+]: 質問失礼します。

AとBの文字があるとき、文字列の中のBAを全てABにしたいときはどのような置換をすればいいのでしょうか？

例えば、
$s = "AABABABBBA";
と文字列があったら、
$s = "AAAAABBBBB";
にしたいのです。

$s =~ s/BA/AB/g;とすると、置換後を判定してくれないので、困ってます……
571 名前：nobodyさん mailto:sage [2007/11/23(金) 21:58:25 ID:???]: >>570
たとえば。
$ perl -e '$s = "AABABABBBA";while($s=~s/BA/AB/g){}print $s;'
572 名前：nobodyさん mailto:sage [2007/11/23(金) 22:00:18 ID:???]: >>570
その場合、これ以上置換できなくなるまで「$s =~ s/BA/AB/g;」の処理を行わなければならない。すなわち、ループである。
s/BA/AB/g;は、置換を行った回数を返す。つまり、0を返すまで処理を継続したいのだから、while文が使える。
したがって、次のようになる。
while($s =~ s/BA/AB/g;){}

whileのあとの{}の中に何も入っていないが、これでお望みどおり動くようである。
573 名前： ◆TWARamEjuA mailto:sage [2007/11/23(金) 22:31:04 ID:??? BE:6970188-2BP(6825)]: sortって云う手もあるよなぁ♪
print join "", sort split "", "AABBABABBBABAABBAABABABABA";
574 名前：570 mailto:sage [2007/11/23(金) 22:36:47 ID:???]: >>571-573
返信ありがとうございます。
無事whileを使う方法で出来ました。
575 名前：nobodyさん mailto:sage [2007/11/24(土) 07:56:01 ID:???]: >>574
遅レス。
他の文字が存在しないと云う条件下なら、素直に文字数カウントするって手もある
perl -le 'my $s = "atataaattttatatat" ; print "a" x ( $s =~ s/a/a/g ) . "t" x ( $s =~ s/t/t/g ) ;'
ま、他の文字が存在してても外側ループ一個つけるだけだけどね。

蛇足だと思ったんだが、、、、
576 名前：nobodyさん mailto:sage [2007/11/25(日) 15:53:28 ID:???]: ちょっと分からないので質問させてもらいます。
手作りで掲示板みたいなのを作ってるんですけど
Location:で二重投稿を禁止したくて書いたんですが投稿したあとにLocation:って文字が表示されて飛ばないんですけど
なんでしょうか？
普通なら飛ぶのに飛びません・・・。

誰か分かる方が居れば教えてください。
577 名前：nobodyさん mailto:sage [2007/11/25(日) 16:07:12 ID:???]: >>576
content-typeの前に書いてみ
578 名前：nobodyさん mailto:sage [2007/11/25(日) 16:35:27 ID:???]: >>577
出来ました。
ですが書き込みがされなくなりました・・・。
579 名前：nobodyさん mailto:sage [2007/11/25(日) 17:55:01 ID:???]: そもそもがどんな仕組み何だかわかんねーと答えようがねーよｗ
こっちはエスパーじゃないんだからさｗ
580 名前：nobodyさん mailto:sage [2007/11/25(日) 18:30:55 ID:???]: >>579
www.uploda.org/uporg1129660.txt
これなんですが上手く動作しなくて・・・。
581 名前：nobodyさん mailto:sage [2007/11/25(日) 18:47:07 ID:???]: 一番最初に

print "Content-type: text/html\n\n"; # データ形式

を書いてるのが不味いような気がするのは気のせいかな。
582 名前：nobodyさん mailto:sage [2007/11/25(日) 18:47:57 ID:???]: >>581
他のところに置いたりすると上手く動作しないんです・・・。
583 名前：nobodyさん mailto:sage [2007/11/25(日) 18:50:17 ID:???]: あと、$locationって変数、どこで使ってるんだろ。
584 名前：nobodyさん mailto:sage [2007/11/25(日) 18:55:24 ID:???]: 勉強し直しておいで。
585 名前：nobodyさん mailto:sage [2007/11/25(日) 18:55:39 ID:???]: あ、それは書き忘れましたがKENTWEBさんのところのをちょっと借りたやつです。
# リロード
if ($location) {
if ($ENV{'PERLXS'} eq "PerlIS") {
print "HTTP/1.0 302 Temporary Redirection\r\n";
print "Content-type: text/html\n";
}
print "Location: $location?\n\n";
exit;
}
これがサブルーチンのwriteの最後に置いてました。
586 名前：nobodyさん mailto:sage [2007/11/25(日) 18:56:09 ID:???]: とりあえずヒントは、
・Location: はHTTPヘッダに出力する
・ヘッダとボディの区切りは空行で示す
587 名前：nobodyさん mailto:sage [2007/11/25(日) 19:08:15 ID:???]: 前も書いたけど、kentwebのってデリミタに<>使うの好きだねえ。データがでかくなってくると、
2バイトも勿体無いと思う。
588 名前：nobodyさん mailto:sage [2007/11/25(日) 19:10:08 ID:???]: >586
難しそうですが頑張ってみます。
589 名前：nobodyさん mailto:sage [2007/11/25(日) 21:12:48 ID:???]: 2バイトさえ気になるような人はデミリタに何使うんだろ。
590 名前：nobodyさん mailto:sage [2007/11/25(日) 21:13:37 ID:???]: デリミタねｗ
591 名前：nobodyさん mailto:sage [2007/11/25(日) 21:51:10 ID:???]: タブ？
592 名前：nobodyさん mailto:sage [2007/11/25(日) 21:57:24 ID:???]: 俺はタブ。excelにも貼るだけで、データやりとりできるし。
593 名前：nobodyさん mailto:sage [2007/11/26(月) 01:21:50 ID:???]: 俺は適当に,にしてた
594 名前：nobodyさん mailto:sage [2007/11/26(月) 09:34:29 ID:???]: >>593
CGIでHTMLを吐く前提なら、 , を入力されると面倒なことになるんだよな。
< > なら < > ってできてしまうからいいんだけど。
595 名前：nobodyさん mailto:sage [2007/11/26(月) 09:35:03 ID:???]: ↑失礼
< > なら < > ってできてしまうからいいんだけど。
596 名前：nobodyさん mailto:sage [2007/11/26(月) 17:00:07 ID:???]: , は,でいいんじゃね？俺もタブ使うけど
597 名前：nobodyさん mailto:sage [2007/11/26(月) 19:49:54 ID:???]: ちょいと質問を。

今ソフトバンククリエイティブのCGI/perl ハンドブック第３版
のCGIサンプルで掲示板を作ったのですが掲示板にメッセージが書き込まれなかったらエラーを出そうと
思って四苦八苦しているんですがperl6はよく分からなく苦戦しています。
誰かこの本を持っていて、分かる方がいればご教授お願いします。
598 名前：nobodyさん mailto:sage [2007/11/26(月) 20:23:48 ID:???]: >>597
その本持ってないから知らないけど、本当にperl6ですか？

#このスレはご教授ってＯＫなんだっけ？
599 名前：nobodyさん mailto:sage [2007/11/26(月) 21:19:36 ID:???]: こんばんは。
LWPで、現在取得しているURLの情報を参照する方法ってあるでしょうか。

ttp://www.xxx.ne.jp

というURLを取得したときに、いくつかリダイレクトされて、

ttp://www.xxx.ne.jp/cgi-bin/test.cgi?id=aaaa&pass=bbbb

こんな感じのURLになってるのですが、この　？　以降の情報を取得したいのです。
$responoser->base
では、　？　より前のURLしか返してくれません。
教えてください。
600 名前：nobodyさん mailto:sage [2007/11/26(月) 23:26:29 ID:???]: >>598
その使い方も間違ってない以上、突っ込む方が野暮or空気が読めないでおｋ
601 名前：nobodyさん mailto:sage [2007/11/27(火) 03:23:29 ID:???]: 質問します

他のサーバー上のテキストファイルを読み込ませたいのですがopen関数ではできないんでしょうか？
602 名前：nobodyさん mailto:sage [2007/11/27(火) 03:33:26 ID:???]: できない
603 名前：nobodyさん mailto:sage [2007/11/27(火) 03:49:49 ID:???]: >>601
あんたすげーな
604 名前：nobodyさん mailto:sage [2007/11/27(火) 06:16:45 ID:???]: 童貞で40歳まで行ったら妖精になれるよりすごい発想
605 名前：nobodyさん mailto:sage [2007/11/27(火) 07:36:33 ID:???]: ただ、PHPでは同じような方法でできるこの不思議。
606 名前：nobodyさん mailto:sage [2007/11/27(火) 08:12:36 ID:???]: だれか599についての回答を・・・
607 名前：nobodyさん mailto:sage [2007/11/27(火) 09:01:18 ID:???]: >>599=606
リダイレクトされるためには適切なHTTPヘッダが返っているはずだからそれ調べる。
608 名前：nobodyさん mailto:sage [2007/11/27(火) 11:02:47 ID:???]: >>599 >>606
うちの環境では、３回リダイレクトを経て、？&引数がもっさりついたurlに飛ばしても、
print $response->base();
で、引数（’？’以降%E3%81%82%E3%81%84%E3%81%86%E3%81%88%E3%81%8Aとか)がついた
URLを表示できたけど・・・。

ActivePerl 5.8.8-build822(XPsp2)
LWP/5.808
609 名前：nobodyさん mailto:sage [2007/11/28(水) 05:14:00 ID:???]: ブログの自動投稿プログラムを作りたいと思ってるんですが、大まかな仕組みも分からず困っています。
どなたかご教授願えませんか？
ちなみに、用途はバーチャルな人間の日記を作りたいと思っています。

日記を出力するアルゴリズムは別に用意しますので、
それをブログの投稿画面に自動でログインして書き込むようにしたいのです。

ローカルからでも構わないのですが、
できれば安いレンタルサーバーから行えれば良いなと思ってます。

検索で『自動投稿』としたらたくさん見つかったのですが、どれもアフィリエイター用のもので、
結構値段も高いですし、記事を予め用意しないとダメなので私がしたいようには出来そうにありません。
610 名前：609 [2007/11/28(水) 05:16:24 ID:onMmaiK+]: よろしくお願い申し上げます。m(__)m
611 名前：nobodyさん mailto:sage [2007/11/28(水) 05:24:30 ID:???]: ひょっとしたら、atom っていうのを勉強したら道が開けるんですか？
612 名前：nobodyさん mailto:sage [2007/11/28(水) 05:26:27 ID:???]: 日記を出力するアルゴリズム　←これがきになる
613 名前：nobodyさん mailto:sage [2007/11/28(水) 09:39:10 ID:???]: 日記を出力するアルゴリズム　←ってのはもしかして勝手に日記を書いてくれるプログラムだろうか
614 名前：nobodyさん mailto:sage [2007/11/28(水) 09:48:03 ID:???]: >>609
△▲　WebProg 初心者の質問 Part16　▼▽
pc11.2ch.net/test/read.cgi/php/1187729623/
615 名前：nobodyさん mailto:sage [2007/11/28(水) 13:29:43 ID:???]: 日記を出力するアルゴリズムを書ける人ならそれぐらい自分でできそうだけど。
荒らしスクリプトにするつもりじゃないなら、その日記を出力するアルゴリズムの
元ネタの場所を公開すれば信用が得られるかも。
616 名前：nobodyさん mailto:sage [2007/11/29(木) 03:01:28 ID:???]: そういうのは荒らしやスパムに使われる可能性が高いから、自分でやりな。
617 名前：609 [2007/11/29(木) 18:18:55 ID:fn44RAXr]: >>612-615
日記のアルゴリズムが完成したわけではありません
ただそっちは、大したものじゃないにしても何とかなりそうなんです。
一方、自動投稿の方は何から手を付けていいのかすら分からない状態でしたので質問させてもらいました

>>616
やっぱりそうですか

わかりました。何とか頑張ってみます

因みにスパム行為をするつもりは毛頭ありませんが、確かに見ようによってはそう映る可能性も否定できないですね。

あくまでも普通の人間っぽい挙動にしたいと思っているので、投稿の数も一日で多くて3通程度、少ないときは三日ぐらい更新しないような動きを考えてました。

とにかく自分で何とかしないとダメみたいですね

ご迷惑おかけ致しました
618 名前：nobodyさん mailto:sage [2007/11/29(木) 18:50:54 ID:???]: search.cpan.org/perldoc?XML::Atom::Client
619 名前：nobodyさん mailto:sage [2007/11/29(木) 18:56:46 ID:???]: >>617
う～む、どう考えてもやっぱりその
日記を出力するアルゴリズム
ってのが、自動投稿するスクリプトより遥かに高レベルのような気がするが・・・・。

まあいいや、ヒントだけ。
WWW::Mechanize オススメ。
内容や使い方は、自分で調べてちょ。
620 名前：609 mailto:sage [2007/11/30(金) 00:45:15 ID:???]: >>618,619
ありがとうございました。
参考にさせていただきます。

今いろいろ資料を調べたり、さっき図書館で借りてきた
Webクライアントプログラミングって言う本(めちゃふるいですがw)
を読んだりしてます。

HTTP通信などは一度もやったことがないので、
LWPあたりから勉強したほうがよさそうな、
そんな気がしてる今日この頃。

AtomとかXML-RPCとかの資料にまではたどり着けたのですが、
そこに平然と書かれている GETだのPOSTだのという表現についていけない状況です。
あれを全部 perl のコードに解釈するための知識がないのです。

というわけで、だいぶ時間掛かりそうですが、
こつこつやっていこうかなと。

もう少し進歩して、またわからないことがあったら、
ここか>>614さんが教えてくれたスレにでも出没いたします。

では、ごきげんよう皆様。
621 名前：609 mailto:sage [2007/11/30(金) 03:34:24 ID:???]: (´・ω・`) ノシ　やっとこさ、livedoor から餌を頂戴できました

なんだか、嬉しくて涙が出てきた。・+゜（つД｀）゜+・。

みんなありがと
622 名前：609 mailto:sage [2007/11/30(金) 03:51:57 ID:???]: >>619 Mechanize というのを完全に誤解してたようです
XML-RPCとかAtomPubなどとはまったく違うんですね。

なんというか、禁断の･･･いや、貴重な情報ありがとうございました。
623 名前：nobodyさん mailto:sage [2007/11/30(金) 12:46:37 ID:???]: フォームメールに入力された内容を半角→全角に変換するプログラムがわかりません。

$str = '$mystr';
$kigou ='@!"#$%&\'()=-^\\|{}:;+*?_/<>';

require 'jcode.pl';

if ($FORM{'namae'} ne ''){
$mystr = $FORM{'namae'};
&hankaku;
}

sub hankaku{
&Jcode'convert(*str,'euc');
if($str =~ /^[0-9]{7,11}$/){
&jcode'tr(*str,'０-９Ａ-Ｚａ-ｚ','0-9A-Za-z');
}elsif ($str =~ /\x8E/) {
&jcode'h2z_euc(*str);
}else ($str =~ /$kigou/){
&jcode'tr(*str,'＠!”#$％＆’()=－＾￥｜｛｝：；+＊?＿/＜＞','@!"#$%&\'()=-^\\|{}:;+*?_/<>');
}
&Jcode'convert(*str,'sjis');
$str = $value;
exit 0;
}

1度eucに変換してからと考えたんですが。
624 名前：nobodyさん mailto:sage [2007/11/30(金) 13:06:38 ID:???]: >>623
Unicode::Japanese
625 名前：nobodyさん [2007/11/30(金) 13:27:37 ID:7wito75u]: 2007/11/30-2007/12/01,00-24,[動作させる値]

のようなdatファイルを下記でブランチさせると、指定範囲外だと判定されてしまうようなのです。
改善するにはどこを直せば良いでしょうか･･･最後の日付部分の比較だけで判定されてる･･？
localtime(time)取得やDAT読み込みは大丈夫っぽいです。

foreach $sdat(@set){
next, if $sdat eq "\n";
@sdat = split(/,/,$sdat);
@ddat = split(/\-/,$sdat[0]);
@d1dat = split(/\//,$ddat[0]);
@d2dat = split(/\//,$ddat[1]);
@tdat = split(/\-/,$sdat[1]);
if(
($ddat[1] eq '' || ($ddat[1] ne '' && $d2dat[0] eq '*' || $d2dat[0] >= $year))
&&($ddat[1] eq '' || ($ddat[1] ne '' && $d2dat[1] eq '*' || $d2dat[1] >= $mon))
&&($ddat[1] eq '' || ($ddat[1] ne '' && $d2dat[2] eq '*' || $d2dat[2] >= $mday))
&&($d1dat[0] eq '*' || ($ddat[1] ne '' && $d1dat[0] <= $year) || ($ddat[1] eq '' && $d1dat[0] == $year))
&&($d1dat[1] eq '*' || ($ddat[1] ne '' && $d1dat[1] <= $mon) || ($ddat[1] eq '' && $d1dat[1] == $mon))
&&($d1dat[2] eq '*' || ($ddat[1] ne '' && $d1dat[2] <= $mday) || ($ddat[1] eq '' && $d1dat[2] == $mday))
&&($sdat[1] eq '*' || ($tdat[0] <= $hour && $hour <= $tdat[1]))
){
chomp $sdat;
$url = $sdat[2];
last;
}
}
626 名前：nobodyさん mailto:sage [2007/11/30(金) 13:32:25 ID:???]: ひどすぎわろた
627 名前：nobodyさん [2007/11/30(金) 15:56:59 ID:7wito75u]: 失礼。自己解決しました。
628 名前：nobodyさん [2007/12/10(月) 07:32:09 ID:aPvXjzqK]: Perl5.x＋CGIです。

現在、複数のプロセスから、同じデータにアクセス（読み書き）したいと考えています。
異なるプロセス間で共有される静的な変数、というようなイメージです。

外部ファイルやデータベースなどを経由する方法以外で、
このような処理を実現するにはどのようにすればよいか、ご存知の方がいましたらお願いします。

やはりmod_perlが適当でしょうか。
629 名前：nobodyさん mailto:sage [2007/12/10(月) 11:08:15 ID:???]: 静的な変数？

ていうかそれプロセスが落ちたらデータは消えていいってこと？
素直にファイルなりDBなり使えばいいとおもうんだけど、それができない理由は？
630 名前：nobodyさん mailto:sage [2007/12/10(月) 11:47:45 ID:???]: 質問の意味がわからないけど
mmapやmemcacheみたいなの？
631 名前：nobodyさん mailto:sage [2007/12/10(月) 13:16:59 ID:???]: 読み書きするのに静的ってナンダロ

スレッド使うMPM+mod_perlで:shared使うとか
shared memory使うとかそういう話かな？

質問の仕方が初心者臭いし素直にDB使っとけって気がする。
632 名前：628 mailto:sage [2007/12/10(月) 20:47:52 ID:???]: >629-631
ありがとうございます。遅くなってすみません。
ご想像通り初心者です。初めて触ったのは何年も前ですが、仕事とか全然関係ないので。

Perl ←―→ 外部ファイル、DB
　　　　↑
ここのコストが凄く重いので、可能な限りアクセスを減らしたいと考えています。
Perl側で保持しておけば多少は減るかなあと。
要は、「キャッシュ」のようなものだと思っていただければ。

>629
＞プロセスが落ちたら
はい、構いません。もう一度、データ本体から取得するだけなので。

>631
＞読み書きするのに静的
「静的変数」と「定数」は全くの別物という認識だったのですが、
もしかするとPerlの世界だと違うのかもしれません。少し調べてきます。

>630-631
＞mmap、memcache、shared
軽く調べてみただけですが、そういうことです。勘違いしてるかもしれませんが。
この辺のキーワードを参考に、深く見てみようと思います。
633 名前：nobodyさん [2007/12/12(水) 13:49:47 ID:uWSb2hJm]: すみません質問です。
複数画像ファイルが入っている特定フォルダから更新日が一番最新のファイルを
探して表示させたいのですが出来ますでしょうか？
尚、ファイル形式は不定です。
教えてください。
宜しくお願いします。
634 名前：nobodyさん mailto:sage [2007/12/12(水) 13:58:00 ID:???]: (stat 'filename')[9]
635 名前：nobodyさん mailto:sage [2007/12/12(水) 16:11:40 ID:???]: 質問です。
aaa.htmというファイルを読み込んで、その中に書かれている変数を変数展開したいと思ったのですがそう簡単にはいきませんでした。
print qq|$_|;
とすれば変数展開されるかなと思いましたがそれもだめ。
置換を使えば簡単なのですが、置換以外の方法がありましたら教えてください。

--------aaa.htmの内容--------
<html>
<body>
$a
</body>
</html>

--------ソース--------
$a = 'aaa';

open(IN, "< aaa.htm");
@html = <IN>;
close(IN);

print "Content-type: text/html; charset=Shift_JIS\n\n";
foreach (@html)
{
print $_;
}
636 名前：nobodyさん mailto:sage [2007/12/12(水) 16:27:53 ID:???]: HTML::Templateでも使っとけ
637 名前：635 mailto:sage [2007/12/12(水) 16:52:55 ID:???]: evalをつかったらなんとかなりそうです。

>636さんレスありがとう
638 名前：nobodyさん [2007/12/12(水) 17:26:25 ID:BkwLyerT]: Encode.pm 5.85でEUC→UTF-8変換時に、
「髙」などの漢字が化けてしまうのですが、
これを化けないように工夫するにはどうすればいいのでしょうか？
639 名前：nobodyさん mailto:sage [2007/12/12(水) 18:06:55 ID:???]: >>638
Encode::EUCJPMSを入れて、cp51932を使う。
640 名前：nobodyさん mailto:sage [2007/12/13(木) 08:48:25 ID:???]: >>635
s/\$(\w+)/${$1}/g;
641 名前：628=632 mailto:sage [2007/12/13(木) 20:33:46 ID:???]: 自己レスな上に遅レスです。
色々と検討してみた結果、速度や安全性に疑問も多いですが、とりあえずshm○○を使ってみようかなと思います。
ありがとうございました。
642 名前：nobodyさん [2007/12/14(金) 03:20:01 ID:jWEjvsMQ]: 質問です。
Usteramで録画したflvをダウンロードしたくて、
unknownplace.org/memo/2007/10/03を参考に以下のソースを実行しました。
#!/usr/bin/env perl

use strict;
use warnings;
use AMF::Perl;
use LWP::UserAgent;
my $cid = shift || '5Fq8cQp9eHsEEknbQ22OOZniqS2xUiuz';
my $amf = AMF::Perl::Util::Object->new;
$amf->addBody('client.watch_video', '/1', { cid => $cid });
my $outputstream = AMF::Perl::IO::OutputStream->new;
my $serializer = AMF::Perl::IO::Serializer->new($outputstream, 'utf-8');
$serializer->serialize($amf);
my $amfdata = $outputstream->flush;
$amfdata =~ s/\xff\xff\xff\xff/\0\0\0\x31\x0a\0\0\0\x01/;
my $ua = LWP::UserAgent->new;
my $req = HTTP::Request->new( POST => 'gw.ustream.tv/gateway.php' );
$req->content( $output );
$req->content_type('application/x-amf');
$req->content_length( length $amfdata );
my $res = $ua->request($req);
my $deserializer = AMF::Perl::IO::Deserializer->new(AMF::Perl::IO::InputStream->new($res->content), 'utf-8');
use YAML;
print Dump $deserializer->getObject->getBodyAt(0)->{value};
643 名前：642 [2007/12/14(金) 03:21:23 ID:jWEjvsMQ]: 実行結果は以下の通りです。

Content-Length set when there is no content, fixed at /Library/Perl/5.8.6/LWP/Protocol/http.pm line 196.
Can't use an undefined value as a HASH reference at test.pl line 37.
どうすればいいでしょうか。

よろしくお願いします。
644 名前：nobodyさん mailto:sage [2007/12/14(金) 08:48:00 ID:???]: 37行目って何処よ
645 名前：nobodyさん mailto:sage [2007/12/15(土) 20:24:19 ID:???]: $text = <STDIN>;

として、処理中に何らかのテキストを入力させたいです。
英数字は問題ないのですが、日本語を入力したときが変です。

aあ

と入力して、バックスペースを押すとちゃんと消去されません。2回おせば「あ」の表示は消えるのですが、
受け取った文字のaも消えてしまっています。
解決策を教えてください
646 名前：nobodyさん mailto:sage [2007/12/15(土) 22:15:15 ID:???]: 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
647 名前：nobodyさん mailto:sage [2007/12/15(土) 22:41:06 ID:???]: ついでにききたいのですが、
@text = <STDIN>;

ってやったときに、入力を終わりにするにはどうすればいいのですか？
648 名前：nobodyさん mailto:sage [2007/12/16(日) 02:59:28 ID:???]: >646
そこから調べてるかどうかはともかく、公式サイトを見るのは確かだな。
まあ、IPアドレスが追加されること自体はあんまり無いし……。
649 名前：nobodyさん mailto:sage [2007/12/16(日) 11:33:56 ID:???]: >>646
リモートホストに変換して判断してる。
650 名前：nobodyさん mailto:sage [2007/12/16(日) 16:00:14 ID:???]: >>649
ホストに変換するのは失敗することあるらしいぞ。
直接IPから判断した方が確実。

気にするほどじゃないとは思うけど、どうなんだろ
651 名前：nobodyさん mailto:sage [2007/12/16(日) 18:41:45 ID:???]: perlで2ちゃんねるの専用ブラウザみたいなのって作れるんでしょうか。
652 名前：nobodyさん mailto:sage [2007/12/16(日) 19:23:33 ID:???]: ネットワークをサポートしていて、文章の出力が出来るなら大抵の言語で可能だと思うよ。
653 名前：642 [2007/12/17(月) 11:34:49 ID:FgX+pG+l]: >>644
37行目は一番最後のprintの部分です。
654 名前：nobodyさん mailto:sage [2007/12/18(火) 10:34:57 ID:???]: たとえば、sample.plに、

require('lib/lib.pl');
&dosomething();

と書いておいて、lib/lib.plに、

sub dosomething{
　　open(FH, '>> baka.log');
　　print FH time."\n";
　　close(FH);
}

とすると、lib/の中にファイルができるのではなく、ひとつ上にできてしまいます。
これをlib/の中に保存したいのですが、ライブラリからの相対パスで保存する方法はないでしょうか。
または絶対パスを使うしかないのでしょうか。
ヒントだけでもお願いします。
655 名前：nobodyさん mailto:sage [2007/12/18(火) 11:18:35 ID:???]: >>654
じゃあ、ヒントだけ…
つ %INC
656 名前：654 mailto:sage [2007/12/18(火) 16:52:48 ID:???]: >>655
ありがとう！
こーゆー用途に使うのな。
657 名前：nobodyさん mailto:sage [2007/12/19(水) 01:05:36 ID:???]: ハッシュ配列の各要素をリファレンスとして関数の引数に渡したいのですが
よくわからなくて試行錯誤の末下のような方法にたどり着きました

$AA{'name'} = '1234';
$BB[0]{'name'} = 'abc';
$BB[1]{'name'} = 'ああああ';
$BB[2]{'name'} = '!?';

kansuu( \%AA );
$tmp = \@BB;
kansuu( ${\$tmp->[0]} );
kansuu( ${\$tmp->[1]} );
kansuu( ${\$tmp->[2]} );

sub kansuu
{
　　my $h = $_[0];
　　print "$h->{'name'}<br>";
}

BBの要素を kansuu() に入れるために
もっとスマートな方法（っていうか正しい書式）がありましたら教えていただけないでしょうか？
658 名前：nobodyさん mailto:sage [2007/12/19(水) 01:14:31 ID:???]: my %AA = ( name => 1234 );
my @BB = (
{name => 'abc'}, #$BB[0]に無名ハッシュ(リファレンス)をいれる
{name => 'ああああ'}, #$BB[1]に〃
{name => '!?'} #$BB[2]に〃
);
kansuu( \%AA ); #\をつけることで%AAのリファレンスがわたる
kansuu( $bb[0] ); #$bb[0]の無名ハッシュリファレンスを渡す
kansuu( $bb[1] );
kansuu( $bb[2] );

sub kansuu {
printf('%s<br>',shift->{name});#ハッシュリファレンスは->をつけて要素を取り出す
}
659 名前：nobodyさん mailto:sage [2007/12/19(水) 02:00:39 ID:???]: $,@,%,\と(),{},[]と->の組み合わせで大抵何とかなる。
正直スカラーのリファレンスの説明は自身がないけどおよそあってると思う
my $scalar = 'abc'; #スカラー
my $scalar_ref = \$scalar; #スカラーのリファレンス
my $anon_scalar_ref = \do {my $anon;}; #微妙に無名じゃないけど
my @array = (1,2,3); #配列
my $array_ref = \@array; #配列のリファレンス
my $anon_array_ref = [1,2,3]; #無名配列のリファレンス
my %hash = (a=>1,b=>2,c=>3); #ハッシュ
my $hash_ref = \%hash; #ハッシュのリファレンス
my $anon_hash_ref = {a=>1,b=>2,c=>3}; #無名ハッシュのリファレンス
my $slacar_object = bless $scalar_ref => __PACKAGE__; # スカラー使ったオブジェクト
my $array_object = bless $array_ref => __PACKAGE__; # 配列使ったオブジェクト
my $hash_object = bless $hash_ref => __PACKAGE__; # ハッシュ使ったオブジェクト
#素直に取り出せる
printf "scalar=%s\n",$scalar;
printf "array=%s\n",$array[0];
printf "scalar=%s\n",$hash{a};
#アドレスっぽいのがとれる
printf "scalar_ref=%s\n",$scalar_ref;
printf "array_ref=%s\n",$array_ref;
printf "scalar_ref=%s\n",$hash_ref;
#リファレンス先の値書き換えたり取り出したり
$$scalar_ref = '書き換えちゃった';printf "scalar=%s\n",$$scalar_ref;
$array_ref->[1] = '書き換えちゃった';printf "array=%s\n",$array_ref->[1];
$hash_ref->{b} = '書き換えちゃった';printf "scalar=%s\n",$hash_ref->{b};
#デリファレンスする(copyが作られる)
my $scalar2 = ${$scalar_ref};
my @array2 = @{$array_ref};
my %hash2 = %{$hash_ref};
660 名前：nobodyさん mailto:sage [2007/12/19(水) 07:53:49 ID:???]: CGI.pmでmetaを出力したいのですがうまくいきません。
↓これを出力したいのですが・・・
　＜meta http-equiv="Content-Type" content="text/html; charset=utf-8" /＞

ttp://www.geocities.co.jp/SiliconValley-Sunnyvale/6128/perl/cgipm.html

このページの解説によると、

use CGI;
my $q = CGI->new;

print $q->start_html(
　　　　　　　　　　　　　　-head=>meta({'http-equiv' => 'Content-Type'
　　　　　　　　　　　　　　-content=>"text/html; charset=$CharSet"}
),

このようなコードになるはずなのですが、やってみると
Undefined subroutine &main::meta called
というエラーがでます。meta()がメインのサブルーチンだと解釈されてるみたいです。
661 名前：660　続き mailto:sage [2007/12/19(水) 07:54:19 ID:???]: print $q->start_html(
　　　　　　　　　　　　　　-head=>$q->meta({'http-equiv' => 'Content-Type'
　　　　　　　　　　　　　　-content=>"text/html; charset=$CharSet"}
),

とやると一応うまくいくのですが、なぜか
＜meta http-equiv="Content-Type" content="text/html; charset=utf-8" /＞
＜meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" /＞

このようにもう一つ余計なメタが出てしまいます。どうすればいいのでしょうか？
ＣＧＩ．pmは3..31です。
662 名前：nobodyさん mailto:sage [2007/12/19(水) 10:23:45 ID:???]: >>660-661
perldoc.jp/docs/modules/CGI.pm-2.89/CGI.pod

my $q = CGI->new;
$q->charset('UTF-8');
663 名前：６６０ mailto:sage [2007/12/19(水) 23:37:11 ID:???]: >>662

ありがとうございました！
664 名前：657 mailto:sage [2007/12/20(木) 08:31:41 ID:???]: >>658-659
ありがとうございます！
超わかりやすくて助かりました
今のプログラムの色んなところがもっと簡潔に書けそうです
665 名前：nobodyさん mailto:sage [2007/12/20(木) 10:28:40 ID:???]: > 超わかりやすくて助かりました
> 今のプログラムの色んなところがもっと簡潔に書けそうです

本当はわかってないくせに。
666 名前：nobodyさん mailto:sage [2007/12/20(木) 13:33:18 ID:???]: >>658-659ですべてが理解できれば天才
667 名前：nobodyさん mailto:sage [2007/12/20(木) 13:39:25 ID:???]: 最低限は書かれてて分かりやすいとは思ったぞ
668 名前：nobodyさん mailto:sage [2007/12/20(木) 16:21:00 ID:???]: 読む気もしねぇよ
669 名前：nobodyさん mailto:sage [2007/12/21(金) 21:13:42 ID:???]: でもああやって思いつく限りの書き方試して要素やハッシュ値見てればなんとなくでもわかってくるはず。
めんどいけど。
670 名前：nobodyさん mailto:sage [2007/12/22(土) 18:50:11 ID:???]: あんな変な列挙を眺めるんじゃなくて、続初めてのPerl読むべきだろ。
671 名前：nobodyさん mailto:sage [2008/01/02(水) 06:47:19 ID:???]: perl5.10 に移行した人います？
672 名前：nobodyさん mailto:sage [2008/01/02(水) 20:07:21 ID:???]: ノ
依存コードは書いてないけど
673 名前：nobodyさん mailto:sage [2008/01/03(木) 00:16:04 ID:???]: ﾉｼ
cygwinで5.10入れてみた
use 5.10;で書いてみてる
674 名前：nobodyさん mailto:sage [2008/01/05(土) 22:21:41 ID:???]: 変数の中身を展開せずに確認したい場合ってどうすればいいんでしょうか？

$test = "今日は\n いい天気です　$wether";

こんな変数があるとして、$test自体は展開してほしいんですが、
中身の\nや$wetherは展開せずに出力したいのです。
675 名前：nobodyさん mailto:sage [2008/01/05(土) 22:58:36 ID:???]: '

ちなみに、weather？
676 名前：nobodyさん mailto:sage [2008/01/06(日) 03:58:05 ID:???]: >>674
$testに代入した時点で展開しちゃってるでそ
そもそも確認したい意図は何？

リファレンスにしてアドレスを確認する手もあるけど
677 名前：674 mailto:sage [2008/01/06(日) 14:08:20 ID:???]: うーん、無理みたいですね。諦めます。一応問題は解決しましたので

>>675
そうです；
>>676
なるほど・・・
意図は正規表現でゴチャゴチャいじったあとの文字列が
どうしてもめちゃくちゃくになってしまうので、変数の位置関係を調べたかったのです。
678 名前：nobodyさん mailto:sage [2008/01/06(日) 16:36:10 ID:???]: >>674はなぜ>>675の一行目を無視するんだ？
それが答えじゃないか。
>>676はそれもわかってないみたいだが。
679 名前：nobodyさん [2008/01/06(日) 23:12:25 ID:wcb81UNa]: $kekka = int(200 * 0.29);
print "$kekka";

このような計算をしたら、結果が５７になりました。
intって小数点が発生した時に切り落とすはずですよね？
えと、なぜこんなことになるのか意味が分からないのですが、
誰かご教授お願いします
680 名前：nobodyさん mailto:sage [2008/01/07(月) 01:59:09 ID:???]: >>679
www.tt.rim.or.jp/~rudyard/torii009.html
681 名前：nobodyさん mailto:sage [2008/01/07(月) 11:17:24 ID:???]: それ、今じゃ間違いじゃないってのが一般的。
語源の知識としてはありだけど、誤用が定着するなんていくらでもあることだから。

いつもいつも空気読めない人が指摘するよな。
682 名前：nobodyさん mailto:sage [2008/01/07(月) 11:27:36 ID:???]: >>679
$kekka = int(((my $n=200 * 0.29)=~/(.*)/)[0]);
print "$kekka";

こう書けばＯＫ
683 名前：nobodyさん mailto:sage [2008/01/07(月) 11:29:04 ID:???]: >>681
誤用でない方が一般的だとする根拠は？
684 名前：nobodyさん mailto:sage [2008/01/07(月) 11:38:36 ID:???]: 回答にはなってないけれど、こちらの環境でもいくつか試してみた
ので、その結果を書いておく。
何でこんな風な結果になるのだろうか。私も分からなかった。

$kekka = 200 * 0.29;
print "$kekka";
出力：58

$kekka = 200 * 0.29;
$kekka = int($kekka);
print "$kekka";
出力：57

$kekka = int(200 * 0.29);
print "$kekka";
出力：57

$kekka = int(2 * 29);
print "$kekka";
出力：58
685 名前：nobodyさん mailto:sage [2008/01/07(月) 12:30:31 ID:???]: 浮動少数の扱いの問題。
use bignum; これで解決。
686 名前：nobodyさん [2008/01/07(月) 21:15:48 ID:XSyaqzwg]: >>685
おぉ　いきました！
詳しい原因はよくわからないですが、ありがとうございました。
687 名前：nobodyさん mailto:sage [2008/01/07(月) 21:22:49 ID:???]: ためしにPerlじゃなくてLispで
(* 200 0.29)
ってしてみたら57.99999999999999だってさ。機械の計算って難しいことがあるな
688 名前：nobodyさん mailto:sage [2008/01/07(月) 22:41:02 ID:???]: 誤差については、がっこで習うものだと思ってたけど、そうでもない？
689 名前：nobodyさん mailto:sage [2008/01/07(月) 22:44:33 ID:???]: 俺は習ったけど、もしかしたら教えてないところも少なくないかもしれん
690 名前：nobodyさん mailto:sage [2008/01/07(月) 23:59:36 ID:???]: 情報工学を扱う授業でもなきゃ教わらないんじゃね？
少なくとも俺は浮動小数点の丸め誤差については習ったことない。

あと高校の世界史も。
691 名前：nobodyさん mailto:sage [2008/01/08(火) 00:07:25 ID:???]: >>683
>>681じゃないがなんかの辞書に載ってた気がする
ソースはない
692 名前：nobodyさん [2008/01/08(火) 00:31:05 ID:k+nta2fc]: 丸め誤差の知識はありますけど、
コンピュータの中で200*0.29ってどうやって計算してるか分からない
そもそも結果が57.9999････になると言われても、どういう計算をしているのか
さっぱりｗ
693 名前：nobodyさん mailto:sage [2008/01/08(火) 00:34:28 ID:???]: しかも
(* 20 0.29)
これは5.8って表示されるから困るｗ
694 名前：nobodyさん mailto:sage [2008/01/08(火) 00:38:53 ID:???]: 自前のショッピングカートの消費税を int($sum * 0.05) みたいに計算してるんだけど、大丈夫だろうか…
695 名前：nobodyさん mailto:sage [2008/01/08(火) 07:14:24 ID:???]: >>694
>>685にすれば大丈夫かと
696 名前：nobodyさん mailto:sage [2008/01/08(火) 08:15:35 ID:???]: 俺は一番最初の質問者ではないが、浮動小数点の丸め誤差については、
wikipediaにも載ってたね。
問題の解決には、　use bignum;　つかえばいいわけで、それでいい
のは分かるけれど、それとは別の話で、小数を100倍して整数で演算をして、
あとで100で割ったりする方法だったらちゃんとでるから
use bignum; しなくてもいいんだよね？
697 名前：nobodyさん mailto:sage [2008/01/08(火) 22:01:08 ID:???]: >>696
0.29が有効数字2桁だとあらかじめ分かっているなら100倍すればいいけどなあ。
既知でないときにはuse bignum;じゃないか？
698 名前：nobodyさん mailto:sage [2008/01/09(水) 00:10:32 ID:???]: >>697
レスサンクス。
いや、意味の無い部分の考えかなと思ったんだけど、
そっちの方がメモリが少なくて済み、処理が早くなったりするのかなとか
思ったのよね。ま、すごく小さな世界をいっているんだろうけれど。
699 名前：nobodyさん mailto:sage [2008/01/09(水) 01:01:57 ID:???]: うーん、俺も難しいことはわからんけど、
俺は細かい実行時間を気にしてミスをするより、コードの可読性を優先したいな。と思った。
大量のデータを扱う人から見ればふざけた態度かもしれないけどね。
700 名前：nobodyさん mailto:sage [2008/01/09(水) 02:01:45 ID:???]: LL的には人間にとっての最適化（コードの可読性）のほうが重要だからそれでいいと思うな
701 名前：nobodyさん [2008/01/09(水) 03:08:01 ID:480klIK2]: リーダビリティ重要。(高橋メソッド風に)
702 名前：nobodyさん mailto:sage [2008/01/10(木) 23:51:33 ID:???]: IPを10進数に変換したものと、
サブネットマスク形式のリストをマッチングさせたいんですが、
どんなループさせればいいですかね？

#判定ルーチン内
foreach (@list) {
　my ($min,$max) = subnetMinMax($_);
　return ($ip >= $min and $ip <= $max) ? 1 : 0;
}
としてるんですが、grep等を使ったほうが良いんでしょうか？
ループ内でサブルーチン呼ぶのがちょっと気になります。
703 名前：nobodyさん mailto:sage [2008/01/11(金) 00:04:09 ID:???]: 訂正orz

x: return ($ip >= $min and $ip <= $max) ? 1 : 0;
o: return 1 if($ip >= $min and $ip <= $max);
704 名前：nobodyさん mailto:sage [2008/01/11(金) 11:44:26 ID:???]: @listの中にマッチするものが複数存在する可能性があって
何にマッチしたか全て取りたいならgrepだけど
有るか無いかだけでいいならループ回して見つけ次第結果返していいんじゃない？
705 名前：nobodyさん mailto:sage [2008/01/11(金) 16:30:20 ID:???]: return $ip >= $min and $ip <= $max;
706 名前：nobodyさん mailto:sage [2008/01/11(金) 20:31:41 ID:???]: >>704
なるほど。このままにしますありがとうございました。

>>705
そっか、そうですよね。
聞いてみて良かったです。
707 名前：nobodyさん mailto:sage [2008/01/12(土) 13:10:11 ID:???]: 「うんこ」を含む行の最後に「出る」と追加することってできますか？
「うんこ」の前後は英数字・日本語交じりで文字数は不定です。
$_ =~ s/(うんこ)/$1でる/;
だと、うんこ～出るの間の文字が文末にきてしまいます。
文末指定は$みたいなので
$_ =~ s/(うんこ)/$1でる$/;
としてperlを実行させると、エラーなのか、プログラムが終わりません。
708 名前：nobodyさん mailto:sage [2008/01/12(土) 13:13:01 ID:???]: if ( $うんこ =~ /うんこ/ ) ｛
　$うんこ .= ’でる’
｝
709 名前：nobodyさん mailto:sage [2008/01/12(土) 13:38:43 ID:???]: 「うんこを含む行」「改行」　⇒　「うんこを含む行」「でる」「改行」

if (index($_, 'うんこ') >= 0){ $_=~ s/$/でる/; }
710 名前：707 mailto:sage [2008/01/12(土) 13:54:47 ID:???]: >>708
全角を半角にしてやってみたりしましたが、エラーでした。

>>709
できました。ありがとうございます。
ただ、>=0の意味が分かりません。
改行は\nじゃないんですか？
711 名前：nobodyさん mailto:sage [2008/01/12(土) 18:35:26 ID:???]: なにこのうんこスレ
712 名前：nobodyさん mailto:sage [2008/01/12(土) 19:18:44 ID:???]: >>710
index
713 名前：707 mailto:sage [2008/01/12(土) 22:50:20 ID:???]: >>712
すみません、わかりました。ありがとうございました。
714 名前：nobodyさん [2008/01/13(日) 13:16:41 ID:rzzkvCmj]: 怠惰が美徳だの
エロエロ言語だの
言うけどさ
俺が習ってきた主な4つの言語のなかじゃ
間違いなく一番習得が苦しかった
ぞ
つまり、学習コストは高い
Perlより習得が難しい言語ってあるの？

私見では達人レベルを目指すならC++が全言語のなかで一番習得困難
そこそこのプロレベルを目指すならPerlが一番困難(C++はそこそこのプロならまだ簡単)
715 名前：nobodyさん [2008/01/13(日) 13:17:19 ID:rzzkvCmj]: スレ間違えた( ﾟдﾟ )
716 名前：nobodyさん mailto:sage [2008/01/13(日) 21:52:12 ID:???]: 配布用のスクリプトを書く予定なんですが、
変数名のつけ方で悩んでいます。
たとえば、
my $title;
my $script_content_title;
my $ScriptContentTitle;
sub param{}
sub parse_URL_encoded_string{}
sub ParseURLEncodedString{}
等、色々書き方ありますが
短い方が良いのか、わかりやすい名前が良いのか、
又、大文字、小文字を混ぜて使うべきか、覚えやすい名前にするべきか、
意見ください。
賛否両論あると思いますが、極力万人受けするものを選びたいです。

長文すみません
717 名前：nobodyさん mailto:sage [2008/01/13(日) 21:53:50 ID:???]: 配布スクリプトの中身の変数名なんて誰も見ねぇよ
718 名前：nobodyさん mailto:sage [2008/01/13(日) 21:56:06 ID:???]: >>717
学習、改造用として配布したいんです。
719 名前：nobodyさん mailto:sage [2008/01/13(日) 22:43:42 ID:???]: perldoc perlstyle
720 名前：nobodyさん mailto:sage [2008/01/13(日) 23:03:26 ID:???]: 変数や関数の名前の付け方は、どんなプログラムを書こうとしている
かというところもあるからな。
例えば、関数名で html_ をつけるとそうでないものとの区別がついて
分かりやすくなるけれど、全部の関数に html_ がついてたら
逆に無意味に長いだけとなる。
ここでアドバイスが欲しかったら、その書こうとしているプログラムや
ソースをもう少し具体的にだすとかしないと話は進まないと思う。
721 名前：716 mailto:sage [2008/01/13(日) 23:22:17 ID:???]: >>719
ありがとうございます。全部読みました。

基本的にはアンダースコアを使うべきだそうです。
スコープによって使い分けるのが良いみたいですね。
$Global_Data #グローバル
$tmp 　　#局所
$LOCK_KIND #定数

>>720
プログラムの種類によって書き方が変わる、変えられるのがperlの利点かもしれませんね。
>全部の関数にhtml_
そういうのはパッケージにまとめればOKですかね。

おかげ様で書き方が頭に浮かんできました。ありがとうございました。
722 名前：nobodyさん mailto:sage [2008/01/14(月) 02:09:11 ID:???]: Perlプログラマは"不精"なので面倒なタイピングはしません。
でもPerlプログラマは"傲慢"なので他人のコーディングスタイルを気にしません。
こんなイメージ。
723 名前：nobodyさん mailto:あげ [2008/01/14(月) 02:26:48 ID:???]: 怠惰と傲慢と短気だっけなラリーの三原則。

ネーミング重要。(高橋メソッド風に)

でも職人芸的なところあるよねネーミングセンスって。
なかなかそこは難しい。
724 名前：nobodyさん mailto:sage [2008/01/14(月) 04:10:53 ID:???]: 果たして自閉症の描くイメージとは
725 名前：nobodyさん mailto:sage [2008/01/14(月) 04:15:16 ID:???]: >>716
もう解決したみたいだけど、Perlベストプラクティスもおすすめ
ダミアン先生の盲信はいけないけど、かなりためになるYo
726 名前：nobodyさん mailto:sage [2008/01/14(月) 17:41:01 ID:???]: ダミアン先生はPerl界屈指のハッカーだが、著作物での記述にクセが全くないわけではないからね。

一般論としては、上を目指すならいろんなハッカーのコードや文章にたくさん触れることが必要。
これがなかなか大変だし難しい。
そのためにはネット上のコミュニティーやリアルのイベントにこまめに参加したり
ブログを定期的にチェックし続けないといけないから。
そういうことをしてない自称Perl使いが結構俺の周りにはいて、
そういう奴らは我流のあまりエレガントじゃないスタイルから抜け出せないでいる。
727 名前：nobodyさん [2008/01/14(月) 18:57:12 ID:4AKnbZN2]: ファイルに入っている文字を出力するつもりなのですが、
メタ字が混ざっていることもあり、ちゃんと出力できません。
あらかじめファイルの中のメタ字に\を振って置くとしても、かなりの手間になりそうですし、
何か効率の良いメタ字対策はないでしょうか？
728 名前：727 [2008/01/14(月) 19:02:23 ID:4AKnbZN2]: すみません。微妙に文書が狂っていました。
ファイルに入っている文字からの出力の際の
文字化けする文字の対策をお願いします。
729 名前：716 mailto:sage [2008/01/14(月) 20:00:43 ID:???]: >>725-726
オライリーファンの俺には最高の本かもです。
>>727-728
余計な事してるからじゃないですかね？
quotemetaなんてのはどうですか？
文字コードなんかも書くと返事もらえるかも。
730 名前：nobodyさん mailto:sage [2008/01/14(月) 20:08:53 ID:???]: >>727
情報不足です。
「ファイルに入っている文字」…どんな文字? 文字コードは何?
「出力するつもり」…どこに出力するの?
「メタ字」…具体的にどの文字ですか?
「ちゃんと出力できません」…具体的にどのように出力できないのですか?

ありがちなのは、ファイルの中と、コンソールの文字コードの設定が異なっていて、文字化けしたように見えるとか。
メタ文字をいったん解釈してしまっているとか。
ヌル文字とかタブとか垂直タブとかグループセパレータとかasciiの制御コードはそもそも「文字」ではないですし。
「文字」をどう「出力」したいのかにもよります。

コードを示してはどうですか。
731 名前：727 [2008/01/14(月) 20:18:57 ID:4AKnbZN2]: $i = 0;
while($list = <IN>){
　(undef,$name[$i],undef) = split(/：/, $list);
　$i++;
}
@name = sort(@name);
while($line = <@name>){
　print "<option value='$line'>$line</option>";
}
えーっと、コードはこのような感じです。
ファイルのDBにアクセスして、その中の一部を取り出しソートしてhtmlで出力するという形です。
732 名前：nobodyさん mailto:sage [2008/01/14(月) 20:21:10 ID:???]: メタ文字がhtmlの解釈の問題を引き起こしてるんじゃないよね？
733 名前：nobodyさん mailto:sage [2008/01/14(月) 20:23:30 ID:???]: metaタグで宣言している文字コードと異なるとか…
html中で使われてる文字コードと出力してる変数の文字コードの不一致とか…
734 名前：727 mailto:sage [2008/01/14(月) 20:30:22 ID:???]: >>733
タグで宣言しているコードは関係ないのではと思います。
出力するとき、一部の文字がうまく表示出来ていませんから。
735 名前：727 mailto:sage [2008/01/14(月) 20:32:56 ID:???]: 現状としてはファイルの中の「ソ」とかに\を付けていけば表示はうまくいくのですが、
ファイルをその後書き換えたりするとそれも出来なくなるのではないかと思っております。
736 名前：nobodyさん mailto:sage [2008/01/14(月) 20:40:00 ID:???]: これか？www.kentweb.jp/pubc/jcode/
737 名前：nobodyさん mailto:sage [2008/01/14(月) 20:46:05 ID:???]: >>735
use utf8;
binmode STDIN, ':encoding(shiftjis)';
binmode STDOUT, ':encoding(shiftjis)';
# windowsなら　shiftjis -> cp932

↑やってみて
ソース中に日本語文字列書くならutf8で保存してね。
738 名前：nobodyさん mailto:sage [2008/01/14(月) 20:54:55 ID:???]: あｗ
binmode IN, ':encoding(shiftjis)';
かな？
739 名前：nobodyさん mailto:sage [2008/01/14(月) 20:57:33 ID:???]: >>731
DBにアクセスしているのにファイルハンドルから@nameに格納しているとはいかに?
@nameへの格納の仕方が心許ないです。せめて以下のようにするとか。
my @name = map { (split(/：/))[1] } <IN>;
splitの対象が全角のコロンですが、perlソースと取り扱うデータの文字コードが合っていないと
間違いの元ですよ。

で、optionタグで書き出すべき文字列のリストが@nameに入っていて、それをどうしてグロブ
演算子を使っているのかわかりません。私はこんなこと一度もしたことありませんが…。
ここで、@nameの各要素がいったん解釈されてしまっていて、カタカナのソなどSJISの2バイト目の
\x5cが取り除かれてしまっています。単に
for (sort @name) {
　　print qq{<option value="$_">$_</option>\n};
}
でいいと思うのですが。
740 名前：nobodyさん mailto:sage [2008/01/16(水) 00:34:21 ID:???]: CGI::Applicationで index.cgi?rm=<デタラメなキー> のように
run_modesで定義されなかったrun_modeを指定するとエラーが発生させられてしまうのですが
未定義の場合デフォルトのrunmodeを起動させる方法は無いでしょうか？
741 名前：nobodyさん mailto:sage [2008/01/16(水) 02:08:57 ID:???]: $self->run_modes(
AUTOLOAD => \&catch_my_exception,
);
742 名前：nobodyさん mailto:sage [2008/01/16(水) 02:17:14 ID:???]: >>741
ありがとうございます！試してみます。
743 名前：nobodyさん [2008/01/16(水) 04:59:20 ID:FWbaTTLj]: 5.005です。
以下のような、引数が省略可能なサブルーチンがあるとします。

　sub Func(;$\@\%) { （省略） }

このとき、引数が渡されたのか、それとも省略されたのかを
Func内で判断する方法を教えてください。

なお、そのままifに入れると偽となるような値（例えばスカラーの値が0）の場合も、
引数が渡されていると判断します。
744 名前：nobodyさん mailto:sage [2008/01/16(水) 05:29:59 ID:???]: >>743
引数の数から判定
sub Func(;$\@\%) { print scalar @_ }
Func(); # 0
Func(undef); # 1
Func(1, @hoge); # 2
745 名前：nobodyさん mailto:sage [2008/01/16(水) 05:44:10 ID:???]: >744
ありがとうございます。
なるほど、サブルーチンを使う時は常に@_を意識しないとダメだってことですね。
746 名前：nobodyさん mailto:sage [2008/01/16(水) 11:29:46 ID:???]: @_　ってカタツムリみたいだよね。

@_ii
747 名前：nobodyさん [2008/01/16(水) 14:19:16 ID:Z4nycbhz]: かたつむり大作戦
748 名前：nobodyさん [2008/01/16(水) 20:06:54 ID:L/Qn1HzA]: 質問です！

入門書を見ながら「URLにパラメータを加える」というのをやりました。

～～/test.cgi?list=man

とURLにパラメーターをくっつけ、cgiで

&ReadParse( *form );
$sex = $form{ 'list' };

と受け取ったつもりだったのですが、結果をprintしてみると

manman

と2回表示されてしまいます。これは何が悪いのでしょうか？
749 名前：nobodyさん mailto:sage [2008/01/16(水) 20:30:55 ID:???]: いるんだよ、自分で勝手に照会用のコードを切り詰める奴
750 名前：748 mailto:sage [2008/01/16(水) 20:51:36 ID:???]: 失礼しました。手当たりしだい試してたら解決しました。
なんだか色々と間違ってたようです。
751 名前：nobodyさん [2008/01/16(水) 22:40:40 ID:QOevDgBW]: CGIモジュール等を使わない、
一般的なuriデコードのバグってどんな事ですか？

同じkeyに複数のvalがある場合の対処はしてます。
752 名前：nobodyさん mailto:sage [2008/01/17(木) 00:41:41 ID:???]: >>751
区切り文字が & でなく ; のときとか、マルチタイプで送られてきたときとか、XSS対策とかかな？
753 名前：nobodyさん mailto:SAGE [2008/01/17(木) 12:39:49 ID:???]: ちょっと考えてみてほしい
ドラゴンボールというのは、集めれば願いがかなうアイテムだ
それに対して、
ウンコは、いくらドッサリ集めてもウンコにしかならない
このように両者は一見似ているようで本質的に異なる
754 名前：nobodyさん mailto:sage [2008/01/17(木) 12:41:44 ID:???]: >>751
巨大なクエリーとか、lengthがでたらめとかかな？
# httpdの仕様にもよるな
755 名前：nobodyさん mailto:sage [2008/01/17(木) 17:15:28 ID:???]: uriデコード?とは関係ないけど
CGI.pm使うとmod_perl環境(Apache::RegistryやModPerl::Registry)で
-ParseHeadersやPerlSendHeader offしてあってもheaderを正しく扱えるので
CGIでもmod_perlでも動きます。ってプログラムが作りやすくなる。
756 名前：nobodyさん mailto:sage [2008/01/17(木) 17:17:24 ID:???]: >>751
バグってどういうこと？

引数には、ある程度想定されるものしか入らないはずなんだから、
$form{'hoge'}　とか、引数として使う値に想定される正しい値が入っているかのチェックを行えばいいんじゃないの？
757 名前：751 mailto:sage [2008/01/17(木) 18:58:22 ID:???]: >>752
区切り文字はCGI.pmでも&か:ですよね。

>>754
cgi側では解決できないような感じしますね。

>>755
それは良いｺﾄ聞いた。

>>756
オライリーの本読んでたら一般的にバグがあるとの事です。
CGI..pm使えとの一点張りです。
なので、どこにバグがあるのかなと　←　いまここ

みなさんレスありがとうございます。
758 名前：nobodyさん mailto:sage [2008/01/17(木) 23:23:09 ID:???]: とりあえず>>751がド初心者だということは分かった。
759 名前：nobodyさん mailto:sage [2008/01/18(金) 00:48:01 ID:???]: >>758
スレタイ読めカス
760 名前：nobodyさん [2008/01/18(金) 12:04:46 ID:Z4Jr4bli]: ファイルをサーバにアップロードしたいＣＧＩがほしいのですが
どこかいいサンプルないでしょうか？

アップロードしたいファイルはエクセルファイルです
761 名前：nobodyさん mailto:sage [2008/01/18(金) 12:15:45 ID:???]: ぐぐれかす
762 名前：nobodyさん mailto:sage [2008/01/18(金) 12:39:13 ID:???]: アップロードされたファイルのを受信するCGIなのか、
それともファイルをアップロードするCGIなのか知らんけど
search.cpan.org/~gaas/libwww-perl-5.808/lib/HTTP/Request/Common.pm
search.cpan.org/~lds/CGI.pm-3.33/CGI.pm#CREATING_A_FILE_UPLOAD_FIELD
763 名前：nobodyさん mailto:sage [2008/01/18(金) 12:51:11 ID:???]: >>760
ちゃんとした日本語で
764 名前：nobodyさん mailto:sage [2008/01/18(金) 14:27:48 ID:???]: アップロードしたがってるCGIが欲しいんだろ
765 名前：nobodyさん mailto:sage [2008/01/18(金) 15:13:46 ID:???]: 意思を持つCGIｺﾜｽ
766 名前：nobodyさん mailto:sage [2008/01/18(金) 16:38:38 ID:???]: >>760 こんな感じですか？
#!/usr/bin/perl
use strict;
use warnings;
use utf8;
use CGI qw/:standard/;
use constant MAX_WAIT => 10;
my $q = new CGI;
$q->charset('utf8');
my $wait = rand(MAX_WAIT);
my @mind = qw(uploadしたい uploadしたくない uploadしてもいい);
my $mind = $mind[ int( rand(scalar @mind) ) ];
print start_html(
-head => meta({-http_equiv=>'refresh', -content=>"10; URL=$ENV{SCRIPT_NAME}"}),
-title => 'CGIの気持ち'
),$mind,end_html;
767 名前：nobodyさん mailto:sage [2008/01/19(土) 01:06:12 ID:???]: >>766
$waitは、どこで使ってるの？
-head => meta({-http_equiv=>'refresh', -content=>"$wait; URL=$ENV{SCRIPT_NAME}"}),
とかやりたかったのか？
768 名前：nobodyさん [2008/01/19(土) 14:38:24 ID:gMv3rNuv]: すみません、少し数学の話になるかもしれませんが、
100％の確率のうち30％が当たりという設定をして
くじを引かせる場合、

my $rate = 30;
my $atari = int((rand(100))) + 1;
if($atari <= $rate){
　print "あたり\n";
}

これで30％ということに理屈ではいえるのでしょうか。
それとも上か下かなので2分の1になるのでしょうか。

ご教示いただけますと幸いです。
769 名前：nobodyさん mailto:sage [2008/01/19(土) 15:04:56 ID:???]: 算数のレベルだぞ
770 名前：nobodyさん mailto:sage [2008/01/19(土) 15:25:31 ID:???]: すみません
771 名前：nobodyさん mailto:sage [2008/01/19(土) 16:00:15 ID:???]: >>768
そういうときは、そのコードを何万回か繰り返してあたりとはずれのカウントを取って、
実際に30%くらいになるかを調べればいいんですよ。
772 名前：nobodyさん mailto:sage [2008/01/19(土) 17:54:09 ID:???]: >>768
極東連合乙
773 名前：nobodyさん mailto:sage [2008/01/19(土) 18:03:47 ID:???]: >>768
10000回だけ繰り返してみた。

あたり＝3031
はずれ＝6969
774 名前：nobodyさん mailto:sage [2008/01/19(土) 21:24:36 ID:???]: >>771
ありがとうございます。

>>773
実行有難うございます。
私の方でもやってみましたが、平均値が30％になりました。
安心しました。
775 名前：nobodyさん mailto:sage [2008/01/19(土) 23:16:40 ID:???]: #!/usr/bin/env perl
use strict;
use CGI;
use CGI::Carp qw(fatalsToBrowser);
use POSIX qw(strftime);
my $q = new CGI;
print $q->header(), $q->start_html();
#print $q->dump; # for debug
my $outputdir = "log"; # ファイルを置く先 (ディレクトリ)
my $fh = $q->param('uploaded_file');
my ($ex) = ($fh =~ m|(\.[^./\\]+)$|); # 拡張子
if ($fh ne "") {
my $timestamp = strftime "%y%m%d%H%M%S", localtime;
my $outputfn = "$outputdir/$timestamp$ex";
open(F, "> $outputfn") or die;
flock(F, 2);
if (defined $fh) {
while (<$fh>) {
print F $_;
}
}
close F;
print qq{saved as <a href="$outputfn">$outputfn</a>};
}
print $q->start_multipart_form(-name => 'myform'),
$q->filefield(-name => 'uploaded_file'),
$q->submit("OK"),
$q->endform,
$q->end_html(), "\n";
776 名前：760 mailto:sage [2008/01/19(土) 23:18:40 ID:???]: ファイルをアップロードするＣＧＩを探してます。
日本語おかしかったですね、すいません。
サンプルを探したんですが
>>775のままだったら
ファイルをアップしたときにファイル名が
アップロードした日付になってしまいます。
ファイル名を変更することなくアップロードするにはどうすればいいでしょうか？
777 名前：nobodyさん [2008/01/20(日) 00:14:39 ID:1RDcSYMg]: my $outputfn = "$outputdir/$timestamp$ex";
のところを、そうじゃなくすれば良い。
778 名前：nobodyさん mailto:sage [2008/01/20(日) 00:15:00 ID:???]: >>776
マルチタイプを分割して、そのヘッダ部分に名前あるよ。
779 名前：nobodyさん mailto:sage [2008/01/20(日) 02:12:08 ID:???]: ついでにフォルダ名も表示してやれば、閑古鳥鳴くこと間違い無し。
780 名前：nobodyさん mailto:sage [2008/01/20(日) 03:03:09 ID:???]: サーバにファイル名を任意に保存出来るって危険じゃね？
同名ファイルの処理が必要になるし、文字化けとかあるし。
文字化けとかしたら、ダウソとか出来なくなる場合もあるし、
削除とかはsshログインして * とか使って消さないといけなく
なる場合もある。（解決は出来るから問題なしともいえるのだが）
日本語はファイルと一緒にコメントとして管理すべきだと思うけど、
どうかな？
781 名前：nobodyさん mailto:sage [2008/01/20(日) 10:25:46 ID:???]: >>780
間違いなく正しい。
782 名前：nobodyさん [2008/01/20(日) 19:19:48 ID:xw354eHR]: 上の人とは別人だけどファイルのアップロードに関して質問

open(OUT, ">$filename");
binmode(OUT);
while (read($fh, $buf, 1024)) { print OUT $buf; }
close(OUT);
close($fh);

上記なソースをよく見かけるんだけど、
三行目で一気に処理するんじゃなくて、
1024バイトずつ取り出して処理する理由って何？
783 名前：nobodyさん mailto:sage [2008/01/20(日) 19:21:07 ID:???]: 1000MBのバッファ蓄えろというのか
784 名前：775 mailto:sage [2008/01/20(日) 19:37:21 ID:???]: >>777
具体的にどうかえればいいのでしょうか？
教えてくださいとはいいません。
やってください

>>780
ご意見ありがとうございます。
785 名前：nobodyさん mailto:sage [2008/01/20(日) 20:21:40 ID:???]: 完全に自分専用とかなら別なんだろうけどな。
786 名前：nobodyさん mailto:sage [2008/01/20(日) 22:56:33 ID:???]: >782-783 に関連した便乗質問で悪いけど、
レン鯖とかも考えた時の常識的なメモリ使用量ってどのくらい？
シュワルツ変換とか使っていいものかいつも悩む。
787 名前：nobodyさん mailto:sage [2008/01/20(日) 23:26:35 ID:???]: >>786
「レンタルサーバ　メモリ使用量」でぐぐってみたらどうかな？
ま、突き詰めるとそのサービスの仕様次第となるだろう。
シュワルツ変換も「やってはいけない処理」ではなく、重たい処理
でしかないからな。それだけの質問では何もいえない。
具体的なソースを出して、この負荷は問題ないか？とかなら分かるが。
788 名前：nobodyさん [2008/01/21(月) 21:15:32 ID:29cYlZ80]: input type=file で送るファイルを指定しますが、
この場合のファイル名そのものを取得するようにするには
どのようにしたらよいですか？
789 名前：nobodyさん mailto:sage [2008/01/21(月) 21:26:25 ID:???]: >>788
HTTP_CONTENT_TYPEを見て、boundaryで区切って分割して、そのヘッダを読む。
790 名前：nobodyさん [2008/01/21(月) 22:20:09 ID:29cYlZ80]: >>789
有り難うございます
よく分かりませんが、ヒントを元にくぐってみます
791 名前：nobodyさん [2008/01/21(月) 22:33:12 ID:MggCWroJ]: toolkitについての質問です。

toolkitのテンプレートを利用ユーザに編集させてたいと思っているのですが、
[% myheader = 'my/index.cgi' %]
[% INCLUDE myheader %]
などされるとソースが見えてしまいます。
なんとか規制できないでしょうか？
phpのsmartyであれば以下のように、テンプレートからのインクルードを規制することができます。
同等の機能はあるのでしょうか？
$this->security = true;
$this->security_settings["INCCLUDE_ANY"] = false;
$this->security_dir = "/path/to/templates";
$this->trustes_dir = "/path/to/php";

または、テンプレート内で使える関数を指定できるとかありますでしょうか？

日本語マニュアル見てみましたが、それらしいものがありませんでした。
www.hakoniwa.net/tt/
792 名前：nobodyさん mailto:sage [2008/01/21(月) 23:09:44 ID:???]: >>787
亀レスですみません。ぐぐってみました。
>782-783 のような流れをたまに見るので業界の暗黙知が
あるのかと思いましたが特に無いようですね。
会社毎に見ていくと具体的な数字を出している所は少なかったですが、
少ないところで2MBと10Mb(=1.25MB?)でした。
793 名前：nobodyさん mailto:sage [2008/01/21(月) 23:29:51 ID:???]: ムーアの法則があるので、数値は出しにくいところがある。
あるサーバで５秒くらいかかっていたのが、最新のでは１秒くらいで終わるので、
ぜんぜん問題にならなくなったとか。

でも、１分を１秒にするのはムーアの法則でも５年以上はかかるわけで、
そのくらいの規模はどう頑張っても無理だろという話だ。
794 名前：nobodyさん mailto:sage [2008/01/22(火) 09:20:05 ID:???]: >>791
INCLUDE自体を抑制するやり方はわからんが、

If a BLOCK definition is not currently visible then the template
name should be a file relative to one of the INCLUDE_PATH directo-
ries, or an absolute or relative file name if the ABSOLUTE/RELATIVE
options are appropriately enabled.

これを利用すれば普通は十分じゃねーの?
795 名前：nobodyさん mailto:sage [2008/01/22(火) 10:10:27 ID:???]: テンプレート編集自体はtoolkit使うわけじゃないだろ？
そこでチェックすりゃいいんじゃね？
796 名前：791 [2008/01/23(水) 00:37:55 ID:fM6ljyqY]: >>794
>もし、ブロック定義が見つからない場合は、テンプレート名はINCLUDE_PATHのディレクトリにあるファイルか、ABSOLUTE/RELATIVEオプションが付いていれば絶対/相対パスにあるファイルを対象とします。
とのことですが、相対・絶対でスクリプト指定できてしまうということですよね？
考えても理解できませんでした、具体的にどのように利用すれば大丈夫なんでしょうか？

>>795
たしかにテンプレート編集時にinclude等、使わせたくない文言を削除する方法もあるのですが、
入れようとしているシステムが銀行ほどではないんですけど、絶対にユーザにソースが漏れてはいけないシステムなんです。
（今後のシステム拡張等も含んで）チェックミスが出てきやすい作りで作るのはあまり好ましくないと考えています。
html-templateでも、includeなど規制する機能はなさそうですし・・・。

使いたい機能はifとloopだけなんですけど、
perlでセキュリティ完備したテンプレートエンジンほかにあるのでしょうか？
797 名前：nobodyさん mailto:sage [2008/01/23(水) 09:55:40 ID:???]: >>796
HTML::Template には no_includes ってオプションがあるけど？
798 名前：nobodyさん mailto:sage [2008/01/23(水) 10:07:27 ID:???]: INCLUDE_PATH以下に見られちゃいけないファイル置かないという選択肢はないの？
799 名前：nobodyさん mailto:sage [2008/01/23(水) 10:27:22 ID:???]: >>796
そんな大事なシステムをお前程度のスキルの人間が任されていることに
激しく不安を感じるのだが...
800 名前：nobodyさん mailto:sage [2008/01/23(水) 11:28:58 ID:???]: INCLUDE_PATHに関数渡すと・・・
801 名前：nobodyさん mailto:sage [2008/01/23(水) 11:58:33 ID:???]: >>796
anond.hatelabo.jp/20071030153111
802 名前：nobodyさん mailto:sage [2008/01/23(水) 14:51:21 ID:???]: データベースにutf8でデータを入れて、携帯の絵文字対応のsjisで取り出そうとしようと思っています。

$s = Unicode::Japanese->new;
$s->set($aaa);
$str = $s->sjis-imode;

という風に、perlで記述したところ、0という値しか返ってきません。ちなみに$aaaをそのままprintすると、文字化けします。
何がいけないのかよくわかりません。どなたかお答えいただけるとうれしいです。
803 名前：nobodyさん mailto:sage [2008/01/23(水) 14:59:42 ID:???]: sjis-imodeが悪いと思うよ。sjis_imodeだろ。

$str = ($s->sjis) - 'imode';

と書いたのと同じだな。いちおうエラーにはならないが、
use strictとuse warningsを使ってればいろいろ怒られる
のではまらないですむパターンの間違いなので、なぜ
使わなかったのかよく反省しとけ。
804 名前：nobodyさん mailto:sage [2008/01/23(水) 15:07:11 ID:???]: さっそくのご返答ありがとうございます。
試してみましたところ、こんどは??????という文字列が返ってきました。
いま現在、iモードシュミレータを使って表示させているのですが、これは携帯を使ってテストしないのが悪いのでしょうか？
805 名前：nobodyさん mailto:sage [2008/01/23(水) 15:27:16 ID:???]: >>804

iモードシミュレータとなるとそれはもはやPerlの話題ではないな。
適切なところへいって質問するほうがお互いのため。

その前に$strを16進ダンプ表示してみて期待したバイト列になってるか
どうかぐらいは確認しといた方がいいとは思うが。
806 名前：791 [2008/01/23(水) 21:46:29 ID:fM6ljyqY]: >>797-802
いろいろな案有難うございます。
一つづつ試してみます。
どうもありがとうございました。
807 名前：nobodyさん [2008/01/23(水) 23:17:40 ID:FgvU3OwA]: だれか
>>775をいじってくれる
心のやさしくて暇なやつはおらんのか
サーバに日本語のファイルをＵＰしたいんだ
808 名前：nobodyさん mailto:sage [2008/01/23(水) 23:18:24 ID:???]: するなといわれてそれを納得しておいてなんだそれはｗ
809 名前：プログラミング歴２ヶ月 [2008/01/23(水) 23:19:54 ID:bNex267N]: ローカルホストで動かしたときに、mkdirでディレクトリを生成できていたのに
いざwebにアップロードしてみると、ディレクトリの生成をやってくれません。
この場合、原因として何が考えられるのでしょうか。
ちなみにperlのパスはあっています。

mkdirなどでググって見ても、よくわかりませんでした。。。
ヒントだけでもいいんで、どなたかよろしくお願いします。（＿　＿）
810 名前：nobodyさん mailto:sage [2008/01/23(水) 23:27:24 ID:???]: >>809
まずはパーミッションの確認からだろうな。
811 名前：nobodyさん mailto:sage [2008/01/23(水) 23:52:28 ID:???]: >>809
他には2階層以上のディレクトリはmkdirで作れないとかかな？
812 名前：プログラミング歴２ヶ月 [2008/01/24(木) 00:03:36 ID:+24Wb9Pu]: >>810,811 さん
ご親切にご教授いただきありがとうございます。
先ほど、パーミッションを変更したところ解決いたしまして、とても感謝しております。
しかしそれと同時に新たな問題が浮上してきまして、困っています。。。

mkdirを行った後に、とあるdatファイルに文章を出力しているのですが、
出力した後の改行コードが■になってしまいます。。。
こっちもローカルホストではうまくいっていたのに、なぜなんでしょう？？
813 名前：nobodyさん mailto:sage [2008/01/24(木) 00:05:46 ID:???]: 改行コードの違いかな?
ttp://www.tohoho-web.com/wwwxx011.htm
814 名前：nobodyさん mailto:sage [2008/01/24(木) 00:28:39 ID:???]: >>812
ヒント
・UNIXではLF、WindowsではCRLF。
・\nはLR、\r\nがCRLF。
・FTPのアスキーモードで転送すると自動相互変換してくれる。
815 名前：プログラミング歴２ヶ月 [2008/01/24(木) 00:53:36 ID:+24Wb9Pu]: >>813,814さん

解決しました。ありがとうございました！
マジに感謝してます。
816 名前：nobodyさん mailto:sage [2008/01/24(木) 10:27:32 ID:???]: >>815
例えばxyzzyみたいに、改行コードを確認したり、変更できる
テキストエディタを入れておいたほうがいいよ。
817 名前：nobodyさん mailto:sage [2008/01/24(木) 10:41:34 ID:???]: サクラエディタおすすめ。
818 名前：nobodyさん mailto:sage [2008/01/26(土) 19:03:18 ID:???]: 保守
819 名前：nobodyさん [2008/01/28(月) 12:09:42 ID:fVIm37qB]: Perl初心者です。
簡単なPerl/CGIのプログラム（掲示板など）が書ける程度のレベルです。

mod_perlの超初心者向けの解説本、ウェブサイトがあれば教えてください。
できれば日本語でお願いします。

あと、今は退社された方が書いたらしい、現在稼動中のプログラムのソースを入手したんですが、
ソースの最後に

　exit;

って思いっきり書いてたりするんですが、これって大丈夫なのでしょうか？
820 名前：nobodyさん mailto:sage [2008/01/28(月) 12:53:50 ID:???]: multix.jp/html/memo/030526.html#00010801
821 名前：nobodyさん [2008/01/28(月) 15:21:58 ID:eRROoQGz]: ありがとうございます。

これに関して、オーバーライドを利用したコードを書いているとき、
ある関数（この場合はexit）が、どのパッケージに属しているかを調べる方法があればお願いします。
822 名前：nobodyさん [2008/01/28(月) 16:14:02 ID:Fd8GryNX]: ときどき見かけるcodepageというのはどういうものなんでしょうか。
たとえば、TeraTermPro with SSHの設定でcodepageというのがあります。
ほかにもありますがこれを例にとります。
ヘルプやgoogle検索で調べても引っかからないのでここでおたずねします。

locale=japanese codepage=932
だとどうもShift-jisの設定をなんらかの形でやるみたいです(付属ヘルプ)。
locale=japanese codepage=65001
だとutf-8みたいです。
それで、私のマシンはWindowsなので、codepage=932で統一しておけばいいんでしょうか。
ケースバイケースなのでしょうか。
相手マシンがFreeBSDで通信することがあるのですが、その場合は、
設定の漢字受信/送信ともutf-8でokですか??
unixだとeucとも聞きますが、最近はutf-8化したほうがいいようなことも聞きます。
ので、よくわかりません。

もちろん、ソースを何で書くかはケースバイケースなのは知っています。
分からないのは、TeraTermの設定で
漢字受信/送信　と　codepage　という2つのよく分からない項目がある点です。

TeraTermは有名なので当然スレがあるかと思ったらありませんでした。
それにperlプログラミングでよく登場するので、ここで質問させていただきました
823 名前：nobodyさん mailto:sage [2008/01/28(月) 16:22:56 ID:???]: exitはダメだけどexit(0)なら大丈夫、
実はそう言われてるけど逆で、exit(0)はダメだけどexitなら問題ない、
最近のヤツはどっちでもいい（具体的なバージョンはか書かれてない）、

色々と情報が混ざってて、調べれば調べるほど混乱してきた orz
824 名前：nobodyさん mailto:sage [2008/01/28(月) 17:37:21 ID:???]: 動いてんならいいじゃない
825 名前：nobodyさん mailto:sage [2008/01/28(月) 18:19:41 ID:???]: そうします。
826 名前：nobodyさん mailto:sage [2008/01/28(月) 18:33:58 ID:???]: UTF8の文字列で、全角ひらがなが入ってきた場合、全角カタカナに変換しようとしているのですが
思うように行きません。

$name =~ tr/ぁ-ん/ァ-ン/

一度、sjisやらecuやらに変換して、文字コードで置換させないと駄目でしょうか
827 名前：nobodyさん mailto:sage [2008/01/28(月) 18:39:31 ID:???]: UTF8ならむしろ文字コード変換しないほうが置換しやすくないか？
828 名前：nobodyさん mailto:sage [2008/01/28(月) 18:55:50 ID:???]: >>826
そんなことはない。

use utf8してないとかdecodeしてなくて$nameがバイトのままとか
そういうあたりじゃねーの?

use utf8;
binmode STDOUT, ":encoding(utf8)";

foreach (ord('ぁ') .. ord('ん')) {
my $h = my $k = chr($_);
$k =~ tr/ぁ-ん/ァ-ン/;

printf "%x %s %s\n", $_, $h, $k;
}
829 名前：nobodyさん mailto:sage [2008/01/28(月) 19:04:20 ID:???]: >>822
> TeraTermは有名なので当然スレがあるかと思ったらありませんでした。

テラターム
pc11.2ch.net/test/read.cgi/linux/1012915309/
830 名前：nobodyさん mailto:sage [2008/01/28(月) 19:21:58 ID:???]: >>829
誘導thx!! いやースレタイ検索で引っかからなかったもんで。
831 名前：nobodyさん mailto:sage [2008/01/28(月) 21:13:04 ID:???]: 確かにこりゃ罠だな……
832 名前：nobodyさん [2008/01/30(水) 17:37:10 ID:irpAKk1D]: ActiveperlでローカルPC上に作成したWEBサイトにIE等でアクセスし、
その処理結果をファイルにしてデスクトップ上に出力したいのですが、
デスクトップまでのパスをどう取得すればいいか分かりません。
ログインユーザ毎にデスクトップのパスが変わってしまうので、
そのあたりを上手く解決できる方法があれば知りたいです。
833 名前：nobodyさん mailto:sage [2008/01/30(水) 18:10:39 ID:???]: perlとは関係ないがユーザ毎に環境変数ってのが存在する
834 名前：nobodyさん mailto:sage [2008/01/30(水) 18:43:24 ID:???]: use strict;use warnings;
use Win32::OLE;
my $sh = Win32::OLE->new('WScript.Shell');
print $sh->SpecialFolders("Desktop");

use strict;use warnings;
use Win32 qw/CSIDL_DESKTOP/;
print Win32::GetFolderPath( &CSIDL_DESKTOP );
835 名前：nobodyさん [2008/01/30(水) 21:04:32 ID:FClDhuIR]: require Hoge;
は通るんですが、
no strict 'refs'; require "Hoge";
が通りません。Can't locateとなります。
文字列からrequireするにはどう書いたらよいでしょうか。
836 名前：nobodyさん mailto:sage [2008/01/30(水) 21:12:10 ID:???]: Hogeってのを用意すればいい
837 名前：nobodyさん mailto:sage [2008/01/30(水) 21:17:18 ID:???]: どうもです。
Hogeはあるつもりなんですが、前者と後者は同じものを指してないですか？
838 名前：nobodyさん mailto:sage [2008/01/30(水) 21:29:04 ID:???]: 拡張子を省略していたせいだった気がしました。ありがとうございました。
839 名前：832 mailto:sage [2008/01/30(水) 21:59:46 ID:???]: >>833
システム環境変数とユーザー環境変数ってやつですよね。
ここにあらかじめデスクトップへのパスを設定するという事でしょうか？

>>834
ソースありがとうございます。
実際に実行してみたんですが、CGIとして実行すると
SYSTEM ユーザ名義で実行され、ログインユーザでのパスが取れませんでした。
DOS窓から実行するとバッチリなんですが…。

少し調べた所、WMIで実現できそうな気がしてきたので
そちらを当たってみようと思います。ありがとうございました。
840 名前：nobodyさん mailto:sage [2008/01/30(水) 22:29:21 ID:???]: ３年ぶりくらいにPerlを使ってみたのですが、
以前は日本語の検索の時、EUCを使わなくてはいけないとかあったと
思いますが、普通にshift-jisで書いて、パターンマッチも問題なし
だったのですが、今のバージョンのPerlは文字コードとか気にしなくて
良くなりました？それともたまたま文字化けしなかっただけ？
841 名前：nobodyさん mailto:sage [2008/01/30(水) 22:53:08 ID:???]: >>840
これを実行してみたらどうなる？
print "表現";
print '表現';
842 名前：nobodyさん mailto:sage [2008/01/30(水) 23:05:02 ID:???]: >841
だめっすね。
まだjcode.plとか使ってるんですかね。
実は全てunicodeで問題なくなったりしてますか？

日本語のパターンマッチで注意することとかまとめた
いいページ知ってたら教えてください。
843 名前：nobodyさん mailto:sage [2008/01/30(水) 23:12:08 ID:???]: >>842
一部の文字列を使う時だけ注意をして、POSTで受け取った文字列を
jcode.pl 使うという程度でも、Shift-JISでいけることはいける。
ttp://www.shtml.jp/mojibake/sjis_cgi.html
844 名前：nobodyさん mailto:sage [2008/01/30(水) 23:19:37 ID:???]: >843
thxです。しばらく離れていましたが、少し思い出しました。
結局Perlはその間進化していなかったのね。
845 名前：nobodyさん mailto:sage [2008/01/30(水) 23:19:46 ID:???]: クライアント、サーバ共にWindowsで、SQLServerとVB使っている
システムでも記号とか入力しようとすると駄目な場合もあるからな。
シビアに全部に対応とか考えなくても良いのではと思ったり。
846 名前：nobodyさん mailto:sage [2008/01/30(水) 23:22:28 ID:???]: >>844
Perl は 5 が出てから結構経っているはずだよ。
3 年前に触ったのも 5 じゃないかな？
そこまで大きな変化が無いからこそ、という
メリットももあるんだけどね。

次に 6 には、構文とか大きな変化があるらしいから
そっちに期待だなｗ
847 名前：nobodyさん mailto:sage [2008/01/30(水) 23:45:06 ID:???]: たとえば This is a pen.という入力があって、
「This」にマッチしたら、
htmlの色のタグを付けて<font color>This</font>と置換する場合、
これをやると次に「This is」に色を付けたい場合マッチしなくなる
のですが、上手いやり方あります？　先に「This is」の置換を
する位しか思いつかない。
848 名前：nobodyさん mailto:sage [2008/01/31(木) 01:44:59 ID:???]: 検索に使うデータは別に持っておくというのはどうだろうか。

Thisにマッチしたとき、
いきなり This → <tag>This</tag> と変換するのではなく、例えば「1番目の単語にマッチした」という情報だけ保存しておく。
で、最後にまとめて置換する。

Perlの持つ強力な文字列操作が活かされないという欠点はあるが。
849 名前：nobodyさん mailto:sage [2008/01/31(木) 07:23:10 ID:???]: $in_str = "This is a pen.";
$out_str = '<font color="red">' . $in_str . "</font>";
ここで $str に検索対象の文章を入れる。
$str =~ s/$in_str/$out_str/g;
850 名前：nobodyさん mailto:sage [2008/01/31(木) 09:05:07 ID:???]: >849
それ同一箇所を何度も置換する場合でも大丈夫？
851 名前：nobodyさん mailto:age [2008/01/31(木) 09:23:09 ID:???]: >>850
具体的にどういう場合？
852 名前：nobodyさん mailto:sage [2008/01/31(木) 09:59:40 ID:???]: >849
<tag>This</tag> is a pen.
が$strに入ったら、次にThis isは一致しないでしょ？
853 名前：nobodyさん mailto:sage [2008/01/31(木) 10:21:21 ID:???]: 優先度つけて順番にやるしかない
その優先度はあなた次第だもの。
854 名前：nobodyさん mailto:sage [2008/01/31(木) 12:45:35 ID:???]: s/This is|This/REPLACEMENT/gみたいなことしたいんだろうか？
一括してやるなら長い方を先にすればいい
855 名前：nobodyさん mailto:sage [2008/01/31(木) 13:03:27 ID:???]: This is a pen.
　　↓
<tag>This is</tag> a pen.

このあとに、「tag」というフレーズで検索する可能性は否定できない。
いや、細かくマッチ条件つければ別だろうけど。
856 名前：nobodyさん [2008/01/31(木) 21:12:55 ID:ZyBf2Z6K]: 配列と文字を引数とする場合の書き方がよく分かりません。できるのでしょうか？
以下のようにやってもだめでした。
&subtest(@arr,$str,@arr2);
function () {
my (@arr,$str,@arr2) = @_;

}
857 名前：nobodyさん mailto:sage [2008/01/31(木) 22:22:57 ID:???]: >>856
(@arr,$str,@arr2)は新しい配列として扱われるので、サブルーチン側では区切りが分からん。
arrとarr2は参照を渡すとか、要素数が分かってるならサブルーチン側で@_をspliceするとかがいいかも
858 名前：nobodyさん mailto:sage [2008/02/01(金) 00:10:05 ID:???]: >845

長い方を先にした場合、
ThisとThis isとis a penがあって、
結論は<font>This is a pen</font>に色を付けたいのだ。

848の方法かなぁ。
ただ、入力テキストが100M位、マッチする検索リストが1万個とかなので、
動かせるか・・・。

Perlよりwordマクロとかの方がいいのかなぁ。
wordなら何度重なって色付けても問題ないし・・・。
859 名前：nobodyさん mailto:sage [2008/02/01(金) 00:32:08 ID:???]: >>856
ヒント：リファレンス
860 名前：1/2 mailto:sage [2008/02/01(金) 03:03:29 ID:???]: >>858
途中まで書いてまじめにやると面倒だという事は分かった。
あとは頑張ってくれ。

#!/usr/bin/perl -w
use strict;
my $str = 'This... This is, This is a pen.';
my @target = ('This', 'This is', 'is a pen');
my $tag_o = '<font color="#ffff00">';
my $tag_c = '</font>';
my $tag_r = qr|</?font[^>]*>|;
my $tag_e = qr/(?:(?!$tag_r).)*/s;
for (@target) {
my $re = join qr/(?:$tag_r)*/o, split /(\s+)/;
$str =~ s/($re)/add_tag($1)/eg;
}
print $str;
861 名前：2/2 mailto:sage [2008/02/01(金) 03:04:31 ID:???]: sub add_tag {
my $substr = $_[0];
if ($substr !~ /$tag_r/o) {
$substr = "$tag_o$substr$tag_c";
} elsif ($substr !~ /\Q$tag_o\E/o) {
$substr =~ s/(\Q$tag_c\E)/$1$tag_o/go;
$substr .= $tag_c;
} elsif ($substr !~ /\Q$tag_c\E/o) {
$substr =~ s/(?=\Q$tag_o\E)/$tag_c/go;
substr($substr, 0, 0) = $tag_o;
} elsif ($substr =~ /^($tag_e)\Q$tag_c\E($tag_e)\Q$tag_o\E($tag_e)\z/o) {
$substr = "$1$2$3";
} elsif ($substr =~ /^($tag_e)\Q$tag_o\E($tag_e)\Q$tag_c\E($tag_e)\z/o) {
$substr = "$tag_o$1$2$3$tag_c";
} else {
die $substr; # ココを頑張ってくれ。
}
$substr =~ s/\Q$tag_c$tag_o\E//go;
$substr;
}
862 名前：nobodyさん [2008/02/01(金) 04:53:15 ID:hS8kNEG7]: if(A1 < B1 && A2 < B2 && A3 < B3 && A3 < B3 && A4 < B4)
{
$page_dsp .= <<"EOM";
<tr>
<td colspan="2" >
<form action="????.cgi" method="post" onSubmit="return send_check()">
<select name=ku class=slc>
<option value="no">
EOM

＃この中の条件式(ifの条件付オプション)は省略
{$page_dsp .= "<option value=\"1\">\n"; }

$page_dsp .= <<"EOM";
</select>
<input type=hidden name=back value="no">
<input type=hidden name=id value="$kid">
<input type=hidden name=pass value="$kpass">
<input type=hidden name=mode value="ku">
<input type=submit class=btn value="オン">
</td></form></tr>
EOM
}
else{$page_dsp .= "<tr><td colspan=2 align=center>終わり</td></tr>\n";
}

以上のように、最初の5つの条件
(各々全部の、左の数値が右の数値と同じかそれ以上の時にセレクトを非表示)
で動かしたいのですけど、5つの条件中3つの条件しか満たしてないのに非表示に
なります。
条件が5つ揃ってから非表示にするにはどうすればいいですか？
ご教授お願いします。
863 名前：nobodyさん mailto:sage [2008/02/01(金) 05:30:16 ID:???]: 落ち着け
864 名前：nobodyさん mailto:sage [2008/02/01(金) 07:45:40 ID:???]: >>862
それはない。他にミスがあるはず。
865 名前：nobodyさん [2008/02/01(金) 16:52:45 ID:hS8kNEG7]: 命令が作動しなかったのは今回は説明で省略した命令(ifの条件付オプション)と
最初の5つの命令との相性が悪かったからかもしれませんね。

省略した部分内には、最初の5つの命令を一個ずつ(計5個)指定して、条件が満たされるごとに
オプション項目が一つずつ消えていき、全部満たしたら最初の5つの命令でセレクト
ごと非表示にするつもりでいたんです。
866 名前：nobodyさん mailto:sage [2008/02/01(金) 16:54:10 ID:???]: 相性とな？
867 名前：nobodyさん mailto:sage [2008/02/01(金) 16:55:34 ID:???]: バルクメモリさしたら動かなかった
相性が悪かったということだな
868 名前：nobodyさん mailto:sage [2008/02/01(金) 19:03:10 ID:???]: >>862
まずは、配列の勉強頑張れ。
869 名前：nobodyさん mailto:sage [2008/02/02(土) 05:09:34 ID:???]: 修士出たら就職を考えている現在3回生の情報の学生でperlが一番すきですが、
今年に入ってからいろいろと求人情報を集めてみたところperlの仕事少ないですね
噂には聞いてましたが、僕は何が何でもperlを仕事にしたいのです
まあそれはおいといて、perlを仕事としてみたときどんな感じですかね？
皆さま先輩方の多くはperlを仕事としていらっしゃると思ったので、
是非とも業務内容、他言語と比べたときの待遇、仕事のやりがいなどなど、
ポジティブな意見(勧め)もネガティブな意見(愚痴)も生の声としてお聞かせ願えればと存じます。
870 名前： ◆TWARamEjuA mailto:sage [2008/02/02(土) 07:42:12 ID:???]: perlを仕事にするところはほとんど無いと断言できるです。
仕事の中でperlを使うことはたくさんの現場であるです。

おいらは今、製造業の中でperlを利用しています。
昨今の機器はLANでデータを採取できたりします。
それを高ぁーいWindows専用のアプリでデータ加工することなく、unix(含むlinux)なサーバにてcronでデータ採取・計算・加工してDB(DB_Fileで充分)に登録。(もちろんperlで)
そいつを拾ってエクセルに貼り付けるだけ(もしくはSpreadsheet::Writeで書き込むも良し)でもデータの共有が出来たりします。
記録計のようなグラフを作るにしてもGDだけで充分。

部品の計測をするのでも、今時のマイクロメータは数値をUSBで送ってくれる物があったりします。(USBテンキーみたいな出力をしたりする)
それをExcelにちまちま放り込むよりか、単純テキスト(csvでも良いけれども)で保存して、perlを使っていろんな形や計算をさせることも出来たりします。

以前勤めていたWEB屋(主にデザインやHTML書き)でも、Excelのデータを1件1HTMLファイルに変換する作業がありました。
(その求人に応募したのだ（照）)
3000件近いデータを変換すると云うことで、2-3か月近い工程を組まれていたことがありました。
どうやら手動で書き換え作業をと目論んでいたようです。
けれどもデータ構造と特性を見極めるのに2日、それを変換するperlスクリプトを2日、変換作業たったの10秒って事がありました。
その当時、その部署の長は目を丸くしていましたです。
まだまだperl=CGIっていう感覚で居られたからです。
その後、ちまちまと元データ(Excel)の修正が入ってきても数秒で修正完了。
デザイン変更があってもテンプレートを書き換えるだけでおしまい。
あまった2-3か月の期間、他の仕事を色々とこなしていました。

ようは仕事に使う道具の１つとしてperlというのを持っていればどんな業種にでも使えるんじゃないかな。

そんなこともあって製造業の現場であるにもかかわらず、おいらのところにだけは使い慣れたMacOSX(iMacG5)なんてのを無理を聴いて貰って備え付けましたですです♪
871 名前：nobodyさん mailto:sage [2008/02/02(土) 11:18:13 ID:???]: perlを仕事で使うなら修士はオーバースペック。
高卒で十分な土方に好き好んで修士雇う経営者がいるのか?
872 名前：nobodyさん mailto:sage [2008/02/02(土) 11:21:37 ID:???]: 修士雇う経営者がいないなら高卒って言えばいいだけのこと
そんなこともわからないのか？
873 名前：nobodyさん mailto:sage [2008/02/02(土) 12:03:51 ID:???]: perl土方は頭悪いな。
高卒で足りる仕事には高卒の賃金しか払わないという事だよ。
874 名前：nobodyさん mailto:sage [2008/02/02(土) 13:18:25 ID:???]: >>872
それ、学歴詐称にあたるんじゃないの？
ちょっと前、問題になったでしょ。
875 名前：nobodyさん mailto:sage [2008/02/02(土) 13:33:00 ID:???]: perl土方は新聞を読まない。
876 名前：nobodyさん mailto:sage [2008/02/02(土) 13:46:46 ID:???]: WEB系いきゃいいんじゃないの？
個人的にはなにがなんでもPerlとかいってるPerl使いは嫌だけど
877 名前：nobodyさん mailto:sage [2008/02/02(土) 14:25:02 ID:???]: Perlがちょっとくらいできても仕事ねえぜ、と修士出の自宅警備員が言ってみる。

>>874
それ公務員ね。試験区分に対象の学歴があってそれに沿うことが望ましいとされてるから。

というかこれマ板のネタだろ。
878 名前：perl好き情報３回生(本物) ◆qqt5.0NxB6 mailto:sage [2008/02/02(土) 14:40:08 ID:???]: ちょっと失礼します。
僕はWebprog板に>>869と同一内容の書き込みをした者です。
>>869は偽者であって僕がマルチポストをしたのではないことを明言しておきます。
トリップをつけたので本物しか相手をしないようお願いいたします。
迷惑をおかけして申し訳ありません。
お騒がせしました。
879 名前：nobodyさん mailto:sage [2008/02/02(土) 15:45:41 ID:???]: 質問です。XML::RSSを使って、外部から取得したRSSを加工してHTML(euc-jp)に出力しているのですが、
一部の記号（それも機種依存文字含む）が文字化けします。

－ →　\x{ff0d}
㎜　→　\x{339c}

機種依存文字に関しては、根本的に対応することに意味があるのか疑問ですが、せめてwindowsな環境で
文字化けしないようにしたいのです。どうしたらいいでしょうか？

あんまし分かっていませんが、重要そうな部分だけ。
use XML::RSS;
use LWP::Simple;
use encoding 'euc-jp', STDOUT => 'euc-jp';
use open IN => ":encoding(euc-jp)";
use open OUT => ":encoding(euc-jp)";
binmode OUT => ":encoding(euc-jp)";

my $rss = new XML::RSS;
$rss->parsefile($site_file);
my $item_list = $rss->{'items'};
$item = ${$item_list}[0];
my $desc = $item->{'description'};

#一応対策っぽいことをやって一部の記号には対応できた
$desc =~ tr/\x{005C}\x{00A5}\x{2014}\x{203E}\x{2225}\x{FF0D}\x{FF5E}\x{FFE0}\x{FFE1}\x{FFE2}/
\x{FF3C}\x{FFE5}\x{2015}\x{FFE3}\x{2016}\x{2212}\x{301C}\x{00A2}\x{00A3}\x{00AC}/;
880 名前：879 mailto:sage [2008/02/02(土) 15:48:16 ID:???]: ちなみに、
～　→　\x{FF5E} に化ける問題は、一番下に書いた置換で解決したのですが、\x{FF0D}は何故かそのまま
文字化けしたままです…
881 名前：879 mailto:sage [2008/02/02(土) 15:55:11 ID:???]: すいません、>>880は単純ミスでした、取り消します。
882 名前：879 mailto:sage [2008/02/02(土) 15:57:31 ID:???]: 忘れていました。エラーメッセージが出ます。
hogehoge.cgi: "\x{ff0d}" does not map to euc-jp at hogehoge.cgi line 183.
883 名前：nobodyさん mailto:sage [2008/02/03(日) 01:13:34 ID:???]: 求人ってほとんどＰＨＰだよなぁ。プラスDreamWeaverの使用をセットで。
perl使ってるところはライブドアとかはてなとか高レベルに使いこなしてるところばっかり。
初～中級のところは全部ＰＨＰになってしまった。
884 名前：nobodyさん mailto:sage [2008/02/03(日) 03:35:42 ID:???]: モバイルならPerlも使ってるとこそこそこあるんでないか
885 名前：nobodyさん mailto:sage [2008/02/03(日) 11:14:58 ID:???]: 正規表現とか以外なら、構文同じなんだからすぐに移植できるだろ。
あとはPEARとかを使いこなせればいいわけだから、Perlの基礎がある
のなら、１週間程度で、出来るといえるんでね？
Perlで作ったコードをPHPに移植して、これ、私が作りました、みたいな。
886 名前：nobodyさん mailto:sage [2008/02/03(日) 12:57:34 ID:???]: PEARってperlでいうCGI.pmみたいなもん？
887 名前：質問 [2008/02/03(日) 13:04:56 ID:34/ZwImQ]: このスレでよいかわかりませんが・・・

項目を選択しボタンをクリックすると、あるページには選択した項目の画像ファイルを表示し、
もうひとつのページにはその選択した項目を表示させたいのですがどうしたらよいでしょうか？

最初のページには
<form action="A.cgi" target="表示させたいページ">
を埋め込んでいるのですが、当たり前ですがこれだと"表示させたいページ"にしか表示できません。

A.cgiのなかでさらにこの部分だけは他のページへ表示させるとかできませんか？
888 名前：nobodyさん mailto:sage [2008/02/03(日) 14:09:58 ID:???]: >>886
CPANじゃね？
889 名前：nobodyさん mailto:sage [2008/02/03(日) 14:12:18 ID:???]: >>887
それは、Perlの話じゃなくて、htmlの話じゃないの？
フレームタグを使って区切るか、テーブルタグを使って全部を表示させる方法がある。
板違いなので、これ以上の質問はしないように。
890 名前：nobodyさん mailto:sage [2008/02/04(月) 03:22:50 ID:???]: >>879
メッセージのとおりで、変換表に該当するものがないんでしょ。
euc-jpMSとか使わないといけないんじゃないの?
891 名前：nobodyさん mailto:sage [2008/02/07(木) 12:55:00 ID:???]: perl 5.8.5
CentOS 5.1

「out of memory」のときのエラーハンドリングの方法を教えてください。
dieのときは
$::SIG{__DIE__} = sub {～～～};
でいけることまではわかったのですが
「out of memory」がハンドリングできないのです。
よろしくおねがいします
892 名前：nobodyさん mailto:sage [2008/02/07(木) 15:49:01 ID:???]: OSの制限だから、ハンドリング考えるよりコード見直す。
それができないのなら、OSの制限上げる。メモリ積む。
893 名前：nobodyさん mailto:sage [2008/02/07(木) 19:10:28 ID:???]: perl5.8

my @value=(0,1,3,8);　　#任意のkey
my @hoge=('hoge1','hoge2','hoge3'....);　　#表示用配列
my $disp;
foreach (@value)
{
$disp .= ',' if $disp;
$disp .= $hoge[$_];
}

という処理をしているんですが、これってJOINでできませんか？
map使ってもこれより簡単に書けないですよね？
894 名前：nobodyさん mailto:sage [2008/02/07(木) 19:28:15 ID:???]: こういうこと？

my @value = (0, 1, 3, 8);
my @hoge = ('hoge1', 'hoge2', 'hoge3', 'hoge4', 'hoge5', 'hoge6', 'hoge7', 'hoge8', 'hoge9');

print join ',', @hoge[@value];
895 名前：nobodyさん mailto:sage [2008/02/07(木) 20:34:51 ID:???]: >>894
おお。ありがとうございます。コードがすっきりします＾＾
896 名前：nobodyさん mailto:sage [2008/02/08(金) 09:47:17 ID:???]: すいません。もう一点。

my $value = "0,1,3,8";
my @hoge = ('hoge1', 'hoge2', 'hoge3', 'hoge4', 'hoge5', 'hoge6', 'hoge7', 'hoge8', 'hoge9');

これは
join ',',@hoge[sprit',',$value];

ですよね？
splitしてjoinして勿体無い感じ。。
897 名前：nobodyさん mailto:sage [2008/02/08(金) 10:08:10 ID:???]: splitとspliceは別物
898 名前：nobodyさん mailto:sage [2008/02/09(土) 18:24:58 ID:???]: valueがスカラーで入れなきゃ一回joinで済む話。
899 名前：nobodyさん [2008/02/11(月) 09:15:09 ID:7AZat8M4]: ファイルの最後の行番号を取得したいんですが、
my $endline = $. while (<FH>);
としてとりえず取得できたんですが、
その後
seek FH,0,0;
として、また１行目から別の処理したいんですがうまくできません。
seekの戻り値をprintしてみると1を返してますが、先頭には戻ってないようです。
windows環境なのが原因でしょうか？
900 名前：nobodyさん mailto:sage [2008/02/11(月) 09:31:45 ID:???]: my $endlineだと局所化されて外側で取得できなくない？
seekしても$.はリセットされないから先頭に巻き戻したら$.= undefとかすればいい
901 名前：nobodyさん mailto:sage [2008/02/11(月) 11:26:23 ID:???]: >>900さんレスありがとうございます。

>局所化
あ、ほんとだ。ミスってました。

undef $.;
reset $.;
それぞれ試してみましたが変化ありませんでした。

その後に
while (<FH>) {
　　if ($. == $bigin .. $. == $end) {
といった処理をしたいんですが、どうもうまくいきません。
902 名前：nobodyさん mailto:sage [2008/02/11(月) 11:49:03 ID:???]: $. = 0;としたらうまくいきました。
ありがとうございました。
903 名前：nobodyさん mailto:sage [2008/02/12(火) 21:28:15 ID:???]: 文字コードについて質問します。

utf-8から7bitJISへの変換なのですが、（メール送信のため）

Encode.pmもJcode.pmもローマ数字をJISにしてくれません。
Encodeでは「\x{2160}」と変換不可の場合のユニコード値に変換され、
Jcodeでは「?」になります

Ⅰ（ローマ数字１）
\xE2\x85\xA0　utf8　→　\x1B\x24\x42\x2D\x35 JIS

と手動で変換してやれば良いのですが、escシーケンスの処理がどうしたものかと・・・
904 名前：nobodyさん mailto:sage [2008/02/12(火) 23:23:01 ID:???]: use lib '../lib';
のように相対パスを使うと出来るけど
use lib '/i/cgi-bin/lib';
のように絶対パスを使うと動かなくなります
サーバーの設定によって絶対パスだと読み込めなかったりするんでしょうか
普通のリンクだと絶対パスでリンクできます
905 名前：nobodyさん mailto:sage [2008/02/12(火) 23:31:03 ID:???]: >>904
本当にそれが絶対パスであれば使えると思うのだが、おそらく違うんだと思う。
906 名前：nobodyさん mailto:sage [2008/02/13(水) 02:37:13 ID:???]: >>904
perlから使う絶対パスはwebサイト上の絶対パスじゃないよ。
・ http鯖がルートとして扱うディレクトリからの絶対パス
・鯖のOSの絶対パス
の違いを理解しような。
907 名前：nobodyさん mailto:sage [2008/02/13(水) 02:39:50 ID:???]: >>903
JISとかISO-2022-JPにはローマ数字はないから。

Encode::EUCJPMS - Microsoft Compatible Encodings for Japanese - search.cpan.org
search.cpan.org/~naruse/Encode-EUCJPMS-0.07/EUCJPMS.pm

あたりをいれて、cp50220 とか cp50221 で変換する。
908 名前：906 mailto:sage [2008/02/13(水) 10:48:35 ID:???]: 有難うございます
調べてみます
909 名前：904 mailto:sage [2008/02/13(水) 10:49:51 ID:???]: >>906でした
910 名前：nobodyさん mailto:sage [2008/02/13(水) 12:25:12 ID:???]: >>907
ありがとうございます
Encode::EUCJPMSモジュールをいれて、

use Encode::EUCJPMS;
use Encode;
my $cp50220_str = Encode::from_to( $utf8_str , "UTF8" , "CP50220" );

で良いのでしょうか？
実はフォーム入力はShiftJISでして、CP932からutf-8に一旦エンコードしています。
これで問題はないでしょうか？
911 名前：nobodyさん mailto:sage [2008/02/14(木) 02:49:22 ID:???]: >>910
UTF-8に変換するときにエラーになってなきゃ大丈夫なんじゃない?
～あたりが微妙ではあるけど。
912 名前：nobodyさん [2008/02/14(木) 10:56:12 ID:AY3pAm1W]: 教えてください。サーバではなくて、自分のPCにPerlをインストールしています。

#!/usr/bin/perl

use strict;
print "IEを起動します...\n";
system("C:/Program Files/Internet Explorer/iexplore.exe");
exit;

__END__

上のようにすると、IEは起動するのですが、コマンドプロンプトは残ったままで
タスクマネージャーにも perl.exeｔが残っています。（残るというか待ってるようですが…）
IEを起動したあとはPerlも終了して欲しくて検索したらexecというのがあったので
exec("C:/Program Files/Internet Explorer/iexplore.exe");としたら起動しませんでした。
IE起動後速やかにPerlを終了させるにはどうすれば良いでしょうか。
PerlはActivePerl 5.8.8をインストールしました。

もう一つは、my $url = 'www.google.co.jp/'; とした時に
IEにこの$urlを開かせるにはどうすればよいのでしょうか。よろしくお願いします。
913 名前：nobodyさん mailto:sage [2008/02/14(木) 11:58:11 ID:???]: ヒント： system("start", $url);
914 名前：nobodyさん mailto:sage [2008/02/14(木) 12:23:37 ID:???]: >>913
うわぁぁ。ありがとうございました！
915 名前：nobodyさん mailto:sage [2008/02/14(木) 12:27:34 ID:???]: 　　　　/＼＿＿_／ヽ　　ヽ
　　／　　　　::::::::::::::::＼　つ
　 . | 　,,-‐‐　　‐‐-､ .:::|　わ
　　|　､_(o)_,:　 _(o)_,　:::|ぁぁ
. 　 |　　　　::<　　　　 .::|あぁ
　　＼　 /( [三] )ヽ ::／ああ
　　　／｀ー‐--‐‐―´＼ぁあ
916 名前：910 mailto:sage [2008/02/14(木) 12:58:24 ID:???]: >>911
ありがとうございます。
「～」は手動でE3 80 9Cに置き換えています。

では教えていただいた方法でやってみようと思います。
917 名前：nobodyさん mailto:sage [2008/02/14(木) 15:13:40 ID:???]: fedora8なマシンで監視装置をでっち上げようとしています

Net::SMTPについて教えて下さい

use Net::SMTP;

my $smtp = Net::SMTP->new( $mailhost );
$smtp->mail( $MailFrom );
$smtp->to( $MailTo );
$smtp->data();
$smtp->datasend( "From: $MailFrom\n" );
$smtp->datasend( "To: $MailTo\n" );
$smtp->datasend( "Subject: $e_subject\n" );
$smtp->datasend( "Mime-Version: 1.0\n" );
$smtp->datasend( "Content-type: text/plain; charset=ISO-2022-1\n" );
$smtp->datasend( "Content-transfer-encoding: 7bit\n" );
$smtp->datasend( "Reply-to: $MailFrom\n" );
$smtp->datasend( "$body\n" );

ここでbodyに例えばtestdataと入れると$bodyもメールとして届くのですが、
$bodyをtest:dataとする（半角コロンが入っている）と、$bodyが送られません

何が悪いのかご教示下さい
918 名前：nobodyさん mailto:sage [2008/02/14(木) 15:18:19 ID:???]: 半角コロン
919 名前：nobodyさん mailto:sage [2008/02/14(木) 15:28:13 ID:???]: つ[ $smtp->datasend( "\n$body\n" ); ]
920 名前：917 mailto:sage [2008/02/14(木) 15:31:16 ID:???]: >>919
できました
ありがとう　(　；∀；)
921 名前：919 mailto:sage [2008/02/14(木) 15:57:21 ID:???]: >>920
よかったな。
バグった状態だと$bodyが送られてこないんじゃなくヘッダに入ってたはず。
メールヘッダと本文の切り分けは「半角コロンが入ってない行が登場した所から本文」って事になってるから、
どんな文が入るか分からん時は、ヘッダの最後に空行を入れれば桶。基本なんで覚えとくと便利。
922 名前：917 mailto:sage [2008/02/14(木) 16:25:19 ID:???]: >>919
覚えておきます
ありがとうございました(^^
これで沈みます
923 名前：nobodyさん mailto:sage [2008/02/17(日) 21:47:50 ID:???]: >>921
ヘッダと本文は空行で分けられます。
ついでに言うと、改行は CRLF (\r\n) にすること。
MTA によっては受け付けてくれません。
924 名前：exe [2008/02/19(火) 11:44:47 ID:L1DAdjnk]: ファイルにaからｚ、AからZを交互に連続で出力し、最後に改行して、この処理を１０回繰り返す方法を教えてください。
aAbBcCdDeE・・・yYzZ のような形です。お願いします。
925 名前：nobodyさん mailto:sage [2008/02/19(火) 12:05:44 ID:???]: 宿題は自分でやろうな。
926 名前：nobodyさん mailto:sage [2008/02/19(火) 12:06:11 ID:???]: print "aAbB.....yYzZ\n";

を10個コピペでおｋ
927 名前：exe [2008/02/19(火) 14:24:58 ID:L1DAdjnk]: すいません。10回出力はわかるんですが、for文を使ってaAbBcC...zZの表示方がわからないのでどなたかお願いします。
928 名前：nobodyさん mailto:sage [2008/02/19(火) 14:25:28 ID:???]: for(1..10) {
for(65..90) {
print pack("C*",$_);
print pack("C*",$_+32);
}
print "\n";
}
929 名前：exe [2008/02/19(火) 14:42:37 ID:L1DAdjnk]: nobody さんありがとうございます。

ちなみに↓の形で書くと、どうしたらよいでしょうか。
何度もすいません。

open (FILE, '>test1.txt') or die "$!";

for my $count (0..9) {
for my $i ("a".."z") {

}
print FILE "\n";
}

close(FILE);
930 名前：nobodyさん mailto:sage [2008/02/19(火) 14:59:33 ID:???]: #
# $countってなんぞ？
#
open (FILE, '>', 'test1.txt') or die "$!";
binmode(FILE);
for my $count (0..9) {
for my $i('a'..'z') {
print $i;
print uc($i);
}
print FILE "\n";
}
close(FILE);
931 名前：nobodyさん mailto:sage [2008/02/19(火) 15:01:42 ID:???]: #
# ↑はウソ
#
open (FILE, '>', 'test1.txt') or die "$!";
binmode(FILE);
for my $count (0..9) {
for my $i('a'..'z') {
print FILE $i;
print FILE uc($i);
}
print FILE "\n";
}
close(FILE);
932 名前：exe [2008/02/19(火) 15:06:17 ID:L1DAdjnk]: ありがとうございます。$Countは適当においてる変数です。
933 名前：exe [2008/02/19(火) 15:54:07 ID:L1DAdjnk]: 先ほど↑で作ったファイルを出力として、小文字のみを取り除いた結果を標準出力に表示するにはどうしたらよいでしょうか？
自力でやらないといけないのはわかっているのですが、時間がなくて・・どなたかお願いします。
934 名前：nobodyさん mailto:sage [2008/02/19(火) 16:04:55 ID:???]: #
# そういうウンコみたいな仕事を漏れにも回してくれよ
#
$sent = 'dTgZtyYthSGetLt';
$sent =~ s/[a-z]//g;
print $sent;
935 名前：nobodyさん mailto:sage [2008/02/19(火) 16:31:12 ID:???]: 馬鹿だな、まずはおっぱいうｐしてからだろｊｋ・・・
936 名前：exe [2008/02/19(火) 16:55:41 ID:L1DAdjnk]: 仕事では無いです。笑われてるかもしれませんが初心者の
自分にとっては色々難しくて。時間もありませんでしたので・・
937 名前：nobodyさん mailto:sage [2008/02/19(火) 17:15:11 ID:???]: perlで外部サーバー上のファイルを読み込む方法はありますか？

OPEN("www.aa.com/a.cgi") みたいにして
a.cgiの出力結果を元にさらに処理をしたいと思っています
938 名前：nobodyさん [2008/02/19(火) 17:30:48 ID:gLoGL0Ae]: >>937
いい手じゃないが、Linuxでwgetが入ってる状態で漏れが使ってる方法

$foo = `wget -O- www.aa.com/a.cgi`;
939 名前：nobodyさん mailto:sage [2008/02/19(火) 17:45:18 ID:???]: いやそれが最強。wgetのWIN版もあるからな。-qも付けると良い。
940 名前：nobodyさん mailto:sage [2008/02/19(火) 17:55:56 ID:???]: LWP
941 名前：937 mailto:sage [2008/02/19(火) 19:26:35 ID:???]: >>938
ありがとうございました
無事　取得することが出来ました。
あと[`]でくくるのはなぜなのでしょう？
942 名前：938 mailto:sage [2008/02/19(火) 20:13:58 ID:???]: >939
モジュール使った方が互換性高いし、そっちの方が良いと思ったんで。
>940のLWPを使うのが最良だと思うが、使い方調べてる気分的な余裕がないんで、
wget使ってそのまま今に至る感じだ。

>941
外部コマンド実行だから。``で囲むと外部コマンドを実行して標準出力が戻ってくる。

ちなみに"perl -T"でやってると、そのままじゃ外部コマンド動かない事があるんで注意。
$ENV{'IFS'}, $ENV{'CDPATH'}, $ENV{'ENV'}, $ENV{'BASH_ENV'}, $ENV{'PATH'}を
退避・削除してから外部コマンドを実行し戻す必要がある。
943 名前：nobodyさん mailto:sage [2008/02/19(火) 20:26:04 ID:???]: LWP
944 名前：nobodyさん mailto:sage [2008/02/20(水) 08:23:23 ID:???]: >>937-942
search.cpan.org/~gaas/libwww-perl-5.808/lib/LWP/Simple.pm
945 名前：937 mailto:sage [2008/02/20(水) 12:35:11 ID:???]: >>938-944
ありがとうございます。
LWPも使えました　研究してみます。
946 名前：nobodyさん mailto:sage [2008/02/20(水) 13:15:09 ID:???]: @urlの中に500くらいのサイトのURLが入っています。
そのURLのページにキーワードか書かれているかどうか調べるとき、

foreach (@url) {
　　LWPで取得してキーワードが見つかったら、$count++;
}

みたいにすると一つずつなので物凄く時間が掛かります。
10個くらい一気に取得する方法はないでしょうか？
947 名前：nobodyさん mailto:sage [2008/02/20(水) 13:35:03 ID:???]: 同じプログラムを10個並列に走らせてそれぞれに50サイトずつ担当させるのが一番楽だと思うよ。
948 名前：nobodyさん mailto:sage [2008/02/20(水) 13:43:09 ID:???]: こういう場合ってほとんどはLWPで取得するのが一番時間かかってるのかな？
949 名前：nobodyさん mailto:sage [2008/02/20(水) 13:59:11 ID:???]: >>947
そうですか…分割してみます。

>>948
応答待ちが長いと停止状態です。
950 名前：nobodyさん mailto:sage [2008/02/20(水) 14:34:00 ID:???]: fork
951 名前：nobodyさん mailto:sage [2008/02/20(水) 15:01:34 ID:???]: プロセスで並列化するとプロセスAは終わってるけど
プロセスBは重いサイトがリストにあって終わってないとか
無駄に待ち時間増えるから、threads使える環境ならthreadsのが楽でない？
952 名前：nobodyさん mailto:sage [2008/02/20(水) 15:03:07 ID:???]: JISの文から携帯電話の絵文字部分を退避させたいと思っています。
正規表現について教えてください。

通常の2バイト文字と同様に絵文字[\x75-\x7B][\x21-\x7E]がエスケープシーケンス
\x1b\x24\x42と\x1b\x28\x42に囲まれます。

エスケープシーケンスをそれぞれ
$esc_in = "\x1b\x24\x42";
$esc_out = "\x1b\x28\x42";
とし、絵文字を
$emoji = "[\x75-\x7B][\x21-\x7E]";
とします。

元の文を
$str="今日は晴れでした■気温は10度です。";（■は笑顔の絵文字 \x79\x79 ）

この$strは
$esc_in今日は晴れでした■気温は$esc_out10$esc_in度です。$esc_out
とエスケープされます。

やりたい事はこれを
$esc_in今日は晴れでした$esc_out[7979]$esc_in気温は$esc_out10$esc_in度です。$esc_out

というように[]で絵文字コードを囲い、エスケープシーケンスの整合性をとるというものです。

どなたかご教授いただけないでしょうか？
953 名前：nobodyさん mailto:sage [2008/02/21(木) 00:49:43 ID:???]: それのどこがWeb Programmingなんだ?
954 名前：nobodyさん mailto:sage [2008/02/21(木) 02:07:00 ID:???]: JISコードは加工には向かないので、Encode::JP::Mobileあたり使って
いったんutf8文字列にしてから加工して戻す方がたぶん見通しいいよ。
955 名前：952 mailto:sage [2008/02/21(木) 03:31:08 ID:???]: >>954

ありがとうございます。そちらの方で検討させていただきます。

このような複雑な置換について私は苦手でして、もしこれがお分かりになられるなら後学のためにも教えていただきたいのですが、ご無理でしょうか？
956 名前：nobodyさん mailto:sage [2008/02/21(木) 10:36:05 ID:???]: マッチした文字列の前後は$esc_inで囲って
マッチした文字列はルールに沿って変換
ってことかな？
957 名前：nobodyさん mailto:sage [2008/02/21(木) 10:36:46 ID:???]: ×$esc_inで囲って
○$esc_inと$esc_outで囲って
958 名前：nobodyさん mailto:sage [2008/02/21(木) 10:39:56 ID:???]: 無理に書くとこんな感じ? 全くお勧めしない。

# 絵文字部分を1文字ずつ加工。
# 1バイトずれてマッチしたり、ascii部分にマッチしないようにしてるので面倒
$str =~ s{
(
(?:\G | ^[^\1b]*\x1b\x24\x42)
(?:[^\x1b]{2}|\x1b\x28\x42[^\x1b]*\x1b\x24\x42)*?
)
([\x75-\x7b])([\x21-\x7e])
}{
sprintf "%s\x1b\x28\x42[%02x%02x]\x1b\x24\x42", $1, ord($2), ord($3)
}gex;

# 冗長なエスケープシーケンスの並びを除去
$str =~ s/(\x1b\x24\x42)+/$1/g;
$str =~ s/(\x1b\x28\x42)+/$1/g;
$str =~ s/\x1b\x28\x42\x1b\x24\x42//g;
$str =~ s/\x1b\x24\x42\x1b\x28\x42//g;
959 名前：952 mailto:sage [2008/02/21(木) 14:20:04 ID:???]: >>958
ありがとうございます。
やはりすごい複雑になってしまうんですね。
(
(?:\G | ^[^\1b]*\x1b\x24\x42)
(?:[^\x1b]{2}|\x1b\x28\x42[^\x1b]*\x1b\x24\x42)*?
)

を見てもさっぱり理解できません。
これが絵文字でない文字を指すというのはわかるのですが、詳しく教えていただけないでしょうか？
または参考になる書籍などがありましたら教えていただけないでしょうか。
960 名前：952 mailto:sage [2008/02/21(木) 14:25:02 ID:???]: 書き忘れましたが、Encode::JP::Mobileを使い無事utf8にできました。

これを作った方すごいですね。こんな便利なものがあると知りませんでした。
961 名前：初心者 [2008/02/21(木) 14:43:22 ID:eHzrHpy8]: perlでカレンダーを作るのですが、プログラミングする内容としては何がひつようでしょうか？
何から書いていいやらとっかかりがわかりません。どなたかアドバイス等をお願いします。
962 名前：nobodyさん mailto:sage [2008/02/21(木) 14:48:53 ID:???]: ｇｇｒｋｓ
963 名前：nobodyさん mailto:sage [2008/02/21(木) 14:49:53 ID:???]: とりあえず以下のサブルーチンを作る

1. 本日の年・月・日・曜日を返す
2. x年y月z日の曜日を返す
3. x年y月1日の曜日を返す
4. x年y月の月末日を返す
5. x年y月の前月を返す
6. x年y月の翌月を返す
7. x年y月z日の前日を返す
8. x年y月z日の翌日を返す
964 名前：初心者 [2008/02/21(木) 15:13:33 ID:eHzrHpy8]: ありがとうございます。
965 名前：初心者 [2008/02/21(木) 15:26:58 ID:eHzrHpy8]: 今年のようなうるう年かどうかを調べるにはどうしたらよいのでしょうか？
966 名前：nobodyさん [2008/02/21(木) 15:35:05 ID:/bZGgDSr]: 閏年の定義に当てはまるかどうかを調べればよい。>>965
西暦が4で割り切れて、100で割り切れなければ閏年。
西暦が4で割り切れて、400でも割り切れれば、100で割り切れても閏年。
967 名前：nobodyさん mailto:sage [2008/02/21(木) 15:35:25 ID:???]: いちいち相手にするからググればわかるような質問が絶えないんだよな
968 名前：nobodyさん [2008/02/21(木) 15:38:45 ID:/bZGgDSr]: 悪かった。今は反省している。
969 名前：nobodyさん mailto:sage [2008/02/21(木) 16:23:42 ID:???]: 閏年を知る必要は無いはず。
月末=翌月1日の1日前（ｘ年y月の月末日=(x年y+1月1日)-1日）だから、
PerlインタプリタとOSとライブラリにバグがなけりゃ閏年だろうが、平年だろうが
関係なく計算できる。

Date::Calc使って計算すりゃ一発で出るだろ。
970 名前：nobodyさん mailto:sage [2008/02/21(木) 16:35:43 ID:???]: ググっても分からないような初心者質問って？
971 名前：nobodyさん mailto:sage [2008/02/21(木) 17:03:05 ID:???]: >>1
972 名前：nobodyさん mailto:sage [2008/02/21(木) 18:08:27 ID:???]: >>969
ggrksには同意だが、
たとえば誕生日の入力で2/29が妥当かどうかってのは閏年を判別しなきゃいかんだろ。

質問者の意図は知らんが。
973 名前：969 mailto:sage [2008/02/21(木) 18:13:29 ID:???]: >>972
名前：初心者 ID:eHzrHpy8　が継続的に質問してるんで、
ID:eHzrHpy8 ：　「>961 カレンダーを作りたい。」
nobodyさん：「>963」
ID:eHzrHpy8 ：　「>965 月末日を知るのに閏年を知りたい」

って一連の流れだと思ったんだが、違うのか？
974 名前：nobodyさん mailto:sage [2008/02/21(木) 18:21:25 ID:???]: 要するに２月のカレンダーを作るときには、３月１日の日付から－１してやって、日付を取得すれば
いいってことを>>969は言ってるんだね。

カレンダーを書くルーチンを考えたことないから、参考になるね。
975 名前：nobodyさん mailto:sage [2008/02/21(木) 19:03:40 ID:???]: localtime使う前提だよね？
末日計算を前提としてる話とごっちゃになっとる
976 名前：nobodyさん mailto:sage [2008/02/21(木) 19:18:16 ID:???]: もちろん。

でもさ、カレンダーを書くcgiくらい、散々ソースが転がっていそうな気がするんだけどね。
その辺の中から、適当に拾ってアレンジすれば目的は果たせるんじゃないの？
977 名前：nobodyさん mailto:sage [2008/02/21(木) 19:26:16 ID:???]: 自分が使うカレンダーならどっかから拾ってくればいいが、
課題ともなるとそうもいかないんじゃない?
978 名前：nobodyさん mailto:sage [2008/02/21(木) 19:33:08 ID:???]: というか、今更perlの課題とか出す大学とかあるの？
979 名前：nobodyさん mailto:sage [2008/02/21(木) 20:55:28 ID:???]: >>952とまったく同じ文章が今日MLに流れてきてたけど、同一人物？
980 名前：nobodyさん mailto:sage [2008/02/21(木) 23:37:02 ID:???]: >>978
専門学校とかじゃね？
981 名前：ID消し挑戦ｗ mailto:0０0 [2008/02/23(土) 16:05:17 ID:???]: テスト＾＾；
982 名前：nobodyさん mailto:sage [2008/02/23(土) 16:40:22 ID:???]: 自分用モジュールつくってるんだけどさ

package hoge;

use strict;

my $test = 'ABC';

sub new {
　my $pkg = shift;
　bless { hoge => $test, },$pkg;
}

みたいに先頭で定数定義してメソッド内で使いまくるのって問題ありますか？
これならuse strictしない方が良かったりする？
983 名前：nobodyさん mailto:sage [2008/02/23(土) 16:46:25 ID:???]: 外部値で初期化したいなら引数として渡せば？
984 名前：nobodyさん mailto:sage [2008/02/23(土) 17:07:54 ID:???]: >>982
問題ないとおも。
ただ、定数として明示したければ、
use Readonly;
Readonly my $test = 'ABC';
しといた方が
985 名前：nobodyさん mailto:sage [2008/02/23(土) 17:09:32 ID:???]: 定数は大文字にする習し
986 名前：nobodyさん mailto:sage [2008/02/23(土) 18:07:36 ID:???]: （・∀・）
987 名前：nobodyさん mailto:sage [2008/02/23(土) 18:54:14 ID:???]: >>983
箱から出したくないしので、blessに絡めたくないんです。
ちなみに全メソッドで使います。

>>984
CPAN配布物ですかね？
名前からして便利そうですが、標準で入ってないのは遠慮したいです。

>>985
おｋ

コールバックあたりも調べてみます。

とりあえずみなさんありがとうです。
988 名前：nobodyさん mailto:sage [2008/02/23(土) 19:03:14 ID:???]: use Vars, oursなんてあったのか。
989 名前：nobodyさん mailto:sage [2008/02/23(土) 19:57:03 ID:???]: >>987
標準ならconstantプラグマ
990 名前：nobodyさん mailto:sage [2008/02/23(土) 21:32:08 ID:???]: 以前は値を返すだけのsub使ってた。
991 名前：nobodyさん mailto:sage [2008/02/23(土) 21:46:40 ID:???]: >>987
CPAN配布物だけど、純Perlソースだから、インスコしなくても、
下記からダウソして自分のモジュールと同じディレクトリに入れればよさげ。
search.cpan.org/src/ROODE/Readonly-1.03/Readonly.pm
992 名前：nobodyさん mailto:sage [2008/02/23(土) 21:47:49 ID:???]: 空のプロトタイプ付きサブルーチンはコンパイル時に展開されるので
効率はいい。constant プラグマはいわばその構文糖。
www.kt.rim.or.jp/~kbk/perl5.005/perlsub.html#Constant_Functions

変数展開コンテキストに埋め込みたいなら、リテラルのリファレンスに
名前を付ける方法もある。
www.kt.rim.or.jp/~kbk/perl5.005/perlmod.html#Symbol_Tables

パッケージグローバルな my 変数も、そのパッケージ内でうっかり
書き換える心配が無いのなら別に悪い選択肢じゃない。
993 名前：982 mailto:sage [2008/02/23(土) 22:24:31 ID:???]: >>991
ダウソしました。できるだけ理解してから使ってみます。

>>990,>>992
サブルーチンでやるならsub Readonly () { 'ABC' }でおｋですね。
とりあえず自分用はそうします。

もし他人に配布するような事があれば>>989,>>991が良いっす

短時間ですごい勉強になりました。ありがとう
994 名前：nobodyさん mailto:sage [2008/02/24(日) 18:30:29 ID:???]: 保　守
995 名前：nobodyさん mailto:sage [2008/02/25(月) 16:37:54 ID:???]: 　次スレ希望
996 名前：nobodyさん mailto:sage [2008/02/25(月) 17:52:22 ID:???]: テンプレ貼るなら立ててやるよ
997 名前：nobodyさん mailto:sage [2008/02/25(月) 19:27:13 ID:???]: ほらよ

Perlコーディング初心者質問スレ Part 57
pc11.2ch.net/test/read.cgi/php/1203935151/
998 名前：nobodyさん mailto:sage [2008/02/25(月) 20:00:31 ID:???]: 乙です。
埋め
999 名前：nobodyさん mailto:sage [2008/02/25(月) 20:07:07 ID:???]: 埋め
1000 名前：nobodyさん mailto:sage [2008/02/25(月) 20:07:31 ID:???]: 埋め
1001 名前：１００１ [Over 1000 Thread]: このスレッドは１０００を超えました。
もう書けないので、新しいスレッドを立ててくださいです。。。

[ 新着レスの取得/表示 (agate) ] / [ 携帯版 ]

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