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

hironorism: int([])とかint({})とかリファレンスをint評価したときに取れる数字これなあに？　#perl11:52am, Nov 16 from Twit for Windows

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歳の誕生日を迎えました。

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

[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してくれます。