前の問題で作成したサブルーチンを使用して、1から1000までの合計を求めるプログラムを書いてください。 何を求めているのかよくわからない問題だなぁ。 と思いつつ、前のプログラムをちょっと削って足す。 #!/usr/bin/perl -w use strict;my @fred = 1..100…

配列の合計を出すサブルーチンを作る問題。 #!/usr/bin/perl -w use strict;my @fred = qw{ 1 3 5 7 9 }; my $fred_total = &total(@fred); print "The total of \@fred is $fred_total.\n"; print "Enter some numbers on separate lines: "; my $user_tota…