📄 txt2html
字号:
#!/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/&/\&/g; $line =~ s/</\</g; $line =~ s/>/\>/g; $line =~ s/\"/\"/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 + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -