wow guys, I really feel good know, actually I am learning lot of stuff, I've been awake from 7 am. and learning pearl all day long. Here is the script tha I modified. The script should do the following: copy all the files that were entered in command line to a folder lab06d which is already created. and add a "b" at the end of the file to tell that is a backup. also it should print the total value added from all the files. but I don't thing is adding the value from all the files together.
here is the script again:
#!/perl/bin/perl
#
# Author: L.H
# Script Name: lab6-1
# Date Written: March 15, 2005
# Purpose: Basic I/0
#
#
print "L.H\n";
print "Starting Script\n\n";
print "Filename\tValue\t(print heading)\n";
use File::Copy;
use strict;
my $total;
foreach my $file (@ARGV)
{
open(FILE, "$file");
my $sum = 0;
while (<FILE>)
{
chomp();
$sum+=$_;
print "$file $_\n";
$total+=$sum;
}
print "Total value for the $file : $sum\n";
close( FILE );
}
print "Total value accumulated from all the files
is:$total";
foreach my $file (@ARGV)
{
my $newfile=$file . "b";
copy ($file, "lab06d\\$newfile");
}
In reply to Re^4: Solution for your prof
by kocaweb
in thread <> diamond Operator
by kocaweb
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |