随笔分类 -  perl

摘要：#！/usr/bin/perlsub total { my $sum; foreach (@_) { $sum += $_; }}sub average { if (@_ == 0 ) { return } my $sum = total(@_); my $count = @_; $sum/$count;}sub above_average { my $average = average(@_); my @list; foreach $element (@_) { if ($element > $average) { push @list,$element; } }@list;}my @ 阅读全文

摘要：1.#!/usr/bin/perl@lines = `perldoc -u -fatan2`;foreach (@lines) { s/\w]+)>/\U$1/g; print;}2.#!/usr/bin/perl$bj = ;$y_zc= 2 * 3.141592654 * ${bj};if($bj le 0 ){ print "Result is 0.\n"; }else{ print "Result is $y_zc.\n";}3.#!/usr/bin/perl$num_1=;$num_2=;$res=$num_1 * $num_2;prin 阅读全文