?? tie-push.t
字號:
#!./perlBEGIN { chdir 't' if -d 't'; @INC = '.'; push @INC, '../lib';} { package Basic; use Tie::Array; @ISA = qw(Tie::Array); sub TIEARRAY { return bless [], shift } sub FETCH { $_[0]->[$_[1]] } sub STORE { $_[0]->[$_[1]] = $_[2] } sub FETCHSIZE { scalar(@{$_[0]}) } sub STORESIZE { $#{$_[0]} = $_[1]-1 }}tie @x,Basic;tie @get,Basic;tie @got,Basic;tie @tests,Basic;require "op/push.t"?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -