📄 unshar.in
字号:
#!@PERL@## unshar - remove mail/news header and extract shar archive## Kang-Jin Lee <lee@arco.de> 20 October 2000## Based on work of Darren Hardy and Ulrich Drepper.#$file = "-" if ($#ARGV < 0);foreach $file (@ARGV) { open(FILE, "< $file") || die "Cannot read $file"; while (<FILE>) { last if (/^#!/o || /^:/o || /^echo/o || /^sed/o || /^cat/o || /^if/o); } open(SH, "| /bin/sh") || die "No shell"; while (<FILE>) { print SH; } close(SH); close(FILE);}exit 0;
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -