perl怎么显示成html,perl ASCII转换到HTML

[perl]代码库#-----------------------------

# download the following standalone program

#!/usr/bin/perl -w -p00

# text2html - trivial html encoding of normal text

# -p means apply this script to each record.

# -00 mean that a record is now a paragraph

use HTML::Entities;

$_ = encode_entities ( $_, "\200-\377" );

if ( /^\s/ )

{

# Paragraphs beginning with whitespace are wrapped in

s { ( .* ) $} {

\n$1

\n} s;

# indented verbatim

}

else

{

s {^ ( >.* ) } {$1
} gm;

# quoted text

s {

( .*? ) >} {$1} gs # embedded URL (good)

||

s { ( http:\S+ ) } {$1} gs;

# guessed URL (bad)

s {\* ( \S+ ) \*} {$1} g;

# this is *bold* here

s {\b_ ( \S+ ) \_\b} {$1} g;

# this is _italics_ here

s {^} {

\n};

# add paragraph tag

}

#-----------------------------

BEGIN

{

print "

$_ = encode_entities ( scalar <> );

s/\n\s+/ /g;

# continuation lines

while ( /^ ( \S+?: ) \s* ( .* ) $/gm )

{

# parse heading

print "

$1$2\n";

}

print "

---

";

}

#-----------------------------