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

Perlのコーディングで困ってる人のスレです。

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

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

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

お勧めサイトは >2 以降

前スレ　http://hibari.2ch.net/test/read.cgi/php/1275739870/

[プログラミング自体の経験が無い奴はまずココを読め]
Perlプログラミング講座: ttp://www.site-cooler.com/kwl/perl/

[本]
リャマ: ttp://www.oreilly.co.jp/books/4873111269/
駱駝: ttp://www.oreilly.co.jp/books/4873110963/
Effective Perl: ttp://ascii.asciimw.jp/books/books/detail/4-7561-3057-7.shtml
クックブック: ttp://www.oreilly.co.jp/books/4873112028/
Perl ベストプラクティス: ttp://www.oreilly.co.jp/books/4873113008/
Perl Hacks: ttp://www.oreilly.co.jp/books/9784873113142/

[オンラインマニュアル]
最新のドキュメント: ttp://perldoc.perl.org/
perl5.8.xのドキュメント(一部): ttp://www.kt.rim.or.jp/~kbk/perl-5.8/
perldoc きまぐれ訳: ttp://fleur.hio.jp/perldoc/
perldoc.jp: ttp://www.perldoc.jp/

[モジュール]
CPAN: ttp://search.cpan.org/
河馬屋二千年堂: ttp://homepage3.nifty.com/hippo2000/

[テクニック]
Perlメモ: ttp://www.din.or.jp/~ohzaki/perl.htm
Perlのページ: ttp://homepage1.nifty.com/nomenclator/perl/
Perlの小技: ttp://homepage3.nifty.com/hippo2000/perltips/index.htm

[Perl5.8Unicodeメモ]
ttp://www.namazu.org/~tsuchiya/perl/perl-5.8.html
ttp://www.lr.pi.titech.ac.jp/~abekawa/perl/perl_unicode.html

即死しそうだなおい

ぱ☆る☆る

質問させてください
今、アップローダーCGI使ってるのですが、
ファイルのMIMEタイプを見て、拡張子が間違っている場合ファイル名の変更をしようとしているのですが、
CGI.pmで、

$mime = CGI::uploadInfo($fh)->{'Content-Type'};

とした所、mimeタイプは返ってくるのですが、
JPEGファイルにPNG拡張子をつけて判定させるとＰＮＧのmimeが返ってきます・・・
その他で試しても、そのファイルに付いてる拡張子のmimeが返ってきます。

何か指定の仕方が間違ってたりするのでしょうか・・・？

そりゃウェブサーバがファイルのmime-type決めるのに普通は
拡張子使ってるからな。ファイルを取得して中身から判定しない
とだめじゃない?

>>6
レスありがとうございます
おぉ・・・一度ファイル取得してから判断するしかないですか・・・
大きなファイルうpして、許可してないタイプのファイルだった場合、
結構無駄なリソース食っちゃいますねぇ・・・
ネットでいろいろ調べたら、CGI.pmで拡張子間違ってても正常なmimeが取得できるとあったのですが・・・

Apache で MagicType が有効なら、たぶん拡張子が違くても
ファイルの種類を判別できるのかも

>>7
ねえ、ファイル見もしないで判定出来るって凄すぎませんか？

http://perldoc.jp/docs/modules/File-MMagic-1.21/MMagic.pod

>>10
# File::MMagic->new()
# File::MMagic->new( $filename )

モジュールを初期化します。ファイル名が与えられなければ、
File::MMagicに格納されている秘技(=magic number)が使われます。

秘技！なんか凄そう
どういう仕組なんだろう…

先頭何バイトが何に一致するかで探すだけ

秘技は翻訳ミスな気がしなくもない

秘技はリストと読み替えれば分かりやすい

ただのfileやね

実際のオープンは FILE とかで開いてるのに、スレのサンプルをそのままコピペしてるから何も表示されてない。

と予測してみる。

誤爆？

ですｗｗ
コピペしなおすのも面倒なので放置 ^-^；

perl超ど素人の私に教えて下さい。

HTMLの整形プログラミングをしてるんですが、
フォームから入力されたテキストの改行を</p>\n<p>で置換されるまではできるようになったのですが
これを二回以上改行するときに</p><p style="margin-top:○（←改行した数）em;">ってできるようにしたいんですが、どうしたらいいですか？

my $count = $str =~ s/元/後/g;

あ、ちゃんと読んでなかった。こういうことか？
$str =~ s{(\n+)}{sprintf '</p><p style="margin-top: %dem;">', length($1)}ge;

>>19
はい、要望どおりでございます。おかげさまで解決できました。
そして一瞬で解決してくれて軽く感激しています。ありがとうございました！
ちなみに私は$value =~ s/&/&/g;とかの置換しか知らないから一日中四苦八苦してました（汗

ファイルハンドルをlocalする理由をおしえてください

局所化しないと余計な問題が起こるからです。
というかそもそも今日びは open my $fh, '<', '/etc/passwd'; などとしてレキシカル変数をハンドルにするのが普通です。

余計な問題ってなんですか？
あとなんでレキシカル変数を使うんですか？

ファイルハンドルの重複
↑を避けるため

ここみろよはげ
http://d.hatena.ne.jp/dayflower/20080605/1212652674

Perlでパスワードをメール送信することがあるのですが、
平文でコード中に書いてしまってもいいのでしょうか。

パスワードは一種類だけで、CGIファイルのパーミッションも
700にしてあるのですが、この程度で良いのかどうにも不安です…。

>>26
>>1
セキュリティースレッド
http://hibari.2ch.net/test/read.cgi/php/995032597/
△▲　WebProg 初心者の質問 Part23　▼▽
http://hibari.2ch.net/test/read.cgi/php/1294318320/

strftimeを使って、時刻を英文で表示したくて以下のように書きました。

use POSIX;
setlocale( LC_ALL, "English" );
print strftime("%a, %d %b %Y %H:%M:%S %Z", localtime);

曜日は英語になったのですが、タイムゾーン%Zが日本語のままになってしまいます。
%ZもJSTなどと表示させるようにするにはどうしたらいいですか?
日本以外でも実行したいのでJST直書きは避けたいです。

$tag=許可するタグ。
$value =~ s/</</g;
$value =~ s/>/>/g;
$value =~ s/<$tag>(.*?)<\/$tag>/<$1>$2<\/$3>/g;

として許可しておいたタグだけ使用できるようにしたいんですが、
<tag>文字</tag>は上手くいくようになったんですが
<tag><tag>文字</tag></tag>とやると上手くいかないです。
<tag>が重複しても大丈夫なようにするにはどうすればいいですか？

~s/</&lt;
~s/>&gt;
って打たないといけないのか・・・。訂正します。

正規表現で任意の深さのネストの対応をとるのは無理って習わなかったか?
間はそのままでいいんなら対応を気にせず<tag>と</tag>をそれぞれ独立に
置換すればいいと思う。

>>29
先に&<>"'をescapeした上で許可するタグだけ戻したらいいんじゃないの？
$htmlがescapeし終わった後の文字列だとして、tagとtag1だけ許可したいなら
$html =~ s{＆lt;(/?(?:tag|tag1))＆gt;}{<$1>}g;
とか。

>>29
＞<tag><tag>文字</tag></tag>
これ↑の意味がよく分からないのですが、同じタグがネストするケース（ネストさせて意味のあるタグ）ってありましたっけ？

<b><b>文字</b></b>

<small><small>文字</small></small>
他にもあると思う。

>>33
http://www.gizmodo.jp/2010/08/872strong.html

>>28
うまくいくはずだけど。
なんか足りないんじゃねえの？

手元環境ではそもそも%Zが日本語にならないのでなんとも。
環境さらした方がいいんじゃ? strftimeって普通はCの
ライブラリ呼んでるだけだろうし。

>>28
locale の見てる場所が違うのかと思って試してみたけど
手元の Linux 環境では日本語にできなかった。

で、Windows の ActivePerl で試したら日本語になった。
perldoc POSIX の strftime を見るとダメっぽいように読める。
http://perldoc.perl.org/POSIX.html#strftime

一応 Windows ActivePerl 5.8.9(build 827)で試すとこんな感じ。
perl -MPOSIX -e "print strftime(\"%a, %d %b %Y %H:%M:%S %Z\", localtime)"
月, 31 1 2011 01:41:51 東京 (標準時)
perl -MPOSIX -e "setlocale(LC_ALL,"C");print strftime(\"%a, %d %b %Y %H:%M:%S %Z\", localtime)"
Mon, 31 Jan 2011 01:42:41 東京 (標準時)

utf8 フラグが立ってる時の decode って、url decode もされる？

リファレンス先が同じものであるのかの比較演算子は何を使うのでしょうか？

==でしょうか？
eqでしょうか？

my $ref1 = \"char";
my $ref2 = \"another char";
my $ref3 = $ref1;

print $ref1 == $ref2 ? "ref1 == ref2" : "ref1 != ref2", "\n";
print $ref1 eq $ref2 ? "ref1 eq ref2" : "ref1 ne ref2", "\n\n";

print $ref1 == $ref3 ? "ref1 == ref3" : "ref1 != ref3", "\n";
print $ref1 eq $ref3 ? "ref1 eq ref3" : "ref1 ne ref3";

>>40
つttp://perldoc.jp/docs/perl/5.10.0/perlref.pod

リファレンスを数値として使うと、メモリ内のストレージの位置の 整数表現を生成します。 これを利用して便利な唯一の状況は、二つのリファレンスを数値として 比較することで、同じ場所を参照しているかどうかを調べる場合です。 reference, numeric context

if ($ref1 == $ref2) { # cheap numeric compare of references
print "refs 1 and 2 refer to the same thing¥n";
}

すいません、少し語弊がありそうな気がしたので、以下に訂正します。

× リファレンス先が同じものであるのか
○ リファレンス（アドレス）が同じものであるのか

>>41
ありがとうございます。
==で比較すればいいんですね！

リファレンスはアドレスなんだから == でしょ？

@ISAって何の略　教えて

しらん

「ISA」って名前の配列変数ってのはわかる。

どんな略か推測してみて

ISAの英語

Included ShippingCharge Array

つまり、運送料の一覧の数字が配列されてる。

is a
has a

DA PUMPのイケメンの人でなく？

うわっ。。。。つまんね〜

やっちまったなｗ

ハッシュの中から、特定のキーを持つペアだけ抽出し、ハッシュとして返す関数はないですか？

map

perlに関する質問です。

実現したいこと：
４枚程度の画像が実際の大きさの２０％に縮小されて並んでいる。
その４枚の中からどれか１つを選ぶ。（チェックする）
そして「ＯＫ」のボタンを押す。
その結果、選んだ画像が実際の大きさで表示される。

CGIのファイルの中で、
その４枚の画像を<img src="$gazou.png" width="20%">のように設定しました。
その結果、画像はしっかり４枚並びました。
しかし「ＯＫ」を押してみると、実物の画像は表示されません。
CGIのファイルの中で、ＯＫを押した後に表示されるものとして
<img src="$gazou.png">　と指定しましたが、これだとだめなんでしょうか。

「チェックをつけたもの」の画像を表示するため
何か＋αとしてなんらかの記述を書き加える必要があるとは思っているのですが、
具体的にどんなことを書き加えれば良いのか、分かる方ご教授願います。

それは Perl の質問じゃなく html の質問の様な気がする。

「変数をどう指定するか」
という話なのでPerlの質問のつもりでしました。

多分ね。
jQuery 使ったほうが幸せになれると思うの



>>52
テストしてないけど
my %results = map { ($_, $test{$_}) } grep { 〜判定〜 } keys(%test);
多分動かないと思うけどｗ

>>56
OK を押した後に何が出力されてるか
print すればいいじゃない

keysって左辺値にもなるんだね。
知らなかった。

keys %hash = 64;

>>58
「選んだものの画像」を出すにはどうすればいいですか？

<input type=radio name=baka value=aho>

CGI->new->param(baka)

そのvalueの値を関係付けさせるというのはなんとなくイメージがつくのですが
どう記述して表せば良いでしょうか。

そもそも表示されたHTMLのソースはどうなってるのよ
><img src="$gazou.png">　と指定しましたが、
こうなってるの？

メモ帳でざっくり書いてみた

HTML
<html><head></head><body>
<form action="teihen.cgi" method="GET">
<input type="checkbox" name="selimg" value="baka"> <img src="baka.jpg" alt="" width="25%" /><br />
<input type="checkbox" name="selimg" value="aho"> <img src="aho.jpg" alt="" width="25%" /><br />
<input type="checkbox" name="selimg" value="kasu"> <img src=kasu.jpg" alt="" width="25%" /><br />
</form>

</body></html>

use CGI;

my $in = new CGI;
my @checklist = ();
push(@checklist, $in->param('selimg'));

print "content-type: text/html; charset=utf-8\n\n";

print "<html><head></head><body>\n";
foreach my $img (@checklist){
　　print "<img src=\"$img.jpg\" /><br />" defined($img);
}
print "</body></html>\n";


perl も何もない環境なので動作確認できない

>>63
$gazou　は変数なので、表示されたHTMLにはそれぞれの画像ごとに$gazouの部分が変わっています。

>>64
試してみます。

>>65
本当にHTMLソースがそうなってるなら画像が表示されないってのはあり得なくね？
Perl部分は問題ないってことだよね

説明不足でしたが、全て１つのCGIで行うことを前提とすればどうでしょうか。

>>64
　HTMLの中身見ましたが、「ＯＫ」ボタンの記述が書かれていませんよ
>>66
選択肢となる画像はちゃんと表示されます。
ＯＫを押したときに選んだ画像が表示されないのです。

>>67
＞ＯＫを押したときに選んだ画像が表示されないのです。
>>63も>>66もそのOK押したHTMLソースの話だろ
そのHTMLのソースにimgタグが書いてあるならPerlの話じゃないよね

つか、面倒だからPerlのコード晒せよ

type=submitぐらい黙って書き足せよかす

・実行ページ：http://masao.kuronowish.com/town/bbs30.cgi
・bbs30.cgiのコード：http://masao.kuronowish.com/town/aiueo.txt
・配布元サイト：http://cgi-design.net/prog/bbs/bbs30/index.htm

不足している情報などもあるかもしれないので何かあったら聞いてください。

>>70
正男は置いといて、一通り探してみたけどOKの処理部分がねーじゃねーか

その処理をどう作ればいいかわからないんです；；

スクリプト中の
#★★★★★★★★
と書いてあるところらへんにＯＫのボタンを入れたいと思っているのですが。

>>72
>>54で書いたコード残ってないの？

お客様の中にエスパーの方はいらっしゃいませんかー

いろいろと事情が残っていませんね。

↑　　事情が　《あって》　残っていません

★三　【 スクリプト改造工房 PART 9 】　★三
http://hibari.2ch.net/test/read.cgi/php/1143834740/
【 スクリプト改造依頼スレ】(丸投げ) part7再々
http://hibari.2ch.net/test/read.cgi/php/1222645553/

こっちに行った方がいいんじゃない？

おめえらstrictオタクのＰｅｒｌｅｒは

他人が書いたコードで、use strict;やuse warnings;や
レキシカルスコープのmyとかつけてなかったら

みくだすんだろうなあぁｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗ
ｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗ
ｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗ

駆け出し君「ﾜｰﾙﾄﾞオブクラフトのアイテムＤＢスクリプトかきました」

　　＃＃＃strictオタク　　「プっ　なにその古い書き方・・・ないわー・・・

strictオタク「ほお　すごいですねぇ　use strictってしってます？」

こんな感じ？
テスト　http://utsu.ath.cx/test/
ソース　http://utsu.ath.cx/test/index.txt

これぐらい読み解けなければ、とりあえず勉強しなおした方が良いかと思います。

開けませんね

何がどう開けないのか書くべき
404が出るのかとか403なのかとか。
そもそもDNSの解決がされないのか。
index.txtが開けないのかとか。

端的に一言で済ますんじゃなくて、もっと詳しく。

>>74

>>80

見やすい　わかりやすい

my $config = {
'cgi' => 'index.cgi',
'dir_img' => 'img/',

'per_line' => 3,

'file_template' => '_data/index.html'
};


ここが凄くかっこいい

表示用テンプレートって言ってるのが









ｶｯｶｯｶｗ

英語が苦手な自分としては助かるなー

あたらしい perldoc.jp できたよー - TokuLog 改メ tokuhirom’s blog
http://d.hatena.ne.jp/tokuhirom/20110203/1296712360

ttp://code.cside.com/3rdpage/jp/unicode/converter.html
↑のような変換をperlスクリプト内に実装するには
どうすれば良いですか？

pack,unpack

>>88
つHTML::Entities

>>89,90

出来ました、ヒントありがとうございます！

新しくなったPerldoc　ｶｯｶｯｶｗ

改悪うじぇえ

>>80
質問主さんフェードアウトのため、消しました。

index.cgi から require した sub.cgi の中で、index.cgi で使われてるグローバル変数を使うのってどうやるんですか？

パッケージを変えてなければそのまま使えるし、変えてたら
パッケージ名で修飾すればいい($PACKAGE::foo)。でもそういう
書き方は感心しないな。悪い癖がつく前にモジュールの勉強とか
した方がいいよ。

ソウダヨ　ベンキョウ　シタホウガイイヨ

$form->CGI->new(); したときに、これを使いまわすんだけど、
これをいちいち渡さなきゃならないのがね。
同じデータのコピーを作られるってのがなんかやだ。

リファレンス

デリファレンスがめんどくさい

今日以前の、DateTimeオブジェクトの配列@dateListを得るために、
以下のように書きましたが、もう少しマシな書き方はないでしょうか?

$count+1個分取得したい。
@dowList→取得したい曜日の配列です。

my $tmpDate = DateTime->today(time_zone=>'local');
while ($count > $#dateList) {
my @tmpDowList = sort @dowList;
my $i = $#tmpDowList;

while (0 <= $i) {
if($tmpDate->day_of_week == $tmpDowList[$i]) {
push(@dateList, $tmpDate->clone);
last if ($count <= $#dateList);
$i--;
}

if($tmpDate->day_of_week < $tmpDowList[$i]) {
$i--;
} else {
$tmpDate->subtract(days=>1);
}
}

my $diff = (7 - $tmpDate->day_of_week % 7);
$tmpDate->add(days=>$diff);
$tmpDate->subtract(weeks=>1);
}

perl + WWWW:Mechanizeを使いはじめたばかりです。フォームのsubmitの仕方で困っている
ので教えてください。

対象のサイトで、formでtypeが下記のようにbuttonの場合は

<input type=button name="name1">

$mech->submit_form(value => 'name1');

として押せるのですが、下記のようにimageの場合、

<input type=image name="name2">

$mech->submit_form(value => 'name2');

としても反応せず、下記のようにsubmitやclickでも反応しません。

$mech->submit()
$mech->click()

こんな時はどう対処すればよいのでしょうか？

またMechanize野郎かよｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗ
ＷＷＷＷＷＷＷＷＷＷＷＷＷＷＷＷＷＷＷＷＷＷＷＷＷＷＷ
ｗｗｗｗｗｗｗＷｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗ

$mech->click('name2')

イメージのボタンはそもそもボタンとして認識されないようです。

$mech->click('name2') でも下記のようにエラーとなります。

No clickable input with name "name2"

同じように認識できない不具合が報告されており、下をみると、どうやら2年
近く前から報告されているにも関わらず、対応されていないようです。

http://code.google.com/p/www-mechanize/issues/detail?id=32&can=1&q=submit

Rubyのモジュールでは対応できているようなので、Perlはあきらめます。

普通にポストすりゃいいじゃん

独学でmacでパールを勉強してるのですが、
print命令でファイルハンドルに指示を出してるのですが、書き込めはできるのですが、
ファイルが無い場合、新規で自動でファイルが作成されるはずとの記載がありましたが、
一切自動でファイルが生成されません。
ググっても、設定が必要等言われてますが、
mac自体も初心者でほとんどわかりません。
どのような設定にすればいいのでしょうか？
お助けください。
　

どう書いたかぐらい載せろや

>>107
>>1-2

>>109 macのは少ししかなかったんです。
>>108　ごめんなさい、下の通りです。
#!/usr/bin/perl
print "Content-type: text/html\n\n";
print "<HTML>\n";
print "<HEAD><TITLE>アクセスカウンタ</TITLE></HEAD>\n";
print " <BODY>\n";
print "<H1>test</H1><HR>\n";
if ( open ( FH , "count.txt")){
$cnt = <FH>;
close( FH );
$cnt++;
print"<CENTER>あなたは${cnt}人目の訪問者です。</CENTER>\n";
if ( open(FH, ">count.txt" )){
print FH $cnt;
close(FH);
}
else {
print "ファイルの書き込みオープンに失敗しました。\n";
}
}
else {
print "ファイルの書き込みオープンに失敗しました。\n";
}
print "</BODY>\n";
print "</HTML>\n";
__END__
ファイルがある場合の書き込みはできるのですが、
ファイルが無い場合の新規で自動ファイル作成が行われません。
どうしてでしょうか？

if (open(FH, "count.txt")) { # ファイルないから false

　　# ここ通らないからファイルも生成されない
　　if (open(FH, ">count.txt")) { # 略 } else { print "書き込みでコケた\n" }

} else {
　print "書き込みでコケた\n"; # たぶん読み込み
}

メルアド教えて＞マック君

アップロードされる画像をImageMagickで縮小して保存するだけのCGIをPerlで書いています。

ImageMagickのread()はファイル名を取るようなので、以下のようにアップロードされた
ファイルをまず保存してから、それを再度Read()してリサイズしているのですが、もっと
シンプルに中間ファイルを作らず、$updataをそのまま扱う方法はありませんか？

use CGI;
use Image::Magick;

my $form = new CGI;
my $updata = $form->param("upload_file");

my $buffer;
open(FP, ">hoge.jpg");
binmode(FP);
while(read($updata, $buffer, 4096)){
print FP $buffer;
}
close(FP);

my $image = Image::Magick->new;
$image->Read("hoge.jpg");
my ($width, $height) = $image->Get('width', 'height');
$image->Resize(
width => int($width * 0.5),
height => int($height * 0.5),
blur => 0.8
);
$image->Write("hoge_small.jpg");

考えとくから待っとけカス

寝る

>>113
試してないけど $image->Read(file => $updata); はどう？
http://www.imagemagick.org/script/perl-magick.php

GD なら LWP とかで取得したメモリの中のを使って new 出来る
拡大・縮小だけなら GD の resample でいいんじゃないの？

$image->Read($ImageData);


これだとどう？

間違えたｗ


$image->ReadImage($ImageData);

ありがとうございますー
>>116 さんの通り、file=>$updata でそのまま扱えました。

検索なんてするな

ここで聞いたほうがいいよ

だから、皆検索しないでここで聞いたほうがいいよ

みんなって、自分が作った関数とかパッケージとかのファイル名ってどうつけてるんですか？

func0001 から連番。

CPANとかぶらなくて一般的な短めの名前付けてる
My〜とかネームスペースは付けてない

> CPANとかぶらなくて

どういうこと？

>>125
自分で付けたパッケージ名がたまたまCPANにも存在してたらややこしいから避けるということ

かぶらないようにしてても、
アップデートで被ったりするんだ罠

Local::* を使うか Foo_Corp::* のように下線を使いましょう

文字コードについて色々調べていますが、まだうまく理解、整理できていないので質問します。

�@perlでは内部文字コードというものがある、とあったのですが、
それはsjisやutf8などとは全く別のperlプログラム内でしか使い道のない文字コードなのでしょうか？
例えば下記のような場合、$decはどういった文字コードになっているのでしょうか？
（そもそも内部コードは文字コードどうこう関係なく、外部出力するものではないから単に"内部コード"と認識しておけばよい？）
use Encode;
open(FH,"./sjis.txt");
while(<FH>){
my $dec = decode('shiftjis',$_);
my $utf8 = encode('utf8',$dec);
}
�Aプログラム内で書いた文字を使いたい場合、下記のような使い方であっていますでしょうか？
他にパフォーマンスが良かったり簡潔に書けたりしますか？
※下記ファイルはutf-8で作成した場合
use Encode;
my $seiki = decode('utf8',"[あアア]"); #プログラム内で書く文字を内部コードに変換
open(FH,"./sjis.txt");
while(<FH>){
my $dec = decode('shiftjis',$_);
if( $dec =~ /$seiki/ ){ #テキスト中にあorアorアがあれば真としたい
print encode('utf8',$dec);
}
}
�B下記は、sjis→内部コード→$utf8までを"Unicode::Japanese->new($_,'sjis')->get;"で
一括して行っているという認識であっていますでしょうか？
use Unicode::Japanese;
open(FH,"./sjis.txt");
while(<FH>){
my $utf8 = Unicode::Japanese->new($_,'sjis')->get;
}

>>129
�@あくまで内部文字コードなので何であるかに依存したコードを書いては
いけまないし、普通は気にしないでかけるようになっています。内部的には
全く新規の文字コードを1から作ってるということはなくてutf8だったり
するかもしれないけど。

�Aプログラム中に書くときはいちいちそんなめんどくさいことしなくても
ソースをutf8で記述してuse utf8プラグマを使えば直接書いていいよ

use utf8
if ($dec =~ /[あア]/) {

�Bいちいち変換処理を書くのは面倒なので普通はI/Oレイヤを使います。

open(FH, "<:encoding(sjis)", "./sjis.txt");
while(<FH>){
# ここで$_はすでに内部文字コード
}

さらに言うとファイルを開いたりするたびに指定を書くのも面倒なので
openプラグマでまとめてデフォルトを指定したほうが楽です。

>>130
ありがとうございます。

�@指定していない時の内部文字コードが何なのかは気にしないことにします。

�A下記で問題ないということであれば"use utf8"を付けることで
内部文字コードがutf8になるという認識であっていますでしょうか？

use utf8;
use Encode;
open(FH,"./sjis.txt");
while(<FH>){
my $dec = decode('shiftjis',$_); #内部文字コードに変換
if( $dec =~ /[あア]/ ){
print $dec;
}
}

�B下記をすることで内部文字コードがutf8でsjisファイルをopenした中身もutf8として扱える
ということでよろしいでしょうか？
use utf8;
use open ":encoding(shiftjis)";

http://d.hatena.ne.jp/lapis25/20090226/1235576418
ここよんでね^^

ttp://takuo.main.jp/Cycling/weblib.htm
のサイトを参考に更新順のソートが出来るようにいじっています。
昇順（1234...）でのソートはできたものの（古いものが先頭）、降順（最新が先頭）のソートが出来ません。
いろいろ試したところ、そもそも上記サイトのモノでは索引での降順のソート自体が出来ないことがわかりました。cgiより表示されるリスト表示は問題なく出来ているようですがログファイルの並び替えがちゃんと出来ないようです。

5
1,よみがな,カテゴリ,登録語,本文,投稿者,アドレス,,,,2011/01/12,ID,グローバルアドレス,
4,よみがな,カテゴリ,登録語,本文,投稿者,アドレス,,,,2011/01/13,ID,グローバルアドレス,
2,よみがな,カテゴリ,登録語,本文,投稿者,アドレス,,,,2011/01/14,ID,グローバルアドレス,
3,よみがな,カテゴリ,登録語,本文,投稿者,アドレス,,,,2011/01/15,ID,グローバルアドレス,

の昇順(51423)はできるが、降順（53241）はできない

3,よみがな,カテゴリ,登録語,本文,投稿者,アドレス,,,,2011/01/15,ID,グローバルアドレス,
2,よみがな,カテゴリ,登録語,本文,投稿者,アドレス,,,,2011/01/14,ID,グローバルアドレス,
4,よみがな,カテゴリ,登録語,本文,投稿者,アドレス,,,,2011/01/13,ID,グローバルアドレス,
1,よみがな,カテゴリ,登録語,本文,投稿者,アドレス,,,,2011/01/12,ID,グローバルアドレス,
5,

のようなログになってしまい、先頭の行が表示されない状態になります。

わたしの拙い検索能力でコマンドを色々探しいれてみましたが上手く動きませんでした。
上記アドレスの加えるコードのいろいろな部分に

$find = index ($line, ",", 0);
$find--;
$str = substr($line, 0, 3);
substr($line, -0) = $str;

を加えるなど

どうしたらよいか、教えていただけませんか。

reverse

map {$_->[1]}
sort {$a <=> $b}
map {[(split /,/)[0], $_]} @list

sort {$a <=> $b} 昇順
sort {$b <=> $a} 降順

>>132
勉強になりました。
ありがとうございます。

ふと思ったのですが、shiftjisとsjisはどちらも同じなのでしょうか？

use open ":encoding(shiftjis)";
use open ":encoding(sjis)";

decode('shiftjis',$_);
decode('sjis',$_);

あと、sjisを使うならcp932を使っといた方が良いのでしょうか？
cp932はsjisと完全互換＋windows用の文字ならcp932を使ったほうがよさそうなので。

>>132
勉強になりました。

ふと思ったのですが、shiftjisとsjisはどちらも同じなのでしょうか？

use open ":encoding(shiftjis)";
use open ":encoding(sjis)";

decode('shiftjis',$_);
decode('sjis',$_);

あと、sjisを使うならcp932を使っといた方が良いのでしょうか？
cp932はsjisと完全互換＋windows用の文字ならcp932を使ったほうがよさそうなので。

shiftjisとsjisは単なる別名なので同じ。

sjisとcp932は一部の文字のマッピングが違うので目的によって選べ。
JISとMSがそれぞれ違う変換表を定義しちゃったのですよ。ほんと不便
で迷惑な話だが恨むなら先人を恨んでくれ。

>>138
ありがとうございます。
それってもしかして"〜"とかのことですよね？
何て迷惑なことを…

�� → shiftjis じゃなくて cp932 で扱う。
〜 → 例のやつ。

いろいろめんどくさいのです。Encode::EUCJPMS を入れる用事ができてみたり。

全角<->半角変換するのにUnicode版とEncode版があるようですが、
どちらも処理速度や変換性能は似たりよったりなのでしょうか？
それとも性能に差がありますか？
$stringはshiftjisで入力し半角に変換

#use Unicode版
$hankaku = Unicode::Japanese->new($string, 'sjis')->hira2kata->z2h->get;

#use Encode版
$euc = encode('euc-jp', decode('shiftjis', $string));
Encode::JP::H2Z::z2h(\$euc);
$hankaku = $enc;

bechmarkでもしてろよ

他にも Lingua::JA::Regular::Unicode というモジュールもあります

べっちまーくｗｗｗ

perl初心者です。
os mac osx です。

ターミナルで、helloworldはできました。
次は、miでやりたいです。

設定に方法をわかりません。

どうやって設定すればよいでしょう？

まるちでしね

日本語不自由だな。
miって何だっけと思ってググったらエディタか
そのまま保存してperlコマンドに渡せばいいだけだと思うけど何がわからんのだろう
ターミナル操作までできてそこからわからないって珍しいな

質問です
ニコニコの動画情報のxmlをタグごと取得したいのですが
上手くいきません。コードは以下です。

--------------------
#! /usr/bin/perl

$data_file="http://ext.nicovideo.jp/api/getthumbinfo/sm9";
open (IN,"$data_file") or die "$!";
@ary=<IN>;
close(IN);

print "Content-type: text/plain\n\n";
$xml_read=join("", @ary);
print "$xml_read";
exit;
--------------------

同一サーバにおいてあるxmlデータだと上手くいき
外部サーバにアクセスするとサーバーエラー？になります。

色々わかってない所があるので変な事いってるかもですが
よろしくお願いします。

そんなんで取得できたら苦労しません！

LWP::Simple で get してくださいな

>>145
マカー初心者ならitoolsか@CHaTいけ
オサーンたちが教えてくれる

>>149
> そんなんで取得できたら苦労しません！

フイタｗｗｗ

>147 実は、ターミナルもよくわかってない　ぐぐって、まねしただけ
>150　thx いってみる　　

>>148
糞ワロタ
せめてsocketを開けよ

ニコニコっていうだけで書き込み見るきなかったごめん＾−＾；

大丈夫だよ、もともと誰も期待してないから

１５５って誰にいってんの？
独り言きもいよ

>>155 153に謝れよカス

>>153もっとあやまれカス

154に対する侮辱を撤退しろカス１５５

sub func{
　my @array = ( 0 .. 5 );
　return \@array;
}

my $ref = &func( );

=====================

のようなプログラムだと、@arrayはfunc( )を抜けるときに破棄されるから、
$refが持っているアドレスは無効になると考えて良いでしょうか？

無効にはならない
メモリからは破棄されない

ぱーるはいちどかくほしためもりはおわるまでかいほうしなかったきがする

>>161
ありがとうございます。
$ref が @array を参照しているから、破棄されない、
ということでしょうか？

そもそも、関数を抜けても変数は破棄されない、ということでしょうか？

リファレンスカウンタが0になったらガベージコレクトされる

>>165
ありがとうございます。
日頃C++やっていて、最近Perlの勉強を始めたばかりでした。
この変数の寿命は本当に大きな違いでした。
助かります。

>>148
以下コードをスクリプトの先頭につけ加えればうまくいくと思う。
既存のopen関数の仕様と合わせるのに苦労した（マニュアルを見ると引数が1個とかもあるし）。
最後の引数の数によってCORE::openを羅列してるのと、未初期化変数がファイルハンドルに渡されたときの処理をうまくまとめられないものだろうか。

BEGIN {
my $re_scheme = join "|", qw(http https ftp file);
*CORE::GLOBAL::open = sub(*;$@) {
my ($filehandle, $mode, $file) = (@_, q{}, q{});
my $pkg = caller;

if( @_ == 1 ) {
no strict "refs";
${$filehandle} = ${"$pkg\::$filehandle"};
} elsif( ($mode . $file) =~ m{(($re_scheme)://.+)$} ) {
require LWP;
my $res = LWP::UserAgent->new(timeout => 30)->get($1);
return if not $res->is_success;
my $content = $res->content;
$mode = $mode =~ /^(\+?[<>])/ ? $1 : "<";
$_[2] = \$content;
}

if( $filehandle ) {
require Symbol;
my $fh_sym = Symbol::qualify_to_ref($filehandle, $pkg);
return @_ == 1 ? CORE::open( $fh_sym ) : @_ == 2 ? CORE::open( $fh_sym, $mode ) : CORE::open( $fh_sym, $mode, @_[2..$#_] );
} else {
return @_ == 2 ? CORE::open( $_[0], $mode ) : CORE::open( $_[0], $mode, @_[2..$#_] );
}
};
}

>>167
0点　javascript板におかえり

これはひどい。。。

ひゅひゅだよ

>>169
はやく死ね

>>168
０点っていうの謝れ

０点って言われるの嫌だろ？
お前たちと同じこととしてやったんだよ

相当負けず嫌いな子供だな

>>135
遅くなりましたありがとうございます。
開いた時間でmapの使い方などを探して
いろいろな箇所に挿入し、なんども動かしてみましたが
動きませんでした。

理解が足りていないようです。もしよろしければ
ttp://takuo.main.jp/Cycling/weblib.htm
上記サイトの場合、どの部分にどの様な形で挿入すればよいか教えていただけませんか

# code of 2.(1)
sub sort {
@new =
map {$_->[1]}
sort {$a->[0] cmp $b->[0]}
map {
my($no, $index) = split /,/;
# 索引を２文字に省略し、登録順と分類を合成
[substr($index, 0, 4).sprintf("%03d", $no), $_];
}
@new
;
}


# sample code
@new = (<<"END_OF_HERE_DOC" =~ /^(.+)/gm);
1,よみがな,カテゴリ,登録語,本文,投稿者,アドレス,,,,2011/01/12,ID,グローバルアドレス,
4,よみがな,カテゴリ,登録語,本文,投稿者,アドレス,,,,2011/01/13,ID,グローバルアドレス,
2,よみがな,カテゴリ,登録語,本文,投稿者,アドレス,,,,2011/01/14,ID,グローバルアドレス,
3,よみがな,カテゴリ,登録語,本文,投稿者,アドレス,,,,2011/01/15,ID,グローバルアドレス,
END_OF_HERE_DOC

$, = "\n";
print "-before-", @new, "";
&sort;
print "-after-", @new, "";

do{ local $/; <FH> };
ってよく見かけるんですが
join "", <FH>;
は何かまずい所があるんでしょうか
手元のベンチだと join の方が早いんですが…

>>177
ベンチをしたコードをさらしてもらえます？
あと、環境も（OS、Perlのバージョン等）
自分の環境でも試してみたいので。

自分が以前したときは、

read FH, my $buf, -s FH;

が速かった記憶が。
バイナリーモードでよかったら、バッファーを使わない

sysread FH, my $buf, -s FH;

もかなり速かったような。

>>178
use Benchmark qw(:all);
cmpthese(1000000, {
'DO' => sub {
do{ local $/; <DATA> };
},
'JOIN' => sub {
join '', <DATA>;
},
});
__DATA__
abc
def

ってやってたんですが、ふと気になって
open my $fh, '<', "./$0" or die;
do{ local $/; <$fh> };
とすると、do{ local $/; <FH> }; の方が高速でした。ごめんなさい。
あと教えて頂いた sysread が一番高速でした。ありがとうございました。

もう必要ないかもしれませんが、環境は
Mac OS X 10.4.11
% perl -v
This is perl 5, version 12, subversion 1 (v5.12.1) built for darwin-2level

>>179
<DATA>でreadlineを1回コールすると、ファイポインタが末尾まで行くので、seekで先頭
に戻す必要があるんじゃないかな？

my $pos = tell DATA;

sub {
seek DATA, $pos, 0;
do{ local $/; <DATA> };
}

sub {
seek DATA, $pos, 0;
join '', <DATA>;
}

あと、データ量が少ない（2行）ため、join '', <DATA>;では2要素のリストしか作られ
なくて、local $/;の元の$/をプッシュする作業のほうがコストがかかっているのかも。

perlのcgiをサイトに設置するのはいいけどこれってソースコードぱくられたりしないの？

これはなかなかいいギャグがきたなｗｗ

181=182

自問自答乙ｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗ

１８１だけどなんで答えてくれないの？イジメ？

>>183
ざんねんでした
181 と 182 は別人だぉ！

ActivePerl 5.12.3でベンチしたけど、slurpモードはデータの行数が少ないと遅いみたい。
行数が増えるとさすがに逆転するけど。

use Benchmark qw(:all);

my $pos = tell DATA;

cmpthese( timethese( 0, {
'$/ = "\n"' => sub {
$/ = "\n";
seek DATA, $pos, 0;
() = <DATA>;
},

'$/ = undef' => sub {
$/ = undef;
seek DATA, $pos, 0;
<DATA>;
},
}));

__DATA__
abc
def
____________________________________________________________________

Benchmark: running $/ = "\n", $/ = undef for at least 3 CPU seconds...
$/ = "\n":　4 wallclock secs ( 2.37 usr + 0.77 sys = 3.14 CPU) @ 19753.90/s (n=62126)
$/ = undef: 4 wallclock secs ( 1.87 usr + 1.31 sys = 3.19 CPU) @ 15287.91/s (n=48692)
　　　　　　　　　　Rate　$/ = undef　　$/ = "\n"
$/ = undef 　15288/s　　　　　　--　　　　　-23%
$/ = "\n"　　19754/s　　　　　 29%　　　　　　--

教えてください。

perlでメールを受信するために、NET::POP3を使って
サーバにアクセスしようとしたところ、途中で止まってしまいます。


1 # モジュールの読みこみ
2 use Net::POP3;
3
4 # POPサーバにユーザ名とパスワードで接続
5 my $pop = Net::POP3->new('hoge.jp') or die "Cound\'t Connect to POP server\n";
6 $pop->login('oooooooo', 'xxxxxxxx') or die "Authentication failed\n";
7
8 $pop->quit;


５行目で、"Cound't Connect to POP server"のエラーコードをログに記録して終了しています。

Net::POP3は、コマンドラインで
perl -e "use Net::POP3"として、エラーが出ないのを確認しています。

ソケット通信の許可関係で接続できないで終わってしまうのでしょうか？
もしそうであれば、どのように許可すればよいか参考になるヒントをいただければ幸いです。
よろしくお願いいたします。

5 my $pop = Net::POP3->new('hoge.jp') or die "Cound\'t Connect to POP server: $!\n";
6 $pop->login('oooooooo', 'xxxxxxxx') or die "Authentication failed: $!\n";

外と通信が禁止されてる共有鯖ってゆうオチは無いよね？

>>189
cgiは、hoge.jp上で動作し、hoge.jpへ接続するのですが…
サーバはFreeBSDです。
ソケット通信の許可は、どのように行うのでしょうか？
共用サーバですが、ある程度の設定は自分でできるようです。

怪しい匂いがしてきた！ｗ

サーバーの利用規約とかに外に出ることを許可されてるか確認を。

個別のCGIについては、無料サポート対象外。
どうしてもっていうなら、金よこせ言われたorz

ソケット通信が許可されてるかどうか、確認するにはどうしたらよいでしょう？

use LWP::Simple;
my $content = get("http://www.yahoo.co.jp/");

これで取得出来なければ無理。
そもそも LWP が無いかもしれないので、Socket 使うなら

use Socket;

my $port = getservbyname('http', 'tcp');
my $host = 'www.yahoo.co.jp';
my $ipaddr = inet_aton($host);
my $sock_addr = pack_sockaddr_in($port, $ipaddr);
socket(SOCK, PF_INET, SOCK_STREAM, 0);
connect(SOCK, $sock_addr);
while(<SOCK>){ print $_ }
close SOCK;

かな。

>>193
ありがとうございます。
明日、仕事中にこっそり試してみます。

おかげさまで、外部通信可能なことが判明しました。
cgiを叩いて、yahooページを表示させることができました。

次に、Net::POP3による接続ですが、'hoge.jp'へのアクセスではなく、
'localhost'へアクセスするようにしたところ、エラーが出なくなりました。
原因は、これから確認していこうと思います。
もし、思い当たる節がありましたら、お教え頂けると助かります。

アイディアを出していただいた方々には、重ねてお礼申し上げます。

１１０、２５、４５８が外にいけなかったりね

てか、いい加減サポートにメールしれｗ

>>196
独自cgiのサポートは、有料だそうですorz
スレ住人の方々には、お手数をおかけして、申し訳ありません。

さて、アカウントへログインし（おかげさまで、ここまで順調です）
メール内容を、ファイルへ書き出すことができました

ところが、このcgiをエイリアスから呼び出して動作させたところ、
ファイルの書き出しを行えませんでした。
メールログを確認したところ、呼出し後のステータスが
stat=Can't create output
となっておりました。

エイリアスからの呼び出しは、パーミッションの関係で、
書き出しできないのでしょうか？
また、どのように設定すれば、書き出しできるようになるでしょうか？

chmod a+w *でしね

あのな、サポートと仕様を教えて貰う事は別問題だろｗ

そこのレン鯖はクソすぎるから解約しれｗ

>>198
シェルから当該ディレクトリのパーミッションを、
ご提案のとおり変更してみましたがダメでしたorz
上書きではなく、受信ごとに新規ファイルを作るようになってるので、
個別のファイルでなく、ディレクトリを変更したのですが…

>>199
弟が、商売で使ってる鯖に寄生してる状況なので、なんとも；
ドメインはがして、逃げられるようにしたいと思ってはいますけどｗ

年額４０００円しないんだから、個人で契約しなよ

http://sugiyama.pv.land.to/
ここの偽装画像ダウンローダみたいなのってどういう実装するの？

LWP で GET して、GD で処理

thx
ただGDを使う所がわからないしそもそも使ってない気が・・・

携帯端末用にファイルを分割し

ってのを、大きな１枚の画像を表示するには携帯には荷が重いから、
たとえば９分割して表示またはダウンロード用のリンクを張るって意味で
捉えたから GD が必要って書いただけ。


あと携帯用に表示するなら縮小表示された方がいいから、GD なり ImageMagick なりが必要なのかなと

binmodeで直接結合してるだけなのか・・・
スレ汚し失礼

>>202のメールフォームは法的にまずくないか？
送信先が自由で、作者のメアドから好き勝手にメール送り放題になってる。

みんな、どんなHTMLパーサーつかってる？

私は、HTML::TagParserだよ

HTML::Parserむずかしそうだったから使ってないよ

HTML::ParserのほかにTreeBuilderとかあるけど

みんな何使ってるの?教えて

>>208
>>1
Perlについての質問箱 46箱目
http://hibari.2ch.net/test/read.cgi/tech/1297677532/
CGIに依存しないPerlの話題一般/Part2
http://hibari.2ch.net/test/read.cgi/php/1030548610/
どっちのPerlショー
http://hibari.2ch.net/test/read.cgi/php/1011352612/

PerlでCGIを作成し、別のPerlスクリプトを実行して標準出力を受取っています
chomp($stdout = `$command`);

全く同じ条件でCGIを実行しても、
空文字列しか得られない場合と正常な結果が得られる場合があり、仕方なくこうしています
$stdout = '';
while (!$stdout) {
chomp($stdout = `$command`);
}

理由の分かる方、いらっしゃいますか？

別のスクリプトは確実に結果を返すの？エラーとか全くない？

>>210
そのwhileループは危険すぎる。機関銃のように子プロセスを作りまくる恐れあり。
$commandの中身と、$stdoutに入る値のペアを書き出すなどしてデバッグしてはいかが。
それから、空文字列しか得られないとき、エラーになっているなどということはないのか。
`$command 2>&1`などとしてエラー出力も見てみるなど。

>>211-212
スクリプトで何もせず、Hello Worldだけなら結果を受取ります
また、毎回同じテストデータを使って試している段階なので、エラーはありません

ただ、気になるのは、スクリプトがHello Worldだけなら一瞬で終わりますが、
本来の処理をCGIで呼出すと30秒くらい掛かります
（Windowsのmsysで実行すると1秒掛かりません）

タイムアウトで空文字列しか得られないしかような気がします

213の訂正です

テストデータは2種類あって、スクリプトを
A:msysで実行してもCGIから呼出しても、一瞬（毎回成功）
B:msysで実行してもCGIから呼出しても、30秒くらい（msysでは毎回成功、CGIでは空文字列が返ることあり）

携帯からTwitterへの投稿クライアントを作っています。
Net::Twitter::Lite モジュールを使ってます。

$twt->get_authorization_url(callback => 'コールバックURL');
↑のようにコールバックを指定してもアプリ登録で指定したURLへ
戻ってしまいます。動的にコールバックしたいのですが良い方法は
ないでしょうか。

あ;い;e;e;e
う;え;e;e;e
お;か;e;e;e

と並んでいるデータがあるのですが、;e;e;eが重複しているデータを削除して
お;か;e;e;e
でまとめるにはどうすればいいですか？

>>216
俺の読解力がないのか質問の意味がわからん。その3つの例はなんだ？その3つがあったら最後の1つになるってこと？

;e;e;e が出現する行は 「お;か;e;e;e 」 にしちゃいたいってこと？

そんなん if(instr(〜)){} で十分だし、一番高速。

説明不足ですみませんでした。

2つ目の;以降の文字列を比較して重複していたら同じ行を削除するという処理をしたいと思っています。
あれからググったりして調べたのですが、一つ目の;の区切り以降の文字列を比較して重複行を削除するということは
open my $data,'<',$file or die "$!";
my @array =<$data>;
close($data);
my %count;
@array=grep(!$count{split(/;/,$_,2))[1]}++,@array);

でできるようにはなったと思うんですが、この先が分からないです。

>>219
重複行は後のものを残すのか先のものを残すのか、
出現順は保存する必要があるのか、
;が2つ以上無い行はどう扱うのか。

#!/usr/bin/perl -w
use strict;

my %data;
/^([^;]*;[^;]*;)(.*)/ and $data{$2} = $1 while <DATA>;
print map "$data{$_}$_\n", keys %data;

__DATA__
a;b;1;2;3
c;d;4;5;6
e;f;1;2;3
g;h;1;2;3
i;j;4;5;6
k;l;7;8;9

>>220
ありがとうございます。
何度もすみませんでした

Perlって今から覚える意味はありますか？
あとPHPみたいにモジュールとして動かせますか？
<?perl echo "テスト";?>みたいに

mod_perl

embedperlだったっけ

http://www.google.com/search?hl=ja&lr=lang_ja&ie=UTF-8&oe=UTF-8&q=embedperl&num=50

3 件 （0.12 秒）

>>222
今からPerlを覚えるのはやめたほうがいいでしょう。
復権するかどうかわからないけど、復権してから覚えればいいかと。

WEBならとりあえずPHPで、CやJavaをするのもいいかもしれない。

Perlやってるやつは凄いんだよ

悪魔の証明だから、証明される側だから

一生その証明される側でいられる　PHPは証明する側

Perl使いはPHP使いより凄いってなってるから

凄いっていう特権えられるから

くやしそうだねPHP使いは

CGIならSpeedyCGIとの相性がよかったな。Perlは。
導入の際のコード周りの小細工も最小限で済んだし。
コード修正してもCGI呼び出し時の都度新しいコードで走ってくれたし。
速度もmod_perlとあまり遜色なかったし。

定期的にSpeedyCGIの話したい人が現れるね。

http://upload.restspace.jp/src/upload1724.zip.html
にファイルをまとめてあります。
サンプルとなるようなプログラムを改良してみたtest.plですが、期待通りに動きません。
どこが悪いのか、ご指摘いただければありがたいです。

やりたいこと
deseq_result.txtのtagというカラム
annotated_all_tags.txtのtagというカラム
を比較します。
deseq_result.txtのtagの要素がannotated_all_tags.txtのtagと一致すれば
deseq_result.txtのカラムの最後にannotated_all_tags.txtのtag以外の要素を加えます。

カラム名でいえば、
tag baseMean baseMeanA baseMeanB foldChange log2FoldChange
pval padj resVarA resVarB origin description variant
と並べてresult.txtに出力したいのです。

既にこの時点でつまずいていますが、
もし、deseq_result.txtのtagの要素がannotated_all_tags.txtのtagと一致しない場合は
そのままdeseq_result.txtのすべての要素をresult.txtに出力したいです。
どうぞよろしくお願いします。

>>230
if文を使う

if をネスト

私みたいなバカに力を貸してください

文字列を16進に変換して、変換した16進文字の
上位ビットと下位ビットを入れ替えて出力したいです。

例 0xABCD → 0xCDAB

packで変換すると0xBADCと出力されてしまいましたorz

正しく出力させるやり方をご教授ください

こんなこともわからないの？

答える気ないけどさ

見た瞬間考えればわかる問題ってわかるよ

>>233
まあ力技で並び替えるしかないんじゃないか

入れ替えるってあったハズだが？

>>233
それ「上位ビット」と「下位ビット」ではなくて「上位バイト」と「下位バイト」だよね。
方法は何通りもあるだろうけど、16進文字列が必ず4文字(2バイト分)なら
$hex =~ s/([\da-f]{2})([\da-f]{2})/$1$1/i とか。

>>237
超間違えた。すまぬ。訂正。
$hex =~ s/([\da-f]{2})([\da-f]{2})/$2$1/i;

>>233の質問はどういう意味でしょうか？
どなたか（本人でもいいですが）私に教えてください。

＞文字列を16進に変換して、変換した16進文字の
これは、unpack("H*", "\xAB\xCD")をしたということでしょうか？
それとも後述にpackが出てますので、pack("H*", "ABCD")をしたということでしょうか？

＞例 0xABCD → 0xCDAB
これは、文字列"ABCD"を文字列"CDAB"に変換するということでしょうか？
あるいは、"\xAB\xCD"から"\xCD\xAB"への変換でしょうか？
それとも、0xABCDという数値を0xCDABという数値に変換するという意味でしょうか？
（前後の文との整合性からこれではないと思いますが）

＞packで変換すると0xBADCと出力されてしまいましたorz
packのどういうフォーマットを使ったら、文字列"ABCD"を文字列"BADC"に変換
（あるいは"\xAB\xCD"から"\xBA\xDC"への変換？）できるのでしょうか？

それとも、pack("h*", "ABCD")をして、"\xBA\xDC"が得られたという意味でしょうか？
もしそうならば、文字列"ABCD"を"\xCD\xAB"に変換したいというのが質問の趣旨でしょうか？

ム板にこんなスレがあった
フレームワークの話題ってむこうのほうがいいの？
http://hibari.2ch.net/test/read.cgi/tech/1299669611/

どこでもいいよ
Catalystなら専用スレあるよ

ここはコーディングスレだろぼけ？
なんでCatalystだけ専用にたててんだよバカ？
Perlフレームワークスレでいいだろ

フレームワークによってはルールが異なる
フレームワークの比較なら>>242の提案でいいが・・・

最強ハッカーチームPerlBlack「黒真珠」
http://hibari.2ch.net/test/read.cgi/linux/1300097049/

ダサい名前ｗｗｗｗｗ

linuxの中で、perlのsystemなどを使って、suになって
root権限の処理をすることって出来ますか？

バイブみたいな名前だなｗｗ

>>246
suidper

>>248
ありがとうございます。

ここでこの質問大丈夫かな…

文字列の最初の数文字だけを表示させたいのですが、方法がわかりません。
よく見かける「あいうえおあいうえおあいうえお」ってのを「あいうえお...」とするやつです。
なんという語句で検索したらいいでしょうか?

少なくとも専用の関数は無い

>>250
先頭の文字だけ取得して..をお尻に足せばいいじゃん

>>250
>>1-2

length $str > $max and substr($str, $max) = '...'; # $str が UTF-8 フラグ付き文字列の場合

それだと$strの内容が変わっちゃうから印字だけ変えたい場合はあまりよくないネ

DBD::mysqlをインストールしたいのですが、上手く行きません。
mac os x 10.6.6でオリジナルのperlを使ってます。
DBD-mysql-4.018をcpanから落とした所まではよかったのですが、
カレントディレクトリでperl Makefile.PLを実行すると下記のように

Can't exec "mysql_config": No such file or directory at Makefile.PL line 82.

Cannot find the file 'mysql_config'! Your execution PATH doesn't seem
not contain the path to mysql_config. Resorting to guessed values!

略

To change these settings, see 'perl Makefile.PL --help' and
'perldoc INSTALL'.

Using DBI 1.607 (for perl 5.010000 on darwin-thread-multi-2level) installed in /System/Library/Perl/Extras/5.10.0/darwin-thread-multi-2level/auto/DBI/
Writing Makefile for DBD::mysql

と表示が出るのですが、その後にmakeをするとエラーが出ます。

どなたか、解決策を教えていただけませんか？

mysql_config でぐぐれ

>>256

mysql_configで探した所、

"mysql_config"を
"/usr/local/mysql/bin/mysql_config"に
変更すればいいとの記載があり、変更した所エラーは減りましたが、で前述のようになりました。


Can't exec "mysql_config": No such file or directory at Makefile.PL line 82.

Cannot find the file 'mysql_config'! Your execution PATH doesn't seem
not contain the path to mysql_config. Resorting to guessed values!

解説のサイト等ではダブルクオーテーション中の"mysql_config"のみ、
"/usr/local/mysql/bin/mysql_config"へ変更するように
指示がありそのように実行していますが、
この段階でも前述のエラーが発生してしまいます。

それ以上は検索しても対応方法が明記されておりません。
今後どのように対応すればよろしいですか？

mysql_config が置いてあるところにパス通して実行しろってことだよ
当然その場所は環境による

ありがとう御座います。

$ PATH=${PATH}:/usr/local/mysql/bin　　　$ export PATH
$ LANG=C　　　$ export LANG
でパスを変えて、実行した所、perl Makefile.PLではエラーは発生しなくなりました。
ただ、次の段階のmakeで

gcc-4.2 -c -I/System/Library/Perl/Extras/5.10.0/darwin-thread-multi-2level
/auto/DBI -I/usr/local/mysql/include -Os -g -fno-common -fno-strict-aliasing -arch i386 -DDBD_MYSQL_INSERT_ID_IS_GOOD
-g -arch x86_64 -arch i386 -arch ppc -g -pipe -fno-common -DPERL_DARWIN -fno-strict-aliasing -I/usr/local/include -Os -DVERSION=\"4.018\" -DXS_VERSION=\"4.018\"
"-I/System/Library/Perl/5.10.0/darwin-thread-multi-2level/CORE" dbdimp.c
dbdimp.c: In function 'alloc_param':
dbdimp.c:212: warning: format not a string literal and no format arguments
略
/usr/libexec/gcc/powerpc-apple-darwin10/4.2.1/as:
assembler (/usr/bin/../libexec/gcc/darwin/ppc/as or /usr/bin/../local/libexec/gcc/darwin/ppc/as) for architecture ppc not installed
Installed assemblers are:/usr/bin/../libexec/gcc/darwin/x86_64/as for architecture x86_64
/usr/bin/../libexec/gcc/darwin/i386/as for architecture i386
dbdimp.c: In function 'alloc_param':
dbdimp.c:212: warning: format not a string literal and no format arguments
dbdimp.c: In function 'alloc_bind':
略
dbdimp.c:4630: warning: format '%d' expects type 'int', but argument 5 has type 'IV'
lipo: can't open input file: /var/tmp//ccyuWkYq.out (No such file or directory)
make: *** [dbdimp.o] Error 2

とのエラーが出ました。

これについても詳しい解説のあるサイトがほとんどないので、
対応方法の指示を頂けませんでしょうか？お願いします。

ppcのアセンブラがないエラーだけど10.6.6だからそもそもintelだよな?
ぐぐったらこんなの出ました〜

ttp://forums.mysql.com/read.php?51,412055,412325#msg-412325

Makefileから-arch ppcを削れってさ。

mac用がまともにメンテされてない感がw

PPCは老害

消えろかす

getpost5.htmlで、東京と入力してgetformdatatest5.cgiがgetformdata5.plの内容で結果を表示します。
この時のgetformdata5.plはuse utf8を使い、getformdatatest5.cgiもuse utf8を使った場合は、文字化けが出ます。\x{04cc}\x{02de}
getformdatatest5.cgiのuse utf8を消すと、正常になります。perlで、何が起こっているのでしょうか。

getpost5.htmlは、下記の内容です。
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=Shift_JIS">
<title>関数化してデータを受け取る</title></head>
<body>
<table align=center><tr><td nowrap>
<form action=getformdatatest5.cgi target=_blank method=get>
input1 <input size=70 type=text name="input1" value="東京"><br>
input2 <input size=70 type=text name="input2" value="">
<input type=submit value="送信">
</form></td></tr></table>
</body>
</html>

getformdatatest5.cgiの内容は、つぎに書きます。

getformdatatest5.cgiの内容は、下記です。
# パッケージ化た版
use Encode;
use utf8;
binmode STDIN, ":encoding(cp932)";
binmode STDERR, ":encoding(cp932)";
binmode STDOUT, ":encoding(cp932)";

require 'getformdata5.pl';
%formdata = plab::getformdata();

print "input1 : $formdata{'input1'}<br>";
print "input2 : $formdata{'input2'}<br>";
# vim:set ft=perl:

getformdata5.plの内容はつぎに書きます

getformdata5.plの内容は下記です。
package plab;
# vim:set tw=64 ft=perl fenc=utf-8:
use Encode;
use utf8;
binmode STDIN, ":encoding(cp932)";
binmode STDERR, ":encoding(cp932)";
binmode STDOUT, ":encoding(cp932)";
sub getformdata
{
local $rawdata;
local %formdata;
local @inputs;
local($input, $name, $val);
if ($ENV{'REQUEST_METHOD'} eq "POST") {
read(STDIN, $rawdata, $ENV{'CONTENT_LENGTH'});
}
elsif ($ENV{'REQUEST_METHOD'} eq "GET") {
$rawdata = $ENV{'QUERY_STRING'};
}

続く

@inputs = split('&', $rawdata);
print "Content-type: text/html\n";
print "\n";
foreach $input (@inputs) {
($name, $val) = split('=', $input);
$val =~ tr/+/ /;
$val =~ s/%([A-Fa-f0-9][A-Fa-f0-9])/pack("H*", $1)/eg;
$formdata{$name} = decode('cp932',$val);
}
return %formdata;
}
1;

以上、宜しくお願いします。

先ほどのは、長過ぎたので要約したもので再度質問をします。
100-1.plは、下記の内容で動きます。
use utf8;
binmode STDIN, ":encoding(cp932)";
binmode STDERR, ":encoding(cp932)";
binmode STDOUT, ":encoding(cp932)";
print decode('cp932',pack("H*","895088e4")),"\n";

所が、101.plで100-0.plを動かすとエラーになる。

"\x{0250}" does not map to cp932.
"\x{0224}" does not map to cp932.
\x{0250}\x{0224}
101.plで、何がおかしいのだろうか。
.続く

101.plは下記の内容。
use utf8;
binmode STDIN, ":encoding(cp932)";
binmode STDERR, ":encoding(cp932)";
binmode STDOUT, ":encoding(cp932)";
require '100-0.pl';
&print_test();

100-0.plは下記の内容。
use Encode;
use utf8;
binmode STDIN, ":encoding(cp932)";
binmode STDERR, ":encoding(cp932)";
binmode STDOUT, ":encoding(cp932)";

sub print_test{# 8950 88e4
print decode('cp932',pack("H*","895088e4")),"\n";
}
1;

宜しく、お願いします。

先程の101.plを下記の様に修正したら、今度はうまくいった。
何が起こったのだろうか。私には説明が出来ない。

101.plの内容

use Encode;
{no utf8;
require '100-0.pl';
$a = decode('cp932',&print_test());
print "$a\n";
}
use utf8;
binmode STDIN, ":encoding(cp932)";
binmode STDERR, ":encoding(cp932)";
binmode STDOUT, ":encoding(cp932)";

binmodeを2回やってるから。

use Encode;
use utf8;

binmode STDOUT, ":encoding(cp932)";
print decode('cp932',pack("H*","895088e4")),"¥n";

binmode STDOUT, ":encoding(cp932)";
print decode('cp932',pack("H*","895088e4")),"¥n";

早速の解答、有難うございます。
基本的には、binmodeは、関係無く何回でも使いたいんだけど。
その場合は、下記の様な書き方しか出来ないんだろうか。
そこを、教えてもらえないでしょうか。
{no utf8;
require '100-0.pl';
$a = decode('cp932',&print_test());
print "$a\n";
}

レイヤーは新しいのを追加していくものなので、何回も使いたいという
方を何とかした方がいいと思う。それにそのめんどくさい書き方に意味が
あった訳じゃなくて、101.plのbinmodeをやる前に実行される部分に
書いたからそこは二重にならなくて済んだってだけだしな。

有難うございます。
実は、下記の書き方と言うのは、テンプレートに入れている物だから。
これが、実装により影響をあまりされたくは無かったから。
しかし、これに関してはどうやら結論的には無理の様だ。

この件は諦めるべきなんだろうか。この辺は、良く分からん。

use utf8;
binmode STDIN, ":encoding(cp932)";
binmode STDERR, ":encoding(cp932)";
binmode STDOUT, ":encoding(cp932)";

今cpanを
インストールしている

これは、おわるまで、何時間かかるの？

もう1時間くらい続けたのだが。

>>273
Linuxつかったほうがいいぜ^^b

>274
linuxは、インストールを、はやいのですか？

はい

ActivePerlいれたら入ってこなかったっけ？

macです。
perlは、始めから、はいってました
もしかしたら、cpanも、はいってる？

あたりめーだろぼけ

ありがとうございます。

今度は、cpanに、アップロードしようと思います。
で、アカウントをとるため、
The [Perl programming] Authors Upload Serverの、Request PAUSE accountを記入して、送信したのですが、
パスワードを、送られません。

どのくらいの時間を、おくられるまでにかかるでしょうか？

てめえみたいな２chバカがCPANにモジュールアップするな
汚染される

>>280
お前のAuthors nameなに？

普通なら数時間から1週間ってとこだが、
I like a perl なんつーふざけた申請理由じゃさすがにハネられるだろ
万が一通ったとしてもおまえのモジュールはチラシの裏に書いてたほうが身のため皆のためだと思うが

だなハゲ

>数時間から1週間
ありがとうございます

HTML::TreeBuilder::XPathは、active perlのppmからは、インストール
は出来ないのだろうか。

ppmからインストールする方法を教えてください。

XPathとか本気でいってるのか？ｗｗｗｗ

xpathだけど
本気だけど。
出来ないの

>>286
エラー出るの？active perlってもう使ってないけど昔インストールしてる人がいるくらいだから入りそうな気がするけど。
ttp://suto3.mo-blog.jp/nashita/2006/10/_activeperlplag_f46d.html

WebScraperつかえよCSSセレクタで検索できてらくだぞ


my $c=fetch CGI::Cookie;
$cookie=new CGI::Cookie(
-name=>"unko",
-value=>{name=>'ken',mail=>'aho'},
-expires=>'+30m',
);
$cookie->bake;
#print $c->{unko}->value;
print $cgi->cookie("unko");

出力がnamekenmailahoになるんだけど
これハッシュで返すことできないの？
print [$cgi->cookie("unko")]->[1];
で取得するのがめんどくさいんだけど
#print $c->{unko}->value;
print $cgi->cookie("unko")->{name}みたいにできるやり方教えてください

>>290
Web::Scraper内でHTML::TreeBuilder::XPath使ってるでしょ

ばかか？使ってねえから俺が使う場合は

ppm4のguiでは、見つからなかったけどppm-shellでsearch xpathで見つ
かっのでinstall xpathで出来ました。
有難う。

このまえ昼寝をしたくなったので、マクラに”Perl/CGI大全６００の極意”を使いました
僕はこれを使って数回寝ましたよ　固くて寝心地悪かったですけど
ん〜5回ほどですかね　天気がよかったので、マクラをほしちゃったときです
僕はマクラが無いので、どうしようか迷いました
本棚を探したらたまたまありました
マクラになるものがないか探したのです
自分「うがううあうあうあうああああ　固いですね」
頭の角にくる固さ、しょうがないので後頭部に当てて寝ました
自分「スヤスヤ・・・」

数時間後・・・

どうやら寝てたみたいです
ラクダ本で寝たときは寝起きには表面が汗でﾍﾆｮ！！ってなってました
ですがこの本はなりませんでした表紙の作りが凄いかったです
みなさん、Perl/CGI大全６００の極意を使ってネタ人はいますか？

cpanで、Plaggerを、インストールしたいのだけど、できない。
コマンドラインの言葉のリンク。
http://akiba.geocities.jp/tr4583384/Pluggernotinstall.txt

どうしたら、できるようになりますか？

YAMLがないって言ってるぽいから入れてみれば?

普通は依存関係があればそう書いとけば自動的にインストールされるように
なってるんだけどうまくいってない感じだな。

thx
YAMLを、インストールしようとしたが、だめっぽい。

ooguma-katsuki-no-MacBook:~ 12we56ty$ cpan
Terminal does not support AddHistory.

cpan shell -- CPAN exploration and modules installation (v1.9205)
ReadLine support available (maybe install Bundle::CPAN or Bundle::CPANxxl?)

cpan[1]> install YMAL
CPAN: Storable loaded ok (v2.18)
Going to read /Users/12we56ty/.cpan/Metadata
Database was generated on Tue, 29 Mar 2011 05:28:54 GMT
Warning: Cannot install YMAL, don't know what it is.
Try the command

i /YMAL/

to find objects with matching identifiers.
CPAN: Time::HiRes loaded ok (v1.9711)

cpan[2]> i /YMAL/
No objects found of any type for argument /YMAL/

落ち着け。YMALってなんだよ(笑)

間違ったw

リトライする

YAMLってなんだよっていう時期は誰にでもあるよ

by Perl忍者

ダメだ。できない。

コマンドラインの言葉のリンク。
http://akiba.geocities.jp/tr4583384/YAML.txt

Plaggerと、YAMLのどちらもできないということは、
私のcpanの設定がおかしいのかしら？

もしかしてレンタルサーバか何かでやってる？
testは全部通ってるし、rootでインストールせずユーザ権限でインストールしようとしてるように思えるんだけども。

ネットワークのことは、よくわからない

pcは、無線LANで、Bフレッツで、
サーバーは、plala

ホームページ作るときは、レンタルサーバーは,yahoo ジオシティーズを使ってる


これらは、関係ある？

書き込み権限がないのでインストールに失敗してるから、rootになれるなら
rootになってから再挑戦。

レンサバでrootになれないとかだとデフォルトのインストール先になってる
共通ディレクトリには書けないから自分用の場所を指定しないとだめ。
「cpan インストール先」とかでぐぐれ。

>>303
よくよく見たらmacじゃないかw
http://d.hatena.ne.jp/tokuhirom/20100716/perlenv
これ見ながら入れればrootになる必要ないから楽だよ。local::libは入れなくていいのでperlbrewとcpanm入れてください

>305
おお!
ありがとう
試す

cpanm 最高だ。 miyagawa++

>305
thx!
perlbrewと、　cpanmを、インストールできた！

で、cpanm plaggerと、うったら、

最後に,
46 distributions installedとでたから、成功したと思われる！

助かりました　thx

>>308
エラー出力のファイル非公開にしておいた方がいいよ

>309
そうですね
ありがとうございます

miyagawa--

miyagawa-=99999999999999999999999999999999999999999999999999;

て

miyagawa＝伝説ポケモン

miyagawa++ するやつはポケモンでいうミュウツゥーとかホウオウ、ルギア
ミュウあたりばっかり使いそうだな

中2病発症してるのか？伝説ポケモンしか使わない奴
どうせパーティーは
miyagawa
miyagawa
miyagawa
miyagawa
miyagawa
dankogaiなんだろ？

あ、フォロワーがmiyagawaでしたか
すみません^^

フォロワーがmiyagawaとか強すぎるやつフォローしてるやつは厨房

すいません

以前cpanmを、インストールしたものですが、使い方を分からないです.

続？初めてのperlを、読みながらやっています。

ターミナルで、何のコマンドを使うとよいでしょう？

「cpan 使い方」でググってみたら?

ぐぐりながら、

ターミナルコマンドを、よくわかってないので、cpanmを起動させそうな言葉を、たくさんうって当てる方法を、試してみた。

ooguma-katsuki-no-MacBook:~ 12we56ty$
に、続く言葉で、

wget http://xrl.us/cpanm？？？-bash: wget: command not found

cpanm -h？？？-bash: cpanm: command not found

これは、cpanmを、インストール出来ていないということでしょうか？

間違えた。
?は、・です

ここに名前書いたらあのエラーページ消した意味ないじゃないかw
cpanmはcpanm Web::Scraperみたいに打つとのあとのモジュールがインストールされるよ
cpanm --help
か
perldoc cpanm
でヘルプも確認できる

>>318
インストールできてないね。

まず、wget が入ってないみたいですね。
# wget は http/https/ftp 経由でファイルをダウンロードするツールです。

Mac なら wget http://xrl.us/cpanm の代わりに、
curl -o cpanm http://xrl.us/cpanm
でどうでしょうか。

# ここを見る限りは、git を使ったほうがよさそうだけどね。
# cpanm - bayawiki
# http://wiki.bayashi.net/perl/cpanm

あぁ、>>318を全然見てなかった
perlbrewがちゃんと入ってるなら>>321の言う通りcurlで落とした後に
perl cpanm --self-upgrade
ってすれば最新版がインストールされるよ
self-upgradeした後は最新版の方が自動的に使われるので、rm cpanmでそいつは削除しちゃっていい

cpanってバックアップできるのしってた？

これ知るまで　全部手動でやってたぞくそが

http://localhost/app
catalystだとこれでアクセスするとうつるんだけど
http://localhost/app/と違う表示になる

リダイレクトやっただけどループされる
.htaccessとかで
http://localhost/appにアクセスしたらhttp://localhost/app/になるようにしたらどうすればいい？
おしえて

どうやら
ttp://localhost/app　だとapacheのパスになってる
ttp://localhost/app/だとcatalystのパス

<Location /app/>にすると
ttp://localhost/app/でアクセスしないとアクセスできない
ttp://localhost/appでアクセスすると404になる
<Location /app>にすると
http://localhost/app　でもアクセスできる
http://localhost/app/ でも

でもどっちかのパスになるから /appだとapache

/app/だとcatalyst

どうすればいい教え手管才

日本語のファイル名にするとファイル名が文字化けしてしまうんですが
どうすればいいですか？

>>326
文字コードを適切にする

教え手管才237

>>327
ありがとうございます。
サーバーだからEUCでやればいいかと思ってたけど
shift-jisにしたらできました。

出来たと思ったら出来てませんでした。
全角アルファベットは出来るけどひらがなとかにしたらファイルが作成されません。

>>330
環境の文字コードは本当にshift-jisなのか
perlスクリプト自体の文字コードは何なのか

確実な解決策として「ファイル名に日本語を使わない」のはどうか

>20
前回は、ありがとうございました！
cpanm Web::Scraperと、うつと、
-bash: cpanm: command not foundと、いう
perldoc cpanmとうつと、
No documentation found for "cpanm".という
cpanm--helpとうつと、
-bash: cpanm--help: command not foundという
>321 ありがとうございます
curl -o cpanm　と、うつと、
curl: no URL specified!
curl: try 'curl --help' or 'curl --manual' for more informationと、いう
>322
rm cpanm　とうつと、
rm: cpanm: No such file or directory　と、いう
perl cpanm --self-upgradeと、うつと、
Can't open perl script "cpanm": No such file or directoryと、いう
cpanmは、はいってないようですね
orz(￣ー？)ﾎﾛﾘ

私は、Plaggerを、使いたいのですが、cpanmは、インストールできなくて、cpanは、root権限が、ないため、インストールできないという状況です。
何か良い方法は、ないでしょうか？

こだまでしょうか

いいえ ケフィアです

>>332
curl -o cpanm
ではなく
curl -o cpanm http://xrl.us/cpanm
な

なんかlinuxの本を一冊買うとかサイト見るとかでコマンド並べてるサイト見た方がいいんじゃないかと思って来たわw
>>335で全部解決して終わりそうな気がするけど

>>331
レスありがとうございます。
http://www.ksknet.net/perl/post_26.html
具体的には↑のページのコードを実行しているんですが
日本語ファイルをアップロードした場合保存されなかったり
文字化けしたりします。
ソースの文字コードを変えてみたり
jcode'convert(*fileName,"sjis",'euc');
とかで変換してみたりしてるけどうまくいきません。

>>337
> jcode'convert(*fileName,"sjis",'euc');
ってperl4?

「perl cgi 日本語ファイル名 アップロード」でググってみたら。

そもそもアップロードする OS によって漢字コードが・・・

Linux でも途中からデフォルトの日本語が EUC-JP から UTF-8 になってたりするし。
FTP クライアントのファイルの漢字コード変換のとこも見直してみな



てか、日本語ファイル名を使うこと自体がクソだからなぁ。。。

>335

curl -o cpanm http://xrl.us/cpanm と、うちました
% Total % Received % Xferd Average Speed Time Time Time Current
Dload Upload Total Spent Left Speed
108 216 108 216 0 0 496 0 --:--:-- --:--:-- --:--:-- 1565

ググりましたが？です

どいうことですか?

>336 そうですね
自分で、理解出来るよう、行動します

>>340
ls cpanm
ってやって表示されればダウンロードできてるから、あとは上で説明したようにcpanmが使えるはず

ファイルがあるかないかの確認でls使うとかファイル削除のためにrm使うとかスレ違いの話になるから
ttp://itpro.nikkeibp.co.jp/article/COLUMN/20060224/230579/
こういうの見てある程度のコマンド操作は覚えた方がいいよ

>341
ありがとうございます
ls cpanm と、うったら、cpanmとでたから、ダウンロードされてるようです
上の説明を、試してみます

コマンド操作覚えます
ttp://itpro.nikkeibp.co.jp/article/COLUMN/20060224/230579/は、分かりやすいですね

下記のperlを実行すると、下記のエラーが出ます。
何がおかしいのだろうか。sendmailがきちんとインストールされていないのだろうか。
教えてください。

Can't call method "auth_types" on an undefined value at c:\usr\usui\bin\sendmail\sendmail.exe line 206, <STDIN> line

---c:/bin/sendmail.iniの内容---
# SMTPサーバー名(ISPのものなど)を記入
MySMTPServer = smtpサーバー名
# SMTPサーバーで認証が必要かどうかの設定
# SMTP認証が必要ない場合 0
# SMTP認証が必要である場合 1
MySMTPAuth = 1

# SMTPサーバーで認証が必要(上記MySMTPAuthが1)の場合は
# ログイン名とパスワードを記入
MySMTPLogin = ユーザー名
MySMTPPassword = パスワード

続く

sendmailで下記のperlが実行出来ません。
お教え願います。

---perlの内容---
$sendmail = 'c:/usr/usui/bin/sendmail/sendmail'; # sendmailコマンドパス
$from = 'ユーザー名@yahoo.co.jp'; # 送信元メールアドレス
$to = 'ユーザー名@yahoo.co.jp'; # あて先メールアドレス
#$cc = '[email protected]'; # Ccのあて先メールアドレス
$subject = 'test'; # メールの件名
$msg = <<"_TEXT_"; # メールの本文(ヒアドキュメントで変数に代入)
message line 1
message line 2
_TEXT_
# sendmail コマンド起動
open(SDML,"| $sendmail -t ") || die 'sendmail error';
# メールヘッダ出力
print SDML "From: $from\n";
print SDML "To: $to\n";
#print SDML "Cc: $cc\n";
print SDML "Subject: $subject\n";
print SDML "Content-Transfer-Encoding: 7bit\n";
print SDML "Content-Type: text/plain;\n\n";
# メール本文出力
print SDML "$msg";
# sendmail コマンド閉じる
close(SDML);

まずperl使わないでsendmailちゃんと動くか確認してから来いよ。

コマンド調べました

で、再び、cpanに、入って、いろいろしようと思ったら、

Permission deniedと、出ます。

調べると、権限が、ないということらしい。

権限を、あるにかえたいのですが、どうしたらよいでしょうか？

>>338-339
レスありがとうございます
多分perl4です
日本語ファイル名を付けるのはやはり難しそうなので
自動でファイル名を付ける式に妥協することにします。

>>346
その色々がわからんとどこでpermissionのエラーが出たかわからん。何やったか書いてくれ

>>346

chmod +x cpanm

として、実行権限を与えたらOK。
ダウンロードした状態の cpanm は読み書きしかできない状態なので
上記コマンドで、これに「実行」の権限を与えてください。
# 紹介された日経のページにも「パーミッションを変更する」と
# あるので、そこを読んだり google 調べて理解してください。

取り敢えず、unix の知識に関してはこれ以上は必要とされないはず。
# ただ、おそらく次は $PERL5LIB が問題となるであろう。

あとは、plagger を使いたいだけならば

cpanm --self-upgrade
rm cpanm
cpanm Plagger

とするだけでいいはず。途中で XML::Feed::RSS あたりでエラーが出たら

cpanm -f XML::Feed::RSS
cpanm Plagger

としてください。
正直、IRC にでも参加して聞いたほうが効率いいと思われ。

>348
ありがとうございます
ありがとうございます
すいません
私のまちがいです
昨日は、cpanに、はいれなかったのです
いろいろ試しながら、perl -MCPAN -e shellとしたら、はいれました
今は、大丈夫です

>349
詳しい説明をありがとうございます
すみません
Permission deniedの件ですが、私の間違いです
cpanに、入るためのコマンドを、間違えていました
今は、大丈夫です

この説明は、
cpanm、Plaggerを、使う時の参考にします
また、IRCを、調べてみます
親切な対応をありがとうございます。

use strict;
use KCatch qw(source);
で、strictの方のエラーが出ると500しか表示されないんですが、
エラーをちゃんと表示させる方法か、何か思い当たる問題点はありませんか？

Undefined subroutineとか普通のエラーはちゃんと表示されます。
コマンドラインならstrictの方のエラーもちゃんと出ます。
fatalstobrowserを使っても同じ結果でした。

>>352
strictのエラーは普通はコンパイル時に出るからKCatchが有効になる前に
出てしまうことになり間に合わない。なんとか問題のある部分のコンパイルを
遅らせればいいわけで、

http://www.kawa.net/works/perl/catch/news.html#easy

の「KCatch.pm のより適切な使い方【オススメ】」ってとこに
やり方が書いてあるぞ。日本語なんだし公式ぐらいちゃんと読もうな。

>>353
見落としてました
ありがとうございます

shtmlのフォームからcgi(perl)に変数を送り、別途置いてあるcsvデータから
該当する物をhtml出力するものを作っているのですが
その際のURLの拡張子は「.cgi?name=いろは」みたいになっています。

ところがSSIで表示しているサイトメニュー等も一緒に出力したいのですが
拡張子がshtmlで無いとダメなレンタルサーバーなので、結果表示がhtml形式で出力されても
拡張子がcgiだとSSIが無効になってしまいます。

検索結果出力の際の拡張子をshtmlにするにはどうしたら良いでしょうか？

>>355
>>1
△▲　WebProg 初心者の質問 Part23　▼▽
http://hibari.2ch.net/test/read.cgi/php/1294318320/

そもそもCGIの出力にSSIって有効だっけ?

サイトメニューをCGIで読み込む

>>357
Apacheでの設定方法の話なら以下。

Apache〜嗜みとして〜 Part3
http://hibari.2ch.net/test/read.cgi/php/1043851302/
Apache2.x　【新鯖入荷しました】
http://hibari.2ch.net/test/read.cgi/php/1018333172/

ＰＥＲＬ使いの皆さん出番ですよ
ttp://biz.moongift.jp/2011/03/wano/

最近掲示板に外国からの書き込みが大量にあって荒らされてしまいます。
なので日本からの書き込みと判断したいのですが
どうすればいいでしょうか。
http://fetus.k-hsu.net/document/network/ipv4assign/countries/jp.html
ここでIPアドレスを調べたら大量すぎて重くなりそうだし
新しくどんどんIPアドレスが追加されてるみたいなので対応がきつそうです。
IPアドレス以外の方法はあるんですか？

http://hibari.2ch.net/test/read.cgi/php/1137614836/

>amachang 今粛々と民事刑事の方面で進めています。一応、すべて証拠として保存しなければいけないので、冗談でも今はこのスレに変なこと書き込まないでください。
>2011/01/28


http://hibari.2ch.net/test/read.cgi/prog/1291518728/

>1 ：amachang撲滅振興協議会：2010/12/05(日) 12:12:08
> amachangが憎い・・・・amachangが許せない・・・・

> ククク・・・・クククククク・・・・・
> クックックックックックックッ・・・・・
> クー、クー、クー、クー、クー、クー・・・・・
>
> もう許せない。
> もはや沸き上がる滅意を抑えることが出来ない！！！

>>355
�@shtmlのページからフォームでデータを送信
�Aデータ処理
�BHEADなどのページ表示に必要なものとデータを並び替えてHTMLデータを作る。
�C適切なパーミッションに変更にしてからファイル名を.shtmlで生成。

○に数字文字使うとかカスすぎる

>>361
その辺は機転じゃないか？
例えば、本文か名前など項目の何処かに日本語コードが含まれて無ければ海外からの投稿
とか
認証画像付けて、かな文字打たせる
とか
ホスト逆引きするとか
頭の回転鈍いならこの先苦労するだけじゃね？

>>362
ありがとうございます。
試してみます。

>>364
.cgi で生成したhtmlのページの拡張子を指定するなんてこと、できるんでしょうか？

>>368
後ろでcgiは走らすだけで実際吐くのは.shtmlで、それを見せるって事なんじゃね？

cgiの表示結果をSSIでhtml文書の中に表示するのがshtmlなわけで。
ちなみにｵｲﾗは>>355の第二段落が意味不明だったりする。
今のところ、cgiで生成した文書の拡張子を変更したり指定することはできない、かと。

1 .shtmlから.cgiで出来たページへリンク
2 .cgiのページでいろいろ処理する
3 結果をファイルに書き出す その時ファイル名は〜.shtmlで保存
4 その新しく作ったファイルにリダイレクト

とかで無理矢理できないかな

>>368-371

>>1
>>359
△▲　WebProg 初心者の質問 Part23　▼▽
http://hibari.2ch.net/test/read.cgi/php/1294318320/

>>371
あの、shtmlを全くわかっていないんじゃないかい？
自身では理解できていると認識してるの？

3番がわからないんだけど、それはできた経験はあるの？
今までファイル保存した経験がcsv形式のデータファイルだけなもんで。
できるの？

もしできるのであればやってみたいです。
初めての試みになります。

横レスだけど3番の処理の何が問題になるの？
ファイルに書き出してファイル名をshtmlにするだけだと思うのだけど。

>>374
今までshtmlでファイル書き出しをしたことがないので、
それもできるんだ？！とちょっと驚いただけのことです。

>>371
ｽﾏｿ。理屈で考えると出来そうな気がする。
近日、やってみまつ。m(_ _)m

>>371
できました。
私の方が無知でした。
申し訳ない。汗

cgiからshtmlページの出力をするとは初めて考えました。
一人でやってると世界が狭まりますね。他人の発想の大切さを再確認しました。

これができるとなると、htmlページの自動生成ができることになりますね。
現時点ではまだどんな役立て方ができるかアイディアが無いのですが、将来使える日が来るのかな。

まだ初心者の域は出ていない私ですが、今後何かこちらからも良い話ができたらいいなと考えています。

>>377
おまいは一体…
どんな見えない敵と戦ってたんだｗ

ここの住民さんはどのくらいの技術もってるのか気になってきた…

>>378
私は、

・メールマガジン発行CGI
・掲示板CGI
・メールフォームCGI
・ショッピングカートCGI

が作ったことがあります。
どれもファイル作成はデータファイルなのでshtmｌ形式で作るといった感覚は新鮮。

ウソくせえ
拾ったスクリプト弄っただけだろ

>>380
そんなに信じられないような話かい？

>>380
カートCGIなどは今も現役で動いてるよ？

いい情報を話し合う仲間欲しいけど、
２ちゃんねるでやってもどうも駄目なんだよね。何度かやったけど。
人間不信っぽくて。
出会いって　場　って重要だよね。
で、２ちゃんはそぐわないと。

なにいってんのこいつ？

他の場所が２chみたいにカジュアルだとおもってんの？>>383は？

かじゅあるｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗ

>>385
は？

ってことはお前・・・

だな？

ここの住民さんはどのくらいの技術もってるのか気になってきた…
と↑質問した378です。

>>379
大体のことはできるんですね。
外部ファイルのデータを取得しての処理とかはやらないの？
文字エンコード系の作業のストレスMAX感は味わってみた？
メルマガの発行はケータイかな？
8年ほど前だったかな…自分も作ったことありますよ。
たしかドコモだと31通目から同一のメ−ルを送ると弾かれるんだよね。
量が多いと時間がかるとクレームがきたときには苦労したな…

＞どれもファイル作成はデータファイルなのでshtmｌ形式で作るといった感覚は新鮮。
アクセスが多くて頻繁に動的な処理を行わない場合、
ページを生成したほうがperlにとっては都合良いから便利だぜ。

ちなみに自分は、完全自作で↓

お問い合わせフォーム（エラー表示・メール通知式）
掲示板（スレ式）
画像掲示板（スレ式・サムネイル・ロゴ埋め込み）
perl開発ツーツとしてエスケープ処理とタブ埋め込み処理「￥」
メルマガ発行（PC/ケータイ）
キーワード検索順位（大手検索エンジンの結果を取得して処理）
ショッピングカード（サムネイル・自働ページ生成・セッション方式・非セッション方式）
情報処理（グラフ表示式）
他…

個人的にはperlは大好きなんだけどね。
多くの人が2003年頃にPHPに移って過疎ったよね…

>>390
雑談はスレ違いもしくは板違い。

>>1
【総合】 Webprog板質問雑談スレッド 1
http://hibari.2ch.net/test/read.cgi/php/1131016915/
http://hibari.2ch.net/prog/

よろしくお願いいたします。
touroku.listファイルに次のように登録するようにしています。
user<>1<>passwdA<>[email protected]<>172.0.0.1

それでこのuser自身が登録解除出来るようなスクリプトを作成しましたが
うまく動作しません。登録したパスワードと同じpasswdAを打ち込んでも
パスワードが違うとなります。又、違うパスワードを打っても
同様です。この場合は正常な動作ですが、、、

尚、打ち込んだパスワードと登録しているパスワードが変数に正常に
格納されているか、エラーメッセージ部に変数を入れてみましたところ
違うパスワードは$in{'pass'}に正常に表示され
$pasには登録済みのパスワードが表示されます。

しかし正常なパスワードを打ち込むと何故か$in{'pass'}は空白となり表示されません。
$pasだけ表示されます。
多分これが原因とは思いますが、
正常に$in{'pass'}には打ち込んだパスワードは格納されていることは
間違いありませんのでどうして正しいパスワードを打ち込んだときのみ
空白になるかわかりません。

＜続く＞

＜続き＞
まだ、スクリプト初心者ですがよろしくお願いいたします。
作成したスクリプトは下記です。
-----------------------------------------------------------
open (IN,$set{'touroku_list'})|| &error("touroku.listが読み込めません");
flock(IN,2);
while(<IN>){
my (@existfilepass) = split(/<>/);
my $existfilepass = $existfilepass[2];
$pas = $existfilepass;
if ($pas ne $in{'pass'}){&error2("<center><h3>パスワードが違います。$in{'pass'},$pas/h3></center>");}
}
close(IN);
-----------------------------------------------------------
追伸、それから、これでは最初の１行しか検索できないですが、
user<>1<>passwdA<>[email protected]<>172.0.0.1
use2<>2<?passwdB<>[email protected]<>171.0.0.2
のようにユーザが次第に増えてもそれぞれのパスワードを検索すにはどのようにすればいいのでしょうか。
出来ましたら、これもよろしくお願いいたします。

正常なﾊﾟｽを打ち込んだ場合
if ($pas ne $in{'pass'}){&error2("<center><h3>パスワードが違います。$in{'pass'},$pas/h3></center>");}
この部分の$pas と $in{'pass'}が同じになるためerror2は実行されてないはずである
別の部分のｴﾗｰﾙｰﾁﾝで$in{'pass'}が表示されずに$pasが表示しているのではないだろうか


追伸の部分
user名とpassの組み合わせでﾁｪｯｸする

>>394
一部ミスのため訂正使用としたところ、
早速のレス有難う御座います。

正しいパスワードを打ち込んだ場合もerror2は実行されています。
尚、書き込みミスは同じパスワードの時空白の変数は$pasの方でした。

パスワードが違います。$in{'pass'},$pasのところで

違うパスワードの場合、
パスワードが違います。wrongpasswd,passwdAと表示され、

正しいパスワードの時は
パスワードが違います。passwdA, とコンマの次($pas)が表示されません。

正しい時のパスワードが何故空白になるかがわかりません。

378です。
>>391
すまん自重する。

>>393
foreachを使って格納させるのが手っ取り早い。
パスが一致してそのレコードに修正を加えたいなら↓の方法でどうだ？

#----------------
# $kakikomi の部分に変更を加えればパスが一致したものを修正が可能。
# ただしIDも一致させるためにif($data_b[2] eq $in{'pass'}){文に修正を加える必要がある。
# TAB消したので読みにくいが参考になればどうぞ。

続く↓

>>396 からの続き↓

# user<>1<>passwdA<>[email protected]<>172.0.0.1
$data_f = "./filedata.pl";
$lock_f = "./flock";
open(LOCK,">> $lock_f");
flock(LOCK, 2);
open(DATA,"< $data_f");
@data_y = <DATA>;
close(DATA);
foreach $data_r(@data_y){
@data_b = split(/<>/,$data_r);
if($data_b[2] eq $in{'pass'}){
@data_k = @data_b;
$z1_no = $z1;
}
$z1++;
}
if($z1_no eq ""){
$kakikomi = "user<>1<>passwdA<>[email protected]<>172.0.0.1";
splice(@data_y,$z1_no,1,$kakikomi);
open(DATA,"> $data_f");
print DATA @data_y;
close(DATA);
}
close(LOCK);

>>397　に文法エラーがあったので訂正する。387を参考にしてくれ。

>>396 からの続き↓

# user<>1<>passwdA<>[email protected]<>172.0.0.1
$data_f = "./filedata.pl";
$lock_f = "./flock";
open(LOCK,">> $lock_f");
flock(LOCK, 2);
open(DATA,"< $data_f");
@data_y = <DATA>;
close(DATA);
foreach $data_r(@data_y){
@data_b = split(/<>/,$data_r);
if($data_b[2] eq $in{'pass'}){
@data_k = @data_b;
$z1_no = $z1;
}
$z1++;
}
if($z1_no ne ""){
$kakikomi = "user<>1<>passwdA<>[email protected]<>172.0.0.1";
splice(@data_y,$z1_no,1,$kakikomi);
open(DATA,"> $data_f");
print DATA @data_y;
close(DATA);
}
close(LOCK);

>>378
複数ユーザーの場合foreachの方がいいのですね。
何故、$pasの中身が消えるか意味不明ですが、
もしかしたら、これで不具合も直るかもしれません。

明日ゆっくりこれを参考にして作成してみます。
有難う御座いました。
又、途中で解からなくなることがあるかもしれませんが
その時はよろしくお願いいたします。

先になぜ消えてるか追求したほうが為になると思うけど。

>>399
やりたい内容を詳しく書き込めば作ってここに載せてやるよ。
ログインや何かの登録解除程度のスクリプトなら10〜15分程度で完全オリジナルで作れるぞ。
おまいの疑問がよくわからんのでその方が手っ取り早いな。
それにロックの使い方があまい。
君の方法だと稀にデータが消えるかもしれないな。

393ので試してみたけど、空白にならないっていう
touroku.listの1行目を改行してるって事はないよな

ずいぶんとレガシーなコードだな
10年前のコードをメンテしなくちゃいけなくてソース開いたときと同じ驚き

>>390
キーワード検索順位CGIはどうやったらいいのかわからないなあ。
そうそう。PHPが流行りだした時は私などはまだPerl初めて翌年くらいだったか。
これからやろうとしてた矢先のことで、進路変更するわけにもいかずそのままperl
けど、当初はまさかこれでショッピングカート作ることになり、物品販売することになるとは思っていなかったんで、
進みは非常に遅れてしまった。

これから遅れた時間を取り戻したいと思っています。

ケント大王が治めてた時代ですよ
タイムスリップしてきたんですか？

ようこそ

時空を超えてきたPerl使いよ

ふぉふぉおふぉふぉふぉ

Perl業界の恥さらしPerl忍者君を笑うスレはこちらでよかったでしょうか

この板って…
lenで制限してるのかな？

>>404
キーワード検索順位は外部ファイルの取得をPHPにする方が色々と都合がいいよ。
取得したデータはperlを使って正規表現使って処理だね。

>>398
ユーザの一致チェックはどこでやってるんだこれ…

>>409
>>396で修正を加える必要があるとか言ってる

>>378
401のヒントで#pasの表示が消える理由が解かりました。
close<IN>;をif文の手前に置けば解決しました。

只、理由はわかったのですが原因がわかりません。
closeする前にデーターをいじっているので壊れたのだろうな
という漠然とした感じはあるのですが、理論だった理由は解かりません。

4,5年前に初めて作成したスクリプトが会員登録用で、それ以来perlは触っていません。
スクリプトもネット上で検索して見よう見まねで作成した付け焼刃です。
最近、このスクリプトを見て全く理解できず、
又、解除用スクリプトでも作成して勉強してみようかなと思ったわけです。

まだ時間が掛かりそうですが頑張ってみます。
有難う御座いました。

while文とかもう古いのでしょうか。

perl自体が古いだろ

適材適所だろ。
新しいとか古いとかじゃなく、目的に合わせて言語を選択すべきだろ。

古いでしょうが、完成しました。
これで、複数の登録者でも解除できるようになりました。
while文しかまだやっていないのでこれにしました。
すみませんがもしよかったら最近のかっこいいスクリプトでお願いします。
<続く>

<続き>
open (IN,$set{'touroku_list'})|| &error("touroku.listが読み込めません");
flock(IN,2);
while(<IN>){
(@existfileuser) = split(/<>/);
$existfileuser = $existfileuser[0];
$userpas = $existfileuser[2];
last if ($in{'name'} eq $existfileuser);
<続く>

<続き>
}
close(IN);
if ($in{'name'} ne $existfileuser){&error2("登録ユーザでは有りません。");}
if ($in{'pass'} ne $userpas){&error2("パスワードが違います。");\
}

以上です。

かっこよさとか言語はどうあれ、パスワードを平文で保存してるようなサイトは利用したくないなあと思うのでした

>>409
パス一致の条件式にandかませればよろし。

>>410
フォローサンクス

>>417
root下に置いても駄目でしょうか。
root盗られたら、もはや平文とかの問題ではないと思うし。

>>411
小さいなスクリプトなら、やりやすい方で良いと思うぞ。
whileでもforeachでもおｋ

>>417
自分の場合は、ID・パス・メアドの保存は特殊な処理をかけて保存してますよ。
当然ルーチン化させています。
その処理を通さないと元の英数字らりません。
若干処理は重くなるけれども、数百万単位のID管理が必要でなければ、セキュリーティー重視の方が安全ですよね。

>>378
有難う御座いました。
多分、ここで聞いていなかったら、投げやっていたと思います。
感謝します。

>>421
IDメアドは置いといて、まさかパスワードも復号可能なの？
それだと平文で保存してるのと大差ないと思うけど。

>>422
ここは２ちゃんだぞ。
一々そんなこと気にするなよｗ
所詮は便所の落書きだからなｗ
俺が糞して踏ん張ってる間に書いたスクリプト（実際に12分前後トイレで書いたし）で役に立つならそれはそれで結構。

>>378
例え便所の落書きでも役に立てば感謝します。

>>423
個人情報系のデータは、基本暗号保存させるのが常識。
DB使うまでもない場合でも、このご時世だから徹底しないとダメだな。
でなければ、情弱PGと言われてしまうぞ。
続き↓

続き↓
>>423
簡単に解析されなければ、どんな方法でも良いので行うべき。
パスはプログラムで暗号化させて暗号化されているパスのファイルが一致すればFALSE
その過程は、PGにしか理解できないものでOK
続き↓

俺が言いたかったのは、どんなパスワードであれ暗号化ではなくcryptなりshaなりでハッシュ化したものだけを保存するのが普通だよねという話。
暗号化というと鍵を持つ人物（管理者）には復号が可能である風に聞こえるけど、
利用者のパスワードを管理者が知り得る状態である必要性はどこにもないわけで。

続き↓

>>423
自分の場合は、1つのファイルにIDとパスをある複雑な法則で保存させ、
秘密の処理を行わなければ解読不能にしている。
暗号化復号はルーチン化させているので、処理が必要なときにかますだけ。
続き↓

何だろう、昨日から何か流れ的にスレ違いな気がするんだけどそう思ってるの俺だけなの？

リストの項目がわからないからどんなスクリプト作りたいのか深いとこまでわからないけど、
>>392程度ならこんな程度でもいいんじゃないの？
use strict;
use warnings;
use Carp;

my($target_user, $target_pass) = @ARGV;

my $list = 'touroku.list';
open my $rfh, '<', $list or Carp::croak("$listが読み込めません");
my %pass_of;
while (my $line = <$rfh>) {
　　my($user, undef, $pass) = split /<>/, $line;
　　$pass_of{$user} = $pass;
}
close $rfh;

warn "ok"
　　if (exists $pass_of{$target_user}) && ($pass_of{$target_user} eq $target_pass);

少なくとも今から作るならmyは付けた方がいいと思うし、
テストしやすいように単体で動かせるレベルで一旦作るべきだと思う。

続き↓

>>423
かなり複雑にしているので、そのルーチン自体を読まないと解析不能だと自信を持っている。

>>425
そかそかｗ

>>430
久しぶりにこのスレでレガシーでないまともなコードを見た気がする。

>>431
聞いてもないことを丁寧に答えてくれて痛み入るが、
つまり管理者は（実際に復号をするかはともかく）利用者のパスワードを知り得るってことだよね？
だったら俺はそんなサービスを利用するのはできれば遠慮したいかなあ。

>>428
個人で利用する分にはcryptみたいな簡易的な方法で処理しても問題ないと思うが、
第三者が個人情報を入力するサイトなら話は別。
一度、暗号化の技術的な問題を調べると良いかも。
perlをある程度経験しているなら、好き好んでcryptを使うPGはいませんよ。

>>433
そりゃ crypt($pass) なんてド直球はありえないが、最低限saltはつけるだろうし、
さらに現実的には Digest::SHA::sha512_hex($pass, $salt) とかするでしょうよ。
それでも足りなきゃ適当に他のハッシュ関数を重ねがけするなりなんなり。
復号可能な状態で保存してるってのはまた別の問題で、それはそれで crypt($pass) とは違う意味でありえないって言ってるの。

>>434
$pass = crypt($pass,$salt); これで十分だとおもってるわけ？
話にならんわ…

1行しか読めないのか
話にならんわ…

お前ら平文パスで漏らした2chに喧嘩売ってるのか？

>>428
＞俺が言いたかったのは、どんなパスワードであれ暗号化ではなくcryptなりshaなりでハッシュ化したものだけを保存するのが普通だよねという話。
ｗ

双方向の暗号化・一方向のハッシュ化という対立軸の話をしてるのにcryptの部分だけ拾われましても

>>434
＞さらに現実的には Digest::SHA::sha512_hex($pass, $salt) とかするでしょうよ。

Digest::SHA::sha512_hex($pass, $salt)は「cryptなりsha」に毛の生えたようなものだろ。
本気で言ってるのか？

いや、だからこの流れはスレ違いじゃね？板違いか。どっかにセキュリティのスレあるだろうからそこでやればいい

>>417が言いたいのは手法の話じゃなくて>>432で言ってる
「サービス運営してる側がパスワードを生で持てる状態が嫌だ」
ってことだけでしょ。そのくらい読み取りなさいよ。
>>378がいくら真面目な人だとしてもそのシステムをサポートする別の人が悪意を持って復号したら漏れるでしょ。
いくら注意しても1つのパスワードで複数のサービスを使い回してる人がいるんだからその危険性を指摘しただけだと思うよ。
変に煽り合ってスレ違いの方向に行かないでください。

目くそ鼻くそ状態。
脆弱な暗号化は好ましくない。
復号できる状態は好ましくない。
不毛だからやめよう。

[最新ニュース!!!] 　★ニコニコ生放送でDQN共が犬虐待！！！★
http://www.nicovideo.jp/watch/sm14156259
犬にタバコを近づけるなど、首を掴み投げ飛ばす、物を思い切り投げてぶつけるなどの
暴行、犬は怯え、投げ飛ばされた衝撃で足が折れそうであった、そしてDQNどもは喜んでいる!!!
http://twitter.com/fu_taso
ツイッターでも反省無し　２chスレまで出没し炎上状態
http://toki.2ch.net/test/read.cgi/ms/1302773943/
住所なども晒されて逆に動物虐待ではなく人間虐殺を受ける恐怖に怯えているらしい
DQNたち
@F5_twit こええだろｗｗｗ刃物とかマジこええｗｗｗもし俺の家に来たら一瞬で逃げる。全力で逃げる。
1:12 AM Apr 15th webから F5_twit宛
こいつの目的は、フォロー数＋観覧数
動物虐待！！！！！！！動物虐待！！！！！！通報しよう！！！！！！！！！！

>>430
有難う。
精進します。

ところでオラには>>392の%inがどっから湧いてきたかいまいち分からんのだが、ハンドルのINを
そのまま%inで扱えるという言語仕様じゃないよね？

CGI.pmでパラメータを突っ込んでるんじゃないかな

>>392
cgi-lib.plだったりして。
require 'cgi-lib.pl';
&ReadParse;
こんな風に呼ぶと%inにフォームデータが入るのを見たことがある。

s1 = "A123B"
s2 = "A111B"
s3 = "A321B"

と文字列があった場合にs1以外を拾いたいです。

正規表現で　"A[^(123)]B"　としましたが、[]内は1文字で認識されるようでNGでした。
"A〜123ではない〜B"という正規表現はどのように書くのでしょうか？

そんな単純なものは eq で比較でえぇんとちゃうのん？

>>448
http://www.din.or.jp/~ohzaki/regex.htm#Without

for my $str (qw( abcHIJdef ABCklmDEF cbajihfed CBAMLKFED )) {
　　my $result = $str =~ /^[abc]+(?:(?![hij]).)*[def]+\z/i ? 'match' : 'unmatch';
　　print "$str: $result\n";
}

>>448
A と B の間が3文字固定なら
/A(...)B/ and $1 ne "123"
A と B の間が3文字固定でさらに数字固定なら
/A(\d{3})B/ and $1 != 123
でどうでしょう
正規表現一発じゃないけどね

test

$abc = 'dog';
$xyz = 'cat';
$str = $abc_$xyz;

以上だと、$strにcatだけが入っています。
dog_catというように入れたかったので、調べて以下のようにしたら、なんとかdog_catが出てきるようになりました。

$str = ${abc}_$xyz;

ただこれの意味というかなぜこうなるのかの理由がわかりません。
なんで変数展開してんの？っていうかんじです。
どなたかこれの意味を教えて下さい。お願いします。

>>453
すいません。自レスで補足です。
上の例ですが、$str = "${abc}_$xyz"でした。
ダブルクオートなければ変数展開するものもしないですね。
すいませんでした。

_ が変数名に使える文字である以上、$str = "$abc_$xyz"; の最初の部分は、
perl にしてみれば $abc でなく $abc_ と解釈するしかない。
${abc} とするなどして _ が変数名の一部でないというヒントを与えない限りは。

use strict; use warnings; を有効にしてさえいればつまずかない問題。

>>455
ありがとうございます！
use strict;とuse warnings;を書いたら
Global symbol "$str_" requires explict package name
って出ました。
それで{}を使ってstrと_を切り離すんですね！
勉強になりました！

>>456
すいませんでした。また自レスです。
出たの$str_じゃなくて、$abc_でした。
なんで$strって書いたんだろう。。。

>>449-451

ありがとうございました。
ttp://www.din.or.jp/~ohzaki/regex.htm#Without
の
(?:(?!foo).)*

が今回やりたかった"〜〜"ではないという条件にピッタリでした。
正規表現は奥が深すぎる。

Exporterって
@EXPORTを省略したら
パッケージ内の全てのメソッドが使われるんですか？

つかわれねえよ低レベルすぎる

>>459
>>1
http://search.cpan.org/dist/Exporter/lib/Exporter.pm
CGIに依存しないPerlの話題一般/Part2
http://hibari.2ch.net/test/read.cgi/php/1030548610/
Perlについての質問箱 46箱目
http://hibari.2ch.net/test/read.cgi/tech/1297677532/

Activeperlで動いてと通常のperで動かないプログラムってありますか？

またどちらの方がシェアが多いのでしょうか？

PerlはUNIX文化のものだからActivePerlはなんだかんだいって
茨の道ではある。覚悟して使え。

Windows用Perlを使ってる人は自分のホームページを少しいじくるぐらいの日曜プログラマーじゃないかな？（自分です）
Linuxマシンまでいかない人でも最低、仮想環境を構築しているのでは？

CGIでフォームデータを取り込むときの話で、最後%FORMに値を入れるとき

$FORM{$key}.="\0"if(defined($FORM{$key}));
$FORM{$key}.= $val;

これの最初で未定義値判定して、真なら\0を代入する理由と\0がそもそもなんなのかわかりません。
これを「""」に置き換えても何も問題はなかったので。
まあデータを送ってるから、そもそも未定義値にならないので、ifにひっかかるわけないので当たり前なんですが。
というか未定義値が入ることってあるんですか？
あと最後に値を連結代入してますけど、これなんで、連結なんですか？
普通に代入じゃだめなんですか？
実際試したら連結じゃなくてもできたんですが、どんな意味があるんですか？
本買って勉強してるんですが、このあたりの説明がなくてモヤモヤしてます。
どなたか教えて下さい！

$FORM{$key} に $val を追記する前に区切り子として \0 を付加してるんじゃないの？

つか、このスクリプトは行儀悪いな。

>>465
WEBフォームのチェックボックス等で同じname属性で複数の値が送られたとき、>>466が
言うように"\0"を区切り文字として付加しているんでしょう。

CGI.pmだと配列に入れてるけど、昔のcgi-lib.plとかでは、このように"\0"区切りで
格納してたみたい。

ありがとうございます！
なるほど、name属性が同じなら区切り文字をいれないとですね。
本見たら、2002年初版って書いてますけど、やっぱり古いんですね？
CGI.pmって何？って状態なんでその辺りも調べてみます！

今はもう2011年だし、、、
古く無いと言えるほうがおかしいだろ、

>>469
いやあ、古いからどうしようかな？とは思ってたんですけど
中古で100円で売ってていろんなスクリプト載ってたんで、、、
まあ一応使えそうだったんで買ってしまいましたww
まさか、そんな新しい技があったとか、さっきからググりまくりで軽く後悔してますorz

それ古いってことを差し引いても多分あんまりいい本じゃない
それ読むくらいならネットの情報をあさって勉強汁

>>471
はい！わかりました！がんばります！

perlってなんでswitchねーんだよ、死ねよクソ言語

>>473
http://perldoc.jp/docs/perl/5.10.1/perlfaq7.pod#How32do32I32create32a32switch32or32case32statement63

だっせえ473ｗｗｗｗｗｗｗｗｗｗｗｗ
>>473
>>474

正直、switch 無くても困らないなぁ

mod_perl での実行を考慮するなら、

my $abc = '';

じゃなくて、

my $abc;
$abc = '';

と言う風にしたほうが良い。 ってゆう解釈で OK ？

>>477
これは忘れてくださいｗｗｗｗｗ


どこか、mod_perl で動作する綺麗なサンプルないかしら。。。

色々ググってみたけど、mod_perl ってめんどくせぇな・・・

>>477-479
>>1
【激速】mod_perl SpeedyCGI FastCGI【激速】
http://hibari.2ch.net/test/read.cgi/php/1149505269/

fatalsToBrowserが場合によってはエラーメッセージを表示してくれないんだけど、
コンソールで実行すれば見えるとかじゃなくて、ブラウザでfatalsToBrowserよりも確実に
エラーメッセージを表示してくれるモジュールは無いのかしらん？

それmod_perlいれてるからだろはげ
use libでパスかえろよはげ
カスだなあカスカス　mod_perlだとルートディレクトリがかわるんだよあhげ

use libと
use Cwdつかおうなはげ^^

>>482-483は覚えたての言葉を必死に使ってるって感じが否めない

自分が分からない言葉とか使われるとそういっちゃうんだろうなお前みたいなやつ

うぷぷっぷぷ

ううぇへへげろげおろげろきめぇｗｗｗｗ
こいつきめぇｗｗｗ早くしぬがいい

>>485-486 茶々入れただけでﾌｧﾋﾞｮって無知丸出し
死ね

低レベルのお前よりまともだから安心してね雑魚^^

死ねまで入れるとは相当くやしかったようだね^^低レベル

バカvsバカワロス

Perl忍者>>>越えられない壁>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
>>>>477

ttp://hibari.2ch.net/test/read.cgi/php/1295170172/78
Perl忍者くんはuse strict;したコードが"余程"お嫌いなようです

>>482
mod_perl なんてめんどくせーもんは入れてないよん

Perl忍者さんはヒマなんですか？
至るとこでどうでもいいことよく書いてますけど。

質問です。
$file="test.txt";

open (OUT, ">$file ");

これでtest.txtが存在しなければtest.txtが作成されますが、この場合パーミッションはどのようになっているのでしょうか？

>>495
>>1
http://perldoc.jp/func/open

>>496
実行ユーザーで決まるんですね。わかりました。ありがとうございました。

どこを読めばそういう結論になるんだ? はっきり書いてあるのに。

> ファイルは 0666 をプロセスの umask 値で修正したパーミッションで 作成されます。

print $_->attr('action') if $_->attr('action');
って二回かくの大変なんですが
1回で済ますやりかたありませんか？

>>499
attr メソッドが副作用のない単なるアクセサなら
print $_->attr('action') || '';

>>499
ちょっとばっちいけど
{my $temp; $temp = $_->attr('action') and print $temp;}
とか?

「文字列A　　　　　　　　文字列B」
という 2 つの文字列の間に複数の空白がある行において
/\s*/ でマッチさせると、変数 $` (=$PREMATCH) には何も入りませんでした
なぜでしょうか？

入門書は「パターンマッチが複数解釈出来る場合には一番長い解釈にマッチする」とあります。
よって自分は \s* という「0 回以上のホワイトスペースの繰り返し」は
最も長い解釈では複数の空白にマッチし
$` には文字列A が代入されるはずだと考えたのですが

>>502
その本の説明が曖昧なのか読み違えているのだろう。

http://perldoc.jp/docs/perl/5.10.1/perlre.pod#Quantifiers
> (始めた地点から)可能な限り多くを先にあるパターンでマッチングさせます。

/\s*/ は0文字以上の空白文字なので、先頭の0文字 = 文字列Aの前でマッチし、
そこで全てのマッチングが成功して終わる。更に長くマッチできる他の場所を
探すような事はしてくれない。

http://perldoc.jp/docs/perl/5.10.0/perlretut.pod

> perl -Mre=debug -e "qq/abc def/ =~ /\s*/"
Compiling REx "\s*"
Final program:
　 1: STAR (3)
　 2:　 SPACE (0)
　 3: END (0)
minlen 0
Matching REx "\s*" against "abc def"
　 0 <> <abc def>　　　　　　|　1:STAR(3)
　　　　　　　　　　　　　　　　　SPACE can match 0 times out of 2147483647...
　 0 <> <abc def>　　　　　　|　3:　END(0)
Match successful!
Freeing REx: "\s*"

> perl -Mre=debug -e "qq/abc def/ =~ /\s+/"
Compiling REx "\s+"
Final program:
　 1: PLUS (3)
　 2:　 SPACE (0)
　 3: END (0)
stclass SPACE plus minlen 1
Matching REx "\s+" against "abc def"
Matching stclass SPACE against "abc def" (7 chars)
　 3 <abc> < def>　　　　　　|　1:PLUS(3)
　　　　　　　　　　　　　　　　　SPACE can match 1 times out of 2147483647...
　 4 <abc > <def>　　　　　　|　3:　END(0)
Match successful!
Freeing REx: "\s+"

>>503-504
すごく分かりやすい説明ありがとうございます
納得できました

本題とは関係ないけど、p修飾子（/\s+/p）を付けて、${^PREMATCH}、${^MATCH}、${^POSTMATCH}
で参照したほうがいいね。

質問させてください〜
自宅サーバを立てて、アップローダーを作っているのですが、
ファイルサイズ制限をつけるために、apacheのLimitRequestBodyに値を設定しています。

一応、正常に機能して指定サイズ以上の物はストップしているようなのですが・・・
なぜか、エラーメッセージを画面に出力する時としない時があります。
（異常に大きいファイルをアップロードしたりするとメッセージが出力されない事が多いような・・・）

そこで、Perlスクリプト側でエラーをキャッチして、
独自でエラーメッセージを出力したいと思うのですが・・・
なにか、エラーをうまくキャッチする方法はあるでしょうか・・・？
Googleでいろいろ調べてもみたのですが、さっぱりです
よろしくお願いします。

>>507
>>1
Apache〜嗜みとして〜 Part3
http://hibari.2ch.net/test/read.cgi/php/1043851302/
Apache2.x　【新鯖入荷しました】
http://hibari.2ch.net/test/read.cgi/php/1018333172/

半角カナ、全角カナ　→　全角ひらがなへ
全角の英数字、半角英数字の大文字　→　半角小文字の英数字

※要するに全てひらがなと半角小文字英数字のみにしたい

という処理を行いたいのですが、perl標準ライブラリで変換するにはどのようにすればよいでしょうか？
Encodeだとカナ→ひら変換が無さそうでしたので。。
もし明らかに外部モジュールを使ったほうが良いならそれも検討してみますが、まずは標準モジュールでお願いします。
perl5.8を使用しています。

標準ライブラリにはなかったと思うが、ライブラリ使う
までもなくtrすりゃいいんじゃねーの?

ただし半角カタカナだと濁点半濁点が別の文字なのを
1文字にしたいとかいいだすとちと面倒なのでモジュール
使う方が楽だよ。

>>489
かなりどうでもいいけどPerl忍者ってさ
http://blog.plaync.jp/giko/302948.slog

名前 treeboa
Web http://d.hatena.ne.jp/treeboa/
自己紹介 現在19歳学生です。　
☆Perl団体 TreeBox代表取締役☆ お気楽チャットの開発スタッフ　　
Mac歴7年　OS9-OSX　PPC perl,SQL
↓
150 名前：ハマティー（・´ω｀・） ◆G5mpn6hSoY1y [sage] 投稿日：2010/11/02(火) 01:35:44 ID:RlQq7G3l0 (PC)
お気楽チャットにスタッフがツイッターで暴言はいてるってメール送ったら返事帰ってきた
ご連絡ありがとうございます。
お気楽チャットの管理をしております、ホッシーと申します。
そのユーザーがお気楽チャットに出没していることは
知っておりますが、うちのスタッフではありませんし
当サイトにとっても、マナーの悪いユーザーです。
当初、スタッフを希望していましたが、却下しています。
チャット上での暴言や自ら公認の開発スタッフを名乗ることが多いのですが、
相手にするのも大変なので、放置状態になっていたところです。
今後状況によっては、こちらでも対応してまいります。
どうぞ、よろしくお願い申し上げます。

>>510

ご意見ありがとうございます。
どのモジュールでどんな感じにコーディングすればよいでしょうか？

Zen2Han とかをキーワードにしググッてみ

今なら Unicode::Japanese を引っ張り出さずに
Lingua::JA::Regular::Unicode あたりで片付けるもんなのかな。

>>509の要件どおりだとこんな感じ？なんか地雷踏んでそう。
use utf8;
use Encode qw/encode decode/;
use Encode::JP::H2Z;

my $str = "ﾍﾝｶﾝしたい文字列\nｳﾞｧｲｵﾘﾝ\nﾊﾞﾊﾟﾋﾞﾋﾟﾌﾞﾌﾟﾍﾞﾍﾟﾎﾞﾎﾟ\n１２３ＡｂｃAaBbCc";
$str = encode('euc-jp', $str);
Encode::JP::H2Z::h2z(\$str);
$str = decode('euc-jp', $str);
$str =~ tr/ァ-ンａ-ｚＡ-Ｚ０-９/ぁ-んa-zA-Z0-9/;
$str =~ s/ヴ/う゛/g;
$str = lc $str;

my @list = "aaa 123", "bbb", "ccc 234 567");

foreach( @list ){
if( /^(\S+)\s+(.+)$/ ){
$name = $1;
$name_IGAI = $2 ? $2 : "none";
printf "name=%s name IGAI=%s",$1,$2;
}


上記でforeachで回す$_の最初の空白までは名前で、残りをその他の値として正規表現で拾いたいですが
2個目の要素"bbb"の後ろに何もない場合の書き方がわかりません。
※2つに分ければいいのですが、勉強のために一つの正規表現で表したいです。
http://www.din.or.jp/~ohzaki/regex.htm#Without
の(?:(?!foo).)*あたりを参考にどうにかして書けそうな気がするのですが、
わかりませんでした。
どのようにしたら実現できるか教えていただけないでしょうか。

/^(\S+)(?:\s+(.+))?$/

>>516
http://perldoc.jp/docs/perl/5.10.1/perlre.pod#Quantifiers
> *　 　0 回以上のマッチング
> +　 　1 回以上のマッチング

#!/usr/bin/perl -w
use strict;
for ('aaa 123', 'bbb', 'ccc 234 567', 'ddd 0', 'eee ', '', ' ', "\nfff\n890\t123\n") {
　　/(\S+)\s*(.*)/ || next;
　　my $name = $1;
　　my $value = length $2 ? $2 : 'none';
　　print "name[$name] value[$value]\n";
}
__END__

ついでに
http://perldoc.jp/docs/perl/5.10.0/perlstyle.pod
http://perldoc.jp/func/printf

>>516
my @list = "aaa 123", "bbb", "ccc 234 567");
は
my %list = ('aaa' => [123], 'bbb' => [qw/ccc 234 567/);
って書き直して、
foreach $key (keys(%list)){
　〜
}
ってやればいいかと。

（あめ、あまやどり、あまみず、あめりか）を五十音順で、
（あまやどり、あまみず、あめ、あめりか）に並び替えたいのですが、
発想すら浮かびません。

何かスマートなやりかたはありませんでしょうか。

>>520
print join ',', sort ('あめ', 'あまやどり', 'あまみず', 'あめりか');

http://perldoc.jp/func/sort
http://search.cpan.org/dist/Lingua-JA-Sort-JIS/

join '、', sort split /、/, 'あめ、あまやどり、あまみず、あめりか'

返信ありがとうございます
たった1文でできるとは・・・Perl恐るべし
惚れました

>>520
>（あめ、あまやどり、あまみず、あめりか）を五十音順で、
>（あまやどり、あまみず、あめ、あめりか）に並び替えたいのですが、

それ五十音順と違う。

実行結果みて気付きました
スルーしていただけると思ってたら・・・
ご指摘ありがとです

>>517-519

ご回答ありがとうございます。
今立て込んできてなかなか時間が取れないので
時間が出来たらゆっくり吟味したいと思います。

お返事遅くなりすみませんでした。

誘導されてきました。

utf8での記述やURLデコード、エンコード、文字コード全般に関しての取り扱いです。
とりあえず、utf8とperlの関係が分かってないです。

いろいろ困ってるのですが、今一番困ってるのはエンコードとデコードです。
簡単に書くとこうなります。

#--------------------------------------------
use strict;
use utf8;
binmode STDIN,":utf8";
binmode STDOUT,":utf8";
use URI::Escape;

sub receipt () {
my ($post, $get);
read(STDIN, $post, $ENV{'CONTENT_LENGTH'});
$get = $ENV{'QUERY_STRING'};
return($post, $get);
}

sub my_decode (@){
my @decode = @_;
foreach my $decode (@decode){
 $decode = uri_unescape($decode);
}
return(@decode);
}

print my_decode receipt; #※HTMLにしてブラウザに出力

出力結果は、例えばブラウザから


%E6%97%A5%E6%9C%AC%E8%AA%9E
が送られてきた場合、上記でエンコードすると、

æ？¥æ？¬èª？

こうなります。(完全に文字化けです)。
日本語
って表示されれば成功です。

どうゆうふうにデコードがおかしいのでしょうか？

すみませんがお願いします。
もしかしたら、あとで別の文字コード関連の質問もするかもしれません。

>>527-528
URLはUTF-8でなくASCIIなので、以下は不要では？

#binmode STDIN,":utf8";

それから、URLデコードした文字列がUTF-8になるので、

use Encode;
$decode = decode_utf8 uri_unescape($decode);

とすべきと思うのですが。

>>529

そう言われると全くその通りでございます。
と言うかperlでutf8がどう扱われてるのか全く分かってませんでした。

ぐぐってるウチに扱い方が分かり、
入出力関係の関数を全部書き直して解決しました。

今までEUCとsjisしか使ってなかったんで助かりました。
ありがとうございます。

HTTP引数(POSTとかGETとか)でデータに多重構造を持たせたいのですが、決まった書式はありますか？
それとも勝手に書式を定義してもどっかの誰かにナニコレ？とか言われませんか？

どっかの誰かがナニコレ？と言う可能性はいかなる場合でも常に存在する。
ところで多重構造って何です？具体的にはどーしたいの？

特に変わりのない普通の多重構造です。

例えばperlだと、
$post = {
hogehoge1 => { hugahuga1 => data1, hugahuga2 => data2},
hogehoge2 => data3;
hogegoge3 => { hugahuga3 => (data4, data5, data6,)},
};

と言うように収納できる形式ならそれでいいです。
一応名前付きと違う物を混ぜた形式にしましたが、実際にはどうでもいいです。
慣例化した物がないならこちらで定義するし、あるなら従おうと思っての質問です。

その構造を持ったデータをPOSTやGETで受け渡ししたい理由がよくわからない。
ていうかPOSTやGETってことはブラウザ側からサーバ側へ渡すってことだよねえ。
普通はFORMを使う訳で、その場合は受け渡しデータのフォーマットは決め打ちだから
自分で決める必要もないし、というか自分で決められないし。
セッション張りたいならサーバからブラウザのcookie等にセッションIDを持たせて、
データ自体はサーバ側で保持管理するのが一般的なやり方ではないだろうか。

>POSTやGETで受け渡ししたい理由がよくわからない。
いや、すみませんがよく分からないならいいんです。
それと、質問の内容と答えが違いますし…。

別に書く必要はないと思ってたし、こっちもその話は必要ないので書きませんでしたが、
クッキーはゲートウェイが通らない仕組みなんです。あと無理にやっても仕様が一本化されないし。
それと、行いたいのは保存や管理ではなく通信なんです。

とりあえず、質問に質問されても話がこじれるだけになってしまいますので、>>532-535の書き込みは忘れてください。
>>531の質問が全てです。

一応答えはNOと頂いたと受け取っておきます。

整合性がとれてれば俺形式でもなんでも好きなのでいいと思うよ。
めんどくさいからjsonとかStorableとか世の中にあるものを
使っといた方がいいと思うけど。あるいはデータを丸ごと
やりとりするんじゃなくてサーバ側に保存してidだけやりとりって
のも考えられる。データ量が多いときはそういう方法も考えた方が
いいね。

xml でも json でも、好きなの使えば良いかと

ありがとうございます。
特にキーワードを与えてくれて助かりました。
既存のほうが 何このフォーマット？勝手に作ったの？とか言われにくいんで。

ちなみにID管理はすでにしてますｗ。
一回の通信がちょっと多めなんです。
それが並列データで送られてくると、イチイチ個々のデータに対応しなきゃならなくてえらいめんどくさいんです。

xml はめんどくさいし、なんか仰々しいので JSON の方がおすすめかも

perlでcgiをコーディングし始めたものです。
xhtmlにて一旦ページをつくりそれを元に動的なページを作るために試行錯誤しています。
しかし問題が発生して困っております。
それは、表示の問題で、IE9では正常に表示されてるものがFireFoxでは表示が崩れるというものです。
ただ、一度xhtmlのページを作った段階では表示の差異はなくしてるのですが、これをperlに取り込む実行させると
同じ値を渡したページがFireFoxでは正常に表示されたり、崩れたりします。
ソースを調べてもxhtmlで作ったページとcgiで生成したページに違いはなく、cgiのほうだけ崩れたりそうじゃなかったりと原因が特定できません・・・
何が原因と考えられるでしょうか？

追記です。
ちょこちょこ検証していて、おそらく
print "Content-type: text/html\n\n";
の出力するタイミングでxhtmlのスタイルシートの読み込みが遅れると出力出来ないんじゃないかと疑っております。
ただ、現状でテストしていかないと原因が切り分けられそうにないので、
有用な情報があればいただければ幸いです。
原因が特定でき次第報告させていただきます。

>>540-541
>>1
自分の作ったCGIスクリプトをデバッグするスレ
http://hibari.2ch.net/test/read.cgi/php/1011174442/
△▲　WebProg 初心者の質問 Part23　▼▽
http://hibari.2ch.net/test/read.cgi/php/1294318320/

>>542
お返事ありがとうございます。
識者の方に検証いただくのは願ったり叶ったりなんですがperlのコード自体が1000行以上あり
cssとイメージが連動してるんですが、大丈夫なものでしょうか？また、どうやって検証していただくかたちがいいでしょうか？

perl で出力してるページと、HTML を表示してる URL をプリーズ
あと内部のばれたら不味いような部分を消してソースもくれ。
見なきゃ分からん

cgiからのヘッダーがごく微妙におかしい場合、無理くり読み込むブラウザや、表示を多少崩しても実行するブラウザや、
ちょっとでもおかしいと即座に実行を停止するブラウザとかあります。
ちなみに必要な改行数とかが、私の中では間違いやすく気付きにくいポイントです。改行コードの違いとか。
あとは文字コードの指定とか。

元HTMLとCGIからの出力に「本当に差異がない」場合は、ヘッダーのミスしか差異が起きる発生箇所がないかと思います。

あと、本当に差異がないのかどうか、目視ではなく、プログラムで検査したほうがいいです。
自分で作るか、適当にどっかからファイル比較ソフトをダウンロードしてくるか。

>>544
全く同じではないですが構造は同じだと思います
cgiのほうはDBからデータを取ってきて表示しています
ローカル環境でしたので、公開は即席で行なっております、また、固定IPではないのでIPが変更された場合ごめんなさい
かなりの不備はお赦しください
http://219.103.217.162/contents/category/c01b.html
http://219.103.217.162/contents/category/test001.cgi
>>545
文字コードutf8で統一されてるとはおもいますが、Encodeモジュールにてutf8デコード→加工→utf8エンコード出力しております。
ただ、記述に関して若干の差異があるので、それもひとつの原因となりうるのですね
もう少し詰めて、原因を探っていきたいと思います。

>>541
> print "Content-type: text/html\n\n";
> の出力するタイミングで

出力するタイミングって…
真っ先に出力されてるもんじゃないの?
もしかして $|=1; が入ってないからとか?

>>538
> 特にキーワードを与えてくれて助かりました。
「構造化 データ 交換 フォーマット」あたりでググればJSONやXMLくらいすぐ出てくるけどね。
でも既存のフォーマットを採用しても「なんでこれを採用したの？」と説明を求められたりして。

CGI の挙動おかしくない？
レスポンスが HTTP/0.9 とか返ってくるんだけど・・・

設定の労力は AnHTTPd も Apache もさほど変わらないから、
Apache で HTTPD を立て直したほうがいいと思う

http://hibari.2ch.net/test/read.cgi/php/1295170172/540n- か
二度手間とか「それは聞きました」になるから同時進行させないでほしいもんだ

>>549
apacheを導入しました（cgiが動かずだいぶ苦戦しましたが・・・）
ひとつずつ切り分けていったところどうにかローカル環境では動きました
その副産物的にファイアーフォックスでほぼ、正常動作してくれました（ただ、数十回中なんどか表示が崩れる場合がありましたが・・・）
この程度なら耐えうるかなとおもいます
http://219.103.217.162/contents/category/c01b.html
http://219.103.217.162/test.cgi
外部に公開するのは初なので自宅サーバー確認ページなどで確認してみましたが、表示されますでしょうか・・・
>>547
$|はバッファ関係の特殊変数でしょうか？
$|=1; を代入してみても、数十回に数回起こる崩れは治りませんでした・・・
なんなんでしょう・・・
>>550
結果的にマルチっぽくなってしまったのは申し訳ありませんでした・・・
こちらをメインとさせていただきます

got 403 Forbidden

cgiのほうは値を渡さないとエラーが出てしまうので
http://219.103.217.162/test.cgi?cate_data=a&row_data=1&num_data=1&method_data=1&page_data=1
これでどうでしょうか

> http://219.103.217.162/contents/category/test001.cgi
> #!usr/bin/perl
↑ #!/usr/bin/perl じゃないの？

まずは use strict; と use warnings; をつけて、
エラーを吐かなくなるまで修正してみることをおすすめする。
Firefoxのレンダリングエラーとは直接関係ないかもしれないけど
後々のためにはやっておいた方がいいと思うので。

まあFirefoxは4になって以降挙動が微妙に怪しいからな…

見た感じ、プログラム自体は経験者なんですね。
で、

if ($int_nm_nm == "1") {

は文字列として比較したいのか、数字として比較させたいのかはっきりと。

数字 → ==、!=
文字列 → eq、ne




しかし SQL 文はさっぱりわかんねぇや（理解するつもりもそんなに無いけど・・・）

昨日の朝(AnWebのとき)
/contents/category/c01b.html → 200 Document Follows。やさいたべたい。
/contents/category/test001.cgi → >>549の言うように HTTP/0.9 で返って来てた。

今朝(Apache)
/contents/category/c01b.html → 200 OK。やさいたべたい。
/test.cgi → 404 Not Found
/contents/category/test001.cgi → 200 OK。でも text/plain でコードがでてくる。

403食らうって言われてごにょごにょしてるうちに AddHandler cgi-script .cgi 辺り殺したのかな？

XHTML の Content-Type は何にしとくのが無難かで地雷踏んでたわけでもなさそうだし
web鯖がおかしな動きしてただけかもしれない。
shebang の話はCGIが動く設定にすれば #!/usr/bin/perl にしてもコケるかも。windows だし。

うーん今時グローバル変数を使ってるのは見る気がしないぞ…
それと、if文がでかすぎ。htmlをすべてhereドキュメントでコードの中に書くのはできればやめた方がよい。
今回のようにデバッグしにくくなるから。スカラー変数の多用もよくない。スカラーは限られたブロック内の
一時変数として使う程度にしておく。それ以外はハッシュを効率よく使うとよい。まあ好き好きだけれど。
$html = <<"HTML" のようなのだと、変数は展開してしまうから、意図しない置き換えが起きているとか。
単純に意図しているのとは違う書き出しをしているとか。
本来表示されるべきhtmlとのdiffを取るとか、firefoxならHTML validatorでおかしなところを拾うとか、
部分ごとにhtmlを作っているものをところどころにチェックポイントを入れて、少しずつチェックしていくとか
すれば、「崩れる」原因は当たりがつけられそうだけれど。

いちおう〜エスパーしてみる

ScriptAlias → コメントアウト
DocumentRoot の内の Options に ExecCGI をプラス
AddHandler cgi-script .cgi を有効に。

数々の方のお知恵、ダメだしをいただきありがとうございますm(__)ｍ
うれしいです
>>554
あとあと use strict は通る道と思いつつ、あとまわしにしてしまいましたがエラーの切り分けには大切だと思います
修正してみたのですがどうでしょうか
>>555
全くのトーシローです
よくみると、ラクダ本からほとんど足を出してないほどだとおもいます
数字と文字によって変えたほうがいいのですね、勉強になります

>>556
はい、AddHandlerあたりをいじりました
windows環境でしたので#!/usr/bin/perl は#!C:/perl/bin/perlに変更しました。
コードの不具合で起きたのではないならそれでそれで骨が折れます・・・
>>557
アドバイスありがとうございます。
そうですね・・・ifの中にヒアドキュメントででかいhtmlは見栄えなども悪いと思います・・・ごりごり書いてたらこうなってました・・・
あとあと別ファイルとして分けるつもりではいますがいつになるかわかりません＾＾；
ハッシュは理解はしてるのですが実践的な使いようが良く分かっておりません・・・
IE9、Crhome、safari、FireFoxとテストしていますがいかんせんFireFoxだけこういう挙動になってしましました・・・

名前欄ミスってしまいました・・・
>>558
ScriptAliasを無効にした場合、ルート外のディレクトリのcgi-binのcgiも動くのでしょうか？

ExecCGI を書けばね

もし自分がデバッグするとしたら…
・元のXHTMLとCGIが出力したXHTMLの構造に不一致がないかチェック。
　(これはもうやってるんだっけ?でもその後CGIいじったんだよね)
・上記を、IE9とFirefox(4?)の両者でそれぞれソース保存して違いがないかチェック。
・HTTP ServerやSQLのログにヒントがないか見てみる。
・ローカルプロキシ等でHTTPパケットをモニタして、IE9とFirefoxとで
　(また、Firefoxで表示の崩れる症状が出た時と出なかった時とで)
　パケットのやりとりに違いがないか見てみる。
あたりかな。

ちょっと忙しくレスが遅れて申し訳ありません・・・
>>562
もうすこし理解を深めたいですね・・・
設定ファイルは英語で丁寧に書かれていて英語をネイティブに読めたらどんなに楽か考えつつ翻訳してました・・・
やっぱり英語圏の方がソフトウェアに強いと言われる所為は英語で書かれている書籍やそもそもプログラミング言語自体が英語ベースだからでしょうか・・・
>>563
元のHTMLとCGIで生成されたHTMLを付きあわせてはやってみました
なるほど・・・別のブラウザ同士のソースを見てみるんですね
HTTPのパケットはどのようにしてモニターするのかわからない状况なのでまだまだ修業が必要ですね
ピンが通ったかどうか調べるだけでも骨が折れるレベルなので・・・

スパゲッティなperl cgiにアクセスログなどを保存するコードを簡単に追加できる方法を緊急で探しています

もうじき成立する法律で、自前サイトもってる人がログ保存してないと３年の懲役らしいのです
http://tanakaryusaku.jp/2011/06/0002432

半分以上がネットで拾ったコードの切り貼りなので中身把握をしてないので非常に困ってます
（貼りつけたときは入出力だけは把握してたけど今は憶えてない）

何か良い知恵はありませんでしょうか

ありません

マルチ野郎に示す事など御座いません

簡単にコードを追加できるものをスパゲッティとは呼ばん
つまりスパゲッティと形容している時点で簡単にコードを追加できる方法などない
ということだ
あとそのリンク先のジャーナリストの書くことを鵜呑みにしない方がいいぞ
原発事故関連でもいい加減な記事書き飛ばしてるような奴だ

さいきんiphone晩モンスターハンターにはまってます
それで僕もモンスターハンター作りたいと思いました
JRPGの意思をついでＣＵＩ版モンスターハンターをつくりました
みてください
tokuhirom で検索すればモンスターハーター　とくひろむ改が出てきますよろしくお願いします

クソシテネロム
お得なヒロム
モンスターハンターのアカムトルムっていう敵がいるんですが
そのモンスターの名前が不満足だったので
トクヒロムに変更しました
今後ともtokuhiromをよろしくおねがいします

3年の懲役ｗ

メモ書き失礼します (後々に他の人のためにもなるかなと・・・)

use AAA とした場合、package 名も同じにする必要があり、ファイル名とパッケージ名が異なる場合、
例えば AAA.pm に package ABC と記述があった場合は import ABC としなければならない。

１時間ぐらいずっと試行錯誤しててハマった。

あっ、関数を Export する場合のお話です。

そういう変なことはやめとけ

やっぱりぼくじゃ盛り上がりませんねな

あ

フォームから日本語を送信したときの動作に納得できない点があるので、教えてください。
(メモ：binmode STDIN, ":utf8"; で UTF8 フラグが付き、binmode STDOUT, ":utf8"; は UTF8 フラグが外される)


◆ TEST1
use utf8;
binmode STDIN, ":utf8";
print $form->param('string');
-> utf8::is_utf8($form->param('string')) ： flag on
-> Apache Log ： no Error

◆ TEST2
#use utf8;
binmode STDIN, ":utf8";
print $form->param('string');
-> utf8::is_utf8($form->param('string')) ： flag on
-> Apache Log ： no Error

◆ TEST3
use utf8;
binmode STDIN, ":utf8";
$str = decode('utf-8', $form->param('string'))
print $str;
-> utf8::is_utf8($form->param('string')) ： flag on
-> Apache Log ： Wide character in print

２回の投稿に分けます。

TEST1 と TEST2 は何故 Wide character in print のエラーが出ないのでしょうか？
テストのため binmode STDOUT, ":utf8"; は意図的に外してあります。

TEST3 で意図的に decode でフラグ立てたらちゃんとエラーが出ました。

ためしにソースに書かれた日本語を出力してみた

◆ TEST4
use utf8;
binmode STDIN, ":utf8";
print "あいうえお";
-> utf8::is_utf8("あいうえお") ： flag on
-> Apache Log ： Wide character in print

ちゃんとエラーになる。

use utf8 は文字列リテラル（TEST4でいう「ソースに書かれた日本語」）をフラグ付きutf-8にする
binmode STDIN, ":utf8" は標準入力から入ってきた文字列を以下同文
$form->param('string') がそのどちらでもないなら勝手にフラグは立たないと思うが、
TEST1〜4 の flag on ってのは実際に is_utf8 で確認したって意味？

enctype の指定で application/x-www-form-urlencoded と multipart/form-data との違いも見てましたが、
multipart/form-data だと希望通りフラグが立ってると Wide character in print が出てくれますが、
application/x-www-form-urlencoded だとフラグが立ってても Wide character in print が出てくれません。


テストスクリプトです。
http://w3.podzone.net/charcode/

HTML、Perl スクリプト共に UTF-8 (BOM無し) です。

>>580
そんなに詳しくはないですが、、、

multipart/form-dataだと生データが来るので、UTF-8オクテット文字列を受け取ることになります。
（UTF-8文字列が来るという>>580の想定通り）

application/x-www-form-urlencodedだとURLエンコードされたデータが来るので、（URLで許さ
れる）ASCII文字列を受け取ることになります。

ASCII文字列が来るのに、

binmode STDIN, ":utf8";

として、utf8でdecodeするのは、URLデコードするときに害が出るのでやめたほうがいいでしょう。
（場合によっては意図してASCII文字列をUTF8フラグONにしたいときもあるかもしれませんが）

このフォームデータがUTF-8になるのはURLデコードした後なので、URLデコードした後にdecodeし
ましょう。

今回のように、Latin-1（0x00FF以下）の出力では、UTF8フラグONの文字列でも「Wide character
in print」の警告は出ないです。

どう見てもutf8フラグなんて立っていません。本当にありがとうございました。

僕はたちません
童貞ですから

それはEnd of Danseiki

小飼・男性器

こういう質問する人はたぶん文字コードと言えばSJISだと思ってる（というか
文字コードっていう概念を知らない）気がする

utfのフラグの質問なのに、なんでsjisを出すんだ？
それにソースを見る限りはそこまで初心者って思えないけどな。

きみは良く「周りを見ろ」とか「憶測だけで物を語るな」とか言われるでしょ？

>>587
言ってくれる友達がいないんです

んでも、ネットに書いてあるからとりあえずそうしてみた程度で何も考えずコードコピペしてるようだし
文字コードの概念知ってても知らなくても大して変わらんとは俺も思う

フラグが立ってるマルチバイト文字を出力すれば Wide character in print が出るんですよね？

>>581
ちょっとずつちょっとずつ理解してきたつもりだけど、application/x-www-form-urlencoded の時がまだ腑に落ちない。

例えば
use utf8;
binmode STDIN, ":utf8";
として application/x-www-form-urlencoded で日本語を POST したとき、
「%C3%A8%C2%B7%C2%AF%C3%A5%C2%9C%C2%B0%C3%A8%C2%A3%C2%8F%C3%A3%C2%81%C2%AF%C3%A3%C2%82%C2%B9%C3%A3%C2%83%C2%86%C3%A3%C2%83%C2%BC%C3%A3%C2%82%C2%B8%C3%A3%C2%81%C2%AB」
ってゆう文字列がくるんだけど、この文字列にフラグが立ってようが %C3%A8%C2%B7%C2%AF は 路 なので
「路地裏はステージに」
って文字列が CGI->param で得られるんだけど、CGI->param で得た文字列に対して utf8::is_utf8 で調べるとフラグが立ってると言われる。
でも CGI->param で得た文字列を print しても Wide character in print ってゆう warning が出てくれない。

変数は勃っててもデータは勃ってないから

>>590
%C3%A8%C2%B7%C2%AFは長いので、%C3%A8で説明します。

binmode STDIN, ":utf8";によって、%C3%A8というASCII文字がutf8としてdecodeされると、
%、C、3、%、A、8というutf8の6文字と認識されます（UTF8フラグがONされる）。

次に、CGI.pmでこれがURLデコードされると、"\x{00C3}\x{00A8}"というU+00C3、U+00A8の
2文字になります。

"\x{00C3}\x{00A8}"は両文字とも0x00FF以下（Latin-1）なので、printをしても
「Wide character in print」の警告は出ません。

Perl側から見ればprintによって、0xC3、0xA8というLatin-1の2文字を出力しますが、
ユーザー側がこれをUTF-8としてみれば、UTF-8の1文字として見えるでしょう。

>>592
わかりやすい。参考になった。

群馬県高崎市に住む３９歳ＡＢ型、製造業界で派遣プログラマーの仕事をしているhekenekoこと、黒飛健と申します。
新日本テクトスという会社を追われ、その後どうしてよいかわからなくなりました。
だけど私の大好きな尾崎豊の歌に励まされ、夢であるプロのクリエイターを目指すことにしました。
何度も挫けそうになりましたが、尾崎豊の歌を聞きながら自分を励ましています。
今も尾崎豊の歌のおかげで、夢を諦めずにＣＧアニメの製作を続けられています。

とりあえず、以下の動画を見てください。一生懸命作ったもので、自分では既にプロレベルの傑作だと思ってます。
できればみなさんのご意見、ご感想を聞きたいです。

復興支援アニメ.mp4
http://www.youtube.com/watch?v=yn4uTiN8vvM

湾岸鉄道キャンペーンCM（カラー).mp4
http://www.youtube.com/watch?v=g3PlX1OAhug&feature=channel_video_title


これは力作で、にしおかすみこさんにも是非見てもらいたかったため彼女のブログにコメントしたんですが無視されました。
http://blog.watanabepro.co.jp/nishiokasumiko/archives/2008/02/22_15_post_22.html
（下の方にあります。投稿者: hekeneko | 2008年03月24日 22:54）
やはり私の才能に気づいてくれる人は中々いないみたいですね（苦笑）。


題名”ラダニアムの翼”
A wing of radaniam_part�U.mp4
http://www.youtube.com/watch?v=keSK70uqDJY
A wing of radaniamu　part_�V.mp4
http://www.youtube.com/watch?v=-LRZbXbirR0

題名”hekeneko honey”
http://www.youtube.com/watch?v=kATwf6fAkG8
私の世界観の全てを凝縮した力作です。hekenekoワールドをご堪能あれ。

ファイルアップロードされた場合の容量チェックなんですが
受け取った後にチェックし容量オーバーの物は弾いているんですが
故意に大きなファイルを送られた場合サイト全体が重くなってしまいます。
受け取る前にチェックして弾けないでしょうか？

デコード処理の先頭に
if ($ENV{'CONTENT_LENGTH'} > 307200) {exit;};#300KB以上は弾く
また、apacheのLimitRequestBodyは試したんですがどうも全部送りきってるようです

その議論はどっかでやったわ

CGI 配下で動くものはサーバーが全て受け取ってからプログラムに渡すので無理

PHP は順次処理できたような気がするけど忘れた

javascript で事前に弾くか、actionscript 使うかだと思うよ。

>>592
なるほど。
だからフラグが立ってても Wide Character 〜 のエラーは無かったのか。。。

ありがとうございました。

url エンコードで送られてきたデータは CGI->param で受け取った後、
utf8::downgrade でフラグを外すようにしてみた。

自身のperlスクリプトで、自身が呼び出されたときのHTTPヘッダはどうやって見ることができますか？
よろしくお願いします。

>>599
そんな回りくどいことをしなくても、単にbinmode STDIN, ":utf8"を外せばいいような。。

$in->content_type

１から20ぐらい教えてもらわないと何も出来ない馬鹿なのさ

マニュアルを読(よ)みましょう

よよみましょう

(よ) がふりがなであることも理解できないとはPerlコーディング以前の問題か

マジレスｗ

>>606
おまえかわいそう

>>608
>>608

Hero セレクト画面

ジャスティス側の軍勢

Tokuhirom
Yappo
Yusukebe
まつもとひろゆき


カオティック側の軍勢
Mala
ssig33
Mizuti
otsune
はまちちゃん

$string = 'まやら'; #'あいうわやえお'
$seach = '[わワﾜゎヮ][やヤﾔゃャｬ]'
$flag = 0;
if( $string =~ /$seach/ ){
$flag = 1;
}

SJISでひらがなを正規表現でマッチさせるとき、上記だと$flagが1になるようです。
文字コードの問題だと思い、
ttp://www.din.or.jp/~ohzaki/perl.htm#JP_Match
のサイトを参考に下記のように修正してみましたが、これであっていますでしょうか？
一応いくつかの文字列でテストしてみましたが、全てチェックできないので、助言をお願いします。

$string = 'まやら'; #'あいうわやえお'
$seach = '[わワﾜゎヮ][やヤﾔゃャｬ]'
$flag = 0;
$oneByte_sjis = '[\x00-\x7F\xA1-\xDF]'; # 1バイト SJIS文字
$twoBytes_sjis = '(?:[\x81-\x9F\xE0-\xFC][\x40-\x7E\x80-\xFC])'; # 2バイト SJIS文字
$character_sjis = "(?:$oneByte_sjis|$twoBytes_sjis)"; # SJIS文字
$seach = "^${character_sjis}*?(?:$seach)";
if( $string =~ /$seach/ ){
$flag = 1;
}

>>611
Shift JISのままパターンマッチングさせずに
文字コードを適宜変換して行なうが吉。

>>612
ありがとうございました。
検討してみます。

UTF8を使えば、こんなに簡単なのにな。

\p{InHiragana} ひらがな
\p{InKatakana} カタカナ
\p{Han} 漢字

>>611
マルチバイト文字はperlの内部文字コードにdecodeしてから処理しましょう。

大昔ならjperlの出番だったところだな
jperlとかjgawkとかよくお世話になった

みんなこれフォロー
http://d.hatena.ne.jp/sugyan/20110616/1308203734

ここに乗ってるのフォローしてくださいお願いします

みんなこれフォロー

「今すぐフォローすべきPerl界のスーパーエンジニア」
↓
http://d.hatena.ne.jp/sugyan/20110616/1308203734

ここに乗ってるのフォローしてくださいお願いします

お願いですRuby のみなさんおねがいです

Perl忍者
名前 treeboa
Web http://d.hatena.ne.jp/treeboa/
自己紹介 現在19歳学生です。　
☆Perl団体 TreeBox代表取締役☆ お気楽チャットの開発スタッフ　　
Mac歴7年　OS9-OSX　PPC perl,SQL
↓
150 名前：ハマティー（・´ω｀・） ◆G5mpn6hSoY1y [sage] 投稿日：2010/11/02(火) 01:35:44 ID:RlQq7G3l0 (PC)
お気楽チャットにスタッフがツイッターで暴言はいてるってメール送ったら返事帰ってきた
ご連絡ありがとうございます。
お気楽チャットの管理をしております、ホッシーと申します。
そのユーザーがお気楽チャットに出没していることは
知っておりますが、うちのスタッフではありませんし
当サイトにとっても、マナーの悪いユーザーです。
当初、スタッフを希望していましたが、却下しています。
チャット上での暴言や自ら公認の開発スタッフを名乗ることが多いのですが、
相手にするのも大変なので、放置状態になっていたところです。
今後状況によっては、こちらでも対応してまいります。
どうぞ、よろしくお願い申し上げます。

>>619
ご指定のページが見つかりません。
URLをもう一度お確かめ下さい。

遁走済

Perl忍者って確か犬板や雲丹板に糞スレ立ててた奴と同一人物かな？
Perl忍者だか黒真珠だかなんかそんな単語見た記憶がある

>>619
っせえ
黙ってろ

ブログのエントリー ID を time() で付けて管理してますが、
SQL で何ページ分と言った感じで取り出してる場合、
指定したエントリー ID が何ページ目にあるのかを知る SQL なんてのはあるんでしょか？


やりたい事の例）
1000 〜 10999 で１刻みで合計１０００個の発言をして、
１ページあたり１０件の表示 (合計で１００ページ)
そして例えば 10525 という ID を指定した場合に、その ID が含まれるページ番号
(この例なら 53 ページ目) を知りたい。

>>624
>>1
データベース
http://hibari.2ch.net/db/
SQL自体を勉強したい
http://hibari.2ch.net/test/read.cgi/php/995806031/
PostgreSQL 2テーブル目
http://hibari.2ch.net/test/read.cgi/php/1047317680/

文字化けの修復について聞くのはスレ違いかな？
自作のクローラで utf8 のサイトを euc-jpで decode → utf8 に encode してしまい
豪快に文字化けしてしまったんですが、逆の操作をしても元に戻せません。
何かヒントでもいいので修復方法について案はないでしょうか。

連投すみません。
バイナリエディタで見たら大半の文字がREPLACEMENT CHARACTER（0xEF 0xBF 0xBD）に
置換されてました。修復不可能ですね。諦めます。

#!/usr/bin/perl
use strict;
use warnings;
use TEST;
my $oTEST = TEST->new()
my $hoge = $oTEST->encode('utf8','ほげ');　※1
print <<EOF;
<!DOCTYPE html>
<html>
<head>
<meta charset="utf8">
<title>$hoge</title>
</head>
<body>$hoge</body>
</html>
EOF
exit;
#----------------------------------------
package TEST;
use strict;
use warnings;
use Encode;
sub new{
my ( $oTEST ) = @_;
bless{},$oTEST;
}
1;

オブジェクトの勉強中で、上記のcgi本体とパッケージがあった場合に質問です。
→次レスに続く

→続き

�@本体、パッケージ両方にuse strict; use warnings;は両方書かないと
　それぞれで効力がないという認識でよろしいでしょうか？
�ATESTパッケージでuse Encode;することで、cgi本体からは、オブジェクト$oTESTを使い
　$oTEST->encode()などでEncodeモジュールは使えないのでしょうか？
�Bperl5.8.8から内部文字コードはutf8になったとのことですが、
　※1の行は必要ないのでしょうか？

1.はい(現在のスコープ(ファイル末尾)まで有効)
2.$oTESTはTESTをblessしてる(print ref $oTEST)からEncodeとは無関係(Exportもpackage TESTにされる)
それをしたいならour @TEST::ISA = qw/Encode/
3.ソースに書くならuse utf8した(internal form)上で Encode::encode(q/utf8/, qq/日本語/)

>>630
継承させようがさせまいが
Package->encode(charset => 'string') は
Encode::encode('Package', 'charset', 'string') になるので
sub encode { shift; Encode::encode(@_) } のようなラッパーを書くか
Package::encode(charset => 'string') と呼ぶ必要があるように思うけど?

久々にビシっと決まってる回答を見た気がするｗ

my $a = [
['0', 'ぜろ' ],
['5', 'ご'],
['1', 'いち'],
['3', 'さん'],
['7', 'なな']
];

上記リファレンスの$a->[*]->[0]でソートするにはどのように書けばよいでしょうか？

まず $a って変数名をそこに使うのはよくないので $ref だとして、
my $sorted_ref = [ sort { $a->[0] <=> $b->[0] } @$ref ];

'' なので cmp
または int 使って <=>

イランだろ…

>>635
int 付けるなんて何処の初心者サイトで覚えたんだ？
それっだけならまだしもcmp?!

% perl -MData::Dumper -le 'print Dump { $a <=> $b } qw( 2 12 )]'
$VAR1 = [
　　'2',
　　'12'
];
% perl -MData::Dumper -le 'print Dump { $a cmp $b } qw( 2 12 )]'
$VAR1 = [
　　'12',
　　'2'
];

コピペみすった。正しくは以下。

% perl -MData::Dumper -le 'print Dumper [ sort { $a <=> $b } qw( 2　12 )]'
% perl -MData::Dumper -le 'print Dumper [ sort { $a cmp $b } qw( 2　12 )]'

>>637
cmp も <=> は結果同じになったよ＠v5.10.0 built for MSWin32-x86-multi-thread

This is perl, v5.10.0 built for MSWin32-x86-multi-thread
Binary build 1003 [285500]

これでやったけど637が試したとおり <=> と cmp で順番変わったよ。

>>638の2と12の間が全スペになってるせいではなくて？

コピペだから気が付かなかった

…重ね重ねスマン。

my $hostname = hostname();
$hostname =~ s/.jp//;

のような処理をしているのですが、
これを

my $hostname = s/hostname()/.jp//;

みたいな記述で１行にまとめることはできませんか？

(my $hostname = hostname()) =~ s/\.jp//;

>>645
（ID変わってしまいましたが）
ありがとうございますm(_ _)m

>>646
どういたしまして。

ブログを作ってるんですが、そのブログの中で頻繁に使う関数を別のファイルに追い出したのですが、
その追い出した関数郡を見直したときにオブジェクトにした方が楽になるのが幾つかありまして、
１つのファイルの中に３つほどのパッケージが存在すると言う状況になっています。
また、それらパッケージはそのファイルの中からしか呼ばれないものです。

で聞きたいことは、１つのファイルに複数のパッケージが存在して運用するのはイレギュラーなのかどうか。
です。

ちなみに
package MyFunc;
use base 'Exporter';
our @EXOPRTER = qw(testtest);
sub testtest{
　　my $conf = CONFIG->new();
　　$conf->aaaa();
}


package CONFIG;
sub new{
　　my $self = shift;
　　bless {}, $self;
}
sub aaaa{
}


このような感じで使っています。

>>648
複数パッケージを1つのファイルにまとめる人もいるし、必ず分ける人もいる。
こんなところでアンケートを取るより、
手元の環境にインストールされてるモジュール群でも一通り調べてみたら?

class感覚で使うなら分けたほうがわかりやすい気もするが
イレギュラーではないはず

ゴミみたいだな
C#使いの俺から見たら
>>648の汚い忍者Perl文法がゴミのように見える

まあ、あながち間違ってはいない。
クラスというものがないから、無理やり作ってる。
C言語でオブジェクト指向をする規約みたいなもんだ。

ttp://megalodon.jp/2011-0529-1203-32/blog.plaync.jp/giko/302948.slog
ttp://blog.plaync.jp/giko/302948.slog
名前 treeboa
Web http://d.hatena.ne.jp/treeboa/
自己紹介 現在19歳学生です。　
☆Perl団体 TreeBox代表取締役☆ お気楽チャットの開発スタッフ　　
Mac歴7年　OS9-OSX　PPC perl,SQL
↓
150 名前：ハマティー（・´ω｀・） ◆G5mpn6hSoY1y [sage] 投稿日：2010/11/02(火) 01:35:44 ID:RlQq7G3l0 (PC)
お気楽チャットにスタッフがツイッターで暴言はいてるってメール送ったら返事帰ってきた
ご連絡ありがとうございます。
お気楽チャットの管理をしております、ホッシーと申します。
そのユーザーがお気楽チャットに出没していることは
知っておりますが、うちのスタッフではありませんし
当サイトにとっても、マナーの悪いユーザーです。
当初、スタッフを希望していましたが、却下しています。
チャット上での暴言や自ら公認の開発スタッフを名乗ることが多いのですが、
相手にするのも大変なので、放置状態になっていたところです。
今後状況によっては、こちらでも対応してまいります。
どうぞ、よろしくお願い申し上げます。

すみません、パターンマッチの質問です。
環境変数を参照してロボット排除したいのですが、うまく動作しません。

if($ENV{'HTTP_USER_AGENT'} = ~ /www¥.baidu¥.com/){
print "Location: http://www.baidu.jp/¥n¥n";
exit;}

ってすると、普通にアクセスしてもbaiduに飛んでしまいます。
何がいけないのでしょうか？

=~

あ〜〜、空けちゃいけないんですね、今の今まで知らなかった

レンタルサーバの場合、コマンドラインからモジュールのインストールが出来ないサーバがほとんどだと思うのですが、
cgiを置きモジュールを使いたい場合、どのようにインストールするのがスマートでしょうか。
（例）Email::MIMEやHTML::Templateのインストールなど

自分が思いつくのは、

自分のPCに使いたいレンタルサーバと同じ環境を作りそこでインストール　→　/usr/local/lib/*** をftpでアップロード

ですが、これだと使うレンサバが複数だと管理がかなり大変だと思っています。
みなさんが運用されている方法や参考サイトなどありましたら教えていただけますでしょうか。

use lib

use lib 'DIR'

もし use lib が使えなくても、自身のディレクトリに PATH は通ってるので、
CGI が置いてあるディレクトリに置けばなんとかなる

>>658-659

ありがとうございます。
ちょっと質問の意図がうまく伝わっていないようですみません。
インストールしたモジュールの運用方法ではなく、
レンサバにどうやってインストールしているのか、の方法についての質問です。

sshログイン（コマンドライン）が使えるサーバであれば下記コマンドで簡単にインストールできますが、
ssh、telnetが用意されていない（コマンドラインが使えない）サーバで、モジュールをインストールするのに
なるべく簡単な方法を探しています。

cpan2rpm
yum
perl -MCPAN -e shell

質問の内容がわかりづらくてすみません。

ローカルにインストールしてzipなりtgzなりで固めてftpで転送して展開する
コンパイルが必要なモジュールを含む場合は使えない手かもだが
スマートな方法ってのはよくわからないけど
たびたびアップデートする必要とかあるならスクリプトなりバッチなり書けばいいんでは

makeするCGIを書く

pureperl なモジュールなら FTP でアップするだけ。

ssh とか入れない鯖が make 出来るとは思えないんで、pureperl なモジュールを探せばよいかと。

鯖缶に頼む

つか、1000円/月以下でレンタルできる
VPSをなんで使わないの？
使えばインストールなんて簡単なのに。

>>665
500円/月以下でレンタルできる
ホスティングサービスが好きだからさ。

DTIのVPSは490円だお

DTIはアダルトコンテンツ禁止なんだよなあ(適法でも)

月500円程度で、無駄な努力
アホすぎるｗ

CGIからデータを吸い取ってこちらで加工したいと考えています
lwpでアクセスを試みましたが401エラーで弾かれてしまいました
どうやらIIS/5.0を使っている模様ですがどういう方法で接続するのか
どなたでもかまいません、助けていただけませんか

>>669
よく理解できないまま参加してくるなよカス

>>670
ttp://www.studyinghttp.net/status_code#Client_Error
IIS関係ない

>>672
てっきりこれが原因かと思い込んでました
認証がうまく言ってない事は間違えなさそうですね･･･
さてどうしたものやら・・・
URLどうもです！

>>673
どううまくいかないのか情報少なすぎ
とりあえず「lwp 認証」でググれ

>>674
ローカルで.htaccessを設定した自分のサイトへのアクセスができるかの確認⇒自動ログイン成功
そのまま自動ログインしたいサイトに接続を試すとやっぱり401.3で弾かれる・・・
↓エラー
HTTP 401.3 - リソース上の ACL によってアクセスを拒否されました。
インターネット インフォメーション サービス

具体的に

ソース張ればいいかな？

670です　二つの違いが少し分かりました
Authorization: Basic eW***********************==
となっているところが
Authorization: NTLM TlRM****************************==
cookie: __utma=********************
となっています　これが原因でしょうか？

とりあえずその cookie を食えるように cookie_jar を用意しよう。

NTLM認証って分かったんだろ、それでcpanあたれよ

my $ret = system( "ssh host command" );
としたとき、私の環境では、hostへの接続自体が失敗したときには 65280 を
commandの実行で失敗(存在しないコマンドの指定など)では 32512 が返されます。

しかしこの戻り値について言及された資料が見当たらず困っています。
65280 -> 1111 1111 0000 0000 -> (8ビットシフト) -> 255
32512 -> 0111 1111 0000 0000 -> (8ビットシフト) -> 127
のように何かルールがあるのかなぁ、とも思っているのですがお手あげ状態です。

環境は OSはRHEL 5.5、Perlは5.8.6です。
アドバイス願いします。

失礼しました。ageます。

my $ret = system( "ssh host command" );
としたとき、私の環境では、hostへの接続自体が失敗したときには 65280 を
commandの実行で失敗(存在しないコマンドの指定など)では 32512 が返されます。

しかしこの戻り値について言及された資料が見当たらず困っています。
65280 -> 1111 1111 0000 0000 -> (8ビットシフト) -> 255
32512 -> 0111 1111 0000 0000 -> (8ビットシフト) -> 127
のように何かルールがあるのかなぁ、とも思っているのですがお手あげ状態です。

環境は OSはRHEL 5.5、Perlは5.8.6です。
アドバイス願いします。

ねえなんで資料がないとかぬかすわけ？
perlfuncにしっかりと書いてあるんですけど

>>678
もう見つけてるだろうけど「ntlm認証 perl」でぐぐったらすぐ拾えたよ
LWP::Authen::Ntlm - LWP で (Microsoft) NTLM 認証を有効にするライブラリ 【perldoc.jp】
ttp://perldoc.jp/docs/modules/libwww-perl-5.813/LWP/Authen/Ntlm.pod

>>679
やってみます
>>680,684
ありがとうございます私のほうでも何回か試しましたが、It didn't work!と出ていました
Mydomain\\ユーザー　←ドメイン・・・とはどれを指すのでしょうか

>>661,662,663,664,665

ありがとうございます。
pureperlであれば<<663さんの方法でいけますが、問題はバイナリを使う場合ですね。
pureperlで代替できる場合は問題ないですが、代替が無い場合は

ローカルで同じOS環境を作ってインストール（コンパイル）→インストールしたディレクトリ一式をftpでアップロード

しか方法はないのでしょうか。

※　>>662　を見て思ったのですが、これはcgiからsystem("make〜")などを使いインストールするということでしょうか？
具体的にどういう意味か教えていただけないでしょうか。参考サイト情報でも構いません。

>>686
うちで借りてるのは安い共用ホスティングサーバだけど
sshでログインもmakeでコンパイルもできるよ。
まずは今どきmake(コンパイル)も使えないサーバはやめて
makeできるサーバに変更をおすすめします。その方が早い。

$HTMLの中身に
<DIV class="list">
<a　href="1.ここがほしい">
<IMG onload=function(){};
src="2.ここもほしい">
</A>
</DIV>
<DIV class="list">
<a　href="1.ここがほしい" target="_blank">
<IMG onload=function(){};
src="2.ここもほしい" height=100>
</A>
</DIV>
こんなソースがあるとして<DIV>~</DIV>までを拾おうとしても何も拾えません・・・

$html =~ m#<DIV class="list">(.*?)</DIV>#g
これじゃだめなんですか？

とっとと死ねよクソガリども

>>688
置換演算子のせいだと思う

++ hoge.pl ++
my $html = <<EOF ;
<DIV class="list">
<a　href="1.ここがほしい">
<IMG onload=function(){};
src="2.ここもほしい">
</A>
</DIV>
<DIV class="list">
<a　href="1.ここがほしい" target="_blank">
<IMG onload=function(){};
src="2.ここもほしい" height=100>
</A>
</DIV>
EOF

print $1 . "\n" if $html =~ m#<DIV class="list">(.*?)</DIV>#gs ;

++++++

% perl hoge.pl

<a　href="1.ここがほしい">
<IMG onload=function(){};
src="2.ここもほしい">
</A>

>>690 >>691
sをつければいいんですね　正規表現難しい・・・
ありがとうございます解決しました

>>688
Web::Scraper 使うとラクだよ

bashで
array=( xx{01,02,03} )
とすると、arrayの中には xx01,xx02,xx03 という要素が生成されるのですが、
perlでも同じようなことはできないでしょうか？

my @array = glob 'xx{01,02,03}';

glob ってそんなのにも使えるのか。。。

>>694
@array = map { 'xx' . $_ } '01'..'03';

>>694
@array = map "xx0$_", 1..3;
@array = map sprintf 'xx%02d', 1..3;

ごめん、下は
@array = map sprintf('xx%02d', $_), 1..3;

１つめは１０以上が０１０となるから駄目じゃね？

半角カタカナで質問です。

�@ｱｶｱｶをuriエンコードすると%B1%B6%B1%B6
�A%B1%B6%B1%B6をuriデコードすると蔚蔚

となり文字が変わってしまいます。
カタカナの文字コードが%一つで表せられるためだと思うのですが、正常に変換させるにはどのようにしたら良いのでしょうか？

URIに半角カナを使うな。以上。

>>700
"\xB1\xB6" は Shift_JIS なら "ｱｶ" だし EUC-JP なら "蔚"。
変換自体は正常に行われている。

>>701
助言ありがとうございます。

htmlの<form><input name=TEXT></form>でカタカナテキストを拾う場合、
どのようにすればよいのでしょうか？
ググったらPOSTもGETもURIエンコードされたものが送られてくるとありました。

ちなみにURIデコードは下記を使っています。
$str =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack( 'H2', $1 )/gxmse;

>>702

うまく変換できました。
エンコードサイトでも"蔚"になることを確認してたんですが、その時にも文字コードがごっちゃになってたようです。

ありがとうございました。

受信したメールからタイトルと本文を取得しようとしています。
テストでタイトルに半角カタカナを入れたのですが、
下記を実行すると全角カタカナで表示されます。
半角は半角のまま取得したいのですが、どのようにすればよいのでしょうか？

use Net::POP3;
use Email::MIME qw();
use Encode;

my $pop3 = Net::POP3->new( 'server' );
my $count = $pop3->login(’user', 'pass');
my $messages = $pop3->list();

print "Content-type: text/html\n\n";
print "<html>\n";
foreach my $id (sort (keys %{$messages})) {
my $mail = join q(), @{ $pop3->get($id) };
my $parsed = Email::MIME->new($mail);
printf "%s<br>\n",encode( 'sjis', $parsed->header('Subject') );
}
print "</html>\n";

>>705
メールのSubjectに半角カナを使うな。以上。

URL(serch.cgi?key=検索文字)こんな感じで全角文字列をいれたら全角文字でもから始まる数字でもなく???c??O??のような文字化けしてしまった
検索結果を直接そこに入れたら結果を返すようなプログラムを作りたいのですがどうやったら回避できるのでしょうか

文章読み返したら色々ひどい
日本語勉強しなおしたほうがいいんじゃないか俺・・・

utf8 にエンコードされて送られてるよ

>>705
そのメールを他のメールソフトで受信した場合は半角カタカナで表示されるのでしょうか？
他のメールソフトで受信した場合のそのメールの生ヘッダーを見せてください。

XSS対策について質問です。
タグの中にユーザーの入力文字列を含む場合、
どの文字をエスケープしておけば安全なんでしょうか？

ググったものの「<」、「>」、「&」、「"」、「'」の5種類としてあるサイトばかりなのですが、
<a href="「ここに入力文字列」">hoge</a>
こういうケースだとjavascriptを実行されてしまうのではないかと思うのですが。
できることには制限がありそうですが、こういうのも一括して完全に防ぎたいです。

>>711
http://www.ietf.org/rfc/rfc2396.txt
Parsing a URI Reference with a Regular Expression

ここを見ればいけるかな？

>>710

返信ありがとうございます。
とりあえず全角になる現状のヘッダ部分を貼り付けます。
タイトルも本文も全角になっています。
半角まる（｡）も全角まる（。）になっています。

Return-Path: <[email protected]>
Delivered-To: xxx@xxx
Received: (qmail 24465 invoked by uid 610); 12 Aug 2011 12:44:11 +0900
Received: from unknown (HELO docomo.ne.jp) (203.138.203.xxx)
by xxx_server_xxx with SMTP; 12 Aug 2011 12:44:11 +0900
Received-SPF: pass (xxx_server_xxx: SPF record at docomo.ne.jp designates 203.138.203.xxx as permitted sender)
Date: Fri, 12 Aug 2011 12:44:09 +0900 (JST)
From: [email protected]
To: xxx@xxx
Subject: aaaaa=?iso-2022-jp?B?GyRCSD4zUSUrJT8lKyVKGyhC?=
=?iso-2022-jp?B?GyRCISMhIyEjISMhIxsoQg==?=
Message-ID: <[email protected]>
MIME-Version: 1.0
Content-Type: multipart/mixed; boundary="STMsgeYV"
Content-Transfer-Encoding: 7bit

--STMsgeYV
Content-Type: text/plain; charset="iso-2022-jp"
Content-Transfer-Encoding: 7bit

さはやわ
半角カタカナ。。。。。
です

>>712
ありがとうございます。
あれは例に出しただけで、URI等関係なく一括して防ぐ方法は無いものかと思った次第です。

正直なところjavascriptの埋め込み方が多彩で把握し切れてないです。
hrefだけが例外なんですかね？

自己解決。
これはページ内で実行してるのとは別物っぽいですね。
他にも似たようなタグがあったら怖いなーと思ってましたｗ

>>713
ふつーに全角の「半角カタカナ。。。。。」をエンコードしてあるように見える。

暇つぶしでDoCoMo端末からPC宛てに「半角ｶﾀｶﾅ｡｡｡｡｡」で送ってみたけど
これキャリアのほうで全角変換かかってない？絵文字→〓みたいな感じで。

>>713 >>716
ISO-2022-JP に半角カナ (JIS X 0201 片仮名) は存在しないので
他の文字コードで MIME エンコードしなければ
半角カナを含む Subject を正しく送れる保証はない。

>>717
やっぱりそこかなーと思うんよ。
キャリアが JIS X 0208 のカタカナに変えてくれてるみたい。
端末で UTF-8 + MIME-B とか選べるわけでもないしさ。

昔のMUAだと charset="ISO-2022-JP" を謳うボディに
JIS X 0201 カタカナ を混ぜられると色々崩壊したなあ。

>>713
docomoは携帯電話網からインターネットへ送る際に、半角カタカナ → 全角カタカナの変換を行っている
ようなので、インターネット経由でメールを受け取る場合はあきらめるしかないですね。

[status]
file1 ... success
file2 ... failed
file3 ... success

ファイル生成後の結果を　ゲームなどのinit確認画面のように準に表示させたいのですが
通常すべてが終わってからﾊﾞﾝとでますよね
どうやったら　perlでも少しずつ表示させる事ができるのでしょうか？

モダンなPerlでオブジェクト指向をするとしたら
何を使うのが普通なのでしょうか？

プチダノン

>>720
$| = 1;

>>723
調べたがさっぱり・・・もう少しｋｗｓｋ

perlvarを見て

>>725
！分かりました。ありがとうございます

低レベルスレ低レベルスレ低レベルスレ低レベルスレ低レベルスレ低レベルスレ低レベルスレ低レベルスレ低レベルスレ
低レベルスレ低レベルスレ低レベルスレ
低レベルスレ低レベルスレ低レベルスレ低レベルスレ
低レベルスレ低レベルスレ低レベルスレ低レベルスレ低レベルスレ低レベルスレ低レベルスレ

ですが、誰かレスお願いします。

>>728
perlを使わない

>>729
それ以外はありませんか？

Moose

Perl5＋オブジェクト指向であれば
Mooseが本命なのでしょうか？

での標準モジュールではないですよね・・・？

Perlは標準モジュールとしてはモダンなオブジェクト指向を
サポートしない方針なのでしょうか？
それとも将来Mooseが標準モジュールとして
採用される可能性はありますか？

Mooseが標準モジュールになる事なんて有り得ない。
「モダン」ってーのは言葉づらだけで、「はやり」ってルビを振って読め。
つまり標準ってーのは流行廃りと無関係の立ち位置。
（誰が始めたんだ？このモダンって糞用語）

あ、「モダン」な物全てを否定してる訳では無いよ？

「モダン」になる前のPerlがあまりにもひどかったから、「モダン」とつけて線引きしたかったんだろうなぁ。
どこかに、PerlでObjectを作る際の例を何点か挙げて、比較検討してるところがあったと思うんだが、そういったとこを見て、場合によって使い分けるのが現実的ではあると思う。

が、面倒ならやっぱりMooseじゃね？
Mouseとかもあって、更には他にMooseが使われてるならMoose、Mouseが使われているならMouseを使うようにするモジュールまであったと思うんだが、そもそもそれらの遷移が早くって、一昔前のモジュールを使ってみたらこっちで使えないとかいう。。。

> （誰が始めたんだ？このモダンって糞用語）
Mozillaじゃね？ モダンブラウザとか言ってさｗ

>>721
Perl5であれば素のままでオブジェクト指向プログラミングができる
モジュールに依存しないから、Perl5のバージョンを上げても大丈夫

>>733
ユニコード対応に失敗したのに気づいたときに「モダン〜」でごまか
そうとした
10年前の失敗につけた名前なのでもうモダンでも何でもない

>>733
>ユニコード対応に失敗したのに気づいたときに「モダン〜」でごまか
>そうとした
>10年前の失敗につけた名前なのでもうモダンでも何でもない
まるで「ラリーが言ってる」みたいな事、書くなよ。
perl5.6の時点で既にperl6 の構想自体はあったのに、
perl5.6をモダンなんて持ち上げる訳が無い。

モダンな実装とモダンなコーディングとモダンなモジュールとはそれぞれ別に考えたほうがよくないかな

>>739
それはいいアイディアだ。
つまり、>>721の求める「モダンなPerlのオブジェクト指向」というのが何を指しているのか？ってところだな。

テストが無いのがレガシーって考え（？）なんてのまであるらしいから、はっきり決めないと収束しないべ

モダンとかカジュアルとかまじやめてくれねえかな
死んでください

Perl忍者とか生きてんのまじやめてくれねえかな
死んでください

モダンがどうとかどうでもいいが、
少なくともnewかいてblessがどうとか
そういう話をするのは見苦しい。

オブジェクト指向のやり方を使ってアプリを作りたいのであって
オブジェクト指向の仕組みを作るのが目的じゃないんだから。

無理してperl使う必要無いよ？

他の人がPerlばっかり使っていて
そう決まっているから仕方ないのです。

Moose万歳の人は、同数以上のMooseに批判的、否定的な人がいると
言う事に気付かないのか？

Mooseを批判している人は
何を使ってるの？

単にオブジェクト指向が理解出来ないだけ？

？？意味不明
Moose はどうでもいいけど。
普通に new, bless 使ってコード書きゃいいだけだろ。

>>748
それを楽に書く書き方がMooseってだけなんだが、
なんでMooseを批判しているの？

面倒なことをやりたいだけ？ ドM？
少し勉強するだけで、簡単にかけるのに
単に勉強嫌いか頭が硬くなっただけじゃない？

「標準モジュールに無いモジュールを使われて、それを
標準モジュールオンリーのスクリプトにリライトする」
仕事をした事があった上で、その意見を言えるなら尊敬するわ、俺。

個人的にMooseを弄らなくも無いが、怖くて仕事には使えん。

なんか暑くいや熱くなってるところ申し訳ないが質問があるます

my $res = $ua->get( qq($url) );
これで取得した検索結果になぜかだぶりが出てしまって困っています。
実際のWEBで見るとそんな現象はおきないので　何かしらの設定不足があると思うのですが・・・

>>758
俺なら、標準モジュール以外を
使わないと決めたやつをぶん殴るわｗ


これがもしC++ならBoostは使わないってことだし。
JavaならSpring、SeasorなどのDIコンテナを使わないってことだし、
C言語だと、ネットワーク通信すらできないな。

「窓の手入れたら色々捗るよ！」
「会社のPCに、んなモン入れられるか、どアホウ！」

「窓の手入れたら色々捗るよ！」
「会社のPCに、んなモン入れられるか、どアホウ！」
「じゃあカスタマイズしたい時はどうするんだよ。」
「窓の手を自作すればいいじゃないか！」

そして車輪の再発明を
行い続けましたとさ。

おしまい

>>752
もちろん必要なら許可は出る。
Mooseみたいなwrapper+αには許可は出ない。

Inline::CでCコードが埋め込んであったスクリプトを
perlに書き換えた時は地獄だった。

あるあるｗ

他人が作ったライブラリを信用しないで
全部オレオレライブラリを自作する会社ｗ

でそういうのは大抵質が悪いし機能も少ないし、
会社専用の知識だから、外部での経験もいかせないし、
技術者も育たないし、どんどん腐れていくんだよな。

>>756
> 「標準モジュールに無いモジュールを使われて、それを
> 標準モジュールオンリーのスクリプトにリライトする」

あれ？ そういう仕事じゃなかったのですかｗ
嘘だったんですか？