[perl脚本]转换万科博客到BLOGBUS

来源：百度文库 编辑：神马文学网 时间：2024/07/07 13:28:01
#!/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;<br>$hvk{$cnt}->{title}=$1;<br>#<Text><br>$sc=~/ <Text>(.+?)<\/Text>/s;<br>$hvk{$cnt}->{text}=$1;<br>#<Abstract><br>$hvk{$cnt}->{abstract}=$hvk{$cnt}->{text};<br>}<br>open OUT, ">./toblogbus.xml";<br>print OUT $head;<br>my $sc=<<COMNSTR;<br><TrackBack/><br><Status>1</Status><br><AllowComment>Y</AllowComment><br><AllowPing>Y</AllowPing><br><AllowLinks>Y</AllowLinks><br>COMNSTR<br>grep {<br>my @cont;<br>print OUT '<Log>',"\n";<br>print OUT '<Title>'.$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
#  

用电路来比喻人的情感过程。

将人的情感体验比做一个灯泡，快乐就是灯泡亮，烦恼就是灯泡灭。
灯泡和一个电阻相串联，这个电阻就是本能和社会给予的各种欲望和思想上的系累和束缚。
电源是一台发电机。
驱动发电机的是水库流水的冲击力，发电机的输出功率取决于水库的落差。
水库中的水，一来自降雨（外来的心理能量），而来自水泵（烦恼）。
要快乐，有以下的方法。
A。提高发电机的输出功率
1。先烦恼，把水泵上去。
2。吸取外界的心理能量，或者通过各种外源和内源的刺激来激发内在的心理能量。
3。改进发动机

B。减少额外能量消耗
1。降低电阻，祛除或者掌握各种思想系累和束缚。

最高级的人，是把发电机变成一个永动机，那是不可能的。


#  
#   1
#   Y
#   Y
#   Y
#  

用电路来比喻人的情感过程。

将人的情感体验比做一个灯泡，快乐就是灯泡亮，烦恼就是灯泡灭。
灯泡和一个电阻相串联，这个电阻就是本能和社会给予的各种欲望和思想上的系累和束缚。
电源是一台发电机。
驱动发电机的是水库流水的冲击力，发电机的输出功率取决于水库的落差。
水库中的水，一来自降雨（外来的心理能量），而来自水泵（烦恼）。
要快乐，有以下的方法。
A。提高发电机的输出功率
1。先烦恼，把水泵上去。
2。吸取外界的心理能量，或者通过各种外源和内源的刺激来激发内在的心理能量。
3。改进发动机

B。减少额外能量消耗
1。降低电阻，祛除或者掌握各种思想系累和束缚。

最高级的人，是把发电机变成一个永动机，那是不可能的。


#   bsmagic
#   哲理 情感 人生 快乐
# 
}keys %hvk;
print OUT $tail;
close OUT;
[perl脚本]转换万科博客到BLOGBUS perl脚本中的一些安全问题 如何从 BlogBus 搬家到 WordPress perl perl BlogBus发难：博客为什么不能随便搬家？ BlogBus发难：博客为什么不能随便搬家？ BlogBus发难：博客为什么不能随便搬家？ 如何在 BlogBus 博客大巴添加GoStats专业博客计数器？ 回首前尘往事 七大没落软件排名 :: 查皮博客@blogbus excel转换到word中 让你的博客点击率迅速提高到100万 让您的博客点击率迅速提高到100万 可以将脚本的输出复制到剪贴板吗？ 草根的话语权　贵族化伤害了博客 - 转载 - 站长博客站-网站运营探索 - BlogBus... 草根的话语权　贵族化伤害了博客 - 转载 - 站长博客站-网站运营探索 - BlogBus... 曾仕强点评胡雪岩专题笔记 - 查皮博客@blogbus - 博客大巴 史上最受争议的15张新闻照片[组图] - 查皮博客@blogbus - 博客大巴 你的阅读有效吗？ - 查皮博客@blogbus - 博客大巴 网络阅读:是一种进步还是退步 - 查皮博客@blogbus - 博客大巴 曾仕强点评胡雪岩专题笔记 - 查皮博客@blogbus - 博客大巴 Blogbus生财有道 Perl 工具 Perl概述