Perlについての質問箱 43箱目

死ねよ

HTTP::Cookies::Mozilla;

でcookies.sqlite をやってみたけど挫折。難しいなこれ
日本語サイトも殆どやっている人いないだけある

せっかくのsqlite何だから自分でやればいいだろ

http://maaash.jp/perl/wwwmechanizefirefox%E3%81%A7%E7%B0%A1%E5%8D%98%E3%82%B9%E3%82%AF%E3%83%AA%E3%83%BC%E3%83%B3%E3%82%B7%E3%83%A7%E3%83%83%E3%83%88/
WWW::Mechanize::Firefoxで簡単スクリーンショット

WWW::Mechanize::Firefoxってもしかしてmozreplと組み合わせてつかうもの？

そうっしょ

ありがとう。そうなんか
どおりで動かないはずだ

HTTP::Cookies::Mozilla;

http://d.hatena.ne.jp/fuba/20070314/1173858739
わずかな日本語で書かれたサイトを見ても
みんなfirefox2.0用の奴なんだよな・・・

無名配列のサイズの取得について質問です。
以下のようにすると、ARRAY(0x1fa7d48)と表示されて、
サイズ(要素数)が取得できませんでした。

取得する方法を教えてください。

$arrayRef = [1, 2, 3];
print scalar $arrayRef;

scalar @$arrayRef

>>960
それもやってみたのですが、０と表示されてしまいます。

>>960
勘違いしてました。

無事、取得出来ました。
ありがとうございます。

どう見てもスカラーなコンテキストなのに、@a + 0 とかしないと
ちゃんと動かないことがある

Perlで、PHPのｏｂ関数のような出力制御ができるモジュールなどはありますか？

ありますよ！！

もちろん用意してございます。

今後、コンピュータ関連の著作物・表現物等に対しては、「Perl (R) は株式会社テラ・インターナショナルの登録商標です。」
と表記くださいますよう、宜しくお願い申し上げます。
-- http://an.to/perl_tm

こいつなんですか？教えてください！！

>>967
こいつだけは人生破滅させてやろうと思った。

>>967
……殺したい
死ねばいいのに

>>967の名前欄もどーかと思うがな

それには触れないお約束

　　　　　　　　うんこをうんこっていったら、
　　　　　　　　　　　　じぶんがうんこにされたよ！

　　　　　　　　　　　　　　　　 ﾊ_ﾊ　　
　　　　　　　　　　　　　　　('(ﾟ∀ﾟ∩　されたよ！
　　　　　　　　　　　　　　　　ヽ　　〈　
　　　　　　　　　　　　　　　　　ヽヽ_)

>>967
こいつの名前を商標登録してやりたいわ

>>967
以降全員スレチしね＾＾


940 ：デフォルトの名無しさん：2010/07/22(木) 22:20:21
ここは質問箱。
面白いか面白くないかも関係無く、単なるスレ違い。又は板違い。

要するに、 VIP でやれ。

おめえもスレチだろ？しねよ　悔しいのか？凄い書き手が誕生して御前くやしがてんだろ？
そしてしね

朝から御前等ゴミみるとむしゃむしゃするんだよね＾＾；
早くこのスレ潰れないかな

性欲がたまってんだろ
オナれ

PerlとSQLiteを勉強中なのですが、なかなかうまくいかないため質問させてください。

PerlでSQLiteを使い、ログを取るというものを作っています。
PerlでData::Dumperを使い、そのDumperの出力をレコードに追加したいのですが、
my @Str = Dumper ( $entity);
my $insertLog = "insert into lLog ( time, log) values ( $time, \@Str)";
$timeは追加されるのですが、@Strがnullになっています。

どのようにすれば挿入することが出来ますでしょうか？

掲示板もどきを作っているのですが、timeを使って投稿IDを生成しているので
1秒間に1件以上の投稿があった際に問題が起きてしまいます。
この問題は一般的にはどうやって解決しているのですか？

Time::HiRes

IDなら普通に投稿者のIP使えよ……

あと、これな

CGI についての質問は板違いです。WEB プログラミング板でどうぞ。
CGI と Perlの区別がつかない人も WEB プログラミング板に行ってください。
(WEB プログラミング板: http://pc11.2ch.net/php/)

ぼくみたいなばかでもCGIのくべつつきますよ
ぼくは３０ねんかんPHPつかってるにーとですが

>>978
while ( -e $file ) { ファイル名変更処理 };
とか
alarm前提で

１秒に数十回アクセスあるんだよ！　とかならごめん。俺専門家じゃないからわかんね

>>980
それじゃ同一IPで二回目以降投稿出来ないだろ・・・

投稿IDを100個／秒作ってpush、
受付順でpopすりゃいいじゃん

スレ違いだからやめろ

>>977
SQLクエリに直接変数を代入するのはやめれ
プレースホルダを使おう
my $sth = $dbh->prepare('INSERT INTO lLog (time, log) VALUES (?, ?)');
$sth->execute($time, \@Str);

あと\@Strだと参照を挿入することになるけどいいの？
join "\n", @Strの間違いじゃなくて？

>>986
この問題は
１）Perlは秒単位でしか時間が取れないのか？
２）大量に作成するファイル名、重複を避けるにはどうする？

と分解できるから、入り口がCGIでもPerlの処理の話とみなせるだろ
俺は見てて参考になったぞ

>>988
関係ない
CGIならwebプログラミング板

ある条件によってuse Hogehogeしたりしなかったりを制御することはできますか。
use Hogehoge; するのが重いモジュールがあって、必要な時だけuseしたいのですが、どうやったらいいのかわかりません。

if (条件) {
　use Hogehoge;
}

とすると、条件によらず Hogehoge が読み込まれてしまうようです。

if (条件) {
eval 'use Hogehoge;';
}

>>991
それで行けました。ありがとうございます。
もうひとつ質問ですが、Hogehogeがuseされたかどうかを調べる方法はありますか。
今は
unless (defined($Hogehoge::varname)) {
　eval 'use Hogehoge;';
}
としていて、これはこれでうまくうごくのですが、もっとうまいやり方があれば教えてください。

if ( exists $INC{'Hogehoge.pm'} )
とか

>>993
できました。ありがとうございます。

すみません、%INCを教えてもらって感謝なんですが、質問があります。
%INCのキーはファイル名ですが、ファイル名の区切りはどのプラットフォームでも「/」でしょうか。
今は unless ($INC{'Foo/Bar/Baz.pm'}) { eval 'use Foo::Bar::Baz;'; } としているんですけど、
%INC のキーに指定している Foo/Bar/Baz.pm が、他のプラットフォームでも使えるのかどうか心配です。

よろしくお願いします。

グ

グ

レ

カ

バ

このスレッドは１０００を超えました。
もう書けないので、新しいスレッドを立ててくださいです。。。