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";