TXT2HTML變換
戻る
把一個TXT文件轉(zhuǎn)化HTML文件
<![CDATA[
# Change TXT file to HTML file
# txt2html.pl
use strict;
my(%t,$n,$n1,@fld);
print "Input file name(*.txt)=";
chop($t{input}=<STDIN>);
print "Link file(*.html)=";
chop($t{link1}=<STDIN>);
$t{link1} = $t{link1} . '.html';
$t{file1} = $t{input} . '.txt';
$t{file2} = $t{input} . '.htm';
@{ $t{list} } = ();
open(FH,$t{file1}) or die "Can't open the file $t{file1}\n";
while(<FH>){
@fld = split;
if ( /^TITLE/ ) {
$t{title} = $fld[1];
for $n1 ( 2 .. $#fld ) {
$t{title} .= ' ' . $fld[$n1];
}
} elsif ( /^LINK/ ) {
$t{link} = $fld[1];
} else {
push( @{ $t{list} }, $_);
}
}
close(FH);
open(OUT,">$t{file2}");
print OUT '<HTML><HEAD>',"\n";
print OUT '<META http-equiv=Content-Type content="text/html;charset=UTF-8">',"\n";
print OUT '<TITLE>',$t{title},"\n";
print OUT '</TITLE>',"\n";
print OUT '<style type="text/css">',"\n";
print OUT 'body { background:lightcyan; color:black; margin-left:2em;margin-right:2em;}',"\n";
print OUT '</style>',"\n";
print OUT '</HEAD>',"\n";
print OUT '<BODY>',"\n";
print OUT '<h3>',$t{title},'</h3>',"\n";
print OUT '<a href="' . $t{link1} . '">',$t{link},'</a>',"\n";
print OUT '<hr color="#003366">',"\n";
for $n1 ( 0 .. $#{ $t{list} } ) {
print OUT '<p>',$t{list}[$n1];
}
print OUT '</p>',"\n";
print OUT '<hr color="#003366">',"\n";
print OUT '<a href="' . $t{link1} . '">',$t{link},'</a>',"\n";
print OUT '</BODY>',"\n";
print OUT '</HTML>',"\n";
close(OUT);
__END__;
]]>
選擇目錄文件后再變換
<![CDATA[
# txt2html.pl
use strict;
my(%t,$n,$n1,@fld);
print "Please input kind(1-7)=";
chop($t{kind} = <STDIN>);
if ( $t{kind} == 1 ) {
$t{rfile} = 'c_laws.htm';
} else {
$t{rfile} = 'c_laws' . $t{kind} . '.htm';
}
print "Please input filename(*.txt)=";
chop($t{name} = <STDIN>);
$t{file1} = $t{name} . '.txt';
$t{file2} = $t{name} . '.htm';
open(FH,$t{file1}) or die "Can't open the file $t{file1}\n";
while(<FH>){
@fld = split;
if ( /^TITLE/ ) {
$t{title} = $fld[1];
} elsif ( /^LINK/ ) {
$t{link} = $fld[1];
} else {
push( @{ $t{list} }, $_);
}
}
close(FH);
open(OUT,">../$t{kind}/$t{file2}");
print OUT '<HTML><HEAD>',"\n";
print OUT '<META http-equiv=Content-Type content="text/html;charset=UTF-8">',"\n";
print OUT '<TITLE>',$t{title},"\n";
print OUT '</TITLE>',"\n";
print OUT '<style type="text/css">',"\n";
print OUT 'body { background:#fcf5ca; color:black; margin-left:2em;margin-right:2em;}',"\n";
print OUT '</style>',"\n";
print OUT '</HEAD>',"\n";
print OUT '<BODY>',"\n";
print OUT '<h3>',$t{title},'</h3>',"\n";
print OUT '<a href="../',$t{rfile};
print OUT '">',$t{link},'</a>',"\n";
print OUT '<hr>',"\n";
for $n1 ( 0 .. $#{ $t{list} } ) {
print OUT '<p>',$t{list}[$n1];
}
print OUT '</p>',"\n";
print OUT '<hr>',"\n";
print OUT '<a href="../',$t{rfile};
print OUT '">',$t{link},'</a>',"\n";
print OUT '</BODY>',"\n";
print OUT '</HTML>',"\n";
close(OUT);
__END__;
]]>
戻る
民丰县|
鄂伦春自治旗|
昆山市|
游戏|
若尔盖县|
柳河县|
郸城县|
宜君县|
黎城县|
开封市|
象山县|
武邑县|
延吉市|
德令哈市|
林州市|
阜城县|
栾川县|
安岳县|
龙江县|
雷波县|
桐庐县|
蒙山县|
革吉县|
准格尔旗|
明光市|
凤庆县|
定西市|
原平市|
永福县|
安阳市|
新密市|
弋阳县|
中方县|
黔江区|
汉源县|
新密市|
伊金霍洛旗|
万荣县|
策勒县|
建始县|
无极县|