perl 的if 语句结构
if (条件) {要执行的语句;
}
还可以有else的形式
if (条件) {
语句1;
} else {
语句2;
}
用perl计算圆周长
要求：提示用户输入半径长，然后自动输出圆周长。注：当用户输入的半径为负数时，返回结果为0. 圆周长=2*pi*半径 ， 其中pi=3.141592654
程序为：
#! /usr/bin/perl
print "please input the banjing:";
$bj=<STDIN>;
chomp $bj;
$pi=3.141592654;
if ($bj<0) {
$bj=0;
}
$zc = 2*$pi*$bj;
print "the zhouchang is $zc.\n";
perl 计算两个数的乘积
要求：提示用户输入两个数，结果返回两个数的乘积。程序：
#! /usr/bin/perl
print "please input 2 numbers:\n";
$a=<STDIN>;
$b=<STDIN>;
print "the sum of the numbers is:", $a*$b, "\n";
用perl计算一系列数的和
要求：数据是有键盘输入的，个数不定。#! /usr/bin/perl
sub total {
my $sum=0;
while (@_) {
$sum=$sum+pop @_;
}
return $sum;
}
print "Please input some numbers:\n";
$n=&total(<STDIN>);
print "the sum of these numbers is $n\n";
输入一列数字，求最大值
#! /usr/bin/perl -wsub max {
my($big)=shift @_;
foreach (@_) {
if ($big<$_) {
$big=$_;
}
}
$big
}
print "please input some numbers,and use Ctrl-D to end:\n";
chomp (@m=<STDIN>);
$n=&max(@m);
print "the maxmum number is:$n\n";
perl 打印相同的指定行的字符串
要求：提示用户输入一个数n，和一个字符串。然后输出n行该字符串。程序：
#! /usr/bin/perl
print "please input a number:";
$a=<STDIN>;
print "please input a character:";
$b=<STDIN>;
while ($n<$a) {
print $b;
$n+=1;
}
perl 哈希统计输入的字符串字数
要求：自定义输入一组字符串，例如 aa bb cc aa cc ，那么需要统计出各个字符串出现的次数。#! /usr/bin/perl
my (@words, %count, $word);
chomp (@words=<STDIN>);
foreach $word (@words) {
$count{$word} += 1;
}
foreach $word (keys %count) {
print "$word was senn $count{$word} times.\n";
}
用perl按相反顺序打印从键盘上输入的字符
要求：每行一个读入从键盘上输入的字符，然后再以相反的顺序打印出来。#! /usr/bin/perl
print "please input characters,and use CTRL-D finish:\n";
chomp(@a=<STDIN>);
@b=reverse @a;
print "@b\n";
perl 学习笔记一
标量可以是数字也可以是字符串。perl内部并不存在整数值，程序中用到的整数变量也会被转换成等值的浮点数值。
浮点变量举例
1.25
255.000
255.0
7.25e45 #7.25乘以10的45次方
-12e-24 # 负12乘以10的负24次方
整数变量举例
0
1984
-123
非十进制整数变量
0377 # 八进制的377，转换成十进制即255
0xFF # 十六进制的FF（可以是小写的f），转换成十进制即255
0b11111111 #二进制数，转换成十进制也是255
说明：在perl中，不管你写成255 还是0377还是0xFF，都代表同一个数。
数字操作符 + - * / 以及 %（求余）
单引号与双引号内的变量
单引号内的变量就是纯粹的字符串，没有任何意义。而双引号内的变量一些特殊符号不会失效。
'hello\n' #表示 hello\n ,这里的\n是换行符，有特殊含义，但在单引号内失效；
"hello\n" # 值就是hello，其中\n代表换行符。
用perl筛选出大于平均值的数
要求：给定一组数据，要求把大于这组数据的平均值的数值打印出来。#! /usr/bin/perl
sub sum {
my $sum=0;
my @num=@_;
foreach (@num) {
$sum+=$_;
}
$sum;
}
sub average {
my @num=@_;
my $cou=@num;
my $sum=&sum(@num);
$sum/$cou;
}
sub av_ab {
my @list;
my $ave=&average(@_);
foreach my $ele (@_) {
if ($ele > $ave) {
print "$ele ";
}
}
}
$a=&av_ab(1..100);
print "$a\n";
mysql数据库的时时监控脚本
#!/bin/shMYSQL_PW=mysqlpass
logdir=/root/mysql-log
logfile=$logdir/thread.log
THR_MAX=50
[ ! -d $logdir ] && mkdir -p $logdir
while :;
do
date >>$logfile
thr=`mysql -uroot -p$MYSQL_PW -e "status"|grep Threads|awk '{print $2}'`
echo -n "the process is :$thr " >>$logfile
[ $thr -gt $THR_MAX ] && mysql -uroot -p$MYSQL_PW -e "show full processlist" >$logdir/`date +%y%m%d-%H%M`-proc.log
echo "" >>$logfile
echo "===========================================" >>$logfile
sleep 30
done
社区站点防灌水脚本
while :;do
tail -n 50000 /home/logs/access.log |grep '"/post'|awk '{print $1}' |sort |uniq -c |sort -n >/tmp/post1.txt
awk '$1>80 {print $2}' /tmp/post1.txt >/tmp/post2.txt
iptables -nvL |grep REJECT |awk '$1<5 {print $8}' >/tmp/post3.txt
for ip in `cat /tmp/post3.txt`; do
iptables -D INPUT -s $ip -j REJECT
done
for ip in `cat /tmp/post2.txt` ; do
iptables -I INPUT -s $ip -j REJECT
done
sleep 1200
done
监控系统负载的脚本
#! /bin/bashN=20
while :;
do
load=`uptime |awk '{print $10}' |cut -d'.' -f 1`
if [ $load -gt $N ] ; then
uptime |awk '{print $1,$8,$9,$10,$11,$12}' >>/root/anaload/`date +%m%d`_anaload.txt
vmstat 1 600 >>/root/anaload/`date +%m%d`_anaload.txt
echo " " >>/root/anaload/`date +%m%d`_anaload.txt
fi
sleep 10
done
awk 与 sed
awk
(1).命令格式
有三种方式：
命令行方式：
awk [ -F 域分隔符 ] ‘commands’ input_file(s)
域分隔符不指定时缺省为空格，commands是awk命令语句。
awk脚本方式。
awk命令文本方式：
awk –f awk_script_file input_file(s)
(2).awk语句的构成
awk语句都由模式和动作组成。模式决定何时进行操作，动作是操作的具体内容。
模式可以是任何条件语句或复合语句或正则表达式。有两个特殊模式：BEGIN和END。BEGIN在任何文本浏览动作之前，END使用在完成文本浏览之后。
实际动作在{}中指定，简单如打印，复杂的如控制和循环等。
(3).域和记录
awk执行时，其浏览域用$1、$2、…、$n标识，多个域之间用逗号分隔，如$1,$3。
$0标识整个记录(整行)。
(4).awk中的正则表达式
除了基本的元字符外，awk中还可以使用如下两个字符：
+，匹配一个或多个字符；
?，匹配模式出现频率。
(5).awk条件操作符
操作符 描述 操作符 描述
< 小于 >= 大于等于
<= 小于等于 ~ 匹配正则表达式
== 等于 !~ 不匹配正则表达式
!= 不等于
要匹配一个正则表达式，可以使用~后紧跟/正则表达式/，也可使用if语句，if后面的条件用()括起来。
如：
awk '{if ($4 ~ /Brown/) print $0}' grade.txtawk '$4 ~ /Brown/ {print $0}' grade.txt
(6).复合条件操作符
&&：语句两边必须同时匹配为真。
||：语句两边同时或其中一边为真。
!：求逆。
如：
awk '{if ($1 == "P.Bunny" && $4 == "Yellow") print $0}' grade.txtawk '{if ($4 == "Yellow" || $4 ~ /Brown/) print $0}' grade.txt
(7).awk内置变量
ARGC 命令行参数个数
ARGV 命令行参数排列
ENVIRON 支持队列中系统环境变量的使用
FILENAME Awk正在浏览的文件名
FNR 浏览文件的记录数
FS 设置输入域分隔符，等价于命令行-F选项
NF 浏览记录的域个数
NR 已读的记录数
OFS 输出域分隔符
ORS 输出记录分隔符
RS 控制记录分隔符
访问命令行参数的方法：ARGV[n]。
访问系统环境变量：ENVIRON[ “EDITOR” ] = “vi”。
FNR表示awk目前操作的记录数，其值小于等于NR。
NF表示记录域个数，在记录被读之后设置。
OFS允许指定输出域分隔符，缺省为空格。
ORS允许指定输出记录分隔符，缺省为新行(\n)。
RS为记录分隔符，缺省为新行(\n)。
例：
显示记录个数：
awk 'END {print NR}' grade.txt
文件非空时才操作：
awk '{if (NR > 0 && $4 ~ /Bronw/) print $0}' grade.txt
显示路径中的文件名：
echo “/usr/sybase/etc/rc.file” |awk -F/ '{print $NF}'
(8).awk其他操作符
= += -= *= /= %= ^= 赋值操作符
? 条件表达操作符
+ - * / % ^ 算术操作符
++ -- 前缀和后缀
在awk中可以设置变量。如：
awk '{name=$1; belts=$4; \if (belts ~ /Yellow/) print name" is belt "belts}' grade.txt
(9).awk内置字符串函数
gsub(r,s) 在整个$0中用s替代r
gsub(r,s,t) 在整个t中用s替代r
index(s,t) 返回s中字符串t的第一位置
length(s) 返回s的长度
match(s,r) 测试s是否包含匹配r的字符串
split(s,a,fs) 在fs上将s分成序列a
sprintf(fmt,exp) 返回经fmt格式化后的exp
sub(r,s) 在$0中用最左边最长的子串s替代r
substr(s,p) 返回字符串s中从p开始的后缀部分
substr(s,p,n) 返回字符串s中从p开始长度为n的后缀部分
使用举例：
awk 'gsub(/4842/,4899) {print $0}' grade.txt
awk 'BEGIN {print index("Bunny","ny")}' grade.txt
awk '$1 == "J.Troli" {print length($1)" "$1}' grade.txt
awk 'BEGIN {print length("A good man")}'
awk 'BEGIN {print match("ABCD", /d/) }'
awk 'BEGIN { print split("123#456#678", myarray, "#"); \ print myarray[1]; print myarray[2]; print myarray[3])}'
awk "$1 == "J.Troli" {sub(/26/, "29", $0); print $0}' grade.txt
awk '$1 == "L.Tanskey" {print substr($1, 1, 5)}' grade.txt
awk '{print substr($1, 3)}' grade.txt
(10).字符串屏蔽序列
\b 退格键
\f 走纸换页
\n 新行
\r 回车键
\t tab键
\ddd 八进制值
\c 任意其他特殊字符，如\\为反斜线
(11).awk输出函数printf
基本语法：< P>
printf( [格式控制项]，参数)
格式控制类似与c语言中的printf函数。
例如：
awk 'BEGIN { printf "%f\n", 999}'awk 'BEGIN {print "Name\t\tS.Number"} {printf "%-15s %s\n", $1, $3 }'
(12).在命令行向awk传值
格式：
awk 命令变量=输入值。
如：
df -k |awk '($4 ~ /^[0-9]/) \ { if ($4 < TRIGGER) print $6"\t"$4}' TRIGGER=5600who |awk '{ if ($1 == user) print $1"connected to "$2}' user=$LOGNAME
(13).awk数组
数组使用前不用定义，一般使用循环来访问数组。格式：
for ( element in array ) print array[element]
sed
(1).命令格式
调用sed有三种格式：
命令行格式：
sed [选项] sed命令 输入文件
使用sed脚本文件：
sed [选项] –f sed脚本文件 输入文件
可执行sed脚本：
sed脚本 [选项] 输入文件
当没有输入文件时，sed从标准输入中接收输入。sed不会对原始输入文件做修改。
sed命令要用单引号括起来。
sed选项：
n：不打印，sed不写编辑行到标准输出，缺省为打印所有行(编辑和未编辑)。
c：无用。
f：调用脚本文件。
(2).sed定位文本的方式
x x为一行号，如1
x,y 表示行号范围从x到y，如2,5
/pattern/ 查询包含模式的行
/pattern/pattern/ 查询包含两个模式的行
pattern/,x 在给定行号上查询包含模式的行
x,/pattern/ 通过行号和模式查询匹配行
x,y! 查询不包含指定行号x和y的行
sed模式匹配使用正则表达式。
(3).基本sed编辑命令
p 打印匹配行
= 显示文件行号
a\ 在定位行号后附加新文本信息
i\ 在定位行号后插入新文本信息
d 删除定位行
c\ 用新文本替换定位文本
s 使用替换模式替换相应模式
r 从另一个文件中读文本
w 写文本到一个文件
q 第一个模式匹配完成后退出或立即退出
l 显示与八进制ASCII码等价的控制字符
{} 在定位行执行的命令组
n 从另一个文件中读文本下一行，并附加在下一行
g 将模式2粘贴到/pattern n/
y 传送字符
n 延续到下一输入行，允许跨行的模式匹配
例如：
显示文本1到3行：
sed -n '1,3p' quote.txt
显示匹配的行：
sed -n '/Neave/p' quote.txt
在第四行查询模式：
sed -n '4,/The/p' quote.txt
匹配元字符(使用反斜线屏蔽含义)：
sed -n '/\$/p' quote.txt
显示整个文件：
sed -n '1,$p' quote.txt
打印模式匹配的行号：
sed -n '/music/=' quote.txt
删除匹配的文本行：
sed '/Neave/d' quote.txt
写入文件/从文件读：
sed '/Neave/w dht' quote.txtsed '/company/r sedex.txt' quote.txt
匹配后退出：
sed '/.a.*/q' quote.txt
显示文件中控制字符：
sed -n '1,$l' func.txt
(4).附加文本
附加文本的操作格式(附加文本中的\表示换行，最后一行不加\，表示结束)：
[address]a\text\text\text
插入文本、修改文本与此类似。
(5).替换文本
格式：
[address[，address]] s/pattern-to_find/replace_pattern/[g p w n]
替换选项：
g，缺省替换第一次出现，使用g替换所有出现。
p，打印。
w 文件名，将输出结果写到文件。
如：
sed -n 's/night/NIGHT/p' quote.txt
附加或修改原匹配模式，可以使用(&)命令，&保存发现模式。
将nurse改为”Hello” nurse：
sed -n 's/nurse/"Hello" &/p' quote.txt
