txt2html

来自「snmp的源代码,已经在我的ubuntu下编译通过」· 代码 · 共 56 行

TXT
56
字号
#!/usr/bin/perl## This program generates a simple HTML document from a text file.## Written by:     Alex Burger# Date:           March 18th, 2004# # Set to 1 to use fixed width font (<tt>)$fixed_width = 0;open (FILE, @ARGV[0]) || die "Could not open file \'@ARGV[0]\'. $!";print '<!DOCTYPE HTML PUBLIC "-//IETF//DTD HTML//EN">' . "\n";print '<html>' . "\n";print '<head>' . "\n";print "<title></title>\n";print '</head>' . "\n";print '<body>' . "\n";if ($fixed_width == 1) {  print "<p><tt>\n";}else {  print "<p>\n";}while ($line = <FILE>) {  chomp $line;  $line =~ s/&/\&amp;/g;  $line =~ s/</\&lt;/g;  $line =~ s/>/\&gt;/g;  $line =~ s/\"/\&quot;/g;  if ($line eq "") {    if ($fixed_width == 1) {      print "</tt></p>\n";      print "<p><tt>\n";    }    else {      print "</p>\n";      print "<p>\n";    }  }  else {    print "$line<br />\n";  }}if ($fixed_width == 1) {  print "</tt>\n";}print "</p>\n";print "</body>\n";print "</html>\n";  

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?