对喜欢博客搬家的人也许有用。写得太差，惭愧惭愧。
Code
#!/usr/bin/perl -wuse strict;my $head=<<BLOGHEADSTR;<?xml version="1.0" encoding="utf-8"?><!-- Generated by: http://www.BlogBus.Com/ \$Revision: 1.0 \$ --><BlogBusCom dtype="BlogData" SchemaVersion="1.0-b" Creator="BlogBus.Com BlogSystem V2.0.1-beta"><Description> <BlogName>流放之地的狂欢</BlogName> <ExportTime>2006-07-06 16:17:37</ExportTime> <DomainName>bsmagic.blogbus.com</DomainName></Description>BLOGHEADSTRmy $tail="\n</BlogBusCom>";my $svk="";open IN, "F:\\home\\bsmagic\\MyBlogData.xml";$/=undef;$svk=<IN>;my %hvk;close IN;my $cnt=0;while ($svk=~/<blog_Content(.+?)>(.+?)<\/blog_Content/sg and $cnt++<100000) {#print OUT $2,"\n";my $sc=$2;$sc=~/<PostType>(\d+)<\/PostType>/s;unless ($1==1) {next;}$hvk{$cnt}->{content}=$sc;#<DateAdded>2005-11-30T15:52:00</DateAdded>$sc=~/<DateAdded>(.+?)<\/DateAdded>/s;$hvk{$cnt}->{logdate}=$1;# <Title>软件开发的模式：脚本＋运行器＋UI</Title>$sc=~/ <Title>(.+?)<\/Title>/s;$hvk{$cnt}->{title}=$1;#<Text>$sc=~/ <Text>(.+?)<\/Text>/s;$hvk{$cnt}->{text}=$1;#<Abstract>$hvk{$cnt}->{abstract}=$hvk{$cnt}->{text};}open OUT, ">./toblogbus.xml";print OUT $head;my $sc=<<COMNSTR;<TrackBack/><Status>1</Status><AllowComment>Y</AllowComment><AllowPing>Y</AllowPing><AllowLinks>Y</AllowLinks>COMNSTRgrep {my @cont;print OUT '<Log>',"\n";print OUT '<Title>'.$hvk{$_}->{title}.'</Title>',"\n";my $date=$hvk{$_}->{logdate};$date=~s/T/ /;print OUT '<LogDate>'.$date.'</LogDate>',"\n";print OUT '<Excerpt>'.$hvk{$_}->{abstract}.'</Excerpt>',"\n";print OUT $sc;print OUT '<Content>'.$hvk{$_}->{text}.'</Content>',"\n";print OUT '<Writer>bsmagic</Writer>',"\n";print OUT '<Tags>VankeWeekly</Tags>',"\n";print OUT '</Log>',"\n";# <Log># <Title>快乐的发电机</Title># <LogDate>2006-01-19 13:57:08</LogDate># <Excerpt><p>用电路来比喻人的情感过程。</p><p>将人的情感体验比做一个灯泡，快乐就是灯泡亮，烦恼就是灯泡灭。<br />灯泡和一个电阻相串联，这个电阻就是本能和社会给予的各种欲望和思想上的系累和束缚。<br />电源是一台发电机。<br />驱动发电机的是水库流水的冲击力，发电机的输出功率取决于水库的落差。<br />水库中的水，一来自降雨（外来的心理能量），而来自水泵（烦恼）。<br />要快乐，有以下的方法。<br />A。提高发电机的输出功率<br />1。先烦恼，把水泵上去。<br />2。吸取外界的心理能量，或者通过各种外源和内源的刺激来激发内在的心理能量。<br />3。改进发动机</p><p>B。减少额外能量消耗<br />1。降低电阻，祛除或者掌握各种思想系累和束缚。</p><p>最高级的人，是把发电机变成一个永动机，那是不可能的。<br /></p></Excerpt># <TrackBack/># <Status>1</Status># <AllowComment>Y</AllowComment># <AllowPing>Y</AllowPing># <AllowLinks>Y</AllowLinks># <Content><p>用电路来比喻人的情感过程。</p><p>将人的情感体验比做一个灯泡，快乐就是灯泡亮，烦恼就是灯泡灭。<br />灯泡和一个电阻相串联，这个电阻就是本能和社会给予的各种欲望和思想上的系累和束缚。<br />电源是一台发电机。<br />驱动发电机的是水库流水的冲击力，发电机的输出功率取决于水库的落差。<br />水库中的水，一来自降雨（外来的心理能量），而来自水泵（烦恼）。<br />要快乐，有以下的方法。<br />A。提高发电机的输出功率<br />1。先烦恼，把水泵上去。<br />2。吸取外界的心理能量，或者通过各种外源和内源的刺激来激发内在的心理能量。<br />3。改进发动机</p><p>B。减少额外能量消耗<br />1。降低电阻，祛除或者掌握各种思想系累和束缚。</p><p>最高级的人，是把发电机变成一个永动机，那是不可能的。<br /></p></Content># <Writer>bsmagic</Writer># <Tags>哲理 情感 人生 快乐</Tags># </Log>}keys %hvk;print OUT $tail;close OUT;