Shell Programming and Scripting

Good morning!!

I wrote a script and Im not the best at Perl so I would like someone to look it over....just in case. Ive been working on this script forever!!

The script is supposed to: Have the user enter a number using STDIN. Calculate the average of the numbers, the total of all of the numbers added together, and a new array of numbers which is comprised of the other numbers divided by 2. It will tehn return a new list with all of that information. It should be taking the input, calling the library and printing the end results.

Code:

#!/usr/bin/perl

my $outfile="numberlist.pl";

open (OUT,">$outfile") || die "can't open $outfile: $!";
my $count=0;
while ($count != 10)
{
$count++;
my $line=;
print OUT "$line";
}
close (OUT);

open (IN,"<$outfile") || die "can't open $outfile: $!";

my @ben=;

my $sum=0;
my @newarray=();
foreach my $num (@ben)
{
$sum+=$num;
my $newnum = $num /2;
my $newarray_nums=push (@newarray,$newnum);
}
print "New Array is :@newarray\n";
print "Sum :$sum\n";

my $avg = $sum /10;

print "Avg :$avg\n";

close(IN);

Sidenote-Perl makes my head hurt. I think Im struggling because it doesnt seem logical to me. ANy suggestions?

Ben

---------- Post updated at 03:02 AM ---------- Previous update was at 02:18 AM ----------

Thanks Pludi!!

---------- Post updated at 04:07 AM ---------- Previous update was at 03:02 AM ----------

Can anyone help?