给我的明A1200做了个TXT to HTML软件 - 我的文章

今天从网上找了几本电子书，但是发现放在我的A1200用自带的阅读器显示并不是很好。记得前几天把一些chm教程转换成html放在明里，效果非常好，因为html可以自动换行，选择大视图的时候效果很好。于是从网上找了一个txt2html的软件发现基本都需要注册，而且转换的结果不好用，放在手机里都是乱码。分析了一下以前可以看的html文件，决定自己用perl写一个TXT to HTML的程序。

1.开头要有<META http-equiv=Content-type content="text/html; charset=gb2312">声明字符集，否则到了手机里是乱码

2.段乱用<p></p>括起来

需要注意的就是这些了，程序很简单：

1.找一个目录下的所有txt文件

2.循环读取文件

3.写入

唯一一点遗憾的就是书签不是很方便，没有想到更好的办法。

以下是程序，还有许多需要改进的地方：

#!/usr/bin/perl
use strict;

my @files = glob('./QingChao/*');
my $html_head = qq{
<html>
<META http-equiv=Content-type content="text/html; charset=gb2312">
<head></head>
<body>
};
my $html_end = qq{
</body>
</html>
};

foreach my $file(@files){
next if(-d $file);
print "File-->$file\n";
my $retu = convert_html($file);
print "return $retu\n";
}
sub convert_html
{
my $file = shift;
my $convert_file = "$file.html";
return 0 if ($file !~ /txt$/);

open(rhd,$file);
open(whd,">$convert_file");
print whd $html_head;
while(my $line = <rhd>){
    chomp($line);
    next if($line eq '');
    print whd "<p>$line</p>";
}
print whd $html_end;
close whd;
close rhd;
return 1;
}