perl练习

原创已于 2022-08-24 09:49:28 修改 · 386 阅读

0 ·

本内容遵循CC 4.0 BY-SA版权协议

收录于

脚本

于 2022-08-23 15:27:31 首次发布

本文介绍了如何使用Perl编程语言实现基本数学运算（计算圆周长）、字符串操作（重复输出）、数组处理（倒序输出）以及数据处理任务（数字转字符串、ASCII排序）。通过这些实例，展示了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);

标签

#perl #ic