初めてのperl 第4章 練習問題4 use strict; use warnings; use Data::Dumper; use 5.010; # 入力された名前に対して、挨拶の処理を実行する。 sub greet{ my $name = shift @_; state @members; #挨拶 print "Hi "; # 名前を表示させる print $name . "!"; #…

初めてのPerl 第4章 練習問題2 use strict; use warnings; use 5.010; use Data::Dumper; sub total{ my @numbers = @_; my $have; foreach my $number(@numbers){ $have += $number; } return $have; } my @fred = 1..1000; my $fred_total = total(@fred);…

初めてのPerl 第4章 練習問題1 use strict; use warnings; use 5.010; sub total{ my @numbers = @_; my $have; foreach my $number(@numbers){ $have += $number; } return $have; } my @fred = qw/1 3 5 7 9 /; my $fred_total = total(@fred); print "the…

return演算子 テスト3 use strict; use warnings; my $fred = 11; my $barney = 6; sub list_from_fred_to_barney{ if ($fred < $barney){ # $fredから$barneyまで増やして行く $fred..$barney; }else{ # $fredからbarneyまで減らして行く reverse $barney..…

return演算子 テスト２ use strict; sub shop{ my($name, @fruits) = @_; my $i = 0; # yamadaさんの名前を表示したい。 print $name . "さんが作った果物は"; # フルーツの名前を表示したい # 最後のフルーツでなければ、カンマをつける。 foreach my $frui…

return演算子について use strict; use warnings; my @names = qw/fred barney betty dino wilma pebbles bamm-bamm /; my $result = &which_element_is("betty", @names); print $result; # @fruits = qw/apple grape); # my($a, $b) = @fruits; # my($a, $…

永続的なプライベート変数のテスト use strict; use warnings; use 5.010; my $n; sub marine1{ $n++; print "Hello$n "; } sub marine2{ state $e = 0; print "Hello $e"; $n += 1; } marine1; marine1; marine1; marine1; marine1; marine1; marine1; prin…

パラメータリストについて use strict; use warnings; sub max{ if (@_ != 2) { print "true"; } } my $maximum = maximum(3,5,10,4,6); print $maximum; sub maximum{ my($max_so_far) = shift @_; foreach (@_){ if($_ > $max_so_far){ $max_so_far = $_; …

splict演算子 use strict; use warnings; my @array = qw(pebbles dino fred barney betty); my @removed = splice @array, 2; print @removed . "\n"; print @array; 以下、出力結果となります。 3 pebblesdino

レキシカル変数について use strict; use warnings; foreach(1..10){ my($square) = $_ * $_; print "$_ squared is $ square \n"; } #以下で宣言している岩の名前はforeachの中でしか利用できない。 foreach my $rock(qw/bedrock slate lava/){ print "One …