?? is_tainted_sub.pl
字號:
#!/usr/bin/perl -wTuse strict;sub is_tainted { my $var = shift; my $blank = substr( $var, 0, 0 ); return not eval { eval "1 || $blank" || 1 };}?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -