[perl脚本]转换万科博客到BLOGBUS
来源:百度文库 编辑:神马文学网 时间:2024/10/06 00:16:56
#!/usr/bin/perl -w
use strict;
my $head=<
Revel World
2006-07-06 16:17:37
bsmagic.blogbus.com
BLOGHEADSTR
my $tail="\n ";
my $svk="";
open IN, "F:\\home\\bsmagic\\MyBlogData.xml";
$/=undef;
$svk=;
my %hvk;
close IN;
my $cnt=0;
while ($svk=~/(.+?)<\/blog_Content/sg and $cnt++<100000) {
#print OUT $2,"\n";
my $sc=$2;
$sc=~/(\d+)<\/PostType>/s;
unless ($1==1) {next;}
$hvk{$cnt}->{content}=$sc;
#2005-11-30T15:52:00
$sc=~/(.+?)<\/DateAdded>/s;
$hvk{$cnt}->{logdate}=$1;
#软件开发的模式:脚本+运行器+UI
$sc=~/(.+?)<\/Title>/s;
$hvk{$cnt}->{title}=$1;
#
$sc=~/(.+?)<\/Text>/s;
$hvk{$cnt}->{text}=$1;
#
$hvk{$cnt}->{abstract}=$hvk{$cnt}->{text};
}
open OUT, ">./toblogbus.xml";
print OUT $head;
my $sc=<
1
Y
Y
Y
COMNSTR
grep {
my @cont;
print OUT '',"\n";
print OUT ''.$hvk{$_}->{title}.' ',"\n";
my $date=$hvk{$_}->{logdate};
$date=~s/T/ /;
print OUT ''.$date.' ',"\n";
print OUT ''.$hvk{$_}->{abstract}.' ',"\n";
print OUT $sc;
print OUT ''.$hvk{$_}->{text}.' ',"\n";
print OUT 'bsmagic ',"\n";
print OUT 'VankeWeekly ',"\n";
print OUT ' ',"\n";
#
#快乐的发电机
#2006-01-19 13:57:08
#
#
#1
# Y
# Y
# Y
#
#bsmagic
#哲理 情感 人生 快乐
#
}keys %hvk;
print OUT $tail;
close OUT;
use strict;
my $head=<
BLOGHEADSTR
my $tail="\n
my $svk="";
open IN, "F:\\home\\bsmagic\\MyBlogData.xml";
$/=undef;
$svk=
my %hvk;
close IN;
my $cnt=0;
while ($svk=~/
#print OUT $2,"\n";
my $sc=$2;
$sc=~/
unless ($1==1) {next;}
$hvk{$cnt}->{content}=$sc;
#
$sc=~/
$hvk{$cnt}->{logdate}=$1;
#
$sc=~/
$hvk{$cnt}->{title}=$1;
#
$sc=~/
$hvk{$cnt}->{text}=$1;
#
$hvk{$cnt}->{abstract}=$hvk{$cnt}->{text};
}
open OUT, ">./toblogbus.xml";
print OUT $head;
my $sc=<
Y
Y
Y
COMNSTR
grep {
my @cont;
print OUT '
print OUT '
my $date=$hvk{$_}->{logdate};
$date=~s/T/ /;
print OUT '
print OUT '
print OUT $sc;
print OUT '
print OUT '
print OUT '
print OUT '
#
#
#
#
用电路来比喻人的情感过程。
将人的情感体验比做一个灯泡,快乐就是灯泡亮,烦恼就是灯泡灭。
灯泡和一个电阻相串联,这个电阻就是本能和社会给予的各种欲望和思想上的系累和束缚。
电源是一台发电机。
驱动发电机的是水库流水的冲击力,发电机的输出功率取决于水库的落差。
水库中的水,一来自降雨(外来的心理能量),而来自水泵(烦恼)。
要快乐,有以下的方法。
A。提高发电机的输出功率
1。先烦恼,把水泵上去。
2。吸取外界的心理能量,或者通过各种外源和内源的刺激来激发内在的心理能量。
3。改进发动机
B。减少额外能量消耗
1。降低电阻,祛除或者掌握各种思想系累和束缚。
最高级的人,是把发电机变成一个永动机,那是不可能的。
#
#
# Y
# Y
# Y
#
用电路来比喻人的情感过程。
将人的情感体验比做一个灯泡,快乐就是灯泡亮,烦恼就是灯泡灭。
灯泡和一个电阻相串联,这个电阻就是本能和社会给予的各种欲望和思想上的系累和束缚。
电源是一台发电机。
驱动发电机的是水库流水的冲击力,发电机的输出功率取决于水库的落差。
水库中的水,一来自降雨(外来的心理能量),而来自水泵(烦恼)。
要快乐,有以下的方法。
A。提高发电机的输出功率
1。先烦恼,把水泵上去。
2。吸取外界的心理能量,或者通过各种外源和内源的刺激来激发内在的心理能量。
3。改进发动机
B。减少额外能量消耗
1。降低电阻,祛除或者掌握各种思想系累和束缚。
最高级的人,是把发电机变成一个永动机,那是不可能的。
#
#
#
}keys %hvk;
print OUT $tail;
close OUT;