📄 per-rfc.pl
字号:
#!/usr/bin/env perl## Read in the references, and put into an associative array#open FILE, "<refs" || die "Error opening refs: $!\n";while (<FILE>) { chop; split; $refs{$_[1]} = $_[0]; $defs{$_[0]}{$_[1]}++;}close FILE;## now loop over the input RFC's.#foreach $file (@ARGV) { $def=$file; $def =~ s/\.txt//; $attribute = "zzzzz"; # get the current reference $ref = $file; $ref =~ s/\..*//g; $rfc = $ref; $ref = "attributes-$ref"; open OUTPUT, ">$ref.html" || die "Error creating $ref.html: $!\n"; # # Print out the HTML header # print OUTPUT <<EOF;<!doctype html public "-//w3c//dtd html 4.0 transitional//en"><HTML><head> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"> <meta name="GENERATOR" content="Perl"> <title>$rfc Index of Attributes</title></head><body><h1>$rfc Attribute List</h1>EOF $letter = "@"; foreach $key (sort keys %{$defs{$def}}) { if (substr($key,0,1) ne $letter) { print OUTPUT "</UL>\n" if ($letter ne "@"); $letter = substr($key,0,1); print OUTPUT "\n<H3>$letter</H3>\n\n"; print OUTPUT "<UL>\n"; } print OUTPUT "<A HREF=\"$refs{$key}.html#$key\">$key</A><BR />\n"; } print OUTPUT "</UL>\n"; print OUTPUT "</BODY>\n"; close OUTPUT;}⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -