my $str = "aaabbaa"; $str =~ s/a{1,3}/match/g; print $str; sub sum{ my ($num1,$num2) = @_; my $total = $num1 + $num2; return $total; } my $result = sum(7,4); print $result;my @array = (2,4,5,6,8,9); my @mapped = map{$_ * 2} @array; foreach…
引用をストックしました
引用するにはまずログインしてください
引用をストックできませんでした。再度お試しください
限定公開記事のため引用できません。