perl脚本小实例

#!/bin/bash
begincount = 0
closecount  = 0
#显示所有包含管子的行
grep "/<begin/>" -r "/<end/>" /opt/IBM/HTTPServer/logs/ASPIS_audit_.log > ./script1
#显示满足匹配的所有行行数(在所有行记录前面显示行数)
grep -n "begin" /opt/IBM/HTTPServer/logs/ASPIS_audit_.log
#组合查询条件OR
grep -E '219|216' data.f
#获得文件行数
sed -n '$=' cplog.sh > ./script.txt
#查询含有“查询字符”的行数
grep "/<9./>" ASPIS_audit_.log |wc -l
#查询含有查询字符的行数，一行有多个只做一个处理。
grep -c "/<9./>" ASPIS_audit_.log
#查询所有行
grep  "" ASPIS_audit_.log |wc -l
#查询不包含“查询字符”的行数
grep -v "/<9./>" ASPIS_audit_.log |wc -l
#wc -l是按行统计
#$ wc -l file  输出file中的行数
#$ wc -w file  输出file中的单词数
#$ wc -c file  输出file中的字符数
#变量赋值，等号两边没有空格
a="12345"
#把命令值赋给变量
a=`date +%s`
#在两个文件不同的行中查询关键字
 comm -23 script script1238162234 | grep "echo"   
#数组整体定义与输出
name=(a b c)
echo ${name[@]}
#向shell脚本传递参数
bash script arg1 arg2 arg3
#在shell脚本中使用参数
$1
$*
$#                                                           
在root环境下执行db2admin的权限命令            
su -l db2admin -c "ls -l"