python中的表达式

#!/usr/bin/python
# Filename: expression.py

length = 5
breadth = 2
area = length * breadth
print 'Area is', area
print 'Perimeter is', 2 * (length + breadth) 输出
$ python expression.py
Area is 10
Perimeter is 14

它如何工作
矩形的长度与宽度存储在以它们命名的变量中。我们借助表达式使用它们计算矩形的面积和边长。我们表达式length * breadth的结果存储在变量area中，然后用print语句打印。在另一个打印语句中，我们直接使用表达式2 * (length + breadth)的值。

另外，注意Python如何打印“漂亮的”输出。尽管我们没有在'Area is'和变量area之间指定空格，Python自动在那里放了一个空格，这样我们就可以得到一个清晰漂亮的输出，而程序也变得更加易读（因为我们不需要担心输出之间的空格问题）。这是Python如何使程序员的生活变得更加轻松的一个例子。

下一篇 python的 if 语句

备份脚本一

#!/usr/bin/python
# Filename: backup_ver1.py

import os
import time

# 1. The files and directories to be backed up are specified in a list.
source = ['/home/swaroop/byte', '/home/swaroop/bin']
# If you are using Windows, use source = [r'C:\Documents', r'D:\Work'] or something like that

# 2. The backup must be stored in a main backup directory
target_dir = '/mnt/e/backup/' # Remember to change this to what you will be using

# 3. The files are backed up into a zip file.
# 4. The name of the zip archive is the current date and time
target = target_dir + time.strftime('%Y%m%d%H%M%S') + '.zip'

# 5. We use the zip command (in Unix/Linux) to put the files in a zip archive
zip_command = "zip -qr '%s' %s" % (target, ' '.join(source))

# Run the backup
if os.system(zip_command) == 0:
    print 'Successful backup to', target
else:
    print 'Backup FAILED'

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 -w

sub 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 的while循环

格式：
while (条件) {
语句；
}

例子：
$i = 0;
while ($i <10) {
$i += 1;
print $i;
}

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/sh
MYSQL_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