Sponsored Content
Top Forums Shell Programming and Scripting Perl sum really inefficient!! Post 302313362 by pludi on Tuesday 5th of May 2009 12:10:09 PM
Old 05-05-2009
Simple put:
Code:
open $fh, "file" or die "Couldn't open file: $!";
while($line = <$fh>){
    chomp $line;
    # Do whatever you have to
}
close $fh;

 

10 More Discussions You Might Find Interesting

1. Shell Programming and Scripting

sum

Hello everyone I need to write a script that sums numbers passed to it as arguments on the command line and displays the results. I must use a for loop and then rewrite it using a while loop. It would have to output something like 10+20+30=60 this is what I have so far fafountain@hfc:~$ vi sum... (1 Reply)
Discussion started by: Blinky85
1 Replies

2. Shell Programming and Scripting

Sum value from selected lines script (awk,perl)

Hello. I face this (2 side) problem. Some lines with this structure. ........... 12345678 4 12345989 13 12346356 205 12346644 74 12346819 22 ......... The first field (timestamp) is growing (or at least equal). 1)Sum the second fields if the first_field/500 are... (8 Replies)
Discussion started by: paolfili
8 Replies

3. Shell Programming and Scripting

Perl script to find particular field and sum it

Hi, I have a file with format a b c d e 1 1 2 2 2 1 2 2 2 3 1 1 1 1 2 1 1 1 1 4 1 1 1 1 6 in column e i want to find all similar fields ( with perl script )and sum it how many are there for instance in format above. 2 - 2 times 4 - 1 time 6 - 1 time what i use is ... (14 Replies)
Discussion started by: Learnerabc
14 Replies

4. Shell Programming and Scripting

Print sum and relative value of the sum

Hi i data looks like this: student 1 Subject1 45 55 Subject2 44 55 Subject3 33 44 // student 2 Subject1 45 55 Subject2 44 55 Subject3 33 44 i would like to sum $2, $3 (marks) and divide each entry in $2 and $3 with their respective sums and print for each student as $4 and... (2 Replies)
Discussion started by: saint2006
2 Replies

5. Shell Programming and Scripting

perl sum 2nd field in an array

Hi Everyone, ($total+=$_) for @record; assume @record=(1,2,3), so the result is 6. if @record=("1 3","2 3","3 3"), would like to sum up the 2nd field of this array, the result is 9. i tried " ($total+=$) for @record ", cannot, please advice. Thanks ---------- Post updated at 03:45... (1 Reply)
Discussion started by: jimmy_y
1 Replies

6. Shell Programming and Scripting

PERL : Group & Sum in hash

Hi, I have a hash which is to be populated by reading data lines from a flat file. I am supposed to read fields 1-5 from the file and load them on to the hash such that fields 1-4 are going to be the hash key-set and field 5 is the hash value. Field 5 is a monetary amount and is supposed... (1 Reply)
Discussion started by: sinpeak
1 Replies

7. Solaris

How to Sum

Hi I need to incorporate a 'sum' as follows into a script and not sure how. I have a variable per line and I need them to be summed, e.g below 1 23 1,456 1 1 34 46 How do I calculate the sum of all these numbers to ouptut the answer ( 1,562) Thanks in advance (3 Replies)
Discussion started by: rob171171
3 Replies

8. UNIX for Dummies Questions & Answers

Getting the sum

I am trying to get the sum of the first column of a file. When I use the same method for other files it works just fine... for some reason for the file below it gives me an error that I don't understand... I tried looking at different lines of the file and tried different things, but I still... (7 Replies)
Discussion started by: cosmologist
7 Replies

9. Shell Programming and Scripting

Incredibly inefficient cat | grep script

Hi there, I have 2 files that I am trying to work on. File 1 contains a reference list of unique subscriber numbers ( 7 million entries in total) File 2 contains a list of the subscriber numbers and their tariff (15 million entries in total). This file is in the production system and... (12 Replies)
Discussion started by: Cludgie
12 Replies

10. Programming

PERL: In a perl-scripttTrying to execute another perl-script that SETS SOME VARIABLES !

I have reviewed many examples on-line about running another process (either PERL or shell command or a program), but do not find any usefull for my needs way. (Reviewed and not useful the system(), 'back ticks', exec() and open()) I would like to run another PERL-script from first one, not... (1 Reply)
Discussion started by: alex_5161
1 Replies
Dancer::ModuleLoader(3pm)				User Contributed Perl Documentation				 Dancer::ModuleLoader(3pm)

NAME
Dancer::ModuleLoader - dynamic module loading helpers for Dancer core components SYNOPSIS
Taken directly from Dancer::Template::TemplateToolkit (which is core): die "Template is needed by Dancer::Template::TemplateToolkit" unless Dancer::ModuleLoader->load('Template'); # we now have Template loaded DESCRIPTION
Sometimes in Dancer core we need to use modules, but we don't want to declare them all in advance in compile-time. These could be because the specific modules provide extra features which depend on code that isn't (and shouldn't) be in core, or perhaps because we only want these components loaded in lazy style, saving loading time a bit. For example, why load Template (which isn't required by Dancer) when you don't use Dancer::Template::TemplateToolkit? To do such things takes a bit of code for localizing $@ and "eval"ing. That code has been refactored into this module to help Dancer core developers. Please only use this for Dancer core modules. If you're writing an external Dancer module (Dancer::Template::Tiny, Dancer::Session::Cookie, etc.), please simply ""use ModuleYouNeed"" in your code and don't use this module. METHODS
/SUBROUTINES load Runs a ""use ModuleYouNeed"". use Dancer::ModuleLoader; ... Dancer::ModuleLoader->load('Something') or die "Couldn't load Something "; # load version 5.0 or more Dancer::ModuleLoader->load('Something', '5.0') or die "Couldn't load Something "; # load version 5.0 or more my ($res, $error) = Dancer::ModuleLoader->load('Something', '5.0'); $res or die "Couldn't load Something : '$error' "; Takes in arguments the module name, and optionally the minimum version number required. In scalar context, returns 1 if successful, 0 if not. In list context, returns 1 if successful, "(0, "error message")" if not. If you need to give argumentto the loading module, please use the method "load_with_params" require Runs a ""require ModuleYouNeed"". use Dancer::ModuleLoader; ... Dancer::ModuleLoader->require('Something') or die "Couldn't require Something "; my ($res, $error) = Dancer::ModuleLoader->require('Something'); $res or die "Couldn't require Something : '$error' "; If you are unsure what you need ("require" or "load"), learn the differences between "require" and "use". Takes in arguments the module name. In scalar context, returns 1 if successful, 0 if not. In list context, returns 1 if successful, "(0, "error message")" if not. load_with_params Runs a ""use ModuleYouNeed qw(param1 param2 ...)"". use Dancer::ModuleLoader; ... Dancer::ModuleLoader->load('Something', qw(param1 param2) ) or die "Couldn't load Something "; my ($res, $error) = Dancer::ModuleLoader->load('Something', @params); $res or die "Couldn't load Something : '$error' "; Takes in arguments the module name, and optionally parameters to pass to the import internal method. In scalar context, returns 1 if successful, 0 if not. In list context, returns 1 if successful, "(0, "error message")" if not. use_lib Runs a ""use lib qw(path1 path2)"" at run time instead of compile time. use Dancer::ModuleLoader; ... Dancer::ModuleLoader->use_lib('path1', @other_paths) or die "Couldn't perform use lib "; my ($res, $error) = Dancer::ModuleLoader->use_lib('path1', @other_paths); $res or die "Couldn't perform use lib : '$error' "; Takes in arguments a list of path to be prepended to @INC, in a similar way than "use lib". However, this is performed at run time, so the list of paths can be generated and dynamic. In scalar context, returns 1 if successful, 0 if not. In list context, returns 1 if successful, "(0, "error message")" if not. class_from_setting Given a setting in Dancer::Config, composes the class it should be. This is the function that translates: # in config.yaml template: "template_toolkit" To the class: Dancer::Template::TemplateToolkit Example: use Dancer::ModuleLoader; my $class = Dancer::ModuleLoader->class_from_setting( 'Dancer::Template' => 'template_toolkit', ); # $class == 'Dancer::Template::TemplateToolkit $class = Dancer::ModuleLoader->class_from_setting( 'Dancer::Template' => 'tiny', ); # class == 'Dancer::Template::Tiny AUTHOR
Alexis Sukrieh LICENSE AND COPYRIGHT
Copyright 2009-2010 Alexis Sukrieh. This program is free software; you can redistribute it and/or modify it under the terms of either: the GNU General Public License as published by the Free Software Foundation; or the Artistic License. See http://dev.perl.org/licenses/ for more information. perl v5.14.2 2011-11-26 Dancer::ModuleLoader(3pm)
All times are GMT -4. The time now is 04:23 AM.
Unix & Linux Forums Content Copyright 1993-2022. All Rights Reserved.
Privacy Policy