将.text XML转换到blogbus导入格式的perl脚本
对喜欢博客搬家的人也许有用。写得太差,惭愧惭愧。
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;
#!/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;