新しいblogに移行しました

新ブログ "All Yout Bugs Are Belong To Ass" に移行しました!

2010-11-16

[Perl]リファレンスをそのままintしたらどうなった


hironorism
hironorism: int([])とかint({})とかリファレンスをint評価したときに取れる数字これなあに? #perl11:52am, Nov 16 from Twit for Windows
ytnobody
ytnobody@hironorism なにそれこわい><11:52am, Nov 16 from HootSuite

ということがあったので、検証。

use Data::Dumper;

my $a = {};
print $a."\n";
print Dumper( int $a );
print Dumper( sprintf '%08lx', int $a );

結果こちら。

HASH(0x85e7818)
$VAR1 = 140408856;
$VAR1 = '085e7818';

[生活]ついに30歳になりました

去る11/13、とうとう30歳の誕生日を迎えました。

今年は全般的に多忙なせいか、去年のような絨毯爆撃は喰らっていませんw

2010-11-09

[Perl]LWP::UserAgentとかでファイルアップロードしたい

HTTP::Request::Commonのドキュメントに書いてあるんですけど、思いのほかうまく探せませんでした。

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

my $req = POST( 
    'http://upload.er/uploader.cgi',
    Content_Type => 'form-data',
    Content => {
        data => [ "file.txt" ],
    } 
);

my $ua = LWP::UserAgent->new;
$ua->request( $request );

これでfile.txtをうpしてくれます。