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

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

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

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

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

お勧めサイトは >>2 以降

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

[プログラミング自体の経験が無い奴はまずココを読め]
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/
perldoc きまぐれ訳: ttp://fleur.hio.jp/perldoc/
perldoc.jp: ttp://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/

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

>>1 乙

[
{
key1 => 123,
key2 => 456,
},
{
key1 => 324,
key2 => 135,
},
{
key1 => 123,
key2 => 135,
},
続く...
]
こんな感じの配列をソートするにはどういう方法が最適でしょうか？
key1で昇順にソートして、key1が同じ場合はkey2で降順にソートします。
key2も同じ場合はどちらが先になってもかまいません。

sort { $a->{key1} <=> $b->{key1} || $b->{key2} <=> $a->{key2} } @$aref

ありがとうございます。||こんなのつかえたんですね。

>>5
こいつは上忍級

どあほ、perldoc -f sort に書いてある程度の
基礎の基礎じゃねーか。

全スレでファイルのロックの質問があったけど
読み込んで表示のみ＝ロックの必要はない

読み込んだデータを加工して書き込む場合＝

ファイルロック１
ファイル読み込み
データ加工
ファイル書き込み
ファイルロック１の解除

というようにするが正解だろ

読み込んで表示のみにロックする必要あったら
普通のＨＴＭＬファイルだってロックしなきゃならんだろ

読み込んでる途中にファイルが書き換えられても困らないんならする必要はないよ





flockとはなんだったのか

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

余りに遅レスって批判は出来るにせよ、質問に答えてるじゃん

データベースやってれば
書き込みロックと読み込みロックが
あることぐらい知ってるだろ。

フォームのPOST情報を送ったあとのページを取得し、HTML::TreeBuilderあたりで
情報を取得しようとしています。
下記だと�@はヘッダ？の情報が出てきますが、�Aは何も出てきません。
どこか間違えているのでしょうか？

my $url = 'http://example.com';

my $formdata = ['id' => '***', 'pass' => '***'];
my $request = POST($url, $formdata);
my $ua = LWP::UserAgent->new;
my $res = $ua->request($request);

print $res->as_string; #�@
print $res->content; #�A

#my $tree = HTML::TreeBuilder->new;
#$tree->parse($res->content);
#$tree->eof();

as_string()はHTTP::Responseの全文、つまりheader+body
content()はbodyを返す

example.comを見るならば、Content-Length: 0なんで当然content()は空になる

>>15
example.comは仮で書いただけなんですが、そのことを書いていませんでした。
失礼しました。

コード的には間違っていないようなので、別の要因を探ってみます。
ありがとうございました。

すいません、質問です

foreach $data (@isbn){
if(length($data) != 13){
$error_message = "length error";
break;
}
if($data =~ /[^0-9]/){
$error_message = "charactor error";
break;
}
}

$dataに入っている数字が13文字以外の時と、0-9の数字以外の時に
#error_messageにエラーを書き込んでforeachループを抜けるようにしたいのですが、なぜか13文字＆数字だけの時にも両ifともtrueになってしまいます。

先に述べている動作をさせたい時の条件の書き方を教えていただけないでしょうか？

foreach $data (@isbn){
　　　　if(length($data) != 13){
　　　　　　　　$error_message = "length error";
　　　　　　　　break;
　　　　}
　　　　if($data =~ /[^0-9]/){
　　　　　　　　$error_message = "charactor error";
　　　　　　　　break;
　　　　}
}

見づらいだろうので修正

例えばどんな@isbn？

ほんとにすいません、フォームから送ったデータに改行コードが入ってたせいでおかしくなってたようです
失礼しました・・・。

my $error_message;
for my $data (@isbn){
if (length $data != 13){
$error_message = "length error";
last;
}
if ($data !~ /^\d+$/){
$error_message = "charactor error";
last;
}
}



次から >>1 には「use strict; use warnings; を必ず使う事」とでも書いとけ。

break は last の誤用だと思われるのだが・・・

ってことで break が自作の関数だったりしなくて、ループから抜けることを意図としてるなら
last としませう。

% perldoc -f break

break Break out of a "given()" block.

This keyword is enabled by the "switch" feature: see feature
for more information. Alternately, include a "use v5.10" or
later to the current scope.

>>22
Perl以外のほとんどの言語はcontinueやbreakだから
他の言語を先に知っててPerlにあまり馴染みがないと
最初のうちは間違っちゃったりするよね

Perl / C,JavaScript,PHP,Ruby,Python,etc.
next / continue
last / break

単語の意味を考えると、Perl で採用した next, last の
よさがじわじわと分かる。continue, break だとあいまい
な感じがして、(単語からは)何をしてくれるのか想像しに
くい。

printlnとか書いてて発狂しないのかな、あっちの言語圏は。

printlnってperlでいえばsayだよな。

あっちの言語圏は変数名と被ると駄目なんだっけ？

>>28
関数名は動詞、変数名は名詞にしましょうねｗ

形容詞は？

引数

はじめまして
現在SQLを勉強するためにPERLを使いMYSQLにつなぐ練習をしています

DBIを使用してデータベースへの接続およびテーブルを作成することはできました。
このデータを更新する為にユーザーから　ユーザーIDおよびパスワード データを新規ユーザー登録フォームなどから受け取るにはどうしたらいいのか、
またデータベースから受け取ったデータから全体のソートをかけたい全表示したい場合　どうしたらいいのかわからず困っています

かってですがURLのところに?userid=foo&password=fooのようにはできるだけ表示しない方向でよろしくお願いします

>>32
>>1
http://www.ifdefdebug.com/cgi_introduction/
http://perldoc.jp/docs/modules/CGI-3.49/CGI.pod

依頼されたツールを誰かが作るスレ
http://hibari.2ch.net/test/read.cgi/php/1078997682/
金出すからスクリプト作ってよvol.1
http://hibari.2ch.net/test/read.cgi/php/1150508106/
DBの絡んだWEB制作の相場
http://hibari.2ch.net/test/read.cgi/php/1004437935/
手伝ってくれるかた募集
http://hibari.2ch.net/test/read.cgi/php/1083303786/
【総合】 Webprog板質問雑談スレッド 1
http://hibari.2ch.net/test/read.cgi/php/1131016915/

>>33
すみません・・・リンクの中を見るとフォームのデータはこれでできそうですね
テンプレを読まず・・・申し訳ない

すみません、質問です

XML::Simpleを使ってXMLを解析しているのですが、　<Creator Role="イラスト">名前</Creator>　
のような属性（エレメント？）付きの値を取り出すにはどうすればいいのでしょうか？

普通に~~~->{Creator}->{Role}とすると属性の中身？の"イラスト"は取り出せるのですがその先が分かりません・・・。
もしかして::Simpleでは取り出せないのでしょうか？

失礼、解決しました

~~~{creator}->{content}で中身を取り出すことが出来ました

再度失礼します

現在Padreで開発しているのですが、なぜかPadre上ではうまく動いているのですが、
サーバーにUPすると500エラーを吐いてしまいます。

確認してみた所、my $ua = LWP::UserAgent->new();が原因でエラーを吐いているようで、
ライブラリ自体はちゃんと所定の場所にあり、パーミッションも他のライブラリと同じ設(705)で問題は無いはず。
そもそも頭のuse LWP::UserAgent;ではエラー吐いてないのでライブラリ自体は読み込めてるようです。

エラーの無い状態で上記のmy $ua = LWP::UserAgent->new();を追記した時点でエラーになるのですが、
これってただnewしただけでも他の物に影響を与える物なのでしょうか？

>>37
http://perldoc.jp/docs/perl/5.10.1/perlfaq9.pod

>>38
すいません、そこは既にチェックした後だったのですが一向に解決していません
LWP::UserAgentは止めて、LWP::Simpleを使おうとするも今度はuseした時点でエラー・・・。

use LWP::Simple ();　にして、後でgetすればエラーでないというのも見かけましたが関係なくエラーが。

エラーの内容を画面に表示すればわかるよ。

すいません、use worningsだけじゃエラーが出なかったんですね・・・

Can't locate HTTP/Config.pm in @INC
エラー先を見たらUserAgent.pm内の require HTTP::Config;　　これがエラーの原因のようです

まさかと思ってHTTP::ConfigをDLしてきてユーザー固有のフォルダに入れてみたら動きました
LWP:;UserAgent自体が使うファイルも色々CPANから拾ってきておかなきゃだめだったようです・・・というか外部ソース依存多すぎる

そして私の場合、レンタルスペースを利用している為、XML::Parserのコンパイルとか出来ないんですがこの場合どうしたらいいんでしょうか・・・？

>>42
> この場合どうしたらいいんでしょうか・・・？
・管理者にインストールしてもらう
・設置先と同じ環境を手元にも構築してコンパイルしたものを持っていく
・設置先で利用できる形にまとめてくれている人を探して一式もらう
・Pure Perl なモジュールのみを使うよう書き換える
・サーバを替える

いずれにしてもスレ違い。

pure perlな実装で代用すれば良いんじゃね。

コンパイルもできるレンサバに替えるのがいいとおもふ。

#そして次は「すいません、できないと思ってたけどコンパイルできました」とか書き込まれそうな予感

すいません、できないと思ったけどコンパイル・・・という冗談は置いといて、
結局　XML::UserAgent　も　XML::Simple　も使わずに済むPurePerlな　XML::TreePP　を使う事にしました。

こういう放置は本当はあまりよくないんでしょうけど、とりあえず完成させたいもので、とりあえず後で再考する事に。
失礼しました。

>>46
> こういう放置は本当はあまりよくないんでしょうけど、とりあえず完成させたいもので、とりあえず後で再考する事に。

いえいえ、良い選択だと思います。ご健闘を。

コンパイルができないと諦めるもんじゃない。
たとえshellが使えなくともtelnet.cgiみたいなのを使って
コンパイルすればいいのだ。

サーバーの環境を特定し、それに近い環境で
自宅コンパイルしたものをアップする方法もある。
諦める必要はないぞ！

初心者です。2ちゃんの統計を出力するスクリプトを作りたくて、色んな場所からつぎはぎして作っていたのですが、問題がでて進めなくなりました。
板の中のスレの内容を表示しようというところまできたんですが、カウンターの i が動いていないような感じで、同じスレ(dat)が何回も表示されてしまいます。
ほかにもツッコミどころがあったら教えてください。
ソースは次のレスです。

全部は入らないので関わってると思うところだけ抜きました。

use LWP::UserAgent;
use HTTP::Request::Common;

$url = "http://hidar.2ch.net/news4vip/subject.txt";
$durl = "http://hidari.2ch.net/news4vip/dat/";

&getData($url);

$threadlist = $response->content;

while($threadlist =~ m|\n(.*?)\.dat<>|g){
　　　　　　　　push(@dat, $1);
　　　　　　　　}

for ($i=0; $i<=$#dat; $i++){
　　　　　　　　$url = $durl . $dat[i] . ".dat";
　　　　　　　　&getData($url);
　　　　　　　　$content .= $response->content . "\n";
}

print $content;

sub getData
{
　　　　　　　　$ua = LWP::UserAgent->new;
　　　　　　　　$ua->agent('');
　　　　　　　　$request = GET($_[0]);
　　　　　　　　$response = $ua->request($request);
}

ごめんなさい、>>50です。
$url = "http://hidar.2ch.net/news4vip/subject.txt";
$durl = "http://hidari.2ch.net/news4vip/dat/";

はそれぞれ

$url = "http://hibari.2ch.net/news4vip/subject.txt";
$durl = "http://hibari.2ch.net/news4vip/dat/";

でした。別なURLでテストしてたのをごまかしたので、URLが間違っていたせいじゃないです。
ていうかdatディレクトリがそのまま見られるみたいだからそっちから抽出したほうがよかったかな・・・

>>50
コードはともかく、とりあえずiはミスタイプで正しくは$iだね

>>52
できました！
ありがとうございます！！！

use strict;
use warnings;
この2つは必須!

他のスレからこちらに誘導していただきましたのでここでも質問させていただきます。

初心者なのですが、どなたか教えてください。
サーバーに最新のapache(onWindowsXP)をインストールし、Activeperl（最新版）
によるcgiで、Win32::OLEをつかって、
サーバー側でAccess起動→マクロを走らせる→Access閉じる
を行いたいのですが、上手くいきません。
同じPERLソースで、AN HTTPD だと上手くいくので、apacheの設定の問題だと思うのですが、
どこをどう設定するのかが分かりません。

つづきです。すみません。

ちなみにソースは
# Accesオブジェクトを生成、起動
my $access = CreateObject Win32::OLE 'Access.Application' || die "Cannot create Access object\n$!\n";
my $mdb = 'C:/hoge.mdb';
$access -> {'Visible'} = 1;
$access -> OpenCurrentDatabase($mdb);
$access -> DoCmd -> RunMacro('hoge');
$access-> quit();
undef $access;

です。

>>55-56
>>1
http://perldoc.jp/docs/perl/5.10.1/perlfaq9.pod
Apache〜嗜みとして〜 Part3
http://hibari.2ch.net/test/read.cgi/php/1043851302/

つづきです。最後です。すみません。

現象としては、ログにもエラーはなく、サーバー側でタスクマネージャで確認すると
Accessが起動していることまでは確認できるのですが、そのまま止まってしまいます。
タスクマネージャーからAccessを強制終了すると、それ以後のperlスクリプトが処理されるようです。
どなたか同じようなご経験をお持ちの方はおられませんでしょうか。

宜しくお願い致します。

>>56
my $access = CreateObject Win32::OLE 'Access.Application' || die "Cannot create Access object\n$!\n";
は
my $access = Win32::OLE->CreateObject('Access.Application' || die "Cannot create Access object\n$!\n");
と等価なので CreateObject() が偽を返しても die しない。

http://perldoc.jp/docs/perl/5.14.1/perlop.pod#Operator32Precedence32and32Associativity

>>58
「それ以後」がどのステップを指していて処理自体は期待通りに終わっているのかどうか不明なので
同じ症状かは分からんが、「perl Win32::OLE access」でググれば

http://www.kaimei.org/read/internal/perl_w32
> 私が Win32::OLE から Excel へアクセスするプログラムを書いてみたところ、
> Perl スクリプトからだと問題ないのに CGI からこれを呼び出すと失敗するケースがあった。
> きちんとした原因まで把握できていないのだが、少なくともオープンする Excel ファイルのパスは
> / ではなく \ で区切らないとアプリケーション・オブジェクトの取得に失敗するようである。

という話が出てくる。

PSGI に対応した WAF では何が使い易いのでしょうか？
それぞれの WAF の特色とか違いとかが分かるサイトとかあるのでしょうか？
ご教示いただければと思います。

スレッドごとにファイルがあって
それをまとめるスレッドリストファイルがある場合のロックについて

ファイルロック１
スレッドＮファイルへの書き込み
スレッドリストファイルへの書き込み
ファイルロック１の解除

というようにしなければならないので
例えばスレッド１にだれかが書き込んでいる最中は他スレッドでも書き込みができない
ということになる。
ということで間違いないんですか？

それとスレッドを誰かが見るだけの場合でも

ファイルロック１
スレッドＮファイルの読み込み
スレッドリストファイルの読み込み
ファイルロック１の解除
としなければならないので

誰かが任意のスレッドを見ている間はどこのスレッドにも書き込めない

ということでいいんでしょうか？
そうするとロックかかりまくりじゃないんですか？

それぞれのファイルに対してロックすればいいだろ

>>62
それぞれのファイルにロックすると
スレッドＮファイルには書き込まれて
スレッドリストファイルにロックがかかるという場合も考えられる
そうするとデータの連動がずれる

>>61
マルチスレッドプログラミング相談室 その8
http://hibari.2ch.net/test/read.cgi/tech/1253521167/

>>64
スレッドってそのスレッドじゃないと思うんだｗ

>>61
ロックかかりまくりとはいうけど
実際は各リクエストがケンカしないように順番に処理されていくわけだから特に問題はないだろ。

DBMSみたいに、まとめ役のプロセスが1つだけ起動して、もちろん複数起動しないようにして、
そいつが全部取り仕切るように動かせばいいんだ。疑似マルチタスクみたいに。

ロックには排他ロックと共有ロックがあってだな
・・という話ではない、これ？

シェケナベイベー

>>68
この件は全部排他
横からだけど>>61の解答は気になる

教えてください
Perlで2chの特定のキーワードのスレを自動取得するCGIを改造したいのですが、

#板名「@BoadName」にある、スレッド名に「$KeyWord」を含む板の一覧を表示する。
$BoardName[0] = "大規模MMO";
$BoardName[1] = "ネトゲサロン";
$BoardName[2] = "ネットwatch";
$Keyword = "●○";

この条件のところで、大規模MMO板だけでなく、例えば
ニュー速等複数の板を指定するにはどういう風にコードを書き換えれば良いでしょうか？
なるべく簡単な方法を教えてください。

スクリプト
http://aceof.s57.xrea.com/?p=sp

>>71
正規表現を使えるようにすればいいんじゃないの。

>>72
…？どうやるのでしょうか？
COBOLは昔習いましたが…
条件のところの
$BoardName[0] = "大規模MMO"; を
Ａ(大規模MMO)　AND　Ｂ(ニュー速)　のような条件にしたいのですが、
parlでの表記が分かりません。
コードを教えてください。

例えば

$BoardName[0] = "大規模MMO" AND "涙目ニュース";

ではエラーになりますよね？？

$BoardName[0] = "大規模MMO";
$BoardName[1] = "ネトゲサロン";
$BoardName[2] = "ネットwatch";

$BoardName[3] = "ニュース速報";
$BoardName[4] = "WebProg";

でいいんじゃないかな?
Socket　って使ったことないからわかんないけど BoardName で追ってみると
http://www.ff.iij4u.or.jp/~ch2/bbsmenu.html
↑ここから $BoardName[n] でURL取ってるみたいだし
確認してないけど

>>75
すみません、基本的に大きな勘違いをしていました

$BoardName[0] = "大規模MMO";　　板名
$BoardName[1] = "ネトゲサロン";　スレット名
$BoardName[2] = "ネットwatch";　？

かと思っていましたが、全部板名で、番号を増やしていけばいいだけですよね＾＾：

で、
$Keyword = "●○";　の所を2〜3個指定したいんですが、
複数指定したい場合はどう書けば良いのでしょうか？

$Keyword = "●○" "●▲" "××";

$Keyword = "●○" AND "●▲";
　　でしょうか？
ANDの代替がぐぐっても分かりません・・・
ちなみにスレ一覧のURLは移動してましたので書き換えます。

>>71-76
【 スクリプト改造依頼スレ 】(丸投げ) part8
http://hibari.2ch.net/test/read.cgi/php/1314546533/
★三　【 スクリプト改造工房 PART 9 】　★三
http://hibari.2ch.net/test/read.cgi/php/1143834740/
金出すから改造してよvol.3
http://hibari.2ch.net/test/read.cgi/php/1162147035/

>>77
ありがとうございます。
あと、条件を複数指定する場合にどう記述すれば良いかだけ教えていただければ
十分なのですが…。
$Keyword = "●○" "●▲" "××";

$Keyword = "●○" AND "●▲";
　　でしょうか？

それとも　$Keyword = "●○","●▲";
？

うーん
COBOLをやってたというのがよく伝わってくる思考だｗ

$Keyword は GetData で

if (/$Keyword/){

というふうに正規表現で使われてるから論理演算子は使えないと思われ
$Keyword を @Keyword にしていっぱい入れられるようにして正規表現で | を使うか
if じゃない関数を使うかじゃないかな〜

読み込んで表示だけのページ＝ロックの必要はない

読み込んだデータを更新して書き込むページ＝
ファイルロック１
ファイル読み込みモードでオープン
ファイルを配列に読み込み
ファイルを閉じる

データ更新

ファイル書き込みモードでオープン
更新したデータをファイルに書き込む
ファイルを閉じる
ファイルロック１の解除

これでいいはず
仮に読み込んで表示だけのページを
ファイルロック１
ファイルを読み込みモードでオープン
データを配列に入れる
ファイルを閉じる
ファイルロック１の解除とすると
表示するだけのページを開く間は書き込みができなくなるから
そうすると書き込める隙がなかなかない

use strict;
use warnings;

my @city = ("東京", "大阪", "名古屋");
delete($city[0]);
print "@city";

こんな簡単なので Use of unitialized value in join or string at *** line 6.　っていう警告が出たんですが、どうしてですか？
それに Use of unitialized ... というエラーしょっちゅう見かけますが、調べてみてもよくわかりませんでした。
教えてくださいm(_ _)m

delete $city[0]; で undef になった $city[0] を print するのに使ったから

とりあえずexcite翻訳から初めてみたらどうでしょうか

>>81-82
http://perldoc.jp/docs/perl/5.10.0/perldiag.pod

>>82-83
ありがとうごさいます。
@city = grep($_ ne "", @city);
で　$city[0] を消しても残ってたので不便な関数だなと思いました。
undef の値を消すような操作をすればいいんですね。

つshift

$city[0] = "東京" を削除して詰めちゃってもいい ($city[0] = "大阪" とずれていい) なら
shift @city;
要素をずらさずに $city[0] だけ消したいなら
$city[0] = "";

あれ、$city[0] = undef;とdelete($city[0]);って同じ？

>>87
http://perldoc.jp/func/delete
http://perldoc.jp/func/undef

delete が非推奨とか・・・splice で削除しろとか書いてあるけどさ、
巨大な配列に対して splice すると、すごく遅そう・・・

>>89
Perl処理系のソースを見ずに言うが、
そのへんはパフォーマンスがガタ落ちにならん程度にはうまいこと処理してるだろうと思う。

ん？配列の要素に対する delete が非推奨なのは別に問題ないっしょ？
delete $array[$n] は要素を削除するのではなくて、むしろ undef $array[$n] に近いんだから。

spliceは引数多くて邪魔くさい

>>89
誤読すんなよ。

（特殊挙動の切り詰めの事を想定してるなら別だが）
splice で対処しろってのは、要素を本当に削除するケースに関してだ。
@arr = 1 .. 5 ; => @arr = qw( 1 2 5 );

delete の代りなら、
splice @arr, 2, 2, (undef) x 2 なんてしなくても
@arr[2,3] = (undef)x2 ;なりの方法があろう。

８万の配列に長さ１の文字列を入れて、delete、undef、spliceでベンチマーク取ったけど、
spliceが一番遅かったけど大きな速度差は出なかった

>>94
あと1つか2つ桁増やしてよろしく。

use Benchmark qw( timethese cmpthese ) ;
cmpthese timethese ( undef, {
delete => sub{ my @arr = ARRAY ; delete @arr[ 99999 .. 999999] },
splice => sub{ my @arr = ARRAY ; splice @arr, 99999, 900000, (undef) x 900000 },
slice => sub{ my @arr = ARRAY ; @arr[99999 .. 999999] = (undef) x 900000 }
});
__DATA__
ARRAY => (q{x}) x 1000000
Benchmark: running delete, slice, splice for at least 3 CPU seconds...
delete: 3 wallclock secs ( 2.91 usr + 0.15 sys = 3.06 CPU) @ 2.94/s (n=9)
slice: 4 wallclock secs ( 3.17 usr + 0.14 sys = 3.31 CPU) @ 2.72/s (n=9)
splice: 3 wallclock secs ( 3.06 usr + 0.19 sys = 3.25 CPU) @ 3.08/s (n=10)
Rate slice delete splice
slice 2.72/s -- -8% -12%
delete 2.94/s 8% -- -4%
splice 3.08/s 13% 5% --

ARRAY => 1 .. 1000000
Benchmark: running delete, slice, splice for at least 3 CPU seconds...
delete: 3 wallclock secs ( 3.12 usr + 0.00 sys = 3.12 CPU) @ 12.82/s (n=40)
slice: 3 wallclock secs ( 3.02 usr + 0.01 sys = 3.03 CPU) @ 6.93/s (n=21)
splice: 3 wallclock secs ( 3.03 usr + 0.07 sys = 3.10 CPU) @ 9.35/s (n=29)
Rate slice splice delete
slice 6.93/s -- -26% -46%
splice 9.35/s 35% -- -27%
delete 12.8/s 85% 37% --

文字コードで分からないことがあるのでご教授お願いいたします。
(utf-8 でソースを書いています)


utf-8 の半角ア -> EFBDB1
utf-16 の半角ア -> FF71

utf-8 でソースを書いているのだから、print "0xEFBDB1" で半角アが出力されるだろうと思ったら、
print "0xFF71" でないと半角アが表示されませんでした。

cryptって絶対に復号化できないんですか？
パスワードをこの関数を使って暗号しようと思っていますが
この関数を使う上で欠点や注意点がありましたら教えてもらえませんか？

>>98
>>1
http://perldoc.jp/func/crypt

>>97
半角のｲなら、0xFF72です。

>>97
0xは数値に対してなので、\xだと思いますが、\xは2桁までしか拾わないので、
3桁以上の場合は、{ }を使って\x{123}とする必要があります。

2桁の場合は（\x{00B1}としても2桁と解釈されます）、その値そのもののバイナリ
文字列となります。

print "\xEF\xBD\xB1";

これ↑は、UTF-8として解釈すれば「ｱ」を意味するバイナリ文字列です。
ただし、Perlがこれを文字列処理するときはISO 8859-1という文字コードの3文字
として扱います。

3桁以上の場合は、その値のUnicodeコードポイント（U+FF71）のテキスト文字列となります。
（ Perlは、"\x{FF71}"を「ｱ」という1文字として扱う）

バイナリ文字列（＝バイト文字列）とは、バイト単位で処理される文字列のことです。
テキスト文字列とは、文字単位で処理される文字列のことです。

>>99
リンクありがとう〜 とりあえずこれ使ってみることにします

>>101
ありがとうございます！

トリップを生成する仕組みなんですが、

if (length $handle_pass >= 12)
{
my $mark = substr($handle_pass, 0, 1);
if ($mark eq '#' || $mark eq '$')
{
if ($handle_pass =~ m|^#([[:xdigit:]]{16})([./0-9A-Za-z]{0,2})$|)
{
$GB->{TRIPSTRING} = substr(crypt(pack('H*', $1), "$2.."), -10);
}

文字列１２バイト以上で、先頭が#または$の場合、
$handle_pass =~ m|^#([[:xdigit:]]{16})([./0-9A-Za-z]{0,2})$|を行なって
cryptによって生成していると思います。

しかし、$GB->{TRIPSTRING}や$1や$2をprintすると何も表示されません。
$handle_pass =~ m|^#([[:xdigit:]]{16})([./0-9A-Za-z]{0,2})$|では何を行なっているのですか？
教えてください。

>>104
関係ないけど、これ $ から始まる場合何もしてないよね

>>104
##0123456789abcdefxx 形式のトリップキーかどうかのチェックだろ

>>105
>>104は書いてないけど実際はelseがある
2chでは今のところ単に予約としてとってあるだけらしいから???になるだけだけど

>>105-106
ご回答ありがとうございます。
もう一度正規表現を調べますので、
その後、質問させてください。

先頭が#で始まり16進数文字が16個連続し、
末尾は./0-9A-Za-zのいずれかが0個以上2個以下連続する。

ですよね？

#0123456789abcdefxxは真
#0123456789abcdefxxxは偽
#0123456789abcdefは真

#0123456789abcdefあ　が偽なのは、なぜでしょうか？

また、[[:xdigit:]]の[]が二重でくくられている意味を教えてください。

すみません、書きこんで気づきましたが、

#0123456789abcdefも偽ではないのか？と思います。

あ は [a-zA-Z0-9] かどうか
f の後ろに続く判断が ? なのか + なのかで意味合いが変わってくるかと。

トリップキーの規格をもっかい調べてみればよいかと。

ファイルのロックはmkdirなどでロック用ディレクトリ
を作る方法は良く見かけますがディレクトリではなく
openでロック用ファイルを作るというのは問題があるんでしょうか？

rename とか mkdir はシステムコールを使ってるから、open より割り込まれる余地が少ない。

とかじゃなかったっけ？

>>111
http://www.din.or.jp/~ohzaki/perl.htm#File_Lock

今時 flock を使えない環境に出くわす事も稀だがな。
http://perldoc.perl.org/perlport.html#flock

モジュールを作ってて、そのモジュールの中では use utf8 とか、open(my $in, '<:utf8', '〜') とかしてます。

しかし use utf8 してないスクリプトから呼ばれた時には、これだと文字化けが起きてしまいます。
そのため use utf8 されていない場合にはフラグを落として返したいのですが、
モジュールを呼んだスクリプトで use utf8 されてるかどうか調べる方法はあるのでしょうか？


モジュールが特定の文字コードに依存すること自体が駄目だとは分かっては居るのですが・・・

>>112
余地が少ないんじゃなくて余地が無い、
つまり処理がアトミックでないとだめなんだよ。
「余地が少ない」んじゃ意味ないの。

flock(XX, 2)
でデッドロックが発生した場合はどうなるんでしょうか？
あと、待ってる間は自動でsleepしてくれるんでしょうか？

flock(XX, 6)
で自分で実装するのとどちらが良いのか迷ってます。

すいません。プログラムを定刻になると自動で実行するようにしたいんですが、できますか？
レンタルサーバに置きます。
全体を無限ループをしてsleep()で休むというのを考えたのですが、無限ループは一番やってはいけないらしいですね。

あと検索するとすぐJavaScriptで自動更新する方法が出てきますが、
この方法だと時限以外にもCGIにアクセスされたときに実行してしまうと思います。
JavaScriptだけに実行させたいときはパーミッションをどう設定すればいいですか？

>>116
＞明白ではないものの、伝統的な flock の動作としては、ロックが得られるまで 無限に待ち続けるものと、単に勧告的に ロックするものの二つがあります。

>>117
cronのことを聞いてる？

>>118
その説明を読んで具体的にどうなるのかが分からなかった
伝統的とか無限とか

・複数のプロセスが待ち状態になった場合に、次にロックを得られる順番は？
・デッドロックかかったらプロセスはどうなるのか
・待ってる間の負荷は

この辺りが気になる。

・複数のプロセスが待ち状態になった場合に、次にロックを得られる順番は？
システムにしか分かりません

・デッドロックかかったらプロセスはどうなるのか
flock を待つオプションで呼び、他のプロセスが死ねばロックは外れるので先に進めますが、
mod_perlなどではプロセスは死なないのでflockは掛かったままになります。
なので、flockを呼ぶときは待たないようにしましょう

flock呼んだ順番になるのか、ランダムになるのかの2択くらいかと思ったんですが、後者って認識でいいです？

無限に待ち続けるとあるんですが、待たないようにする方法もあるんでしょうか？

あと、大量のプロセスが待ち状態になった場合の負荷も気になります。
大人しく待ってるんでしょうか？

unlock時に起き上がったプロセスがロックを取れる
LOCK_NBだ、ドキュメントぐらい読め
sleep以外に何をするのか、それ以前にロック待ちが大量にある時点でどうか

>>117
>>118 の書いているとおり通常はcronを使う。と思う。

> あと検索するとすぐJavaScriptで自動更新する方法が出てきますが、

「プログラムを定刻になると自動で実行」させるのにJavaScriptをどうやって使うの? 意味がわからん。

> JavaScriptだけに実行させたいときはパーミッションをどう設定すればいいですか？

さらに意味がわからん。

>>123
俺は最初、サーバサイドでjavascriptを動かすnode.jsのこと言ってるのかと思った。
cronを扱うためのapiもあるみたいだし。
perl関係ないけど。

>>122
ありがとうございました。
LOCK_NB使わずに待たない方法があると勘違いしてました。
素直に自分で実装します。

ファイルの読み書きでトランザクションを実現するモジュールを apache が標準で持ってくれるとありがたい

ファイルの読み込みは@lines = <IN>で一括して配列に入れていますが
while<IN>で１行ずつ読み込む方がいいんですか？
配列を引数にしたり戻り値にしたりする場合が多いから
どうしても一括読み込みが多くなってしまいますが
一括読み込みだとそんなにメモリの負担になりますか？

ていうか<IN>自体にもファイル全部のデータが格納されているんですよね？

GB単位でファイルを処理する人間だと、while で回すなりの工夫は必要だけど、
今のご時世だったら、殆どの人は気にする事は無いでしょ。

>ていうか<IN>自体にもファイル全部のデータが格納されているんですよね？
そんなスーパーな挙動を取られたら、5GBファイルを 2GB メモリの PC で解析
出来ないじゃないですかっ

一行づつ読み込んだら遅くなる。

% perl -le '$s = q{x} x 1000000 ; $s =~ s/(.{1,50})/$1\n/g; print $s ' > test.txt
% cat hoge.pl
use Benchmark qw( timethese cmpthese ) ;
cmpthese timethese ( undef, {
arr => sub { open my $fh, q{<}, q{test.txt} ; my @arr = <$fh> ; close $fh ; @arr },
whi => sub { open my $fh, q{<}, q{test.txt} ; my @arr ; while (<$fh>){ push @arr, $_ } close $fh ; @arr },
aho => sub { open my $fh, q{<}, q{test.txt} ; my @arr ; for (<$fh>){ push @arr, $_ } close $fh ; @arr },
});
% perl hoge.pl
Benchmark: running aho, arr, whi for at least 3 CPU seconds...
aho: 3 wallclock secs ( 2.76 usr + 0.35 sys = 3.11 CPU) @ 48.87/s (n=152)
arr: 3 wallclock secs ( 2.72 usr + 0.41 sys = 3.13 CPU) @ 56.55/s (n=177)
whi: 3 wallclock secs ( 2.85 usr + 0.30 sys = 3.15 CPU) @ 70.79/s (n=223)
Rate aho arr whi
aho 48.9/s -- -14% -31%
arr 56.5/s 16% -- -20%
whi 70.8/s 45% 25% --

>>130
コメントは大事だよー
whileが一番速いのか 理由は何なんだろうな

whileでファイルの2行目から読み込むのってどうやるんですか？

<FH>;
while (<FH>) {
}

>>131
ファイルがメモリにキャッシュされたから。
最後に書いたほうが早くなる。

訂正
最後に処理されたもののほうが早くなる。

最後も何も2回目以降同じじゃね
仮にキャッシュされてるんなら

>>135
適当に順番入れ替えてやってみ。
結果はほとんど変わらないから。

ていうかよく見たら一番最後に処理したahoが一番遅いじゃねーか。

やっぱり一度に全部読んだほうが2倍以上速かったな。

all => sub { open my $fh, '<', 'test.txt'; my $buf; read($fh, $buf, (-s 'test.txt')); close $fh ; return split("\n", $buf);},

一度に全部読んだほうが処理がしやすい場合が多い

ファイルの下に行くほど新しい書き込みの場合
最新のｎ件を表示する場合はwhileで１行ずつは難しいな
@linesに全部読み込んで@linesの配列の後ろからｎ番までを切り取って表示すれば簡単だな

結局のところ「用途による」だろ

>>139
ファイルの最後の方から読んでいって
改行の数を数えたほうが早いよ。

ファイルの最後の行から上の行に向かって１行ずつ取り出せるの？
ファイル読み込み位置操作できるのseekしか見つからなかったが
これ行単位じゃなく後ろからのバイト数なんだよな

ゆとりか。作れよ。

>>142
http://www.din.or.jp/~ohzaki/perl.htm#File_Reverse

>>137
一応書いとくが、Benchmarkのサブルーチン実行は記載順じゃないぞ。
勝手にソートされる。
もちろん、135の意見に同意するわけでは無いが。

ahoが遅いのは、明白に(<$fh>)の時点でメモリに確保（無名配列への代入と同等）
されてて、その後に@arrにpushしてるから、遅いの当たり前。
サブルーチンの名前が「アホ」な時点でネタだと分る。

AWKのAの人ディスってんの……

>>130
以下は自分の推測。
正しいかはわからない。

@arr = <$fh>;は、まずreadline関数内で、全行のリストが作られ、それが@arrにコピー
されるので「@arr＋全行リスト」のメモリを使う。

while (<$fh>){ push @arr, $_ }は、1行だけが$_に入るので、「@arr＋1行分」のメモリ
しか使っていない。

メモリ使用量の差が速度差に出たと。

>>130
7.8MB のテキストファイルでぶん回してみた

Benchmark: timing 10000 iterations of aho, arr, whi...
aho: 1337 wallclock secs (1157.39 usr + 103.11 sys = 1260.50 CPU) @ 7.93/s (n=10000)
arr: 1284 wallclock secs (1118.88 usr + 102.05 sys = 1220.92 CPU) @ 8.19/s (n=10000)
whi: 921 wallclock secs (768.06 usr + 104.30 sys = 872.36 CPU) @ 11.46/s (n=10000)
Rate aho arr whi
aho 7.93/s -- -3% -31%
arr 8.19/s 3% -- -29%
whi 11.5/s 44% 40% --

sendmailとperlで質問です。
メールからプログラムを起動したくて色々設定を行っているのですが
どうにも行き詰ってしまいました。

CentOSにwebminを入れて管理しています。
sendmailにエイリアスを利用してプログラムを起動しようとしているのですがうまくいきません。

とりあえず外部からのメールは受信出来ている状態です。
登録用のエイリアスにプログラムに送ると合わせてユーザーにもメール配信していますが
そちらには届いている事を確認済みです。
smrshについてはリンクを設定済みでエラーは返ってこなくなりました。

この状態で簡単なプログラムを作成して動作確認を行おうとしたのですが
プログラムが動きません。

#!/usr/bin/perl --

open(OUT, ">> datafile.txt");
print(OUT "動作確認\n");
close(OUT);

試しでこのようなコードを置いてるのですが動きません。
プロンプトから動作させた場合は正しくファイルに書き込まれています。

エイリアスの指定の仕方がまずいとかでしょうか？

エイリアス名: "|/usr/bin/perl /var/www/html/プログラム名"
のような感じで指定しています。
直接
エイリアス名: "|/var/www/html/プログラム名"
としてもダメでした。
もしわかるかたがいらっしゃいましたらよろしくお願いします。

追記
パーミッションは
プログラム755
書き込み用ファイル666
としています。

まずすべきことは、エラーログを見てみる。

>>149
メールがサーバに届いているなら、/var/log/maillogかなんかに出ているログを確認するというのが基本です。
気になったのは、ファイルパス。シェル上ではログイン時にそのユーザー派のホームディレクトリにカレントパスがセット
されますが、sendmailで受けた場合はそのパスにならないのだから、絶対パスで指定する必要があります。

> open(OUT, ">> datafile.txt");
この datafile.txt はどのディレクトリに書き込まれるの?
パーミッションエラーで書き出せないとかじゃないの?

>>152,153
盲点でした絶対パスで書いたら問題無く書き込めてました。
ありがとうございました！

結局Perlは関係なかったね。

せやろか？

せのつくあれをやるなんていやらしい

最近じゃ、小学生どうしでもするんですってね、






せいくらべ。

投稿の表示の上にページ数を載せたい場合
最大ページ数＝投稿数/１ページあたりの表示数の少数切り上げだから
投稿数がわからないと最大ページ数がわからないわけだから
whileだと最初にwile(<IN>){$toukousuu++;}で投稿数出してそのあとwile(<IN>){表示}の
２回ループしなきゃならないけど@lines一括読み込みなら$toukousuu=@linesのforeach(@lines){表示}の１回ループですむ

　 　∩＿＿＿∩　　 　　　　　　｜
　　 | ノ＼　　　　 ヽ　 　　　　　　|
　　/　　●゛　　● |　　　　 　　　|
　 |　∪　　( _●_)　ミ　 　　　　　j
　彡､　　　|∪|　　 |　　　 　　　>>159
/　　　　 ∩ノ ⊃　 ヽ
(　 ＼　／ ＿ノ　|　 |
.＼　“　　／＿＿|　 |
　　＼ ／＿＿＿ ／

http://hibari.2ch.net/test/read.cgi/affiliate/1317192380/
akiyan降臨中ｗ

>>160
何で釣り扱いされているのかわからんｗ
じゃあ例えばファイルの下から１０番目までの行であるならばフラグを立てるという場合
while(<IN>){

$aaa = $toukousuu-10;

if($count>=$aaa){
$flg = 1;
}
else{
$flg = 0;
}
$count++;
}
としなければならないが$toukousuuを求めるのはこれよりまえにwhile(<IN>){$toukousuu++;}とする必要が
あるのはわかるだろ。
つまりwhileだとループを２回しなければならんのだよ

　　　　　　　　　　 　 ｜
〜〜〜〜〜〜〜〜｜〜〜〜〜〜〜〜〜〜〜
　　　＞( c´_ゝ`)　　｜
　　　　　　　　　　　 ｜
＞( c´_ゝ`)　　　　　J
　　　　　＞( c´_ゝ`)



　　　　　　　 　　　　 ｜
〜〜〜〜〜〜〜〜｜〜〜〜〜〜〜〜〜〜〜
　　　　　　　　 　　　 ｜　　　　　＞( c´,_ゝ`)
　　　　　　　　 　　　 ｜
　　　　　　　　　 　　 J　　　＞( c´,_ゝ`)
　　　　　　　　　　　　　　　　　　　　＞( c´,_ゝ`)

>>162
うん。そうだね。それで？それがどうかしたの？

って感じ。

>>164
だって２回ループするとその分重くなるじゃん

>>165
どのみち全数読み込まなきゃいけないんだったらもちろん一括読み込みすればいいんだけどさ。
しかし重くなるのが嫌だったら投稿数などのインデックス情報の類は別途保存して、
独立して管理するという方法もあるぞ。
そうすれば $count = @array; みたいにいちいち配列の要素数を数えなくても済む。

>>165
slurp の方が早いよって主張ならまだしも、、、
>>130の結果が理解出来てないだろお前さん。
% perl -le '$s = q{x} x 1000000 ; $s =~ s/(.{1,50})/$1\n/g; print $s ' > test.txt
% cat hoge.pl
use Benchmark qw( timethese cmpthese ) ;
cmpthese timethese ( undef, {
arr => sub { open my $fh, q{<}, q{test.txt} ; my @arr = <$fh> ; close $fh ; printf STDERR "%d\n", scalar @arr ; for ( @arr ){ print STDERR; } },
whi => sub { open my $fh, q{<}, q{test.txt} ; my @arr ; while (<$fh>){ push @arr, $_ } ; close $fh ; printf STDERR "%d\n", $. ; for ( @arr ){ print STDERR; } },
});
% perl hoge.pl 2> /dev/null
Benchmark: running arr, whi for at least 3 CPU seconds...
arr: 4 wallclock secs ( 2.00 usr + 1.23 sys = 3.23 CPU) @ 242.11/s (n=782)
whi: 4 wallclock secs ( 1.95 usr + 1.29 sys = 3.24 CPU) @ 254.94/s (n=826)
Rate arr whi
arr 242/s -- -5%
whi 255/s 5% --

>>166
全部読み込むにしても一括読み込みだとメモリ食うよ
一行ずつ回す方がいい

>>167
読んだけど意味が分からない

165の「重い」ってメモリの重さの話か？
速度の話だと誤読したわ。

速度だと既に結論が出てて、>>130理解してれば、
while(<$fh>){ push @arr, $_ ; } が、@arr=<$fh>;
より早いんだから、後の処理が同じなら何回ループ回そうが、
無関係。カウンタを自分で付けようが、 $. 利用しようが同じ。

メモリ？
んなもん、同じファイルなら、
@arr =<$fh> ;だろうが、一行づつ回そうが誤差範囲だろ。
それを何回回そうが無関係。
@arr = do{ local $/ ; $buf = <$fh> ; split /^/ms, $buf ;
なんかするんだったら多くかかるのは当然だけど。

sub myps { print `ps ux $$`};
myps;
# お好きなコード
myps;
でもして差分取れば？

×@arr = do{ local $/ ; $buf = <$fh> ; split /^/ms, $buf ;
◯@arr = do{ local $/ ; $buf = <$fh> ; split /^/ms, $buf ; } ;

釣りにマジレス
>>159
open my $fh, '<', 'hoge.pl' ;
while ( <$fh> ){ }
print "$.\n" ;
while ( <$fh> ){ print }
close $fh ;
このコードを hoge.pl として保存して実行してみろ。

と言うことで、
>>167
165 の言う「2回ループ」は上のコード、好意的に判断しても
「ファイルハンドル開き直してのファイル読み込み2回」って意味だ。
あなたの突っ込みは通じない。

あれ？まだやってるの？

ほんとうの意味でファイルを一括で読むこっちが
一番速いって答えは出たと思うんだけど。
all => sub { open my $fh, '<', 'test.txt'; my $buf; read($fh, $buf, (-s 'test.txt')); close $fh ; return split("\n", $buf);},

foreach ( split/\n/, $buf ) {}
はい

もうその話しじゃなくなってんだが、まあ突っ込んでやる。
同等の条件にすると話しにならんくらいarrの方が早い。
cmpthese timethese ( undef, {
arr => sub { open my $fh, q{<}, q{test.txt} ; <$fh> },
all => sub { open my $fh, '<', 'test.txt'; my $buf; read($fh, $buf, (-s 'test.txt')) ; split(/^/ms, $buf);},
});
結果↓
Benchmark: running all, arr for at least 3 CPU seconds...
all: 3 wallclock secs ( 2.72 usr + 0.36 sys = 3.08 CPU) @ 1366.56/s (n=4209)
arr: 4 wallclock secs ( 1.51 usr + 1.66 sys = 3.17 CPU) @ 30816.72/s (n=97689)
Rate all arr
all 1367/s -- -96%
arr 30817/s 2155% --

174はまちがい
スカラーコンテキストで評価されるわw

まちがい。arrは遅かったｗ

@arr =<$fh>がファイル一括読み込みよりも
遅いのは当たり前の話で、内部的に一行づつ読み込んでいるから。

同等の条件
arr => sub { my @arr = sub{ open my $fh, q{<}, q{test.txt} ; <$fh> }->() },
all => sub { my @arr = sub{ open my $fh, '<', 'test.txt'; my $buf; read($fh, $buf, (-s 'test.txt')) ; split(/^/ms, $buf); }->() },
まあ、 all の方が早いわな。

　　　　　　　　　　　　　　　　　　　　亠ｧ厂|　　　　　　　　`':,;..:..:.';.　　　　 ;'..:..:.,:'
　　　　　　　　　　　　 　 　 　 　 　 ‐个 兀　　　　　　　　　　`:;:.::.':.,　　　,':.::.:,:'
｀.:`.:''''..:.‐ :.:-:.:...,,,,　__　　　､‐-、　　　　　　　 __ 　　,.‐z_,-､　　 '':;;:::':, ,...;'::..:,;'　　,,.:':
..:..:...:..:..:...:...:...:.:..:...:...:..:.｀＿,,ﾉ　└¬､'''.:.:‐:..,,ヾ､__)∠,ｨｸ ／,、　　　';:''..:.:..:..:.:..:.'':;'':.:.,;.
.:..:...:..:..:...:...:...:.:..:...:...:..:.ヾ､_　　　＜^'".:..:..:.:..: ＜`ヾ´~_　 _~´ 〉'''':.::.;':.::...:.:..:..:..:...:.:.';'　,,
..:..:...:..:..:...:...: ,,;,;,;,,;:..:..:.:.:..: /　/＼　`ヽ､..:..:.:..:..:_ブ∧ ‐　‐　/.:.:..:,;,::';..:..:..:.:..:..:..:...:.:.:''´:.:
:..:.:..:..,.:-〜' , ､ｍ_）°.:.:.'ｰ-'..:..:..:`ｰ--',,;,;::.:.:ヽ､_i (_,/しﾍﾍ_） ´　　'::;.:.::.:..:..:..:..:.:..,;'｀ ''
,;,,;,;/　　＜て_;:､｡.:° ‐　''''　"　´　´　　　　　　　　　　　　　　　,;:''.:.:,:'' :;,._.:,;.,､:.'':.,,_
　 /　r'７ｧｯｰヘ､_) ﾟ　　　　　　　　　　　　　　　　　　　　　　,,:''.:.:,:'' , -〜''ヽ‐-‐､.:.:.''
-く 　ﾚ'/〈　°　　　｡　　　　　,ﾍVﾌヽ、　　　　　　　　　 ,,:''.:.:.:,:'' 　(_,ヘ､　　　　　⌒
　　Ｖ巛〈 ヽ 　, 〜''ヽ　　　　/ e　ヽノ＼ﾍ. 　　　　　,,:.''..::.:,:''　。 　 　　と_刀Tゥｰ
＿/　ヾ ヽ､ Ｙ ｧ个〜'。ﾟ　 ,少ｰ- 代ヽ､ ヾゝ 　 ,,.: '':.:/ヽ､'　｡ ﾟ (⌒⌒ｰ-く ﾉﾉ,!j
　{.　　 ＼　Ｙ巛〈 　　 　 　） l�f�gレﾞく　　＼''.:.::.:.:.:/ /　入 ﾟ ｡ `〜<ヾヾ､,｀⌒ 〜
_, ヘ、　　ヾ{　ヾﾄ､　 　 　 'ヾゝｬ�gﾒ�l�`　　 ヾﾖ　/〃／ _,,＞　　　 〉〉ﾉ ｀厂丁｀
　　　＼　　＼　　ヽ、　　　　｀ゞへ�m�f�i�_　 ゞ�dｆ‐ '' ´　　　　　 ///／　　ﾉ
─〜 ⌒ヽ､　 ＼　　 ヽ、　　　 ´｀'‐ニ世三r＜�k´　　　　　　 ＿,,ノ,〆　　 ／
　　　 ＿_,, へ、　＼　　 ` ー- ､＿＿　　　　　　＿,, --‐‐ ''´　　　　　_ - ´　 ／
￣￣　　　　　 ＼　　` ｰ- ､ ＿　　　　￣￣￣　　　　　　　＿, -〜＜ -一 ブ
　　　　　　　　　　ヽ､、　　　　　 ￣｀ ー─----── ´￣　　　　＿ -一 ´

>>179
話の流れを追う気はまったくないが
このAAはおめでたさ満点でよかった

画像を送信するときなんかはフォームと画像のデータが１つになった
変数で送られるからwileで１行ずつ回すというのは無理だな
こういう場合は画像が大きければ大きいほど、どうしてもメモリは食う

>>182
まあそうだろうなmalti-partの場合も
read(STDIN,$buff,$ENV{'CONTENT_LENGTH'});
で$buffに全部の送信データが格納されるから
画像が大きいほどメモリは食う

>>182
再帰アンカー/ひとり循環リスト乙

すいません
read(STDIN, $data, $ENV{'CONTENT_LENGTH'});
print $data;
だけのスクリプトを書いたんですが
Use of uninitialized value in read at 〜と出ます
これなんでですかね？

>>184
http://perldoc.jp/docs/perl/5.10.0/perldiag.pod

本当にその2行だけなのなら、
-w オプションが効いている下で $ENV{'CONTENT_LENGTH'} を未定義のまま実行したからだろう。

>>185
ありがとうございます。他のところがおかしいんじゃなくてよかったです。
これは入力がなければ出るものなんですね。

>>186
> これは入力がなければ出るものなんですね。
違う。$ENV{'CONTENT_LENGTH'} が未定義 (undef) だから出ている。
STDIN からの入力が無くとも $ENV{'CONTENT_LENGTH'} に 0 が入っていれば出ない。

> Use of uninitialized value%s
> (W uninitialized) 未定義値を、あたかも既に定義されているかのように使用しました。
> これは、"" か 0 と解釈されますが、間違いの可能性があります。
> この警告を止めるには、変数に定義された値を代入してください。

>>184
この「だけのスクリプト」ってのは嘘だな。
CGIとしてだったらこの2行だけでは動かない。

SSI使わずにHTML上にCGI呼び出す方法って<script>タグ以外にありますか？

>>189
<script>タグ勘違いしてる。それはクライアント側での処理だから。
ttかHTML::Templateなどのテンプレートエンジンを考えてみたら。

>>189
img、iframe、cssのimport

https://github.com/motemen/WWW-BBS-2ch
の make test は Result: PASS になり、
SYNOPSIS にあるコードを動かしてみたところ、

Can't call method "add_handler" on an undefined value at /usr/lib/perl5/site_perl/5.10/WWW/BBS/2ch.pm line 39.

と出ました。なので 2ch.pm:39 を見ると、

https://github.com/motemen/WWW-BBS-2ch/blob/master/lib/WWW/BBS/2ch.pm
my $class = shift;
my $self = bless {
ua => LWP::UserAgent->new(agent => "Monazilla/1.00 WWW::BBS::2ch/$VERSION"),
encoding => 'shift_jis',
@_,
}, $class;

$self->ua->add_handler(

という感じです。

Dumper $self->ua; すると undef です。

エディタを開いて試しに自分で
$ua = LWP::UserAgent->new(agent => "Monazilla/1.00 WWW::BBS::2ch/$VERSION");
$ua->add_handler(
とか書くと $ua は取得できて add_handler も動くので CPAN モジュールは問題なく入っているようです。

my $self = bless {} が怪しいのですが、どうすれば WWW::BBS::2ch の SYNOPSIS を動かせるでしょうか。

>>192
$self->{ua} で許して

$self->ua;

sub ua{ }


は定義されてるの？

>>192
どうも https://github.com/motemen/WWW-BBS-2ch の例が間違っているみたい。
| my $bbs = WWW::BBS::2ch->new(cache => $cache, ua => $ua);
ここで $cache, $ua なんて存在しないから。
その通りに入力したら $self->ua は undef になるだろう。ためしに引数無しで
| my $bbs = WWW::BBS::2ch->new;
としたらどうだ。

いまどきCGI.pmって見かけたけど、フレームワーク使えって意味だろうか。
わざわざフレームワーク通すまでもないときはどうするのがモダンなの？

http://cgi-lib.berkeley.edu/ ん？いや、何でもない…

>>195
うわああ、ありがとうございます！
動きましたぁばばばば。

間違えて「プログラム技術板」に質問を書いてしまいましたが
此方で改めて質問させて下さい。

その１------------
DBIからのSqlサーバへの接続方法をご教示下さい。
質問場所がここじゃなかったら誘導お願いします。

以下の環境を作成し、
コマンドプロンプトからtest.plをCALLしたのですが
SQLサーバがないとのエラーが表示され、接続出来ませんでした。
値を色々変えてみたりしたのですがどうやっても接続できず…
何が悪いのかお手上げ状態です。

接続文字列が悪いのでしょうか…？

ODBCでの接続は行えており、CSEからのDB参照や
コマンドプロンプトからのsqlcmdコマンドでなら正常にアクセスできます。
[sqlcmd /E /S PC-Name\SQLEXPRESS]

環境
・Windows7
・Microsoft SQL Server 2008
・Perl5.0


Server:PC-Name\SQLEXPRESS
DB:sampleDB
User:user
Password:pass

-----------------------
test.pl
-----------------------
$dataSource = "dbi:ODBC:".
"driver={SQL Server};".
"Server=(local);database=sampleDB;".
"Trusted_Connection=yes;".
"AutoTranslate=No;";
#データベースに接続
$user="user"; #ユーザ名
$pwd="pass"; #パスワード
$dbh = DBI->connect($dataSource,$user,$pwd)
or die $DBI::errstr;
# データアクセス(今は処理無し)
$dbh->disconnect;
-----------------------
エラー内容
-----------------------
DBI connect('driver={SQL Server};Server=(local);database=sampleDB;Trusted_Connec
tion=yes;AutoTranslate=No;','user',...) failed: [Microsoft][ODBC SQL Server Driver
][Shared Memory]SQL Server が存在しないか、アクセスが拒否されました。 (SQL-08001
) [state was 08001 now 01000]
[Microsoft][ODBC SQL Server Driver][Shared Memory]ConnectionOpen (Connect()). (S
QL-01000) at dbtst.pl line 28
[Microsoft][ODBC SQL Server Driver][Shared Memory]SQL Server が存在しないか、ア
クセスが拒否されました。 (SQL-08001) [state was 08001 now 01000]
[Microsoft][ODBC SQL Server Driver][Shared Memory]ConnectionOpen (Connect()). (S
QL-01000) at dbtst.pl line 28.
-----------------------

馬鹿には見えないtest.plが張ってあるらしいな

その３------------
「その２」を付け忘れてしまいましたが
199-200でワンセットです。

Linux + MySql5.0 + DBIで動作しているシステムを
改造する為のローカルサーバを作成したいので、
どうしてもDBIを使用したいと考えています。

よろしくお願いいたします。

> Server=(local);
この表記はアリなのか？

>>201
そうみたいだね。

よくわからないから外れてるかもしれないけど
sampleDBが文字列じゃなくて変数になってないか？

'' で囲ってみ

アドバイス有難うございます。

>>203
Server=(local);
の表記は、ネット上で拾ったやり方をそのまま使っているので
使える…とは思うのですが…。ちなみに、
Server='PC-Name\SQLEXPRESS';
にしても状況変化なしです。

205 206>>
"database='sampleDB';"
に変更してみましたが、変化なしです。


エラーメッセージで
「SQL Server が存在しないか、アクセスが拒否されました」
とあるので、DBではなくServerへの接続が
失敗しているのではないかと思うのですが

Windows7の場合カーネルの違いから挙動が異なる
といった事はありませんでしょうか？

>>207
いっそのこと、ODBC データソース アドミニストレータ で定義してしまいば？

>>208
有難うございます！

ODBC経由でDBに接続する事でアクセする事が出来ました（＞_＜。
ユーザDSNに「dbgSQLServer」の名前でDBを登録し、
$dataSource= "dbi:ODBC:dbgSQLServer";
としたら無事SQLの実行まで確認できました。

直接接続する事にこだわる必要は無かったんですね。
何日も悩んでいた事だったので本当に助かりました。

有難うございました。

>>209
よかったよかった！
Windows+PostgreSQLでDBD::Pgが使えなくて困ったときにそうしたんだ。
その時PgPPどころかCPANもわからなかったあのころ。
車輪何個も作っちゃったけど、キニシナイ

>>210
本当有難うございました。

PostgreSQLは使ってみようとインストールする時点で
挫折した記憶が…（＾＾；

プログラムををゴリゴリ書くのは楽しいんですが
何時も環境構築が一番のネックになります。

これでやっとコーディングに入れます♪

ファイルロックについて質問です。

自分は今は rename とか mkdir とか使ってロック機構を実装してますが、
お仕事とかで perl を使ってる人はファイルロックする際には rename とか
mkdir とかでロックかけてるのでしょうか？
それとも flock を使用しているねでしょうか？

「DB 使えや」 ってゆう回答は求めておらず、ファイル読み書き時に於けるロックは、
仕事などではどう対応されているのか気になったもので、質問させていただきました。

確かに「DB使えや」ではあるなｗ

以前、自分が入社する前に書かれたソースを見たことがあるんだけど、その時はflockを使ってたっぽい。
ただflockすれば良いというものでもなく、きちんとした方法で使わないと全くの無意味だけど。

あと、今ならその辺を上手くやってくれるモジュールがるような気がする。

flockは使えない場合があるので(具体的には自分で調べてくれ)
その場合はmkdirなり使うとかの、別の方法で対処すると思う。
プロとかアマとかはあんまし関係ないんじゃないだろうか。

今のご時世でもflockが使えないとかあるの？

ご時世関係ない

>>212
イントラでperl使ってるけど…
ごめん、DB(PostgreSQL)つかってる。
月並みだけど、
DB>flock>その他の手段
だよね。

横槍失礼。
デッドロックに対する対応だけど、
プロセスがkillされるような事態に備えて $SIG でトラップすべきか、
次実行されたときにデッドロックされたファイル情報から指定時間経過してればデッドロックと判断。
どっちがいいんでしょうね。
トラップした方がスムーズにいけるっぽいけど、他の部分で別のトラップがされると実行されない可能性もあったりするんだよね。
迷うわぁ・・・

デッドロックはバグだ。
デッドロックしないようにつくれや

DB使う。

>>219さんは$SIGを適切に設定してる感じですか？

$SIGなの? %SIGじゃないの?

$SIG{} って書いてから {} だけ消したので修正ミスです ^-^；

GDで文字列を画像に変換するとき
widthを入力しないといけませんよね
全角文字だけなら計算できるのですが、半角英数ｶﾅなどが含まれるので余白が発生してしまいます。
あらかじめ文字列の長さをpixelで計算する方法はありませんか？

何も調べずに書くが
cp932に変換してバイト数を調べるのはどうか

>>224
@bounds = GD::Image->stringFT($fgcolor,$fontname,$ptsize,$angle,$x,$y,$string)

>>226
完璧です。ありがとうございました。

GD で機種依存文字を使えるようにするための方法はありますでしょうか

time_%2F_1319178123_%2F_name_%2F_%82r%82%81%81%99%82k%82%85%82%85_%2F_title_%2F_%82%BD%82%A2%82%C6%82%E9.txt

現在ファイルがopenできなくなると言う罠に陥りました。
windows7でこうゆうファイル名なんですが、コレ問題ありますか？
運用はunix系で考えているんでそっちでも問題あれば教えてください。

すみませんなんでもないですopenでしました。

>>230
「き」と「し」を打ち間違えるとは珍しい。

>>229をﾃﾞｺｰﾄﾞしたﾔｼは挙手ノ

Ｓａ☆Ｌｅｅ って何だ？

Ｓａ☆Ｌｅｅでぐぐったﾔｼは挙手ノ

なんかの罠かと思ってスルーしてた

ハッシュの中の配列に、値を追加したいときはどうすればできますか？

こうすると
push($h{$i}->[0], "aaa"));

このようなエラーになります。
Type of arg 1 to push must be array (not array element)

push @{$h{$i}}, "aaa";

>>237
上手くいきました。ありがとうございます。
こんな書き方理解できない。もうPerlやりたくない。

同じプログラムをRubyとPHPとPythonでは書き直せるんですけど、
Perlだけ作法が全然違うからわかわからないんですけど、どうすればいいですか？？？？？？？？？

Perl5.14でその配列が既に存在していれば、

use v5.14;
push $h{$i}, "aaa";

でいけるかな？

>>239
全然違うってほどのもんじゃないとは思うけど。
例えばどんなところが書き直せないの？

むしろその中だと、PHP←→Perlが一番簡単な気がするんだｗ

>>241
ハッシュとか配列とかの操作でカッコとか記号とかが覚えられない。
代入するときも表示するときもアクセスの仕方が違ったりして覚えられない。ダンプするのも一苦労。
クラスのnewのblessとか未だに何なのかわからない。祝福とは？？？
リファレンスとかスカラーとかレキシカルとか聞き慣れない用語ばかり出てくる。
スコープとかクロージャとかJavaScriptの悪夢がよみがえる。
とにかく記号ばっかりで暗号いじってるみたいな意味不明さが怖い。

$hoge; $hoge{0}; $hoge->{0}; @hoge; @hoge{0}; @hoge->{0}; %hoge; %hoge{0}; %hoge->{0};
${$hoge}; @{hoge}; @{$hoge}; {@{$hoge{0}}} @{$hoge->[0]}; %{$hoge->[0]}; %{$hoge->{0}}

どれだよ！！！！！！！！111111111

独特の表記とか用語に拒否反応ってのはわからんでもないけど、
スコープとかクロージャ駄目ってんじゃ他の言語もまともに使えてないだろ……

>>243
意味不明って、単にPerlを知らないだけでは。
慣れればおいしいよ。

$hoge;　スカラ
$hoge{0};　ハッシュ
$hoge->{0};　ハッシュへのリファレンス
@hoge;　配列
@hoge{0};　エラー　配列へのアクセスは　$hoge[0] でアクセス
@hoge->{0};　エラー　配列へのリファレンスは　$hoge->[0] でアクセス
%hoge;　連想配列
%hoge{0};　記述エラー　連想配列内の要素は $hoge{0} でアクセス
%hoge->{0};　記述エラ　連想配列へのリファレンスは $hoge->{0} でアクセス

${$hoge};　スカラのデリファレンス
@{hoge};　エラー
@{$hoge};　配列のデリファレンス
{@{$hoge{0}}}　連想配列内の配列をデリファレンス ($hoge{0} の中に配列が入っている)　ただし外の {} は括る必要なし。 この場合 {} はブロックになる。
@{$hoge->[0]};　配列へのリファレンスの中の配列
%{$hoge->[0]};　配列へのリファレンスの中の連想配列
%{$hoge->{0}}　連想配列へのリファレンスの中の連想配列

こんな感じのも良く使うので覚えた方がいいかも。
$hoge = {
　　'array' => [],　連想配列へのリファレンスの中に配列を作る
　　'hash' => {　連想配列へのリファレンスの中に連想配列へのリファレンスを作る
　　　　'key1' => 'val',
　　　　'key2' => 'val',
　　}
};
それぞれへのアクセスは
$hoge->{'array'}->[1];
$hoge->{'hash'}->{'key1'};
となる。

> @hoge{0};　エラー　配列へのアクセスは　$hoge[0] でアクセス

エラーではない
が、スライスを理解して使っているわけではなく、たまたま動いているだけ、の初心者が多いと思う

{} と [] を見まちがえた。ごめん。

@hoge{0} なら %hoge に対するハッシュスライスでしょ
warnings 有効なら @hoge{0} は警告出るだろうが、
@hoge{0..2} とか、 my @keys = (0); @hoge{@keys} なら問題ないはず

指摘のある通り、%hoge; と宣言されてるなら @hoge{0} は動作する。

けどね。
質問者がくじけてる部分を考えたらスライスは考えないほうがいいのでは？
という意味からエラーっていうことにした。

まぁ、言葉が足りなかったってのもあるけど ^-^；

>>246
> @{hoge};　エラー
エラーではない。

全ての変数や関数へのアクセス方法で一番冗長な書き方は sigil { (何か) } ([添え字]|{キー})
の形で、何かが裸の語なら変数名、リファレンスならデリファレンス、
それ以外なら何かの値を名前としたシンボリックリファレンスと解釈される。
通常の変数へのアクセスは、裸の語をデリファレンスすると捉えてもいい。

${ foo } … 通常の変数。{} は*省略可能*。 ${foo} = "foo${foo}foo$foo"; # ok
${ "foo" } … シンボリックリファレンス
${ $foo } … スカラーリファレンス $foo をデリファレンス
${ 'f' . 'oo' } … 式の値を名前としたシンボリックリファレンス
${ \ foo('bar') } … foo('bar') の戻り値のリファレンスのデリファレンス

http://perldoc.jp/docs/perl/5.10.0/perldata.pod#Slices
> (引用注: 添え字/キーの) かっこの種類(大かっこか中かっこか)は、見ているものが配列か
> ハッシュかをつかさどっています。一方、配列やハッシュの先頭の記号 ('$' か '@') は、
> 返ってくるものが単一の値(スカラ)か、複数の値(リスト)かを示しています。

use warnings; my @{foo} = ('a'..'f'); my %{bar} = ('g'..'j');
print ${foo}[3]; # 'd' へのアクセスで "d" を表示
print @{foo}[3]; # 警告有り。('d') へのアクセスで "d" を表示
print @{foo}[3,4]; # ('d','e') へのアクセスで "de" を表示
print ${foo}[3,4]; # 警告有り。リストをスカラーとして評価すると最後の値が返されるので "e" を表示
print ${bar}{'g'}; # 'h' へのアクセスで "h" を表示
print @{bar}{'g'}; # 警告有り。('h') へのアクセスで "h" を表示
print @{bar}{'g','i'}; # ('h','j') へのアクセスで "hj" を表示
print ${bar}{'g','i'}; # キー "g$;i" へのアクセスになるので undef

> print ${bar}{'g','i'}; # キー "g$;i" へのアクセスになるので undef
これだけ知らなかったわ。awk 由来なのかな。
まあ積極的に使う意義は無さそうだし、
人のコードで見かけることもないから覚えなくてもいいよね。

>>243
> クラスのnewのblessとか未だに何なのかわからない。祝福とは？？？
blessは意味わからないよね。
あれ、祝福とか変な言葉で説明するからわからんのさｗ
オレ流に説明してあげよう。

まず、これを実行してみよう。Dumperは変数の中身を表示する関数だ。use Data::Dumperが必要。
my $a = {key=>1};
print Dumper($a)

以下のように表示される。（改行インデントは折りたたむ）
そう、ようするにただのハッシュだ。
$VAR1 = {'key' => 1};


次に次の命令を実行してみよう。
my $a = {key=>1};
bless($a, "CLASS");
print Dumper($a)

以下のように表示される。さっきのハッシュの周りにCLASSが追加されている。
VAR1 = bless( 　{'key' => 1},　 'CLASS' );

つまりだ、これはCLASSという名前のクラス名（モジュール名）付きのハッシュということだ。
このモジュール名付きのハッシュにたいして、以下のように->を使って呼び出しをすると、
$a->foo()

$aにはCLASSというモジュール名が結びついているため、CLASS::foo()を呼び出すんだなとPerl実行環境は理解できる。
その時CLASS::foo()の第一引数に$aを渡すことで、foo()の中で$aの値の操作することが可能にある。

これでCLASSクラスのfoo()メソッド呼び出しの仕組みと、$aをCLASSクラスのインスタンスに変換することができた。

もう一つ、$a->foo() という書き方。

$a に bless使ってCLASSと結びつけたハッシュが入っていれば、
CLASS::foo()が呼び出されるわけだが、

$aは文字列でもよい。つまり、
$a = 'CLASS';
$a->foo();
この方式でもCLASS::foo()が呼び出せる。
通常は、CLASSを$aに入れずにそのまま書いて、CLASS->foo() となる。

でこれが foo()じゃなくて new() だと、CLASS->new() となる。
呼び出されるのは、当然CLASS::foo(); そして foo() の第一引数にはCLASSという文字列が入っている。

これを利用してCLASS::newされた時に、CLASSに結びつけたハッシュ、
つまりCLASSのインスタンスを返すことで、Perlにおけるnewの仕組みとなる。

あと余談。殆どの場合ハッシュにCLASSを結びつけるのだが、
別にただの値にCLASSを結びつけるのも一応可能。

訂正
×呼び出されるのは、当然CLASS::foo(); そして foo() の第一引数にはCLASSという文字列が入っている。
○呼び出されるのは、当然CLASS::new(); そして new() の第一引数にはCLASSという文字列が入っている。

> あと余談。殆どの場合ハッシュにCLASSを結びつけるのだが、
> 別にただの値にCLASSを結びつけるのも一応可能。


ただの値にblessはできんか。
何かしらの値のリファレンスにblessできる。

system("wget $url");
を使ってファイルをダウンロードしたいのですがうまくいきません。
perl というかwget の使い方の問題なのかもしれませんが、
適切な書き方をご存知のかたがいらっしゃったらおしえていただけませんか？

ダウンロードしたいファイルは以下のURLです。
ttp://ncode.syosetu.com/txtdownload/dlstart/ncode/108715/?no=1&hankaku=0&code=utf-8&kaigyo=CRLF

エラーとしては、こう言われます。
index.html?no=2&hankaku=0&code=utf-8&kaigyo=CRLF: Invalid argument
Cannot write to `index.html?no=2&hankaku=0&code=utf-8&kaigyo=CRLF' (Invalid argument).

自分は、たまーにハッシュに名前が欲しくて bless する事もあるｗ

use LWP::Simple;
my $data = get('URL');

特に認証がなければ、これで取得できるかと。

自分は

use LWP::UserAgent;
use HTTP::Request::Common;
use utf8;
my $ua = LWP::UserAgent->new;
　〜agent とか timeout とか max_redirect とか cookie の設定〜
my $req = GET('URL');
my $res = $ua->request($req);
my $content = $res->code() eq '200' ? decode('utf-8', $res->content()) : '';

ってやってる。
手順が多いけど、自分の頭ではこの方が使いやすい。

$res->code() eq '200' の部分は $res->is_success とかで置き換えられるけど、回線がパンパンのときに失敗すると
is_success は 1 を返すので信用出来ない。
HTML の取得なら、$res->content() に </html> が含まれるかどうかで判断した方が良い。
つっても、殆どの場合は is_success や is_error は正しく動作する。

>>257
wget は特に指定がなければサーバのパスに対応するファイル名でローカルに保存しようとするから、
? はファイル名に使えねえよと言われてるのでは。Windows ないから試せないけど。

>>258
sub is_info ($) { $_[0] >= 100 && $_[0] < 200; }
sub is_success ($) { $_[0] >= 200 && $_[0] < 300; }
sub is_redirect ($) { $_[0] >= 300 && $_[0] < 400; }
sub is_error ($) { $_[0] >= 400 && $_[0] < 600; }
sub is_client_error ($) { $_[0] >= 400 && $_[0] < 500; }
sub is_server_error ($) { $_[0] >= 500 && $_[0] < 600; }
# HTTP::Status より。

失敗したにもかかわらず is_success が真を返すというなら、
まず疑うべきは LWP でなくサーバ側のレスポンスでは？
原因がクライアント/サーバ/回線/他のいずれにせよ、
負荷等が原因で200以外の2xxが返ってくる状況なんてちょっと想像つかんが。

decode('utf-8', $res->content()) はよっっっぽど古いバージョンの LWP じゃない限り
$res->decoded_content(charset => 'utf-8') のほうがよかろ。

>>259
失敗なのに is_success が成功を返すのは少々特殊な状況なのは分かってる。

自宅でサーバー動かしてて家のルータは BA8000Pro なんだけど、BitTorrent で Linux ISO を放流してる。
バージョンアップがくるとコネクションがすごい数やって来て、NAT のテーブルが溢れて (上限は 2600)
名前解決すら頻繁に失敗するほど不安定になる。

この状況下で LWP で GET とかすると is_success が成功を返しても、->content() が全てを受け取ってないという事が起こる。

そのほかの環境は弄らずに BitTorrent だけ止めると LWP は正常に送受信できる。
これは何度も再現するのはテスト済。

ちなみに BitTorrent を動かしてるのは WEB サーバーとは別の PC です。
最近は BitTorrent 動かしてないからこういった症状ともおさらばで快適人生♪



>> decoded_content
おぉ〜、こんなメソッドあったんですね。ありがとう！
常々 Encode 呼び出すのめんどくせーって思ってたんで助かる。

>>259
>>257です。
アクセスが出来ないじゃなくて、書き込みができないっていう意味だったんですね。
もっと自分でよく考えてみるべきでした。

-Oオプションを付けて書き込むファイル名を指定したところ上手くいきました。

知恵を貸していただきありがとうございます。

>>244-256
あんなふざけたレスにマジレス返してくれてどうもありがとうございます。
まだ全部は試せてないですが、>>246とか物凄く参考になっています。
perldoc.jpなども読んで、もう少し勉強してみますね。

変数名の前の @、$、% の意味 (* ってのもあるけど、難しいので放置で OK)
変数に代入するときの { }、[ ]、( ) の意味を覚えるだけで、理解度はかなり違うと思います。

あとは perl の自由な書き方に慣れていただくしかｗ

たまに間違う… そういえばあんまり代入の時に [ ] って使わないなあ。
使ったことがないわけじゃないんだけど。

最近は面倒くさいので $data = [] とか $data = {} とかで済ますこと多いな。

Perlでw3mのようなコンソールアプリケーションを作る方法はあるのでしょうか？
環境はLinuxです。

よろしくお願いいたします。

curses を扱うモジュールはあるみたいだし、できるんじゃね
Python とかのほうが向いてる気はするけど

みなさんモデリングツールでUMLは使ってますか？
もし使ってる方はどのソフト使ってますか？

ttp://hibari.2ch.net/test/read.cgi/tech/1147499933/
↑ここでperlの話題がなく、「perl uml」で検索してもそれらしいものが見つからなかったので質問しました。
UMLを勉強しようと思うのですがどのツールがいいのかもわかりません。。

>UMLを勉強しようと思うのですがどのツールがいいのかもわかりません。。

これはココだとスレ違いですね。
この一文は無視して下さい。

バイナリデータについて質問です。
docomo携帯の太陽のSJIS絵文字コード(F89F)を表示しようとしたのですが、
(1)は表示されて、(2)は単なる文字列になっているようでした。
\x{}といった表記ではバイナリにならないのでしょうか？
また、バイナリにする場合、""での設定やpack()など色々あると思うのですが、
処理が速いのはどの方法になるのでしょうか？

(1)my $sun = "\xF8\x9F"

(2)my $sun = "\x{F89F}"

>>270
http://perldoc.perl.org/perlop.html#Quote-and-Quote-like-Operators
> If the number is 256 (0x100, 0400) or above, Perl interprets it as a Unicode code point
> and the result is the corresponding Unicode character.

http://www.nttdocomo.co.jp/service/developer/make/content/pictograph/basic/

よって iモードの Shift_JIS で "\xF8\x9F" に割り当てられている絵文字を
iモードの UTF-8 のページで出したければ "\xEE\x98\xBE" 。
(Perl用語で言うところの) Unicode 文字列なら "\x{E63E}" 。

参考ページ:
>>2
http://perldoc.jp/docs/perl/5.10.0/perluniintro.pod
http://search.cpan.org/dist/Encode-JP-Mobile/lib/Encode/JP/Mobile.pm
http://search.cpan.org/dist/Unicode-Japanese/lib/Unicode/Japanese/JA.pod

>>271
解決しました。
詳しい説明ありがとうございました。

my $a = {
x => [ 'a', '1' ],
y => [ 'b', '2' ],
z => [ 'c', '3' ],
};

my $b = map{}???

上記で$bに下記のようにセットするにはmapのところをどのように書けばよいでしょうか。

$b = {
x => 'a-1',
y => 'b-2',
z => 'c-3',
};

>>273
$b = { map { $_ => "$a->{$_}[0]-$a->{$_}[1]" } keys %$a };
# or
$b = { map { $_ => join '-', @{ $a->{$_} }[0,1] } keys %$a };

>>273
my $b = { map ref $_ ? join('-', @$_) : $_, %$a };
my $b; %$b = map ref $_ ? "$_->[0]-$_->[1]" : $_, %$a;

>>274,275

解決しました。
回答が早くて助かりました。
ありがとうございます。

ｻﾝﾌﾟﾙとはいえ$aと$bは安易に使わないほうがいいぞ

use HTML::Template について質問です。
テンプレートファイル内で、「html出力させないコメント」というのは書けないのでしょうか？
例えば下記の#の行はoutputで出力させないといった動作をさせたいです。
もしできないのであれば、使用されている皆さんはコメントを書きたい時、<!-- -->で対応しているのでしょうか？

<html>
<head>
<title>hoge</title>
</head>
<body>
fuga<br>
#コメントを書きたい
</body>
</html>

>>278
無かったはず。

ただし、new()の際にfilterを設定することで、前処理を行うことが出来る。
これを利用して、特定の文字列を置き換える（削除する）ことは可能。
詳細はドキュメントを参照されたい。

HTML::Templateは痒いところに届かないというか、痒み？何それ？ って作り方だからなあ。
非PGのデザイナーにテンプレートファイル作りを任せるなら、これくらいじゃないと使ってくれなかったりするがｗ

>>276
案の定Wikipediaの丸暗記か

>>280
君はまた見えない敵を作って、勝手に戦うのかい？

>>280

おみそれいたしました。
丸暗記だと応用が効かなくて行き詰ってしまうことが多いです。

↓こちらのスレで誘導されてこの板に来ました。

Perlについての質問箱 49箱目
http://hibari.2ch.net/test/read.cgi/tech/1319953460/100-102n

Windows 2000、Activeperl 5.8 の環境で、
use Socket;
socket(・・・);
connect(・・・);
な感じでインターネット上のwebサイトからページを取得してるんだけど、
サイトの応答が遅いとき、応答が帰ってくるまでCPU負荷が100%近くになる。

これってどういった原因が考えられますか?
あるいは仕様でしょうか。
PCのスペックはWin2000を使っているというあたりで想像いただける通りかなりしょぼいですが、それにしても負荷高すぎかな、と。

Activeperlのバージョン上げれば直るのかな…

パソコンを変えることができないなら、LANカードを取り替えるか
あるいは追加して、それを使うようにして対処。
今使っているLANカード＋ドライバが割込みに対応した作りではない
のでCPU負荷が100%近くになっている。

>>PCのスペックはWin2000を使っているというあたりで想像いただける通りかなりしょぼいですが
端折るな


ちなみに Pentium3 1GHz、ActivePerl 5.12 のうちの環境は sleep 使うと CPU 占有率が 80-90% とかになる。

>>284
LANカードの問題ですか。
ノートだから交換や追加は難しいですね…
>>285
すみません。
Pen4M1.8G(但し1.2G動作)です。

ありがとうございました。

NetBurst か。
デスクトップの Pentium4 ですら同じくロックまで落とすと Pentium3 に負けるからなぁ・・・
ただそれ以外の部分 (チップセットとかね) は Pentium3 世代よりも上だから、CPU はボトルネックとは考えられないか。

古いノートだったら 10Base-T とかの可能性も否定できないよね。

あとアンチウイルスとかスパイウェア関連は外すのも手。
TCP/IP の入出力を監視してたりするので負荷が掛かるのは当たり前だから。

定期的にスクレイピングのために Perl スクリプト走らせてるんだけど、
今見たら 60-80% の CPU 占有率だった。


これ以上はハードとか OS の問題になってきそうなのでスレ違いどころか板違いすらにもなってくるかな？ｗ
その前に色々書いておく。

特に大事なデータが無ければ OS 再セットアップして、アンチウイルスとかスパイウェア関連は入れない。

もし直らなければ、ノートの製造が AOpen や Acer などの安かろう悪かろう的なメーカーでないか確認。
なおかつ使用チップセットが Intel 以外だった場合は遅いのはハードウェアが原因と見て良いかと。

上記以外のメーカーで Intel チップセットの場合は >>284 が書いたとおり LAN カードが怪しいかも？
USB の LAN もあるけど、そもそも負荷が高いので使っちゃだめ。 32bit CardBus が付いてるならその LAN カードを。

これでも駄目なら投げ捨てる。

CD起動のLinuxで同じスクリプトを実行してハードの問題かどうかを切り分けてみる。

>>287
ハードやOSの問題だと板違いですね。
ただ、ブラウザでアクセスしている場合にはそういった問題は発生しないのでperl側の問題という線も捨てきれないのかな、と。

ちなみに、常駐系のソフトは全て停止しても状態は同じでした。
とりあえず、まずはLANカードの線で、何か試す方法がないか検討してみます。

>>288
ちょっとハードルが高いですね。
Linixの知識は全くないので、そこにたどり着くまでの時間が取れそうにないです。

改めてありがとうございました。

>>279
最初に任意のルーチンの割り込みができるんですね。
いまバタバタしてるので時間が空いたらじっくり調べてみます。
ありがとうございました。

>>289
BIOSのIRQの設定も板違いですね。
そうだとするとLANカードを変えても同じことになりそうなので。

$test . '_aiueo'

こうゆう文字列でマッチさせようとしたときに、何も考えずに書けば

/$test_aiueo/

だけど、これじゃ $test_aiueo っていう変数は無いからエラーになるわけで、
$test という変数の直後に半角英数でマッチさせるにはどうすれば良いのでしょうか？

すんません解決しました。

/${test}_aiueo/

こうゆう書き方できるんですね。
$hash={} を %{$hash} とか普段から使ってるクセに、なんですぐに書けなかったんだろう。。。

こういう

作ったスクリプトのどこの部分が処理に時間が掛かってるのか知りたいです。

処理ごとにデバッグプリントすれば可能ですが、非現実的だし、
後々デバッグプリントを消すのも手間なので、Perlでどこの部分で
時間が掛かってるとかのデバッグというか、トレースというか、
そういう事は出来るモジュールなどはあるのでしょうか？

>>295
http://perldoc.jp/docs/perl/5.10.1/perlfaq3.pod#How32do32I32profile32my32Perl32programs63

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


#!/usr/bin/perl -d
use Devel::DProf;

で tmon.out を吐かせた後に dprofpp で得たいデータが取れました。

以前html::templateで質問したものです。
>>278の件は解決できました。
ありがとうございました。

もう一つ質問があります。
TMPL_INCLUDEのパスをcgi上でコントロールしたいのですが、下記のようなテンプレートはNGとなっています。

<TMPL_INCLUDE NAME="<TMPL_VAR NAME=incPath>">

そこでfilterを使って表現しようと思うのですが、どのようにすればよいでしょうか？
※cgi内の変数がfilter内のサブルーチンでそのまま使用できるのは確認できています。

my $incPath = './tmpl/inc.tmpl';
my $template = HTML::Template->new(
filename => './aaa.tmpl',
filter => sub{
my $ref = shift;
$ref =~ s/(\$[a-zA-Z0-9_]+)/eval($1)/g; #←ここの置換後の表現が思いつかないのでやりたいことのイメージを書いています。
},
);

--- template ---
<TMPL_INCLUDE NAME="$incPath">

>TMPL_INCLUDEのパスをcgi上でコントロールしたいのですが、

すみません。この一文はわかりづらいですね。
この文は無視してください。

>>298
コメント削除の件は解決して何より。

インクルードファイルを動的に制御するなら、素直に<TMPL_IF>や<TMPL_UNLESS>で分岐させるのが良いのでは。
もしくは、CGI側で別途に読み込んで、<TMPL_VAR>で吐き出すか。

インクルードファフィルのルートディレクトリを指定するだけなら、
new()の時に path を指定することでコントロールできるっぽい。


【余談】
HTML::Templateは条件分岐がマトモに書けないから、可能なら拡張モジュールの利用も考えてみて。
自分は使ったことがないんだけど
http://search.cpan.org/~samtregar/HTML-Template-Expr-0.07/Expr.pm
とかどうだろうか

>>300
もしかして279の方ですかね？
またまたご意見ありがとうございます。

色々試行錯誤しましたが、今回はfilterに下記のようにして対応することにしました。
$replace_ref = {
HENSUU => 'hogehoge',
};

filter{
$ref = shift;
$$ref =~ s|\[\#.*?\#\]||gxms; # [# 〜 #]までをコメント
$$ref =~ s|\[\%\s+([a-zA-Z0-9_]+)\s+\%\]|$replace_ref->{$1}|gxms; # [% 〜 %]を置き換え
}

----- html -----（どんなフォーマットがHTMLに影響ないかわからなかったので変数置き換えはtemplate-toolkitを参考）
<html><body>
[# コメント #]
変数=[% HENSUU %]
</body></html>
---------------

HTML::Template::Exprいいですね。
HTML::Template::Proにも取り込まれてるんで、高速化したい時には置き換えが簡単そう。
HTML::TemplateはIF文が貧弱すぎる。

パターンマッチについてなのですが、

-------------------
<span class="availGreen">在庫あり。</span> <a href="/gp/help/customer/display.html?&nodeId=915624">
在庫状況</a>について<br /> この商品は、<b><a href="/gp/help/customer/display.html?ie=UTF8&nodeId=64
3004">Amazon.co.jp</a></b> が販売、発送します。 ギフトラッピングを利用できます。
-------------------
この文字列(実際には改行は入っていない)から、「Amazon.co.jp」(他の店名になることもある))の部分だけを取り出す為に

if ( $_ =~ />(.*?)<\/a><\/b> が販売/ ) {print $1;}
とすると、
-------------------
在庫あり。</span> <a href="/gp/help/customer/display.html?&nodeId=915624">
在庫状況</a>について<br /> この商品は、<b><a href="/gp/help/customer/display.html?ie=UTF8&nodeId=64
3004">Amazon.co.jp
-------------------
までが拾われてしまいます。

if ( $_ =~ /この商品は、<b><.*?>(.*?)<\/a><\/b> が販売/ ) {print $1;}
とすることにより、目的は達成できたのですが、何故最初のがダメなのかが良くわかりません。

なお、直前の「643004」の部分は場合によって変わるのでキーワードには出来ません。

何故って…
.*?にはタグ(<.*?>)を含まないなんてルールはないし

最小マッチの「最小」の意味を勘違いしてるパターンと予想。
.*? か .* かで影響されるのは "</a></b> が販売" の部分の探し方であって、
マッチすること自体が確定したら最初の ">" の位置は動かない。

関係ないが、この手の情報取得は可能ならまずAPIを検討すべき。
泥臭くスクレイピングするとしても、よほど高速性を重視するとかでなければ
正規表現じゃなくてTreeBuilderとかでDOMをパーズするほうが安全。

>>304
ありがとう。
最初の「>」で拾ってしまうんですね。

高速性の必要なものではなく、いくつかの商品の価格変化をログ取ってるだけなので、
API利用するところまでは考えてません。手続きめんどいので。

>>305
拾いたい箇所が1ファイルに1箇所くらいで構造も単純ならパターンマッチングの方が
手っ取り早いよね。
でも構造が繰り返しだったりややこしかったりする時はWeb::Scraperとか便利よ。

>>304
パーズ? パース? ← parse

考えるの面倒だからという理由で、モジュールに丸投げする底辺でゴメンナサイ

そのためのモジュールでしょ　無問題

ありゃ。smooth(ズ)→スムース みたいなもんで英語では parz って発音するものだと思い込んでたからそれに合わせてたわ。
調べてみたらイギリス英語系の辞書だとパーズだけど、アメリカ英語でパースが一般的みたいだからそっちのほうがいいや。サンクス

>>309
＞イギリス英語

へー。良いことを知った。

本当だ。
2つ発音されるね。

parseの意味 - 英和辞書 - goo辞書
http://dictionary.goo.ne.jp/leaf/ej3/61513/m0u/parse/

そうか。どっちもありなんだ。
勉強になったぜ。

テキストファイルから３行だけほしいときって、１行で記述することってできますか？

今は for で回して push してるんだけど、
@lines = <$fh> x 3;
みたいな感じで書けたら落ですよね。。。

>>313
#!/usr/bin/perl -w
use strict;
my @line = (scalar <DATA>, scalar <DATA>, scalar <DATA>); # 幾つ?
print @line, "---\n"; seek DATA, -12, 1; @line = ();

@line = map scalar <DATA>, 0..2; # 0から2とは?
print @line, "---\n"; seek DATA, -12, 1; @line = ();

push @line, scalar <DATA> while @line < 3; # 意図が分かりやすい
print @line;

__DATA__
foo
bar
baz
quux

やっぱ、なんかしらで回すしか無いですよね。
ありがとうございました。

>>315
ループを避ける事自体が至上命令ならば >>314 の1番目か
$/ = \64; # 充分なサイズのバッファ
my @line = <DATA> =~ /^(.*\n)(.*\n)(.*(?:\n|\z))/;

@line = (<DATA>)[0..2];

至上主義ってわけじゃないんだけど、ループの中で特に処理をするわけじゃないから
１行で簡潔にできたら嬉しいよね〜

っていう程度です。

ループを決して書こうとしない部下を思い出した。
そいつは自分自身がループして同じ内容を必要な行数分タイプしてたっけ。

8bit機の時代はループの条件判定のタイムロスを惜しんで
ループ展開とかやったっけな。アセンブラで。

ループではないけど、100程度のif文を自動生成するプログラムなら見たことがある…

入門書を読んでて気になったのですが
ダブルクォート文字列で使われるエスケープシーケンスと
マッチ演算子の中の正規表現で使われるエスケープシーケンスは
よく使われる改行文字(\n)やタブ(\t)などが両方にあるので
厳密に言えば違うけれども、大体同じものと理解していいのでしょうか？

それとも全く違う、あるいは全く同じものなのでしょうか？

覚えることが少なくなるように同じ記法を採用しているだけで、
それを解釈するコードは文字列と正規表現では別物だと考えて
ください。

全く同じであれば、本の記述は１回のはず。
別物だから区別して書いてあって、本に２回出てくる。

でも覚えやすいように同じ記法にしている。

やっと規制がとけました

>>323-324
ありがとうございます

CGIに値を渡したいときの方法で質問です。

�@ttp://example.com/index.cgi/1/2/

と、PATH_INFOで渡すのと

�Attp://example.com/?a=1&b=2

と、.htaccessに「DirectoryIndex index.cgi」を書いてPOST風？（呼び方がわからない）で取得する方法があると思いますが、
みなさんどちらを使っていますか？
どちらを使おうか悩んでいます。
（最初、index.cgiを消してPATH_INFOで渡せればすっきりするなと思いましたが、それだとttp://example.com/1/2/となって
index.cgiを読ませる場所とPATH_INFOの切り分けができないと気づいて今に至っています）

個人の好みになるかもしれませんが、こっちをこんな理由で使っているという感想などいただけたら参考にしたいと思います。
ちなみにformタグではGETを使用しています。

>>326
http://txqz.net/blog/2007/06/16/1641

system()で外部コマンドを呼び出すと呼び出しは行われるのですが、そのあとの処理に進まずに
Internal errorになってしまいます。なにか呼び出し方があるのでしょうか

system '/bin/ls', "-la";
print "Location: index.html\n\n";

そのスクリプトを手元で実行したことはあるかい？

CGIで動かしてるんだったらHTTPサーバのログにエラー内容が記録されてるんじゃないか?

malformed header from script. Bad header=total 68: test.cgi, referer: http://redhat6/test.html
とか出てます。Systemを実行しなければこのメッセージは出ないです。

＞malformed header
だからヘッダがどうなってるか見ろ

ls -la とか バイナリの実行ファイルとかですが、、、

うーん…
真っ先に HTTP ヘッダがなければCGIとして機能しないでしょ。
エラーになるのは当たり前。
でもって Location: で飛ばしてるんだから system '/bin/ls', '-la'; は全く意味がない。
仮に print "Location: index.html\n\n"; の次に置いても無視されるだけ。
そのCGIの目的(用途)は何なの?

ん？ Location: 〜 を print しようがスクリプト自体は最後まで走るでしょ？
問題は system の出力先が標準出力、つまり普通に print するのと同じところに行ってるせいで、
スクリプトからサーバーへ渡される出力が

total 8
drwxr-xr-x 2 nobody nogroup 4096 Nov 27 00:00 ./
drwxr-xr-x 3 nobody nogroup 4096 Nov 27 00:00 ../
Location: index.html

みたいになってて、
サーバーとしては改行2つより前の部分は HTTP ヘッダとして解釈しなきゃいけない、
でも Location 以外の行は正しい HTTP ヘッダではない。
だからそこで内部エラーとして止めてる、ってことでは？
CGI 試す環境ないんで推測だけど。

>>335
だからそう書いてるだろ。

>>332
「ヘッダ」が分からないので見ろといわれてる対象が分かっていない
に一票。

つまり
print "Location: index.html\n\n";
は、理解して書いているのではなく、他のプログラムのコピペ。

print "Location: index.html\n\n"; の前に system を置いちゃうくらいだからそうなんだろうな。

ここまで答えのようなヒントが出てれば、あとは大丈夫でしょう。きっと・・・

>>327

ありがとうございます。
作成中のものはエントリのページなのでPATH_INFOで渡したいと思います。

この場合、URLからindex.cgiを消して尚且つPATH_INFOを取得するには
どのようにしたら良いのでしょうか？

ttp://example.com/index.cgi/1/2/
を
ttp://example.com/1/2/
にして、index.cgiを実行し、PATH_INFOから"/1/2/"取得したい

>>340
を実現するためググってみました。

ttp://hatsugen.zakzak.co.jp/qa6717936.html

↑ここの「ANo.3」で下記のように書かれていました。


たとえば、httＰ://hoge.com/A/B というURLをブラウザに与えると、ブラウザはHTTPサーバー(hoge.com)に対して、/A/Bという
ファイルを送れと要求します。
サーバーはこれを探しますが、Bというファイルがなければ、それをディレクトリとみなして/A/B/として/A/B/を探します。
それが存在していれば開いてみます。
　httpd.confや.httaccessで下のように指定してあれば、
<IfModule dir_module>
　　DirectoryIndex index.html index.htm index.cgi index.sh
</IfModule>
　前から順番にファイルを探して表示します。いずれもなければ、またこれも設定にしたがってディレクトリ内のファイル一覧を表示するか、
エラーを返すか、その指定もなければ/B/を切り捨てて環境変数に格納し、/Aについて同様な処理を繰り返します。


つづく

つづき

そこで下記を行いました。

�@ttp://example.com/　の階層にindex.cgiと下記一行を書いた.htaccessを置きました。
DirectoryIndex index.cgi

�Attp://example.com/で、ttp://example.com/index.cgiにアクセスしたことを確認しました。

�Bttp://example.com/a/にアクセスするとエラーになりました。

ttp://example.com/a/というディレクトリは存在していないので、
一つ上がったttp://example.com/のindex.cgiを探しに行くのではないかと思うのですが
何か間違えているのでしょうか？
どこをどうすればできるようになるのか教えてください。

>>340-342
>>1
Apache〜嗜みとして〜 Part3
http://hibari.2ch.net/test/read.cgi/php/1043851302/
【Apache】mod_rewriteについて語るスレ
http://hibari.2ch.net/test/read.cgi/php/1023791370/

>>343
ここまでいくとCGIとは関係なくなってきますね。
誘導ありがとうございます。

質問は取り消します。

以前、Perlのマニュアル（リファレンスドキュメント）をダウンロードしたことがあったのですが、
今行ったら見つかりませんでした
どのページの、どの部分からダウンロードにいけるのでしょうか？

また、以前ダウンロードした時はは内容が英語でした
出来れば日本語版があればそちらをダウンロードしたいのですが、どこか内でしょうか?

perldoc.jp

Markdown.plの出力結果にhtml, head, bodyなどの要素を加えたいんですが
そういうオプションとかってデフォルトの機能にはないですよね？

出力されたhtmlファイルを開く→先頭に書き足す→末尾に書き足す→上書き保存
という処理をするスクリプトを書くということ以上の解決策ってないですよね？

中間ファイル作らなくっても
先頭を書き出す→markdown.plを呼び出して結果を書き出す→末尾を書き出す→保存
でいいんじゃね?

>>347
>上書き保存という処理をするスクリプトを書くということ以上の解決策

何をもって上/下と言っているのか分からんが、Markdown.pl に書き足す
方法はなぜ思い浮かばないのか。

>>349
まあMarkdown.plはいじらないでそのまま使う方が自然だろう。
やるとしたら別名にリネーム(コピー)してから自分専用にカスタマイズ、かな。

ついでに350ｹﾞﾄ

>>347
作者に要望を出す。これ最強。たぶんやってくれる。

GoogleAnalyticsのモバイル版perlコードについて質問です。
下記の�@の所って$ENV{'HTTP_REFERER'}が空だったら$refererはundefになりますよね？
ということは�Aの　$referer eq ""　でワーニングになるから、
修正したほうがいいですよね？？

if ($referer eq "") { #→　×
if (defined($referer) && $referer eq "") { #→　○

#####################################################
# Copyright 2009 Google Inc. All Rights Reserved.
use URI::Escape;
use constant GA_ACCOUNT => 'MO-1887809-14';
use constant GA_PIXEL => '/ga.pl';

sub google_analytics_get_image_url {
my $url = '';
$url .= GA_PIXEL . '?';
$url .= 'utmac=' . GA_ACCOUNT;
$url .= '&utmn=' . int(rand(0x7fffffff));
my $referer = $ENV{'HTTP_REFERER'}; #�@
my $query = $ENV{'QUERY_STRING'};
my $path = $ENV{'REQUEST_URI'};
if ($referer eq "") { #�A
$referer = '-';
}
$url .= '&utmr=' . uri_escape($referer);
$url .= '&utmp=' . uri_escape($path);
$url .= '&guid=ON';
$url =~ s/&/&/g;
$url;
}

しっかりと書くなら
my $referer = exists $ENV{'HTTP_REFERER'} ? $ENV{'HTTP_REFERER'} : '-';
Referer: 0 は明らかに無効だから単に
my $referer = $ENV{'HTTP_REFERER'} || '-';

あと、uri_escape()でやるならURIつかったら
sub {
my $uri = URI->new(GA_PIXEL);
$uri->query_form(
'utmac' => GA_ACCOUNT,
'utmr' => $ENV{'HTTP_REFERER'} || '-',
...
);
return $uri;
}

>>353

my $referer = $ENV{'HTTP_REFERER'} || '-';

が自分にはしっくりきました。
ありがとうございます。
よくみたら　$query　は使ってないですね。
よくみてたら何か色々おかしなコードだ。

とりあえず感謝です。

超初心者です。仕事でホームページ１つ作る事に成りました。
職場では私しかDTPの経験がありません（Webかじったのも私一人）。
イラストレーターからドリームウエバーへ、やっと持って来れるようになりましたが、
コーディングがさっぱり上手く行きません。2度ほどWebスクールにデータ持参で習いに
行きましたが、真似してもさっぱり上手く出来ません。
これじゃ何回習っても、金捨てに行くようなもので困っております。
簡単なビジュアルなので、ハイレベルな技術はいらないと思います。
分かりやすい本とかあれば最高なんですが、なにか名案ありませんか。
よろしくお願いします。

>>1を読むこともできないようじゃあ何もできないだろうねえ

はははは‥…失礼しました。

nobodyさんが即答するスレでしたか、暗号のようなQAで驚きました。
おみそれしました。

>>355
355のレベルでこれから頑張るよりも専門の会社に発注して、
自分は本業に専念したほうがよい

格安で俺が引き受けちゃるけんね

>>355
そりゃコーディング違いだ。
私もコーディングは外注した方が幸せになれると思う。そんな付け焼き刃じゃどうにもならんでしょ。

買って来ました「ドリームウエバーCS5.5スーパーリファレンス」と
「3週間でマスターWebデザインの教室」の2冊、これ見て仕上げる
しかありません。やっと再就職して、よこされたのがこの仕事。
試用期間中だし、だれもウエブの事は知りません。
やるしかありません。

>>361
それと、Perlになんの関係が？

>>362
何がわからないのか、わかっていないやつだな。

　　　　　　r;ｧ'N;:::::::::::::,ｨ／　　　　　 >::::::::::ヽ
.　　　 　 〃　　ヽﾙ1'´　　　 　 　 ∠:::::::::::::::::i
　　 　 　 i′　　___,　-　,. = -一　 ￣ｌ:::::::::::::::ｌ
.　　　　　 ! , -＝=､´r'　　　　　　　 　 l::::::/,ﾆ.ヽ
　　　　　　ｌ　　　　　　　　_,, -‐''二ゝ　 ｌ::::l fﾞヽ |、 ここはお前の日記帳じゃねえんだ
　　　 　 　 ﾚー-- ､ヽヾﾆ-ｧ,ﾆ;＝、_　　 !:::l ） } ト
　　　　　　 ヾ¨'７"ry､｀ 　 ｰﾞ='ニ,,,｀　 　 }::ヽ(ノ 　チラシの裏にでも書いてろ
:ｰゝヽ､ 　 　 !´ "￣ 'l,;;;;,,,.、　　　　　　　,i:::::::ﾐ
::::::::::::::::ヽ.-‐ ﾄ、　r'_{　　 __)｀ニゝ、　 ,,iﾘ::::::::ﾐ
::::::::::::::::::::Vi／l:::V'´;ｯ`ﾆ´ｰ-ｯ-,､:::::`"::::::::::::::;ﾞ　, 　な！
:::::::::::::::::::::::::N. ﾞ､::::ヾ,.｀二ﾆ´∠,,.i::::::::::::::::::::/／／
:::::::::::::::::::::::::::::l　ヽ;:::::::::::::::::::::::::::::::::::::::::::／　／
::::::::::::::::::::::::::::::!　:|.＼;::::::::::::::::::::::::::::::／　／

最近では、広告も電子化されてしまい、チラシといっても
なかなか通じません。

チラシの裏エディタを紹介しておきますね。
（私も愛用しています）

ttp://yuukiremix.s33.xrea.com/chirashi/

>>361
たぶん、それはくびっていう意味だと思うけど。

Perl CGIで、
WEBページにラジオボタン、チェックボックスを配置して、
保存ボタンで各項目のチェック状態をDBに保存して、
次回ページを表示するときに、前回のチェック状態を再現させたいのです。

DBに保存まではできたのですが、ラジオボタンとかのチェック状態を設定するにはどうやればいいのでしょうか？

>>366
ラジオボタンやチェックボックスなら該当するinput要素に、
checked="checked"
ってすればいいとおもいます。

>>367
HTMLのコードを出力する時に
if (checked) {
print <input type="radio" checked="checked">
else {
print <input type="radio">
}
とかやるってことですか？
数が多くてすごい大変なんだけど、これ普通のやり方なのかな

>>366

どんだけ馬鹿なの？消えろ

おおｗｗｗｗだっせーーーーーーーｗｗｗｗｗｗｗｗｗｗｗｗｗｗ

そんなチェック状態とか簡単に考え付くだろｗｗｗｗｗｗｗｗ
引き継げばいいだけなのにｗｗｗｗｗｗｗｗｗｗｗ
頭悪すぎ

自分＝ウサギ
お前ら＝カメ

まじまだまだ寝てても平気みたいだね

こいつらがやってること全部できる

低レベルすぎる

やっぱりセンスが違うんだなあ

>>368
ヒアドキュメントに変数埋めといて、該当箇所だけにchecked="checked"が展開されるようにするとか、
input要素はループで生成するようにしておいて、if文減らすとか、とか、

保守性とるなら、配列かハッシュにラジオボタンやチェックボックスに必要な内容を入れといて
ループで処理かなぁ。

.emlからbase64の部分だけ正規表現で抽出する方法ってありますでしょうか？

あります。

えっ

なり

>>361
Perlでやれって言われたの？
今から短時間で実装するならPHPしかないんじゃないの。
Perlでテンプレートエンジンとウェブアプリケーションフレームワークの環境構築とかしてる時間はたぶんないんでしょう？

>>373
どなたか具体的な方法をお願いしますです

本文なのか添付なのか、plainなのかhtmlなのか・・・
質問がざっくばらんすぎなのでは？

ざっくばらんの使い方おかしくね？
アバウトすぎるとでも言いたいんだろうけど

ページにアクセスすると、POSTじゃない認証（Basic認証？）を使って表示されるページってありますよね
そのページをperlで取得しようと思っています。
ですが何度やっても401が帰ってくるばっかりでまったく進展しない・・・
#!/usr/local/bin/perl
$|=1;
print "Content-type: text/html\n";
print "\n";

#＊一度authorization_basicでやってみました。＊
#＊他のサイトではうまくいったのですが 目的のサイトでは動作しなかった為＊
#＊ntlmを試しています＊
use LWP::UserAgent;
use HTTP::Request::Common;

my $url = '認証が必要なURL';
# Set up the ntlm client and then the base64 encoded ntlm handshake message
my $ua = new LWP::UserAgent(keep_alive=>1);
# $ua->credentials('ホスト:80', '', "？？？\\ID", 'パスワード');
$request = GET $url;
print "--Performing request now...-----------<br>\n";
$response = $ua->request($request);
print "--Done with request-------------------<br>\n";
if ($response->is_success) {print "It worked!->" . $response->code . "<br>\n"}
else {print "It didn't work!->" . $response->code . "<br>\n"}

？？？？の部分に思い当たる物が無いので ？？？？\\を消して見てもだめでした。
どういった動きをしているのか、またなぜ失敗しているのかも負えず・・・困っています
宜しくお願いします

Google さんで 「LWP::UserAgent ベーシック認証」 でググると、一番上に出てくるんだけどね。
ちゃんと調べろよカス。



use strict;
use LWP::UserAgent;
my $ua = LWP::UserAgent->new;
my $req = HTTP::Request->new(GET => 'http://www.example.com/secret.html');
$req->authorization_basic('fuga', 'hoge'); # 'ID', 'PASS'
my $res = $ua->request($req);

あと credentials はダイジェスト認証用じゃないかなと。
ベーシック認証なら authorization_basic を使う。
「ダイジェスト認証 領域名」 でググれば、知識も深まるかと思います。


ちなみに、僕は HTTP::Request::Coomon を使って $req = GET('http://www.example.com/secret.html'); って
やる方が好きです。

>>382
どうもありがとう御座います
やってみましたが401が帰ってきました･･･

何でなんだろう？
WWW-AuthenticateにはNegotiateとNTLMって出てるのにorz

NTLM ・・・ Windows認証か ・・・
http://perldoc.jp/docs/modules/libwww-perl-5.813/LWP/Authen/Ntlm.pod
領域名の部分をちゃんと指定すれば、最初のコードで認証できるかと。
とりあえずサーバーにIISを使ってるなら、そう書いた方が良いと思う。

>>384
すみませんサーバー側でIISを使ってるのかどうか 確認はしたのですが、確かではないのでorz
perlのコーディングとは違う質問で申し訳ありませんが、領域名っていうのはいったい何を指定すれば・・・
クライアント側で調べて分かる物なんでしょうか

認証の設定をするときに、サーバー側で設定するもの。

>>380
>>379は日本語がざっくばらんなんですな

Spreadsheet::WriteExcel でｴｸｾﾙﾌｧｲﾙを出力しています。
ｾﾙはAからZ列があってそこから先はAA,AB,ACと続くのはご存知だと思います。
このｱﾙﾌｧﾍﾞｯﾄを数字に対応させたいと思ってますがｱｲﾃﾞｨｱがでませんのでどなたかご教示くださいませ。
1→A ,2→B,26→Z まではできるのですが（　chr($_ + 0x60)　）、27→AA,28→AB 以降をどうするかがわからないのです。
よろしくお願いいたします。

$c=q{z};print++$c

すいません、説明が不足してました。申し訳ございません。
数字が26なら一発でZに、28なら一発でABに変換したいのです。

再帰処理するサブルーチンでも作れば？

sub convert {
my $n = shift;
my $al = shift || '';
return $n > 0 ? convert(int(($n - 1) / 26), chr(0x41 + ($n - 1) % 26) . $al) : $al;
}
print convert(28); #=> 'AB'

>>392
完璧です。
ありがとうございました。

>>388
Spreadsheet::WriteExcel って、行・列ともに数値で指定できなかったっけ?

http://search.cpan.org/~jmcnamara/Spreadsheet-WriteExcel-2.37/lib/Spreadsheet/WriteExcel.pm#Cell_notation

ムダナナヤミダッタトイウオチカ

Perlにかぎったはなしではないのですが、

cgiに送るデータを
index.cgi?user=foo
ではなく、例えば
http://favstar.fm/tweets/popular
のようにディレクトリ風に送って
CGI側で受け取るにはどうすれば良いんでしょうか？

ディスパッチ

PATH_INFO

>>398
ありがとうございます！

http://www.nicovideo.jp/watch/sm16573796

datファイルの中に書いてあるパスワードと一致した場合にページを表示させたいのですが
以下のソースでコマンドプロントから入力しても必ず失敗してしまいます

エラーはなく、perl -cw　を使ってもOKになり問題はありませんでした

$datfile = "./add.dat";

open(DAT,"+< $datfile");
flock(DAT, 2);

$lock = <<"EOD";
<html><head><title>ページ</title></head>
<body>認証許可</body></html>
EOD

$line = <STDIN>;

chomp($line);

if ($line eq <DAT>) {
print "$lock";
}
else {
print "認証失敗";
}

close(DAT);

datファイルの中身は「t」という一文字が入っています
詳しい方、教えてください

$datfile の１行目に改行があるとかじゃないの？

print によるデバッグがしやすいから、面倒でも最初は変数に入れるクセをつけてみると良いかも。

まず use strict しろよ

あとコマンドプロントじゃなくてコマンドプロンプトな。

<DAT>からの入力をchompしてないからじゃね？

あまりに下らないミスすぎて、恥ずかしすぎてお礼も言えないってか？

お礼が欲しいなら２ちゃんねる以外でやれ

>>407
うるせえカス

罵倒されるのが嫌なら２ちゃんねる以外でやれｗ

まあコマンドプロントじゃしょうがないか

プロントにパスタでも食いにいくか。

Webブラウザで表示された内容を取得しようと思ったのですが、
私が欲しい情報はJavaScriptにより出力されたものであるために、
単純にPerlを用いただけでは難しいと分かりました。
どのように対処すれば、JavaScriptの表示部分を取得できるのでしょうか？
よろしくお願いいたします。

サーバーで javascript を走らせるフレームワークがあったような気がする

spidermonkeyとか？js読めばどこに通信して何をしてるか分かるから、js無くてもいけると思うけど。

Ajax で表示してるなら、firefox での拡張で HTTP 通信を覗けるのがあるから、
それで見張ればいい。

firefox 入れなくない！っていうなら snooper で見ればいい。

急にPerlでCGIプログラムをやることに。
みなさんIDEは何をお使いですか？

今んとこ慣れないEclipseでやろうと
思ってます。

Perlを始めとした動的言語では
コード補完もリファクタリングもヘルプも
中途半端にしかならないからIDEは重いだけだよ。

テキストエディタのみ

最近はブロックの折り畳みとかあるんで、充分強力

IDEに助けてもらおうと思ったんですが
効果が薄いようですね。
腹くくってエディタでやります。

各個人のポリシー次第。なのかもしれませんが、質問です。

モジュール ( .pm) を作ったときって、何かエラーが合った場合に
die でスクリプトを止めてしまってエラーを通知するべきか、
それとも STDERR にエラーを出力しつつスクリプトは止めないようにするべきか、
どちらがオススメのコーディングの仕方なんでしょう？

男は黙ってcroak

>>420
してほしい事をやらせて
してほしくない事をやらせなければよい。

>>421
croak が分からなかったので調べてみた。
呼び出し元が分かる die か。なるほど。
ワーニングには carp か。


ありがとう！



>>422
根本的に文章が読みとれてないですよ。

>>423
> 根本的に文章が読みとれてないですよ。
俺は422ではないが、そっくりそのままお返しする。

420は2択を迫っているが、422は場合によるといっていて、その場合についての説明もしている。
422が正解だと思うが。

どうすんのがいいのか聞いてんのに場合によりけりとしたり顔で言われたら脱力する
420は場合によりけりということがわかった上で、基本的なスタンスはどっちがいいか聞いてんじゃないの？

俺はプロセス殺すなー
変な値入ってんのに処理続けても意味ないし
warnなんてデバッグでしか使ったことないや

>>426
おまえも読解能力の欠陥持ちか。
「場合によりけり」では結局何も答えてないに等しいが、>>422はそんなこと書いてないだろ。
どういう時にどっちを選択すればいいかが簡潔に書いてあるだろ。

time_tが32bitか64bitかを調べる方法はありますか？
2038年1月19日3時14分7秒以降のUNIX時間を取得してみるよりスマートな方法で。

学校の宿題でカレンダーを作ったら2038年2月でずれちゃいました。

overflow 日付は分かってるんだから、最大値＋１を与えた時に
日付がどうなってるか確かめればよい

> 2038年1月19日3時14分7秒以降のUNIX時間を取得してみる

これで充分スマートじゃないか？

俺に言わせれば、time_tが32bitか64bitかなんて重要な問題じゃないね。
本当に知りたいことは、2038年1月19日3時14分7秒以降が扱えるかだろう？　（キリッ）

ぶってぇ釣り針垂らしやがって・・・

つーか「これは仕様です」で十分でしょ、実際仕様なんだから。
年が4桁で有限なのと同じでしょ。

・Perl 5.12 以降を使う
・Time::y2038 モジュールを使う
・DateTime モジュールを使う
のどれかで解決

他の人の労力で解決っているのは、仕事ではそうすべきだけど、
"トレーニング" である宿題ではそうすべきではない。むしろ
time_t にさえ依存せず、自力で10桁年カレンダーのような無駄
なものを作って自分自身の糧とすべし。

>>435
その考え方は賛成できるけど、このスレ的には「車輪の再発明」って言われちゃうんだよね〜 orz

じゃあ、トレーニングだ。

自分で考えろ。こんな所聞くな。
他の人の労力で解決すんな。

車輪の再発明はいいんだけど、大抵は独学のトホホなプログラムができあがあるから、せめて一度
既存モジュールの中身を読んでくれ。

先生のために宿題をするのか、自分のために宿題をするのか違い。

単位のためだろ

そういうの全く理解できないんでごめんな

元ファイルの内容を書き換えて別ファイルに保存する方法を教えてください。
元ファイル　aaa.txt
変換プログラム　trans.cgi
変換後のファイル　bbb.txt

aaa.txt　に書いてある「あ$kanaお」を読み込んで
trans.cgi にて$kana = きくけ;　として変換し
bbb.txt　に「あきくけお」で出力するには、どうしたらいいのでしょうか。

open関数で　+<　という読み書きでファイルを開いても
空テキストが作成されるだけで、うまくいきません。
どうかよろしくおねがいします。

open(my $infh, ？<:utf8？, ？input.txt？);
open(my $outfh, ？>:utf8？, ？output.txt？);
while(my $line = <$infh>){
　　〜処理〜
　　print $outfh $line;
}
close($outfh);
close($infh);

>>442
http://perldoc.jp/docs/perl/5.10.1/perlfaq5.pod

my %var = (FOO => 'bar');
open my $fh, '+<', $file or die $!;
read $fh => my $text, -s $fh;
$text =~ s/__([A-Z]+)__/$var{$1}/g;
seek $fh, 0, 0;
print $fh $text;
truncate $fh, tell;
close $fh;

open my $sfh, '<', $src_file or die $!;
open my $tfh, '>', $tmp_file or die $!;
while (<$sfh>) {
　　s/__([A-Z]+)__/$var{$1}/g;
　　print $tfh $_;
}
close $tfh and close $sfh or die $!;
rename $tmp_file => $src_file or die $!;

>>443さん
>>444さん

お返事ありがとうございました。
じっくり読んで頑張ってみたいと思います

ファイルの置換について質問させてください。
コマンドラインから、
echo "test.txt" | xargs perl -pi -e 's/hoge/HAGE/g'
とすると正しく置換されるのですが、
ブラウザからapacheをとおして、スクリプト内で上記のコマンドを、
`echo "[フルパス]test.txt" | xargs perl -pi -e 's/hoge/HAGE/g'`
や
system "echo ¥"[フルパス]test.txt¥" | xargs perl -pi -e 's/hoge/HAGE/g'"
とするとうまく置換されないのはなぜでしょうか？
またこのケースですとスクリプト内での記述はどのようにするのが適切でしょうか？宜しくお願い致します。

CGI実行時のユーザ権限は
そのユーザ権限でファイルや当該ディレクトリは書き込み可能になっているか
をまずチェック。

447さん
お返事ありがとうございます。ディレクトリとファイルは権限777にして試してみたのですが、
置換されませんでした。あとスクリプト中の文字のエスケープ漏れもみなおしてみたのですが、
結果変わらずでした。さらに調べてみます。ありがとうございます。

どう出来ないのか
エラーは出てないのか
端末でスクリプトを走らせたらどうなるか

Apacheのerrorログを見てみる ←基本

errorログを見て特に問題はないと思っていたら．．．

sendmailのログでしたorz←

コマンドラインやめてopen(FILE,"[フルパス]test.txt")しちゃいなよ

質問質問！
&sub1(qq(asdasdqwdasdasd));
sub sub1
{
while($_[0] =~ /asd/gs )#←�@
{
print $_[0];#←�@でマッチした中身を出力したいが、subの引数
}
}
こんな感じのプログラムを作ったのですが
$_[0]の中身が更新できなくて困っています・・・
どなたか回避する方法を教えてください！お願いします

/asd/gs
　↓
/(asd)/gs


あとついでに書き直した。

sub1(qq(asdasdqwdasdasd));
sub sub1{
　my $str = shift || '';
　while($str =~ /(asd)/gs){
　　print $1;
　}
}

慣れてくれば良いけど、初心者であるうちは $_ をそのまま使わずに関数内で変数を用意して
そこへ格納したほうがいいよ。

>>454
2つほど質問があるのですがいいですか！

お礼を書くのを忘れていました
>>454　さん　ありがとう御座います。

don't ask to ask

CGIのデータベースを運用しています。

auの端末で検索できるものとできない機種があります。
同じ2009年にでたモデルでもできるできないがあります。
例えばCA002はできるけど、K002はだめ。

できないものは、何も検索フォームに入れないで検索してもダメです。

Jcode.pl 2.13でエンコードしてますが、
これが悪いのでしょうか？

どうしたら、文字検索をできるようにできますか？

>>458
携帯サイトのWebプログラムを語ろう Part3
http://kohada.2ch.net/test/read.cgi/php/1232544986/

表示してる文字コードはなにか

端末が送ってきてる文字コードは本当に希望したものか

>>460
Shift_JISです。

utf-8 で書きませう

Jcode.pmの好きなおいらがアドバイスしにやってきたょミ☆
初心者スレだしねミ☆

>>462
邪悪なutf-8ｲﾗﾈ

たしかに utf-8 はマッピングミスとかあるけど、
他からデータを持ってきたりとかしない場合には utf-8 で問題無い。

Shift_JIS vs UTF-8 のゴングが今、スレ内に鳴り響きました！

まずはアクセスログと標準入力に何が渡されたかを見る。

>>466
プログラム板でやれ

続きはSJIS板で

cp932板はありますか？

あるよ

LWP::UserAgent で指定 URL をアクセスして、リダイレクトされた際に実際にアクセスした URL を知るにはどうしたら良いでしょうか？

header('Location') で調べれば良いと思ったものの、リダイレクトされた後には Location ヘッダは無く、
max_redirect(0) でリダイレクトさせなければ Location ヘッダを取得できて、リダイレクト先を知ることは出来ました。

max_redirect(0) でアクセスして、Location ヘッダがあれば max_redirect(1) とかにしてアクセス。
リダイレクトが１回で済まなければ max_redirect(2) でアクセスしてみる。

と言ったことをやってるのですが、これが非常に面倒なので結果的にアクセスした URL が取得できればと考えて質問させていただきました。

>>472
response_done ハンドラか response_redirect ハンドラに URL を記録する処理を追加する。
http://search.cpan.org/dist/libwww-perl/lib/LWP/UserAgent.pm#Handlers

んなことしなくても、
HTTP::Response オブジェクトは使われた HTTP::Request オブジェクトを丸々保持してるし、
リダイレクト前の Response も previous メソッドでたどれる。

use LWP::UserAgent;
my $ua = LWP::UserAgent->new;
my $res = $ua->get("http://t.co/hog7vmt5");
do { print $res->request->uri, "\n"; } while ($res = $res->previous);
__END__
http://www.asahi.com/national/update/0204/TKY201202030789.html
http://t.asahi.com/5gxs
http://t.co/hog7vmt5

>>474
成程、そっちをみれば良かったのか。勉強になったよ。

use LWP::UserAgent;
my $r = LWP::UserAgent->new->get('http://t.co/hog7vmt5');
print map $_->request->uri . "\n", $r->redirects, $r;
__END__
http://t.co/hog7vmt5
http://t.asahi.com/5gxs
http://www.asahi.com/national/update/0204/TKY201202030789.html

>>473-475
自分には >>474 さんの書き方がしっくりきたので、
これでいこうと思います。
ありがとうございました。



どうでもいい事だけど・・・
do{ }while( ) ってあまり好きじゃないｗ
ループの条件式が後に来るってーのが、なんか馴染めない (^-^；

>>476
> do{ }while( ) ってあまり好きじゃないｗ
> ループの条件式が後に来るってーのが、なんか馴染めない (^-^；

その方が都合のいいケースもたまにあるでしょ。
最低1回は処理が必要、って時が。たまにね。

動作というより記法について言ってるのでは。
特にブロックの中身が複数行のときは最後の while を見るまでループだってことがわからんのが痛い。
あとまあ、動作も実際気持ち悪い。本物のループブロックじゃないから next とか使えんし。
まともに書く時はちょっと記述増えることになっても普通の while と last とかを組み合わせるほうがいい。

Perlによるネットワークプログラムの質問です。
Perl でアクセスしたいサイトがあるのですが、Perlからhtmlを読むことが出来ません。
IE8の「ソースを表示」では表示できるのですが。

アクセスしたいサイト ：http://cinema.pia.co.jp/
Perlのスクリプトの場所 ：http://x68000.q-e-d.net/~68user/net/sample/http-client-2.pl
その説明 ： http://x68000.q-e-d.net/~68user/net/http-3.html

【実行結果】
perl http-client-2.pl -GET http://cinema.pia.co.jp/
HTTP/1.1 200 OK
Date: Mon, 06 Feb 2012 09:25:43 GMT
Server: Apache
Last-Modified: Fri, 28 Aug 2009 06:41:24 GMT
ETag: "304a0-2-f9082d00"
Accept-Ranges: bytes
Content-Length: 2
Connection: close
Content-Type: text/html

1

で終わってしまい、肝心のHTMLのBODYの部分を表示する事が出来ません。
どなたか分かる方教えてください。

LWP 使えば？

>>480
オレもLWP使うに1票

wget使えば？

一度やってみたかったのでtelnetにコマンドを流し込みます。
覚えるともう、病みつきです。ftpもこれでやってます。
sendmailだって大丈夫です。

>>479 です。返信ありがとうございます

>>480 >>481
LWP 使ってみました。http://www.sea-bird.org/doc/Solaris8/Perl_4.html
出来ました
>>482
wget をPerlから？使う方法が分かりませんでした。コマンドとして使うという事なら目的と違います
>>483
上記チュートリアルサイトにて telnet も試しましたが、駄目でした


実は本当にやりたいことは別にあったので、すみませんが質問をやり直させてください

このサイトは、映画レビューサイトなのですが、
http://cinema.pia.co.jp/user/xxxxx/imp/all/ (xxxxxは数字)
にて、各ユーザーのレビュー一覧を見る事が出来ます
(実は自分のレビューを抽出したいだけです)
しかし、Perlからのアクセスでは、LWPを使ってもここではじかれてしまいます
(IE8の「表示→ソース」では見れるが、Perlにprintさせると違うものになっている)

どなたか原因分かりますでしょうか？

「違うもの」が何だか分からないけど、ユーザーエージェントをIEにしてみたら？

>>484
use LWP::UserAgent;
use HTTP:Request::Common;
my $ua = LWP::UserAnget->new();
$ua->agent('Mozilla/4.0 (compatible; MSIE 8.0; Windows NT 5.1; Trident/4.0; .NET CLR 1.1.4322; .NET CLR 2.0.50727; .NET CLR 3.0.4506.2152; .NET CLR 3.5.30729; .NET4.0C; .NET4.0E)');
my $req = GET('http://cinema.pia.co.jp/user/xxxxx/imp/all/');
my $res = $ua->request($req);
if(open(my $outfh, '>', 'debug.html')){
print $outfh $res->content() || '';
close($outfh);
}

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

>>485 駄目でした。ソースの190行目辺りからが違ってきます
上手くいく時は、以下のようになります。良く分かりませんが。
<div id="mainImpMain">
<form method="get" class="common">
<ul class="pagedLink">

>>486
出来ました。ありがとうございました。

>>487
何がだめだったのか、ちゃんと理解できてる？

HTTP ヘッダに独自のヘッダを付加しようとしてるんですけど、
自分自身が呼ばれて起動された際の HTTP ヘッダってどうやって確認するのでしょうか？

use CGI の header はヘッダを出力するためのものっぽいし・・・

>>489
それはあんたのスクリプトがどうやって呼び出されているかによる。
httpd に Apache を使ってて CGI 経由で呼び出されているなら
Apache のマニュアルと CGI の仕様書を読んでくれ。
http://httpd.apache.org/docs/
http://www.studyinghttp.net/rfc_ja/rfc3875

あと HTTP の仕組みもきちんと理解してくれ。
http://www.studyinghttp.net/rfc_ja/rfc2616

HTTP ヘッダの理解を深める為にマニュアルや RFC を求めてるんじゃなくて、
自身のスクリプトが呼ばれた際の HTTP ヘッダを得る方法を伺っているわけでして・・・

>>488
目的のスクリプトは書けたのですが、気持ち悪いので知ってるなら教えてもらえますか？

「教えてもらえますか？」
↑
最近の若い奴は、物事の尋ね方も知らないのか？ﾌﾞﾂｸｻﾌﾞﾂｸｻ

<!-- link -->から<!-- /link -->までのタグ内に存在するURLとその行の「〜」で囲まれてる部分を
抜粋するようなプログラムを作成したいと思います。

例えば、次のような文章があった場合、
------------------------------------
ほげほげふがふが
http://example.com/hogehoge1
ほげほげふがふが
http://example.com/satitama1/saitama.html
<!-- link -->
リンク一覧
〜テスト〜　http://example.com/hogehoge2/test.hmtl
〜さいたま〜　http://example.com/satitama2
東京
<!-- /link -->
------------------------------------
結果は
------------------------------------
<a href="http://example.com/hogehoge2/test.hmtl">テスト</a>
<a href="http://example.com/satitama2">さいたま</a>
------------------------------------

のようにしたいのですが、どのように書いたらよいでしょうか？

尚、URLを抜き出す正規表現は次のように書きました。
(https?|ftp)(:\/\/[-_.!~*\'()a-zA-Z0-9;\/?:\@&=+\$,%#]+)


環境は、CentOS5　perl5.10です

>>494
http://perldoc.jp/docs/perl/5.10.1/perlfaq6.pod#How32can32I32pull32out32lines32between32two32patterns32that32are32themselves32on32different32lines63

my $protocol = qr/(?:https?|ftp)/;
my $format = '<a href="%2$s">%1$s</a>' . "\n";
my $text = do { ... };
my @link;
while ($text =~ m{<!-- link -->(.*?)<!-- /link -->}gs) {
　　my $links = $1;
　　push @link, sprintf $format, $1, $2
　　　　while $links =~ m{〜(.*?)〜.*?($protocol://[!#-;=?-\[\]_a-z~]+)}gos;
}
print @link;

>>493
その割には「お前ら教えろ」で回答貰えたりするけどな2ch

>>496
それはむしろネタとして受け入れられてしまうんだろうなｗ

私の働きが悪いせいか、私の物はほとんど買ってくれません。
下着は、妻と娘のお下がりです。
おまけに洋式トイレ、便座が上がってるとか、飛沫が飛んでるとか、いちいち五月蝿いんです。
おかげで、トイレは座ってするように強要され、もうブリーフの前、開ける必要が無いんだからと、私達のお下がりで十分でしょう。と、ここ何年も私の物は買ってくれません。
今では開き直って、ブラジャーもしています。
家に居る時は、娘のスカートを穿き、外出は娘のパンツ、ジーンズ穿いていきます。
娘は、始めは困惑していたが今では慣れ、何でも貸してくれます。
妻の洋服、パンツ、スカートはウエストがちょっときつい。
ストレッチの物は、勝手に着ています。

cat >>498 > /dev/null

next if $num == 498

Global symbol "$num" requires explicit package name at >>500 line 1.

どうせなら、>>498 は、そのカキコ内容を perl で記述すべし。

use warnings; use utf8; use Corp; use Family;
my $family = Family->new();
$family->husband('>>498'); $family->wife('百合子(仮)'); $family->daughter('楓(仮)');
my $corp = Corp->new(); $corp->salaryCalculation();
$family->income($family->husband(), $corp->salary());

if($family->income($family->husband()) > 250000){
　　# トイレ
　　my $toto = Toilet->new();
　　$toto->type('EU'); # JA or EU
　　my $urine = $family->urine($family->husband()); # 小便をする
　　$toto->urine($urine);
　　if($toto->is_splash()){ $toto->forced_to_sit(1); } # トイレの用足しには座りを強制
　　# 下着
　　if($toto->forced_to_sit()){ $family->underwear($family->husband(), $family->underwear($family->wife()); }
　　# 他の着衣
　　if($family->underwear($family->husband()) eq $family->underwear($family->wife())){
　　　　$family->brassiere($family->husband(), $family->brassiere($family->wife());
　　　　$family->skirt($family->husband(), $family->skirt($family->daughter());
　　　　$family->jeans($family->husband(), $family->jeans($family->daughter());
　　}
}else{
　　$family->underwear($family->husband(), 'BOXER PANTS');
　　$family->brassiere($family->husband(), undef);
　　$family->skirt($family->husband(), undef);
　　$family->jeans($family->husband(), 'EDWIN');
}

>>498 じゃないけど、これが限界っす＞＜
娘や妻への下着のセットは省いたｗ

収入がちゃんとある場合の下着で、ブラとスカートはちゃんと undef にしてるところを評価して欲しいですｗ

わろた

修正
×　$corp->salary()
○　$corp->salary($family->husband())

サラリーを得るのに名前を渡してなかった＞＜


×　if($family->income($family->husband()) > 250000){
○　if($family->income($family->husband()) < 250000){

不等号の向き間違えたｗ

初めまして。

RSSのデータから、日付時刻とタイトル、そのリンク先URLを一覧にして取得したいと考えています。

・ブラウザに「取得」ボタンなどを表示し、それをクリックすることで最新の一覧を表示
・以前に取得したものは取得しない

先ずは上記2点を実装したいです。

良い方法や参考サイトなどをご教示頂きたいです。
よろしくお願いいたします。

>>507
>>1-2

こんなCGI探してます 23
http://kohada.2ch.net/test/read.cgi/php/1219654359/
依頼されたツールを誰かが作るスレ
http://kohada.2ch.net/test/read.cgi/php/1078997682/
金出すからスクリプト作ってよvol.1
http://kohada.2ch.net/test/read.cgi/php/1150508106/
自作CGIを評価するスレ
http://kohada.2ch.net/test/read.cgi/php/1049514428/
自分の作ったCGIスクリプトをデバッグするスレ
http://kohada.2ch.net/test/read.cgi/php/1011174442/

http://kohada.2ch.net/test/read.cgi/php/1036141603/420-435

>>508
最後のスレが役に立ちそうです。ありがとうございます。

なぜマスコミは財務省の犬になるのか？

全国紙では唯一、増税批判の姿勢を取っていた産経新聞に、
昨夏、国税の税務調査が入った。
財務省にとって税務調査は言論統制の最強の武器で、
2009年には朝日、読売が申告漏れを指摘され、
それを機に朝日は増税礼賛へと傾斜し、
読売は財務省幹部の天下りを受け入れた経緯がある。

国税庁という「警察力」は、財務省の最強の武器なのです。
何しろ、徴税というのは「裁量範囲」が広い業務で、
調査官の「判断」により合法とされたり、
脱税とされたりしてしまうのです。
「去年はＯＫだったのに、今年は何でダメなんだ！」
といった事態は普通に起こります。

眞子様は素敵

まで読んだ

貞子は素敵

まで読んだ

素数

に見えた

素股

眞子様は素股!?

貞操は国家機密事項

質問なのですがPerlでこういうサイトって作れますか？
ttp://findrjp.com/formen/
これはPHPだと思うんですけど
作るとしたらelsifで作る感じでしょうか？
こういうのってすぐ作れますか？

お前には無理

お前に出来たらチンパンジーでも出来るよ

そうだねelsifさえ使いこなせれば簡単に作れるよ。でもelsifはかなり難しいから頑張ってね。

皆様生暖かいコメントありがとうございます。
どうせテメーらにはできないんだろｗｗｗｗｗ
って挑発したらヒント教えてくれますか？
elsifは分かります

はいはいマルチマルチ。

実行中のスクリプトの場所に関して質問です。

スクリプト中で開くファイルはスクリプトのあるディレクトリのサブディレクトリに置いており、
全てフルパスで開くようにしています。
昨日初めて mod_perl を入れたところ、FindBin $Bin や Cwd が Apache のディレクトリになっています。

$ENV{'SCRIPT_FILENAME'} を使おうかと思ったのですが、デバッグでコンソールで実行することもあるため
$ENV{'SCRIPT_FILENAME'} は使えません。

$0 では cron でも mod_perl でも CGI でもコンソールでも期待する値が得られました。

./hoge.pl で実行して dirname($0) すると ./ 返ると書いてある場所もありますが、当方では
確認できませんでした。

そこで疑問に思ったのが、$0 を 100% 信用してもいいのか？ ということです。
「他のプログラムにより強制的に書き換えられる」 という可能性は今は無しでお願いします。

ちょっと勘違いがありました。

$0 は perl に与えられた path みたいですね。
HTTPd とかはフルパスを作って渡してくれてるっぽいけど、
コンソールではそうではない。

むぅ。。。

mod_perl を導入してスクリプトが走るのが軽いからと F5 連打してたら
Not a CODE reference 〜
っていうエラーが出た。
そのエラーが言う行は

main();

としかやってないのに。。。

mod_perlが返すパスも元を追えば$0を元に生成してたと思う

すみません、Web制作板からこちらに飛ばされて来ました。

ユーザーによる新規会員登録後、そのユーザー毎にディレクトリを自動的に生成し、
ユーザディレクトリ毎に容量制限を割り当てたいのですが、可能なのでしょうか？

ディレクトリを自動生成するところまではできています。

ファイルが作成されようとする度に全ファイルサイズを得るか、
quota の導入。
quota を入れるなら、システムに実際にユーザーの作成が必要。

if ( 現在使用サイズ + これから書き出すサイズ < 制限サイズ ) {
　ファイル書き込み
　現在使用サイズを書いたファイルorDBを更新（現在使用サイズ＋これから書き出すサイズ）
}

サイズ取得はuse bytes; $data_size = bytes::length($data); かな。

$^0って何でしたっけ。
検索しにくくて、、、、こういうのどうやって探せばいいんでしょう。
perlvarになかったので特殊変数ではないっぽい

何でしたっけと言われても、少なくともPerlにおいては特殊変数ではないしそれ以外の何かの意味もない。

$^O ならOS名なんだけどネ

>>532
そんなのすぐ気づいたしｗ

ありがとうございます、OS名でぐぐったらいろいろ出てきました。
ゼロじゃなくて大文字のオーだったんですね。

OS名ということはシステムからPerlに提供されているものだと思って、%ENVと同じところに記述されているはずって当たりをつけたら
perlvarにありました。

531恥ずかしすぎだなｗ

>>535
そんなことはない。$^0 は確かに特殊変数でもなんでもなかった訳だし。
ためしに$^0をプリントさせたらエラーで実行できなかったし。

だが普通すぐ気づくだろう。

「普通すぐ気づく」なら530の質問は最初からされてない

荒らしはスルーで、、、

>>538
なぜ？
$^O が検索しにくいのは同じだろう？

perlvarとは何だったのか

質問です、以下の最短マッチが機能しないっぽい? のですが、なぜでしょうか?

コード(抜粋)
$html =~ m!"(.*?)" class="Link88" href="/Models.aspx\?ModelID=$id"!s;
print $1;

実行結果
(〜ごっそり省略) <a title="Loeka Creekside Fern Short Sleeve Jersey 2010

$htmlはLWPで拾ってきたHTMLです。数MBくらいあります。
パターンマッチ内の文字列 class="Link88"〜 というあたりはちゃんとマッチしているようですが、
少なくとも Loeka の左にある " が $1 に含まれちゃうのはおかしい気がします。
また不思議なことに、修飾子 /s を外すとちゃんと最短でマッチしてくれます。

再現可能なコードぐらい貼れ、どーせこうだろうが
$html = q{<a href="b"
id="a" class="Link88"};
$html =~ m!"(.*?)" class="Link88"!s;
$html =~ m!"(.*?)" class="Link88"!;

最短ってのはマッチし始めてからが最短になるんであって、グループ内に"を含まないなんてルールはない
つまり最初の"から class="Link88" ... の手前の"までがマッチするんだよ

なるほど、左に向かって最短マッチはしてくれないんですね。
m!"(.*?)" class="Link88"!
を
m!"([^"]*?)" class="Link88"!
に変えて解決しました、ありがとうございます。

質問が不親切、再現しようにもコードもない、質問者が何を求めているかを把握するにはこっちが質問を熟読して意図と本当にやりたいことを汲み取らなければならない、などという書き込みに神対応できる >>543 みたいな奴尊敬するわ。

Kent Webさんからダウンロードしたpostmailの設置が上手くいかなくて困っています。

ttp://kueris.pro.tok2.com/postmail.html
↑これなんですが、ご覧の通り送信ボタンを押すとエラーが出てしまいます。
このエラーは、「Minimal.pm」がCGIフォルダ内に見つからない、という意味だと思うのですが、ちゃんとアップロードはできています。

以下、その他の詳細です。
・check.cgiは問題なく機能しました。パーミッションも設定できています。
・postmail.cgiのみを「cgi-bin」というフォルダに移動させました。
・サーバーはTOK2という所をお借りしています。
・エラーメッセージにある13行目辺りの内容はこんな感じです。↓

9 # モジュール実行
10 use strict;
11 use CGI::Carp qw(fatalsToBrowser);
12 use lib './home/kueris/postmail-utf/lib';
13 use CGI::Minimal;
14 use Jcode;

よろしければお力をお貸しください。よろしくお願いします。

use CGI::Minimal;
　↓
use CGI;

またエラーが出たらお越し下さい。

>>547様
ありがとうございます。お陰さまで、無事にそのエラーは解消されたです。

しかし、今度は別のエラーが発生しました。
ttp://kueris.pro.tok2.com/postmail.html
↑今はこのようになっています。
パスが違うのかと思い、色々変えてみましたが、効果はありませんでした。
メッセージにある20行辺りの内容は以下の通りです。↓

19 # 設定ファイル認識
20 require './public_html/postmail-utf/init.cgi';
21 my %cf = &init;

度々で申し訳ありません。
ですが、何卒よろしくお願いします。

require "./init.cgi";

で OK

>>549様
ご回答ありがとうございます。
試してみましたが、相変わらず同様のエラーメッセージが表示されてしまいます。↓
ttp://kueris.pro.tok2.com/postmail.html
init.cgi自体はちゃんとアップロードされているんですが…。

init.cgiが@INCが示すディレクトリの中にあり、読める状態にあるかを確認

そもそもTOK2でCGIをまともに動かそうなんて無茶なこと考えるなよ

cwd でカレントディレクトリ表示させてみて

CGI で動いてない気がしてきた

初歩すぎる質問で申し訳ありません。
今勉強中なのですが、
postデータ等をこれで変換すると言うのが良くあるのですが、

$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;

たしかにこれでうまくいきますし、また基本的な挙動も理解しています。
分からないのは、なぜpack("C", hex($1))/egで、問題無く動くのかということです。
具体的には、
�@$1で渡されるのは1バイト分なのに、なぜちゃんと2バイト文字として変換されるのか？
�A%([a-fA-F0-9][a-fA-F0-9]の書式でなぜ半角文字が受け渡されるのか？
�B例えば”テ”はpostからデータを受け取った時には83eなのに、なぜ問題無く変換されるのか？
�C�@にかぶりますが、なぜ(pack"c",***)で上手く動くのか？　"c*"じゃないのに正常に動いてる。　また、$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/hex($1)/eg;で作った変数をそのままpack"c*",$value;としてもうまく動かないのに、なぜちゃんと動くのか？

いろいろ調べたりしたのですが、よくわかりませんでした。

>>554
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; でググれ。

皆様、ご回答いただき本当にありがとうございます。

>>551様
確認しましたが、問題ありません。
init.cgiは確かに存在しているはずなのですが、認識されていないようです。

試しに、アップロードされたinit.cgiに直接アクセスしてみたところ、404エラーが表示されました。(つづりやパスは間違えておりません)
同じフォルダ内にある別のプログラムにはアクセスできるのですが……。

>>552様
プロバイダによってCGIの設置しやすさは違うのてでしょうか？
もしよろしければ、CGIが動きやすい所をご紹介していただけないでしょうか。

>>553様
申し訳ありません。プログラミングの経験がない私には、「cwdでカレントディレクトリ表示」の意味がよくわかりません。
調べてみましたところ、これはperlにおけるコマンドのことなのでしょうか。
打ち込んでみましたが、上手く動作しませんでした。

>>555
相当ぐぐったのですけど、「これで動く」「この処理はこう言う処理をしてる」と言う説明はありそれ自体はわかるのですが、
頭でイメージしたものだとどう考えてもエラーが起きるもしくは正しく動作しないはずなのに、「なぜこの書式で正しく動作してるのか？」と言う疑問の解決は見つかりませんでした。

>>554
Perlより文字コードの勉強を先にすべきだな
(1)〜(3)の疑問はそっち寄りだ

>>556
KENT から落としてきて、

１３行目：use CGI;
２４行目と２６行目をコメントアウトでとりあえず動くよ。

何も入力せずに 「送信する」 ボタンを押せば、動作してるのが確認できる。
http://www11.tok2.com/home/mikisama/postmail-utf/postmail.html


ただし、これは貼らずにいられない。
Ｑ.メールフォームを設置したいのですがsendmailは利用出来ますか？
http://tok2.com/study/faq/04-07.html

これ以上は ｽﾚﾁ (これ以上もクソも初めからｽﾚﾁだが・・・) なので、改造スレの方へどうぞ。

文字で考えるな
ただ単なるバイト列として考えればよろし。

今日は SJIS だと 8DA193FA という４バイト。
俺らが見てる 「今」 という文字は、コンピュータからしたら 「8DA1」 という並びのバイト列でしか無い。
そうゆう並びになったから、文字が見えるというだけだ。

てｓｔ

説明が下手で申し訳ありません。

$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;を３つに分解した場合、

例えば、”テストtestだよ”を下の形で出力すると

$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/$1/g;

83e83X83gtest82BE82E6となります。これを$hexvalue = hex($value);に
いれようとしたのですが上手くいきません。

$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/hex($1)/eg;として出力すると

131e131X131gtest130190130230となり、これをpack("c*",131,e,131,X,131,g,t,e,s,t,130,190,130.230);としても当然上手くいきません。
”test”部分は元々半角小文字なのでs/で式から弾かれてるからとわかったのですが、
カタカナ部分の２バイト目は半角英数混じりなのですがここをちゃんと変換してないようですしそう言うオプションも無いのに、なぜ上手くいくのだろう？とよくわかりません。
カタカナの２バイト目の変換はどこでどのように行っているのでしょうか？

>>554の�Cは、gで次々代入してるからそう言う事なんだろうか？となんとなくイメージ出来ましたが・・・・・

まず自己矛盾していることに気づいていない糞さ
＞�@$1で渡されるのは1バイト分なのに
＞�C�@にかぶりますが、なぜ(pack"c",***)で上手く動くのか？
１バイト分のデータ(0x00-0xFF)をpackしてるんだからC*ではなくC

そして文字コードについて全く理解しようとしていない
「テ」の文字コードは「0x83 0x65」で、「e」の文字コードは「0x65」
だから「テ」をパーセントエンコードすると「%83e」であって
「%83」部分さえデコードすれば元の文字に戻るんだよ

ああ壁殴りてぇ

>>562
ポイントは３つ。
一つ目。
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;　はURLデコードするための一文であるということ。
”テストtestだよ”　をURLエンコードすると
”%E3%83%86%E3%82%B9%E3%83%88test%E3%81%A0%E3%82%88”になる。（文字コードはUTF-8）
これをデコードして”テストtestだよ”に戻すのがURLデコード。
つまり$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;という一文の役目。

URLエンコードってのは、例えば「テ」（0xe38386)だったら「%E3%83%86」に変換する。
URLデコートってのは、例えば「%E3%83%86」だったら「テ」（0xe38386）に変換する。

2つ目
正規表現のパターンマッチは一つずつ行われる。
$value="%E3%83%86%E3%82%B9%E3%83%88test%E3%81%A0%E3%82%88"
に対して
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
をやると、

$1に"E3"が入った状態でpack("C", hex($1))が実行され、文字列"%E3"を0xE3に置換。
$1に"83"が入った状態でpack("C", hex($1))が実行され、文字列"%83"を0x83に置換。
$1に"86"が入った状態でpack("C", hex($1))が実行され、文字列"%86"を0x86に置換。
（以下略）・・・

だからhexやpackにまとめて”%E3%83%86%E3%82%B9%E3%83%88test%E3%81%A0%E3%82%88”入れようとするのは間違い。

3つ目
>なぜ上手くいくのだろう？
多くのマルチバイトな文字コードは、「漢字は○○から始まる」とか「ひらがなは××から始まる」っていうルールを持ってる。
だから半角英数とマルチバイト文字が混在しても問題ない。

>>563
�@と�Cはだいたいわかりました。ありがとうございます。

下の方は、pack("c*",　131,101);で”テ”になるのは理解しています。
ただhex($1の段階で131eと出力されてるみたいなので、普通に考えるとpack("c*",　131,c);と言う挙動をさせようとしてるように思えるのですが（当然これだと不具合が出ます）、特に修飾子があるわけでもないのになぜcを自動的に101に変換してるのかがわからないのです。

>>565
>特に修飾子があるわけでもないのになぜcを自動的に101に変換してるのかがわからないのです。
「e」な。
そんでもってeの文字コードは10進の101。

>普通に考えるとpack("c*",　131,c);と言う挙動をさせようとしてるように思えるのですが
なりません。
pack("C", 131)、pack("C", 101)が順番に動いている。

>>564
だいぶよくわかりました。本当にありがとうございます。
一文にする事で内部的に自動的にルールで振り分けてるから厳密に考えようとしてもしょうがないと言う事なのでしょうか。
とすると、あの一文を�@％を抜く�A10進数に変換�B文字コードに変換三段階に分けて記述しようとすると逆に自動では行われないのでかなり膨大な記述になるのでしょうか。
わかりやすくしようと同じ挙動をするものをちょっと書いてみようと思ったら配列を使ったりしないとうまくいかない感じでした。

>>566
なるほど。
内部的にはeを101に自動的に変換して文字列を次々に処理してるのですね。
するとそこの部分だけを抜き出して分けて記述しようとすると、やはりeを101に変換させるコードを書かないといけないと言うことですね。

すみません　ようやく理解しました。
0x83の次にcが来るので”テ”になる
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;の中ではeは未処理のまま0x83をpackで変換した物の後ろに単純にくっつけて出力したと言うことですね

ようやくわかりました。確かに文字コードの勉強が必要でした
よく調べてみます
大変お騒がせしました

>>559様
ご回答ありがとうございます。
色々と見落としていた点があったようで、大変失礼致しました。
頂いた助言を元に、サーバーを変えて試してみます。
本当にありがとうございました。

つか use CGI しているのにモジュール使っていないし、
use strict してても全然 strict じゃないｗ
こんなの怖くて使えないよ('A`)

●やりたいこと：
　jpg画像のサムネイル作成（orファイルサイズ圧縮）がしたい。最悪トリミングでも


レンタルサーバ上でサムネイル画像を作成したいと思っております。
GDやImage Magick、Imager、epeg等々が入っていないのですが、
何かうまい方法がありましたら教えていただきたいと存じます。

配置してパスを通すだけで使えそうなモジュールがありましたら・・

まじめな話、KENT はやめとけ。
あれは20年前のシステムだ。

>>572
width height

>>574
主旨が画像を読み込むスピードを早くしたいので、widthheight指定だけではではちょっと・・

・画像を扱えるツール(プログラム)をレンサバにインストールする
　画像を扱うPerlモジュールは大抵別途本体(バイナリ)かライブラリも同時にインストールされてる必要があるからね
・画像加工できる別サーバを用意し、画像ファイルをそちらのサーバに投げてサムネイルを作ってもらい、それをダウンロードする

Image Magick じゃなくてImageMagick
でもImageMagickも入ってないレンサバって今時あるの? 画像ファイルを(たぶん大量に)アップロードできるくらいだから最安でカスカスのレンサバってことでもないと思うんだが

>>576
ありがとう。それらは考えたんだけど鯖分けるなら自分でサムネつくるのと
手間がかわらないのでなやんでる。

うん。ImageMagickはいってない。

ほかのレンタルサーバーに移動すればよい。

フリーなサーバならまだしも、金を払ってるレンタルサーバなら GD ぐらい入ってないの？
perl が駄目でも、PHP で GD が動いてる可能性とかは？

>>579
PHPでも組んでみたけどだめでした。

素直にさくらとかWebArenaSuiteX使うべきなんですが、
アプロダなのでちょっとアダルト要素入る可能性があり
ピンク系も許可のレンタル鯖でないとだめかなというのもネックになってます。

HTML解析で質問です。
HTML::TreeBuilderを使って解析をしているのですが、
どうしても

<span class="hogehoge">fuga</span>

の、fugaが取り出せません。

($tree->look_down('class', 'hogehoge')

ではダメなのでしょうか・・・？ご教授お願いしますm(_ _)m

>>581
同じクラスのエレメントが複数あるとか？

なかなか短いコードで再現できなくて申し訳ないのですが、

print "DEBUG1\n";
$html =~ m!<a title="([^"]*?)" class="Link88" href="/Models.aspx\?ModelID=$id" id="ModelLink\d+">.*?<td class="Label11">(.*?)</td>.*?<td class="Label14">(.*?)</td><td class="Label13".*? (\d+)%</td>!s;
print "DEBUG2\n";

このm//の1行だけの処理に、20秒ほどかかることがまれに起きます。
その間 top(1)で見てるとCPU負荷が異常に跳ね上がります。
この行はループ中、LWPで取得するたび$htmlが変わりながら数百回実行されるのですが、
異常に時間がかかる時以外は瞬時に通り過ぎます。

時間がかかる時の $htmlを試しにファイルに吐かせてみましたが、
サイズはせいぜい500KBほどで、
このときのファイルを上記の行だけのテストスクリプトに食わせても
瞬時に終了し異常が再現できません。

原因と対策に何か考えられることはあるでしょうか？

>>583
メモリスワップが発生してるとか。

質問です。
Perl/CGI側でHTTPのエラーコードを返そうと思います。

　　#!/usr/bin/perl
　　print "Status: 404 Not Found\n";

　　exit;

というコードを書いたとき、ブラウザ上では想定通りに404エラーとして表示されるのですが
Apacheのエラーログを見てみると

　　Premature end of script headers: /home/foo/htdocs/bar.cgi

とだけ表示されます。この時、他のエラーメッセージは見当たりません。
きちんと動いてはいるので問題ないと言えば問題ないのですが、これを出さないようにするにはどうしたら良いでしょうか。

・404エラーではなく、普通にウェブページを出力した場合には問題ありません。
・同じディレクトリでは別のCGIも問題なく動いており、パーミッションはそれらと同値に設定してあります。
・確認してみたところバージョンはApacheが1.3、Perlが5.8です。古い（´・ω・`）

たぶんcontent-typeを書くと消えるというかググれ

>>586
ありがとう。でもtext/htmlにしろtext/plainにしろ状況は変わらないんだ

>>585
exitって必要なの

\n\n

Header1: foo
Header2: bar
（空行）
body

仮にボディを空にするとしても、ヘッダとボディを隔てるものは必要ですよね

>>588
確かに585のような最小コードでは、exitは有っても無くても変わらないかも。

>>589-590
ステータスコードの末尾を\n\nにすると、
実際にページが送信されている（といっても改行1つだけだが）という扱いになるのか、
デフォルトの404ページが表示されずに、真っ白のページが表示されるようだ。

ちょっと面倒だけど、ブラウザ表示用にエラーページを用意して、
それを出力するようにすれば、とりあえず問題は無さそう。


.htaccessでErrorDocument指定されてるページに飛ばすには、自前でリダイレクトするしか無いのかなー？

>>591
普通exitなんて書かないよ？トホホにでも書いてあったのかな。

>>592
トホホは見てないけど、そうなんだ。
正常終了のときは使わない方がいいのかな。まあ、異常終了ならdie使うけど。

コードが最小だろうが最大だろうがそんなものは必要ない

何故exitが不要なのか、
いわゆる「省略の美学」以外に積極的な理由があったら、誰か教えて欲しい。

何らかの弊害（速度や安全性の問題など）があるとか、
別の関数等で置き換えるのが普通だとか、
構造化プログラミングにおけるgoto不要論と同じような理由だとか、ヒントでも構わないので。

そりゃなくても最後まで行けば仕舞いだけどexitは必ず書いてるな。

>>595
コンパイル済みのスクリプトをキャッシュして使い回すような環境で
無闇に exit すると良くないケースがある。
http://cast-a-spell.at.webry.info/200801/article_9.html
http://harapeko.asablo.jp/blog/2006/06/29/425898

反対に、書かなくていい場面で書いておくのが「冗長の美学」でしかないのなら、
__END__ なり #exit なりとしておいた方が無害でいい。

mod_perlとかplackみたいな永続化環境だとアクセスごとに走る部分でexitしたらだめじゃね
なんにせよこれ「いわゆる省略の美学」とは全く別問題

>>597-598
ありがとう。
mod_perlへの移植（と言ってもかなり書き換えることになりそうだ）を考えるなら、
最初からexitを使わないコーディングが重要ってことか。

mod_perlだと通常のexitは使わないほうがいいってのは聞いたことがあったんだけど、
実際にmod_perlは弄ったことがなくて、その感覚が掴めてなかった。


>>596-597
プログラムを1ファイルで済ませたい場合、
自分はメインルーチンソースファイルの先頭に、サブルーチンを最後にまとめて書くことが多いんだけど、
メインルーチンの最後に、以下はメインルーチンとしては実行されませんよと明言するためにexitを入れたりしてた。

俺も同じでソースの最初に main() なんだけど、その直前に exit() 書いてる。


use なんちゃら〜

our なんちゃら〜

main();

exit(0);

sub main{
}

sub func{
}


っていう感じ。

Cから入った人に多そう、とか思った

基本的に.pmにロジック書いて、.plはそれを呼ぶだけだからexitは滅多に使わないなあ。

1枚スクリプトで、&main; exit; は有りだと思う。
ただ基本は >>602 のようにするから滅多に使わない。


冗長の美学を語る人が、1枚に長いスクリプト書いてるのは矛盾を感じる。

>>603
そこはスクリプトの規模によるんじゃね？
短めの、他と共通化出来ないサブルーチンが2〜3個あるくらいなら、分けるまでも無いだろう。

それはそんなソースになってる時点で論外だな。

別に嫌みとかでは無いんだけど、>>605 の数百行ぐらいの小さいソースと、
２〜３０００行ぐらいの中規模のソースを見てみたい。

ってのも、俺の殆どのソースは１枚で済ましてるから、他人ので学習というか知識を深めてみたいから。

605は安価がないからなー、自分が思ってるのと全く違う主張の可能性もあるｗ

>>606
>>605 とは別人なんだが、数百行の小さいソースって、１プロジェクトで数百行ってことかな。
１ファイルで4,5百行くらいって話だとちょっと長いかな。
スクリプトファイルを書くにしても、大体いろいろな機能をクラス(pmファイル)に分けてそいつらの責任に任せたほうがメンテが楽。

>>608
それはモダンなやり方ですか？

え、モダンかぁ、、、、悪い書き方はしちゃダメだけど、モダンとかは気にしないほうがいいと思うよ、、、
流行り廃りだし、自分で判断したほうがいいよ

そうだね。モダンは足が速いから。スレッドももうなくなったしね。

【モダン推奨】Perlについての質問箱 50箱目
http://toro.2ch.net/test/read.cgi/tech/1327110999/

初心者には敷居が高いから万人向けってわけじゃない

こちらはcatalystについての質問でもよろしいでしょうか？
catalystのスレはあるものの、人が居なさそうなので。。

catalystとApacheをつなぐために、
perl-Catalyst-Engine-Apache-1.12-1.el5.rf.noarch.rpm
を入れようとしているのですが、依存関係で以下の物が足りないと落ちます。
---> Package perl-Catalyst-Engine-Apache.noarch 0:1.12-1.el5.rf set to be updated
--> Processing Dependency: perl(Apache::RequestRec) for package: perl-Catalyst-Engine-Apache
--> Processing Dependency: perl(Apache::Response) for package: perl-Catalyst-Engine-Apache
--> Processing Dependency: perl(Apache::Const) for package: perl-Catalyst-Engine-Apache
--> Processing Dependency: perl(Apache2) for package: perl-Catalyst-Engine-Apache
--> Processing Dependency: perl(Apache::RequestIO) for package: perl-Catalyst-Engine-Apache
--> Processing Dependency: perl(Apache::URI) for package: perl-Catalyst-Engine-Apache
--> Processing Dependency: perl(Apache::Connection) for package: perl-Catalyst-Engine-Apache
--> Processing Dependency: perl(Apache::RequestUtil) for package: perl-Catalyst-Engine-Apache

いろいろ探すと、mod_perlの旧バージョン(1.9.9)には含まれていたものの最新バージョン(2.0.5)には含まれて居ないモジュールのようです。

対応方法が分かる方、ご教授いただけますでしょうか。
宜しくお願いいたします。

>>614
人がいなくてもそれがそのスレなんだからそこに書くしかないんじゃ？
人が少ないからで別スレきたら何でもアリになるだろ

自己解決しました
Catalyst::Engine::Apache2
なるものがcpanから出てました
ちょうど過渡期のようですね

過渡ちゃんペッ

CGIゲーム改造してるんだけど

ID<>名前<>パスワード<>データ各種・・・

みたいに記録してあって下のように処理しててこれが何か所も出てくる
扱うデータ増やすたびに全て修正しなくちゃいけなくてやたら面倒くさい
配列だと見た目で何の変数かわかりにくいし連想配列はつなぐときの順番がばらばらだし
どちらも読み取りだけの時使わない変数まで格納するの無駄かなあと考えてたら先に進まなくなってしまった
変数の追加とか挿入とかするとき一か所くらいの修正でいい無駄の少ない方法ない？

for($i=0;$i<$num;$i++){
　　　($id[$i],$name[$i],$pass[$i],...) = split (/<>/, $data[$i]);
　　　↓
　　　処理
　　　↓
　　　$newdata[$i] = "$id[$i]<>$name[$i]<>$pass[$i]<>...";
}

＞何か所も出てくる
subにぶち込んどきゃいいだろ

そんなあなたにはスライス

スライスって数字のやつ？何か挿入して増やそうとするとずれるよね
単純に後ろに追加すると位置的にわかりにくいから挿入したいんだが、数字のチェックもしなくていい方法ない？
元のデータの書き換えは再生成するから考えないとして

例
データ0<>データ1<>データ2<>・・・
↓
データ0<>データ1<>データx<>データ2<>・・・

それとサブルーチンだとどうやって引き渡そうか悩んでる
配列だと結局受け取るときに順番が大事だし連想配列だと上書きする時また<>で連結しにくいと思ったんだが

順番付き連想配列使えば良いじゃんｗ

データファイルにはヘッダを必ず含めれば幸せになれるかも。

スライスは苦手なのでサンプルは今書けないけど、ファイルを全て読み込んだ時のイメージはこんな感じ。

my $data = {};
$data->{'headers'} = [〜];
$data->{'data'} = [
　{○=>△,◇=>□},
　{○=>△,◇=>□},
　　〜以下略〜
];

読み書きは @{$data->{'headers'}} の順番で行えば良い

で、読み書きを行うサブルーチンを作れば良い。


CSV 的なデータを連想配列で読み込むモジュールがあった気がする。

だから順番付き連想配列使えって。
なんで無理して難しい方法で実現しようとするの？

>>624
例えばこうやるんだよ、って簡単なサンプルコードを書いてやるといいよ。

>>618
ちょっと書いてみた。
http://www5.puny.jp/uploader/download/1333586646.zip
pass: perl

順番付き連想配列ってこうでいいのかな？
添削歓迎。

id とかって配列なのか。
ぱっと見 $i いらなそうなので無視してましたよ。
要件満たしてないっぽいので忘れてください。

http://www5.puny.jp/uploader/download/1333598575.pl
pass:perl
自分はこう書いた

>>628 それだったら $data = [array_ref, hash_ref, ...] の方が良くないですか？

my $data = readdata_mod();
my $headers = shift @$data;

for my $hash (@$data){
　$hash->{NAME} .= '【逮捕】';
　print "$hash->{$_}\n" for @$headers;
}

sub readdata_mod{
　my $headers = <DATA>;
　chomp $headers;
　$headers = [split(/<>/, $headers)];

　my $data = [$headers];

　while(my $line = <DATA>){
　　chomp $line;
　　my %tempdata = ();
　　@tempdata{@$headers} = split(/<>/, $line);
　　push @{$data}, \%tempdata;
　}
　return $data;
}

それより気になるのは >>618 のソースだと
@id,@name,@pass...　と配列があるんですよね。
これをどう処理してるか謎なんで
レコードをなめるだけでいいのか悩むところ。

そこは好みかな
自分はデータとヘッダは分離させたいので、ああやって書きました。

すいません。perlをコマンドラインで使うやり方について質問させて下さい。
例えば数字の入ったファイル名だけ全部lsしたい時って
どのように書けばいいのでしょうか。
こんな風に書いてみたんですが何も出力されません…
ls | perl -e "print /[0-9]/ "

↑
find . -maxdepth 1 -name '*.gif' | perl -ne 'print if /\/*[0-9]{2}\.gif$/;'
こんな感じで出来ました

>>632
find . -maxdepth 1 -name "*[0-9][0-9].gif"

>>632
> if /\/*[0-9]{2}\.gif$/;
これはワイルドカードと正規表現をごっちゃにしているな。別物だからちゃんと区別するように。

それって
find . -maxdepth 1 -name "[0-9][0-9].gif"
と等価なだけなんじゃないのか

以下のコードで，https://member.livedoor.com/login/ が
取得できません．

use WWW::Mechanize;
my $mech = new WWW::Mechanize( autocheck => 1 );
my $url="https://member.livedoor.com/login/";
#my $url="https://www.nodeworks.com";
$mech->get($url);
print $mech->content;


$url を https://www.nodeworks.com とした場合は，取得できます．
https://member.livedoor.com/login/ が取得できない原因として，
何を疑ったらいいでしょうか？？

USER AGENT がちゃんと設定されてないだけでしょ

HTTP::Cookies

マジレスするとSSLを使用しているページにはCrypt-SSLeayを入れないと繋げない事もある

あくてぃぶ とか すとろべりー ならインストール後には可能やよ
Linux 標準の ぱーる は おーぷんえすえすえる 入れないとだめですわ ｼｬｷｰﾝ

$ENV{PERL_LWP_SSL_VERIFY_HOSTNAME} = 0;
を追加すると繋げることもある

>>641

https:://gitub.com は，
$ENV{PERL_LWP_SSL_VERIFY_HOSTNAME} = 0;
でいけた．

しかし，https://member.livedoor.com/login/ は，それでもいけない．
https://member.livedoor.com/login/ は，特殊なんかな．

「かんたんプログラミングCGI/Perl」ってこのスレ的にはどうでしょう？
ttp://d.hatena.ne.jp/perlcodesample/20120414/1334359182

この人のブログ、>>2のテンプレに載ってないから心配になって聞いてみました。

ソースコードに誤字山積ってだけで論外だろ。

そのブログ自体は数年前から、2ch に宣伝気味に貼られるけど
あんま相手にされてない

>>644の言う通り。その本もブログも絶対に参考にしちゃだめ。
現代的（）なPerlなんて覚えてもろくなことにならないから
5.6でも動くようなコーディングを心がけるべし。
あとこいつがプッシュしてるMojoliciousも、ちょっと有名なCatalystとかも
やめといた方がいい。
フレームワークなんてすぐ腐る。
CGIが一番。

フレームワークは小さなやりたいことに対して規模がデカすぎ

10年以内に発売されたような高性能PCとかじゃないとすぐメモリを食いつぶされるからな＞フレームワーク。
フレームワークは金持ちのお坊ちゃまの娯楽、甘えでしかない。
技術を自分のモノにしたければCGIで泥臭く書け。

フレームワークごときでメモリが食いつぶされるような
貧弱なマシンで使ってるの？

それ選択が間違いなだけだよ。

ユーザー数、数万、数十万のウェブサービスを作っていれば、
必然と複数台構成のマシンになる。
メモリの話だと1台10GBオーバーとか当たり前。

そういう世界の人に対して高性能PCとか、メモリ容量とか
釈迦に説法ってやつだと思わないか？

はいはい、Mojoと喪男でがんばってね！

とにかくCGIで書くことを心がければ小規模から大規模までどんなアプリだって書けるようになる。
フレームワークは覚せい剤。手を出したら終わり。

まあおれの場合、CGI.pmすら嫌なんでHTML直に書いてるけどね
その方が書きやすいしメンテもしやすいと思ってる
初期の頃からそうしてるけどぶれていないね

いいねぇ。素晴らしい。
楽はしちゃだめだよね。

モジュール作成者の世界観とおれが直面している問題とは無関係だから。
モジュールのメソッドの整理具合が、個別の問題にマッチしていないのは
当然あり得ること。
個別の問題を解決するのを車輪の再発明だとは思わない(ｷﾘｯ

>>653
そういう場合はラッパーを作ればいい。

プロとアマチュアの違いを見た

なんだかんだで、ちょっと機能を足しただけのラップモジュールを作る機会って少なくないね。

自分が今のやってるロジェクトだとHTML::Template系使ってるけど、
共通パラメータやらフィルタやら、細かい部分が多くてなあ。

ラッパーを作るってことは元のものより粗いものしか作れないでしょ

>>643
ブログの中で自分の名前間違えてたりするレベルなので、本のほうも
推して知るべし、です。

もちろん、こいつの雑誌連載も糞。
上手になりたかったらもっと2chを活用しろ。
オライリーと2chだけで十分。

ある入門書にこう書いてありました
「関数とは、特定のまとまった処理を実行する機能のことです。
・・・一般的に、プログラムの中で呼び出される際にデータを受け取って
特定の処理を行い、結果を返す働きをします」

演算子もこの説明における関数と働きは似ているように見えます
例えば加算演算子が 2 つの数を受け取って和の値を返すというように

関数と演算子に大きな違いがあるのでしょうか？
なんで「関数」と「演算子」とわざわざ呼び分けているわけですか？

その入門書の信頼性を疑ってみる。

>>660
違いは無い。引数の取り方が違うだけ。

入門書なんか捨てろ
Googleも使うな
2chで全て解決

ttp://toro.2ch.net/test/read.cgi/tech/1330666216/731

勝手に持ってきたけど…
printの前に
binmode(STDOUT);
を追加、が手っ取り早い答えかな。

ちなみにバイナリファイルを<>で取得するのは本来良い考えではないよ。

frameworkもmoduleも全部自作
ちょっとめんどくさいのだけコピペ

Perlの場合特にそうなんだけど、演算子に使えるASCII文字は全部使っちゃっ
たわけなんだよ。これ以上演算子を増やすにはアルファベットを並べるしか
ない。それが関数。だって数字を並べると数値になっちゃうからね。

春休みは終わったから帰れｗ

いつ終わったんだよ

明日も明後日もずーっと夏休みだばか者！

>>669
奥が深い。

どこが？

<form action="../RealGraphView/Index.asp" method="post" id=form1
name="form1" target="_top">
<input type="hidden" name="SelectPoint" id="SelectPoint" value="">
</form>

上記をmechで記述したいのですが、どのようにしたら良いのでしょうか？
submit か post モジュールでしょうか？

>>671
つ ttp://ja.wikipedia.org/wiki/%E7%A9%B6%E6%A5%B5%E8%B6%85%E4%BA%BA%E3%81%82%E3%80%9C%E3%82%8B

Perlおもしろいな。プログラミングはJSとPHPしかやったことなかったから新鮮だわ。
いろいろ作業が便利になりそう。

mech で SelectPoint の value を ../RealGraphView/Index.asp
に渡したい、ということですか？それはCGIに関する質問ですか？

<form action="../RealGraphView/Index.asp" method="post" id=form1
name="form1" target="_top">
<input type="hidden" name="SelectPoint" id="SelectPoint" value="">
</form>

上記をmechで記述したいのですが、どのようにしたら良いのでしょうか？
submit か post モジュールでしょうか？

>>675
レスして頂きありがとうございます。
私は社会人になったばかりで、プログラミングをしたことがほとんどなく、上司に何とかしろと言われて困っています。

上司はプログラミングは全く出来ず、零細企業なので相談する相手もいません。

スレチなのかもしれませんが、ヒントだけでも、ご教授頂けないでしょうか？
連休明けには出来るようにしとけ、と言われています(>_<)

あぁ、前回のを間違えてコピペ、送信してしまいました。ごめんなさい…

言われたことしか出来ないの？

使い方が分からないなら無理に使うな。
悩んでる暇があるなら、直接書け

使い方の分からないmechにこだわらず、HTTPプロトコルでやりたいことを
直接書くほうが吉。覚えるものが少ないし、今後応用も利く。
あるいはmethod="post"をmethod="get"にしてもいいけどね。

>>679
今の若い人は全員そうだから。おれも内心びっくりしている。

「今の若い人」「全員」なるほど思考停止じじいか。
こうはなりたくないものだ。だが反面教師としてはいい仕事。

「最近の若者はダメだ」は昔から言われているが、特に今の若者はひどい。
まず、当事者意識が完全に欠如している。さらに、独り立ちをしようとせず、常に何かに依存し、
消費し、批判するだけの「お客さま」でいつづけようとしている。これはゆゆしき事態であり、
日本社会のありかたにかかわる重大な問題である。

最近の若者は、定職に就きたがらない。
あるいは、会社に入っても一定のポジションで身を立てようとしない。
なぜなら、社会的なかかわりを、全て暫定的・一時的なものと見なしているからだ。

彼らに言わせると、本当の自分は別のところにあり、現実の自分は仮の姿に過ぎないんだそうだ。
本当の自分は棚上げしておいて、いつまでも立場を替え、考えを変え、
自分自身をも変身させる余地を残しておく。一貫した主義主張をもたないか、もたないふりをする。
特定の党派、集団に全てを賭けることを避けようとする。


↑これ1977年に書かれた論評な　1997年じゃないぞ　今から30年以上前の文章だ

書いてみましたが、セッションタイムアウトとでます。post hidden の書き方がまずいのでしょうか？

#!/usr/bin/perl/ -w

use strict;
use WWW::Mechanize;
use HTTP::Request::Common qw(POST);
#セッション切れるからクッキー必要？
use HTTP::Cookies;
#use Web::Scraper;

use encoding qw(euc-jp);

# cookie_jarの生成
my $cookie_jar = HTTP::Cookies->new(file => $cookie_file, autosave =>
1,ignore_discard => 1);

my $url = 'hogehoge/PointSelect/Map.asp';
#ブラウザのユーザエージェントのエイリアス名
my $browser_user_agent = "Windows Mozilla";

my $mech = WWW::Mechanize->new();

$mech->cookie_jar($cookie_jar);
$mech->agent_alias( $browser_user_agent );

my $response = $mech->get( $url );

#form POSTする
my %formdata = (
'action'=>'../RealGraphView/Index.asp',
'id' => '01-02',
'name' => 'form1',
'target' => '_top',
'name' =>'SelectPoint',
'id' => 'SelectPoint',
'value' => ''
);
my $request = POST($url, [%formdata]);
my $res = $mech -> request($request);
# 中身のチェックをしてみるよ
print "現在のページのContentは？\n" . $res->content() ."\n\n";

長かったので二回に分けました。
スレ汚しで申し訳ありませんm(_ _)m

おれ、若いひと、な

multipart/form-data

そのことに上司が協力的ならば、本当に何とかしたいのかもしれないけど
非協力的なのに何とかしろというのならば、あるいは何とかしたいのかも
しれない(試用期間も終わったし)

あ、それはクビってこと？笑

助成金の切れ目が雇用の切れ目

URL は http:// などのスキーマから書きましょう。

>>685-686
本題の解決策がわからなくて申し訳ないが気になった点を。
1)1行目のperlの後ろの/は削除(実行できているようだけど)。

2)$cookie_fileは何かのファイル名に変える。
自分の環境では↓のエラーが出ました。
Global symbol "$cookie_file" requires explicit package name at ./script.pl line 14.
Execution of ./script.pl aborted due to compilation errors.
てゆか一連のセッションを実行するならcookieの保存(cookie_jar指定)はいらないはず。
書いてもらったスクリプトには続きがあるのかな？

3)本来スクリプトはUTF-8で書いて
use encoding qw(euc-jp);
↓
use utf8;
とした方がいい。
最終行は対象ページがShift_JIS(cp932)なら
use Encode;
print "現在のページのContentは？\n" . encode("utf-8", $res->decoded_content('charset'=>'cp932')) ."\n\n";
かな。

Perlを勉強しはじめて一週間。
とりあえずこの本を読んでいるがおおよそ理解できている。
http://www.amazon.co.jp/dp/4774150258
つぎにおすすめとかある？？
MovableTypeのプラグインとか作れるレベルには３ヶ月ぐらいでなりたい。

ちなみにプログラミング歴はJavaScriptをまぁまあ、PHPを少々。

なだいなだ著「片目の哲学」をおすすめします。
自分は中学生の頃読みました。

自分は幼稚園の頃に読みましたが何か？

浅田次郎著の「鉄道員」はもう読みましたか？

最初に読んだ本がこの本でおおよそ理解できていると
いうのはステルスマーケティングの疑いが濃厚ですね

読み終わったけど、業務に役立つっていうのはシェルスクリプトで書いてた
ものをPerlで書くにはどうするのかって話なのな。んで処理した結果をExcel
に貼り付けるのは手作業なのなｗま、いいけどね。

perlだったらcpanにexcelファイルを操作するモジュール無かったか？

日本語扱うと50%ぐらいの確率で
壊れるモジュールならあります。

業務に役立つっていう以上、壊れないバージョンを使う必要があるよ

>>694
676, 685-686です。
返答ありがとうございます。

1. /いらないですね(>_<)
2. $my cookie_file; を加えました。続きはありません。
3. 文字化けして困ってました。ご指摘ありがとうございます。

質問A
POSTの部分ですが、name と id がそれぞれ2回ずつ出てきます。
同じ変数名でいいのでしょうか？

質問B
form タグ内のid (form1)は、ここには書いていませんが、javascript から返された値だと認識してます。直接、値を記述してよいものでしょうか？

id はユニークであるべき

name は複数あると、CGI モジュールは配列で返してくると思った

>>695の本の話題が出るとアンチが湧くようになったが
とりあえず内容の誤りが多いので作者のページの正誤表でフォローが必須なのは事実
逆にそれをわきまえて自分の中で反芻してるなら問題はないでしょ

で、次のお勧めはこれかな
ttp://www.amazon.co.jp/dp/486267108X/
標準添付でも案外見落としてるモジュールがあることに気付く
CGI系はもう扱ってない(代わりに扱ってるのはPSGI/Plack系)点には要注意

「次にお薦め」は失礼だなと思いつつ、cpanminusを最初に書いてあとは目次
だけあれば十分なのにね。その位ならPerl5ポケットリファレンスに付け足し
てもいける。

>>707
「cpanminus教えれば十分そんな本いらん」って、お前も随分と失礼な発言だな
2chのPerlスレはそのレベルに達していないどころか
「cpanmもperlbrewも使うな、システムがぐちゃぐちゃになる」
なんてのがまかり通ってたじゃねえか

あら、長生きなのねｗ

ねこ好きのおれとしては表紙のねこだけで2600円払うだけの価値はある

　　　　　　　　　 ,,､ｯヾ゛"''"ﾞ"''"``'''''ヾ､､
　　　　　　　,,ｯヾ　　　　　　　　　　　　 ミ､
　　　　　､ヾ　　　　　　　　　　　　　　　　 ミ､
　　 　 X゛　　　　　　　　　　　　　　　　　　 ミ
　　　 ミ　　　　　　　 　 　 　 ,,,,,,,,,�a''''ヾ. 　 ﾐ
　　　三　　　　　　　　 ,,�a''"　　　　　　 ヾ　ミ
　　　彡　　 　 　 |｀ヽ'"　　　　　　　 　 　 _ヾミ
　　　彡　　　　　 ヽ　　　　＿_　　　　　_彡ミ_ﾐ
　　　 ミ　　　 　 　 〉　　_彡≡'´ 　 　 ,r　__　 |
　　　　ミ　　　　　/　　〃 　 ＿　ヽ　〈 ∠ｿ,>.{
　　　　 ﾐ　　　　　ヽ　　　 ∠ソ_ヽ, ′ ヽ｀ー'' ヽ
　　　　　ﾐ　＿_　　 |　　　　ー一'　　　　 ＼　　 !
　　　　　 ｀{　r-;＼｜　　　　　　 ,､　　　　丿ヽ. j
　　　　　　 ヽヽ｀ｺ.`j 　 　 　 　 /　｀ー ''"　 　 :i!
　　　　　　　 ヽ ＿　　　　　;　 /　_,, -―‐''"ｱ　j
　　　　　　　　　＼ i　 　 　 ヽ ヽ´`ー―一'"　/
　　　　　　　 　 　 ｀!　　　　　　`　　　　⌒ 　 |
　　　　　　　　　 ,､_｣　｀　、　　　＼　　　　　_ﾉ
　　　　　　　 _／　ヽ　　　　｀　ー-＝―一'｢｀i-､＿
　　　　 　 ／ ＼　　 ＼　　　　　　　 ＿_,ｒ'´　|　 　 ￣
　 　 　 ／ 　 　 .＼　　 ￣￣￣￣￣　　 　 ノ
　　　　　　　　　　　｀ー――――――　'"

お薦めを書く人。

よくもまあ日本人の書いた本なんて読むもんだわ。献本でもされてんの？
読んでない（本屋で斜め読み）けど薦めてんの？

普通の人間なら、O'Reilly のラクダ、料理本、PBPあたりを読んで、追加で
Effectiveと救命病棟くらいを読めばいっぱいいっぱいだろ？

逆に、これらを読んでたら後発の日本人の本なんて読む気すら失せるけど。

CGI 系書くの忘れた

>>712
でも英語読めないでしょう？

>>714
読めないなら、翻訳本読めばいいじゃない？

>>715
外国の本マンセー
日本の本はクソ
でも英語読めないから日本語に訳せ

まあおかしくはないけどね、おかしくは

>>712
禿同。
日本人が書いた本よりラクダ本の初版の方が無料大数光年倍役に立つわボケ

日本の本がクソなのは言うまでもない。

日本語訳がある本は、この本は訳して
日本で売れると判断したものだから
選ばれた本でもある。

>>718
言うまでもない＝理由を論理的に説明できない

本だけじゃない。日本人が書いたモジュールも信頼に値しない。
2chでPlack使う奴が一人もいない現実を見ろよ。

なんでそう日本人が作ったものを拒絶するのかね
「Rubyが憎いからPython大好き」とかも理解できん

日本人かどうかというよりもその本自体にオリジナリティがあるのか
どうかで判断するけどな。残念ながらいわゆる日本のひとが書いた
ものはオリジナリティが低い傾向があるのは否めない。ただ日本人っ
てひとくくりにするのは(自分も含めて)どうかと思うんだけどね。

説明の下手な本が多すぎる。
それと編集の力量がない人が担当するからひどい物しか出来ないんではないかと

日本人が書いた本って、
自分が知ってる内容を書きました。
で終わってるのが大半だからね。

原書をあたって、それをわかりやすく再構成、解説しました
みたいな本はものすごく少ない。

・注釈が多い (初心者向けに多いよね)
・箇条書きの方が分かりやすい場合でも、文章で説明したがる

こういった本はクソ

仕事でフィーチャーホン向けを扱ってるんだけど
そのへんだと海外だと厳しいなあ。

そうだね海外は遅れてるからね。

>>724
だったら原書読んだ方がはるかにマシ

しかし原書も古い書き方を見捨てモダン（）に走る兆候がみられてきている
高い新品の本を買うなら一昔前の版を安く買ったほうがコストパフォーマンス面では断然良い

原書にはどこにもモダンPerlなんて出てこなくて日本国内だけの幻想だけどな
わざわざ敷居を高くして付き合いづらいものにしようなんて意図は全くない

>>729
お前もモダン（）って言葉に踊らされている
要は書き方の問題だよ
自分一人で満足するなら新しい書き方でもいい
でも他の人でも保守できるようにするなら古典的な書き方の一択しかない

モダン＝普通
なんだから、モダンなんて言われてないの当たり前

モダンと言わなくても、モダンに書くのが海外

こいつ英語も分からんのか…

http://dictionary.goo.ne.jp/leaf/ej3/54376/m0u/modern/

1 ((限定))現代の, 近ごろの, 今の
modern city life
現代の都会生活.

2 ((限定))近世の, 近代の. ⇒ANCIENT11, CLASSICAL, MEDIEVAL
modern history

近世史（ほぼルネサンスから現代まで）.
3 〈流行・考えなどが〉現代風の, 新しい, 最新の, モダンな（up-to-date）；((限定))〈芸術・文学・音楽などが〉現代的な
modern dance
モダンダンス
modern fashions
最新の流行型.
━━[名]((しばしばthe ?s))現代人；新しい思想の持ち主
This author is one of the moderns.
この作家は現代の作風を代表する一人である.

今風の書き方けなしてまで古い書き方押し付ける奴って迷惑でしかない

つまり、旧仮名遣いでやれと

お、モダンのねただな！参戦しちゃうぞ！

モダンじゃないとするとどうして「古く」なっちゃうのかちょっと
教えてくれよ、そこのノータリン。

マリリンモンローノータリン

Perlはこれまでに同心円状に機能を拡張してきていて、高い後方互換性を
維持してきている。そこで、

同心円の内側のみを使ってスクリプトを記述すれば、古いインタプリタでも
新しいインタプリタでも実行できて便利(そういう需要がある)。

と考えるのと

同心円の外側の部分のみを使ってスクリプトを記述すれば、古いインタプ
リタを根絶できるので便利(複数のインタプリタをメンテするのは無理・無駄)。

と考えるのとがあり、目指していることが違うので議論はいつも平行線で
終わってしまう。

まず、俺の作ったアプリを
今よりも古いOSで動かすとかまずありえない。

それぞれの需要外の話をし始めるから、議論がよじれる。

需要外は想定の範囲外、断固外。

いままでと違う環境でCGIが動かないのですが
a.cgiからlib/b.cgiをrequireするんですが
 Can？t locate ./lib/b.cgi in @INC
とエラーが出てしまいます。
コマンドで
 perl a.cgi
だと問題なく動くのでCGIの場合に相対パスで読み込めてないような気がします。
どこの設定を見直せばいいでしょうか？

./
 |
 |a.cgi
 |
 |lib-|
        |b.cgi

前の環境を書く。

今の環境を書く。

前の環境に戻す。

前の環境と今の環境のカレントディレクトリを調べる
require を相対パスで書かずに絶対パスで書く

>>738
後者が古いものを切り捨てようとしているのに対して、前者は新しいものを
切り捨てようとしている【わけではない】ことに注意する必要がある

>>745
つまりPerl4で書くのが最良である、と。

>>743-744
mod_perlだったみたいで互換性ないの知りませんでした
ふつうのCGIにしたら問題なく動きました

>>745-746
はいはいお年寄りは大切にしましょうね
そのために若者が犠牲になりましょうね

学ばない若者は残念ながら．．．しかないですね
しかたがない

>>745-746,748-749
共に生きよう。

いつかはモダンというものになるわけなんだけど、どうしてそんなに
あせっているのかが訳わからない

モダンはその時々の流行だから、
余程古い書き方してなけりゃ無理して追う事は無い

慌てて追いかけると失敗作バージョンではまることがあるからね

mime liteでメールを送ったところ　送信者、CC、添付ファイルが文字化けしてしまった。
エンコード指定すれば回避できると思い調べていたがどうにも・・・orz

送信者(MailFrom) : テスト送信 ぬるぽ <[email protected]>;
↓
送信
↓
{文字化けした文字} <[email protected]>;

encode/decodeぐらいちゃんとやっとけ

MIME::Liteの名前もちゃんと書けない人には無理な相談だな

mime_encodeを指定して送ったところ　そのままの文字で出てしまって・・・
普通 -=utf8?　みたいなのからはじまって =　で終わるかんじだとおもうんですが・・・どうしたらorz

>>757
MIME::LiteはMIMEヘッダ用のencodeはやらないので自前でやれ、てことらしい
encode("MIME-Header-ISO_2022_JP", "ぬるぽ");
# =?ISO-2022-JP?B?GyRCJEwkayRdGyhC?=

参考：
ttp://pmakino.jp/tdiary/20061215.html
ttp://iandeth.dyndns.org/mt/ian/archives/000628.html

あとMIME::Liteはもう更新されてないのでEMail::Senderとか使えとマニュアルにあった
ttp://search.cpan.org/~rjbs/MIME-Lite-3.028/lib/MIME/Lite.pm

あ、MIMEでUTF-8エンコードなら
use utf8;
print encode("MIME-Header", "ぬるぽ");
# =?UTF-8?B?44Gs44KL44G9?=

use Encode; しないで use utf8; だけでいける?
と自分で確認せずに質問する私

>>760
ごめんなさい、use Encode;ないと無理ですね＿|￣|○ il||li
ちなみに>>758はuse utf8;不要、>>759は要use utf8;です

また Encode がらみか

日本語扱うならそりゃ当然Encodeでるだろｗ

>>761
encode() に渡されるのはフラグの立った utf8

まずは日本語の扱いをもっと学習した方が良いかも

Encode、EncodeってそんなにEncodeが好きだったらEncodeと結婚すればいいのに

それはエロゲの話だろｗ

Perl、PerlってそんなにPerlが好きだったらPerlと結婚すればいいのに

>>765
こうですか？
あなたが何を言いたいのかさっぱりわかりませんｗ

ま、初心者スレなんでその辺は

既出かもしれませんが、お願いします。

CGIなんですけど
open(LOG, ">>/opt/lampp/test/LOG");
とか、
if(!open(LOG, ">>LOG")) {
…
とかでログファイルをopenしています。

二つのファイルとも、パーミッションは
-rw-r--r-- で同じなんですけど、
下の方で開けたログファイルは、後から同じ上書きopenで開けず
エラーになります。まぁ手動で下のファイルだけ、
-rw-rw-rw- とかに変えればいいんですけど。めんどくさいので
いい方法ありませんか?っていうか何が原因ですか?

よろしくお願いします。

とりあえず俺は馬鹿なんでオマエさんの文章を読むのが辛いってのと
openは3引数で使う、グロブじゃなくて変数を使うってところか

SJISで書いたコードをUTF-8にエンコードして、メールのヘッダに書き込みたい場合どんな感じになるんだろう・・・

POSTで受け取ったメールアドレスをif文判定したいんですができない・・・

if ($in{'mail'} eq "[email protected]"){
　処理〜
}

これじゃダメなんですか？

>>772
メールアドレスの所をしんぐるくぉーてーしょんに変えるがいい

if ($in{'mail'} eq '[email protected]'){

>>773
できました！たったこれだけだったんですね・・・。
助かりました〜

うむ。今度から"でダメだったときは'を使えば良い。

そういう雑な覚え方じゃなくて…
ダブルクォーテーション内では変数は展開されるから、
メールアドレスの「@hoge」が配列として扱われて展開されちゃうから
シングルクォーテーションを使って変数が展開されないようにするか、
もしくは「\」でエスケープして "hoge\@hoge.com" のように書く
と覚えておいた方がええんでは

perlのシングルクォーテーションの使い方って結構変わってる？よね