Yekhande, Seema (MLITS) wrote:
> Do you have any
> idea about why column_average function doesn't works when
> multiple files
> Are passed using the for routine?
> ...
> sub column_average {
> my ($idx) = @_;
> my $sum = sum map {$_->[$idx] if defined $_->[$idx]} @data;
> return $sum;
{
my ($idx) = @_;
my $sum = sum map {$_->[$idx] if defined $_->[$idx]} @data;
return $sum;
}
Thanks,
Seema.
-Original Message-
From: Thomas, Mark - BLS CTR [mailto:[EMAIL PROTECTED]
Sent: Wednesday, April 05, 2006 10:18 PM
To: Yekhande, Seema (MLITS); perl-win32-users@li
U had me confused. I thought u wanted to make this run slower because it
was bogging down ur computer or something. But based on ur script comments
and other posts it seems u want to make it run faster. So u want to "reduce
the time of execution" not the "speed of execution".
At 05:18 PM 4/5/20
Yekhande, Seema (MLITS) wrote:
Does anyone is having different idea about reducing the speed in
execution? This I am finding out about how to reduce the speed.
You can reduce the speed by: 1) running on a slower machine, 2) running
other compute-intensive programs at the same time, or 3) ins
> Actually Regex is taking more time instead of agrep. That's
> why the idea
> of using either agrep or find.
> This is small input.txt which I am using it as a input file.
> If there is any other way of increasing the speed of same Perl script,
> it is really required.
>
I don't have agrep but
> Actually Regex is taking more time instead of agrep. That's
> why the idea of using either agrep or find.
> This is small input.txt which I am using it as a input file.
> If there is any other way of increasing the speed of same
> Perl script, it is really required.
This has a chance of being
> Sent: Wednesday, April 05, 2006 6:35 PM
> To: Yekhande, Seema (MLITS); perl-win32-users@listserv.ActiveState.com
> Subject: RE: Want to reduce the speed of execution in Perl script.
>
>
>
>
> > system(qq~agrep "$fir\t$sec\t" $outfile > tmp~); ## agrep is an
&g
ssage-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] On Behalf Of
Peter Eisengrein
Sent: Wednesday, April 05, 2006 6:35 PM
To: Yekhande, Seema (MLITS); perl-win32-users@listserv.ActiveState.com
Subject: RE: Want to reduce the speed of execution in Perl script.
> system(qq~agrep "
> system(qq~agrep "$fir\t$sec\t" $outfile > tmp~); ## agrep is an external
> utility to find search pattern in a file and transfer it into other file.
> system(qq~agrep "$thr" tmp > tmp1~); ## agrep is more faster than regular
> expression.
Are two system calls to agrep really faster than a
Title: Want to reduce the speed of execution in Perl script.
Dear All,
Suppose I have a log length tab-separated file, in this file I have to make the average of numbers based on certain parameters
as hour, group name and monitor name. This program takes long time in running.
my
10 matches
Mail list logo
