会python真的可以为所欲为0(回)
350天前
这里还有人吗1(回)
535天前这里还有人吗0(回)
535天前
每天面对着电脑屏幕，敲打键盘。我所面对的并不只是代码，而是一种生活方式。0(回)
760天前到处都是羊，不想上班0(回)
840天前
鸽子
0(回)
844天前#----------------------------- |
# 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 <PRE> |
s { ( .* ) $} {<PRE>\n$1</PRE>\n} s; |
# indented verbatim |
} |
else |
{ |
s {^ ( >.* ) } {$1<BR>} gm; |
# quoted text |
s {<URL: |
( .*? ) >} {<A HREF="$1">$1</A>} gs # embedded URL (good) |
|| |
s { ( http:\S+ ) } {<A HREF="$1">$1</A>} gs; |
# guessed URL (bad) |
s {\* ( \S+ ) \*} {<STRONG>$1</STRONG>} g; |
# this is *bold* here |
s {\b_ ( \S+ ) \_\b} {<EM>$1</EM>} g; |
# this is _italics_ here |
s {^} {<P>\n}; |
# add paragraph tag |
} |
#----------------------------- |
BEGIN |
{ |
print "<TABLE>"; |
$_ = encode_entities ( scalar <> ); |
s/\n\s+/ /g; |
# continuation lines |
while ( /^ ( \S+?: ) \s* ( .* ) $/gm ) |
{ |
# parse heading |
print "<TR><TH ALIGN='LEFT'>$1</TH><TD>$2</TD></TR>\n"; |
} |
print "</TABLE><HR>"; |
} |
#----------------------------- |
by: 发表于：2017-09-18 17:49:42 顶(0) | 踩(0) 回复
？？
回复评论