📄 print_on.al
字号:
# NOTE: Derived from ./blib/lib/URI/URL.pm. Changes made here will be lost.package URI::URL;sub print_on{ no strict qw(refs); # because we use strings as filehandles my $self = shift; my $fh = shift || 'STDERR'; my($k, $v); print $fh "Dump of URI::URL $self...\n"; foreach $k (sort keys %$self){ $v = $self->{$k}; $v = 'UNDEF' unless defined $v; print $fh " $k\t'$v'\n"; }}1;############################################################################# D O C U M E N T A T I O N#########################################################################1;
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -