Permission 666

[Perl]八王子.pm参加者まとめ

Posted on 22nd 1月 2011 in Perl

八王子.pmの参加者をまとめてみた。

サイトが見当たらなかった方はtwitter、複数サイト持ってる方は独断で1つに絞っています。

uzullaさん　http://d.hatena.ne.jp/uzulla/

hide_o_55さん　http://d.hatena.ne.jp/hide_o_55/

norry_gogoさん　http://d.hatena.ne.jp/norry_gogo/

charsbarさん　http://d.hatena.ne.jp/charsbar/

ytnobodyさん　http://flavors.me/ytnobody

umeyukiさん　http://www.umeyuk-i.com/

maka2_donzokoさん　http://www.donzoko.net/cgi-bin/tdiary/

ono_pmさん　http://twitter.com/#!/ono_pm

usaymanさん　http://bsks.sakura.ne.jp/blog/

nekoyaさん　http://d.hatena.ne.jp/studio-m/

hirobanexさん　http://twitter.com/#!/hirobanex

equinox79さん　http://u-en-chi.sakura.ne.jp/

komapotterさん　http://twitter.com/#!/komapotter

Aquariumyさん　http://aquariumy.blog42.fc2.com/

partynight12thさん　http://ja-jp.facebook.com/people/Kotaro-Kawashima/1255128423

hondallica（ぼくちゃん）　http://sukuna.net/

（おまけ）Twitterリスト　http://twitter.com/#!/list/hondallica/hachiojipm

comments: 0 » tags: Perl

[Perl]画像用data URL schemeを作る

Posted on 5th 1月 2011 in Perl, Web

use strict;
use warnings;
use IO::File;
use MIME::Base64;
 
# 対象ファイル
my $file = $ARGV[0];
 
# 拡張子から画像のMIMEタイプを取得
my $mime = $1 if $file =~ /\.(gif|jpe?g|png)$/;
$mime = 'jpeg' if $mime eq 'jpg';
 
# $dataに画像ファイルの中身を取得
IO::File->new($file, 'r')->read(my $data, (stat($file))[7]);
 
# BASE64エンコードして改行を除去
my $base64 = encode_base64($data);
$base64 =~ s|\n||g;
 
# data URL scheme(RFC2397)を表示
print "data:image/$mime;base64,$base64";

comments: 0 » tags: Perl, Web

11111011011

Posted on 1st 1月 2011 in Perl, 雑記

use strict;
use warnings
use feature qw/say/;
say 'A Heavy New Yeah!!!';

comments: 0 »

[Perl]ATNDの参加者IDをTwitterでフォローする

Posted on 25th 2月 2010 in Perl, プログラム

30分ででっち上げたのでXMLのパースとかTwitterIDの正規表現とかいろいろ問題がありますが、何となく動いたので。
ATNDのID = TwitterのIDじゃないので誤フォローもありえます。

use strict;
use warnings;
use Net::Twitter;
use LWP::Simple;
use XML::Simple;
use URI::Escape;
 
# TwitterのID/PW
my $twitter = new Net::Twitter(
    username => 'username',
    password => 'password',
);
 
# ATNDのイベントID
my $event_id = 1;
 
my $uri = "http://api.atnd.org/events/users/?event_id=$event_id";
 
my $xml = LWP::Simple::get($uri) or die "cannot get content from $uri";
my $data = XML::Simple->new->XMLin($xml);
 
for (@{$data->{events}{event}{users}{user}}) {
    $twitter->create_friend(uri_escape_utf8 $_->{nickname}) if $_->{nickname} =~ /[A-Za-z0-9_]+/;
}

comments: 0 » tags: Perl, プログラム

[Perl]localtimeで日本時間にならない場合の対処

Posted on 28th 5月 2009 in Perl, プログラム

Perlのlocaltime関数を使って、以下のようなコードで日本時間を出力しようとしても、何らかの原因（海外から取り寄せたサーバでタイムゾーンが違うとか）で正しく出力されない場合がある。

▼環境によってはうまく動かないコード

1	my ($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst) = localtime(time + 32400);

この場合、gmtime関数を使えば、必ずグリニッジ標準時を返すので以下のコードで環境に依存せずに日本時間が出力可能になる。

▼環境に依存しないコード

1	my ($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst) = gmtime(time + 32400);

▼動作確認用コード

use strict;
use warnings;
use Perl6::Say;
 
say gmtime time;
say gmtime;
say gmtime time + 32400;
say localtime time;
say localtime;