?? mac2.pl
字號:
#!/usr/local/bin/perl# Author: Christopher G. Phillips# Copyright (C) 1994 All Rights Reserved## NOTICE## Permission to use, copy, modify, and distribute this software and# its documentation for any purpose and without fee is hereby granted# provided that the above copyright notice appear in all copies and# that both the copyright notice and this permission notice appear in# supporting documentation.## The author makes no representations about the suitability of this# software for any purpose. This software is provided ``as is''# without express or implied warranty.while (<>) { chop; if (/^(a[0-9a-f]{3})\s+(\S.*)$/i) { $s = $2; $s =~ s/\s+$//; $t = $1; $t =~ tr/A-Z/a-z/; $name{"$t"} = $s; }}while (<STDIN>) { if (/^(a[0-9a-f]{3})\s+/i) { $trap = $1; $trap =~ tr/A-Z/a-z/; if (defined $name{"$trap"}) { $v = $name{"$trap"}; print "$trap $v\n"; undef $v; next; } } print;}foreach $key (sort byhex (keys %name)) { $v = $name{"$key"}; print "$key $v\n";}sub byhex { hex($a) - hex($b);}
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -