windtear 追求完美

上午写了两个脚本
晚上进行了完善

----->   bash
$? 表示返回值
cat << USAGE 注释效果很好
usage () { } 子函数
[[ $1 = "-h" || $1 = "--help" || $1 = "-v" || $1 = "--version" ]] && usage
[[ $# -ne 3 ]] && usage
参数 $1 从1开始记数
if echo $string | grep -q -c ^pattern; then ... else ... fi
if [ $? -eq 0]; then ...
数字比较用 -eq -ne ...  字符串直接 [ "$a" = "$b" ]
echo cat 打印

----->   perl
参数从$ARGV[0]开始记数
@ARGV 直接与数字比较就是数字个数
if (@ARGV != 2) { usage(); }
sub usage { }  如果要参数 可以  sub usage($) $$ $$$ ... 然后 @_ 取
变量要加 $ % @ 等  (而 bash 直接赋值 调用才 $VAR)
每一行还要有分号结尾
open(IN, "file") || die "cant open file";
print 打印
while for foreach 等循环
模式匹配 $str =~ /abc/i;  .*?(\d+) $1 为匹配结果等

----->
昨天写的两个脚本 小工具开会
处理参数的 perl 模组 Getopt::Long
bash scripts sample - for loop v.s. xargs
代理自动封禁 squid autodeny.pl
www 的自动封禁 80autodeny.pl
passchsquid.sh -- Password Change For Squid Auth
newftpuser.sh for proftpd