#!/usr/bin/perl
#Mozilla ブックマークから風博士のブックマークファイルを作る
#
#このスクリプトと同じディレクトリに Mozilla のブックマークファイル(bookmarks.html)をコピーした状態で
#このスクリプトを実行すると,カレントディレクトリに bookmarks.xml を作成します.
my $tab = 0;
my $folder = '';
my $title = '';
my $bookmark = '';
my $url = '';
my $head1 = '' . "\n";
my $head2 = '' . "\n";
my $foot = "\n";
open MOZ , 'bookmarks.html' or die "Can't open Mozilla bookmark file";
my @moz = ;
close MOZ;
chomp @moz;
open FILE , '>bookmarks.xml';
print FILE $head1;
print FILE $head2;
foreach my $temp(@moz)
{
$temp =~ s/\&/&/g;
if($temp =~ /ID=.*?>(.*?)<\/H3>/i)
{
$folder = $1;
$tab++;
print FILE "\t" x $tab , "\n";
print FILE "\t" x $tab , "$folder\n";
}
if($temp =~ /<\/DL>/)
{
print FILE "\t" x $tab , "\n";
$tab--;
}
if($temp =~ /
/i)
{
print FILE "\t" x $tab , "\n";
}
if($temp =~ /A HREF=(\".*?\").*?ID=.*?>(.*?)<\/A>/i)
{
$url = $1;
$title = $2;
print FILE "\t" x $tab , "\n";
print FILE "\t" x ($tab+1) , "$title\n";
print FILE "\t" x $tab , "\n";
}
}
print FILE $foot;
print FILE $head2;
print FILE "ブックマーク\n";
print FILE $foot;
close FILE;