橋本商会

Perl使ってはてなブックマークからdel.icio.usに移行した。

（近いうちにエントリを同期させます）

はてブ右上の[設定]→[データのエクスポート]→[Atomフィード]で全ブックマークを書き出して、Net::Deliciousでdel.icio.usに2600件ぐらいpostしたんだけど

bookeyでもできたっぽい。でも昔使ったときはうまく動かなかったんだよなー

まあ、とりあえず hateb2delicious.pl は動いたので晒しておきますね。

はてブからatom形式で書き出して、hateb.atomというファイル名で同じディレクトリに入れて、

perl hateb2delicious.pl

で全部postされます。2600件で3時間ぐらいかかった。

エラーはerror.logにこんな感じで↓保存されるので、手動でpostした。

エレキジャック

http://www.eleki-jack.com/

CQ出版のMakeみたいな雑誌・blog

電子工作 blog

——

Transmaterial 2

http://transstudio.com/tm2/

submitのお誘いが来たが、既に表紙に載っている…

Pileus Transmaterial ORF2006

——

error: 2

ところでXMLのparseって正規表現でやるもんなんだろうか？

前はXML::Parser::Lite::Tree::XPathでやったけどなんかTree構造が冗長でめんどくさくなったので今回はsplit()でやった。

hateb2delicious.pl

usestrict;

usewarnings;

useutf8;

useNet::Delicious;

#del.icio.usconfig

my$user=”your-account”;

my$pass=”your-password”;

my$delicious=Net::Delicious->new(

{user=>$user,

pswd=>$pass}

);

#readatom

open(READ,”
my@lines=;

my$xml_data;

formy$line(@lines){

$xml_data.=$line;#ファイルから全て読み込み

}

#print$xml_data;

close(READ);

#parseatom

my@entries;

my@entries_xml=split(qq//,$xml_data);

for(my$i=1;$i<@entries_xml;$i++){#0個目は無視

my$s=$entries_xml[$i];

my$entry;my@buf;

#parsetitle

@buf=split(/