perl练习

用户输入半径，输出圆的周长

print "please input r : \n";
$r = <STDIN>;
$pi = 3.1415;
$c = 2 * $r * $pi;
print "$c";

输入一个字符串和一个数字，重复这个字符串num次在num行中

$s = <STDIN>;
$num = <STDIN>;
#chomp($s);
$out = $s x $num;
print "$out"

的输入自带换行，因此直接拼接就可以，chomp函数去掉字符串末尾的换行

输入一个数组，倒序输出

linux 中ctrl + d代表键盘输入结束

@s = reverse(<STDIN>);
chomp(@s);
print "@s";

输入数字，输出对应字符串

@num = <>;
@name = ("gary", "what", "yes");
foreach (@num){
    print "$name[$_-1]\n";
}

输入字符串，按ASCII码排序输出

@arr = <>;
@arr = sort(@arr);
print "@arr";

利用函数计算1到1000的和

#!usr/bin/perl -w
use strict;

sub total {
    my $sum = 0;
    foreach (@_) {
        $sum = $sum + $_;
    }
    return $sum;
}
my @input = 1 .. 1000;
my $output = &total(@input);
print "$output\n";

输入一列数字，输出大于平均数的数字

#!usr/bin/perl -w
use strict;

sub ave {
    my $num = @_;
    my $sum = 0;
    foreach (@_) {
        $sum = $sum + $_;
    }
    return $sum/$num;
}
sub main {
    foreach (@_) {
        if($_ > &ave(@_)) {
            print "$_\n"
        }
    }
}
my @input = 1 .. 10;
&main(@input);