zoukankan
html css js c++ java
将.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;
查看全文
相关阅读:
JAVA最简单常识
BREW的资源文件概述及问题
c语言 512
c语言510 求矩阵的乘积
c语言 511
c语言57
c语言 59
c语言55 在应用对象式宏的数组中对数组元素进行倒序排列
c语言 511
c语言 510 求4行3列矩阵和3行4列矩阵的乘积。各构成元素的值从键盘输入。
原文地址:https://www.cnblogs.com/bsmagic/p/1249273.html
最新文章
手机探索者开发实录—Broncho支持VNC
Windows下的ARP命令
flex>flex访问java远程对象 小强斋
Myeclipse8安装svn插件 小强斋
Myeclipse8安装svn插件 小强斋
hibernate>介绍 小强斋
MyEclipse_8.6+flex_4+Blazeds 小强斋
MyEclipse_8.6+flex_4+Blazeds 小强斋
flex>flex访问java远程对象 小强斋
Myeclipse8安装svn插件 小强斋
热门文章
MyEclipse_8.6+flex_4+Blazeds 小强斋
hibernate>介绍 小强斋
使用C++进行BREW编程
在VC里调试标准C语言
关于Borland cpp32.exe 的使用
Perl通过WIN32 OLE来操作EXCEL
J2ME新手入门系列 ―― (一)
BREW KDDI 声音有关问题
OLE简介
Perl取得和修改文件属性(WIN32系统)
Copyright © 2011-2022 走看看