将.text XML转换到blogbus导入格式的perl脚本

huashan8

　　对喜欢博客搬家的人也许有用。写得太差，惭愧惭愧。

Code
#!/usr/bin/perl -w
use 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>
BLOGHEADSTR

my $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>
COMNSTR
grep {
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;