|
|
Sponsored Content
Top Forums
Shell Programming and Scripting
Perl report problem...
Post 302211094 by radoulov on Wednesday 2nd of July 2008 04:47:46 PM
07-02-2008
Quote:
In the perl script I'm using "#!/usr/bin/perl" in the first line. Is it required to write perl in your first line *perl -F';' -lane'* ?
and your program invokes the perl interpreter without any switches
you should leave it as it is and use something like this:
Code:
#!/usr/bin/perl
# you should always use these in a script
use warnings;
use strict;
# your existing code here
{
my $path = defined $ENV{'prereq_dir'}?$ENV{'prereq_dir'}.'/REPORTS/file':'./file';
my ($ext, $outfile, %data, @flds) = ('.csv', 'output.csv');
while (<$path*$ext>) {
open IN, $_ or warn "Error openning $_: $!\n" and next;
while (<IN>) {
@flds[1,2] = split ';';
$data{$flds[1]} += $flds[2];
}
close IN;
}
open OUT, '>', $outfile;
print OUT map {"$_;$data{$_}\n"} sort keys %data;
}
# other code if anyQuote:
As you know I'm not an advanced perl programmer ...
Quote:
[...]could you please explain your code? i.e, what is the meaning of *' -lane'* and where is the output file name etc...
Last edited by radoulov; 07-03-2008 at 02:42 AM..
|
|
9 More Discussions You Might Find Interesting
1. Shell Programming and Scripting
Hi all,
I'm trying in vain to workout how I can generate a report from a months worth of files that get created every day. There is one file per day and each daily file contain the output from a df -v command.
With the following section of code ...
for xdffile in $1$2/df??
do
... (4 Replies)
Discussion started by: Cameron
4 Replies
2. Shell Programming and Scripting
I have been recently given a PERL script to develop, but the main problem is that the perl version that I have to use is old, also I cant download modules from CPAN.
Perl version 5.0005
I didnt realise this untill I had the script ready to be tested, so there are a few modules that I have... (6 Replies)
Discussion started by: meevagh
6 Replies
3. Shell Programming and Scripting
hi,
i have a script that coverts the file time in epoch time.but the problem is perl is not working inside the k-shell
----------------------------------------------------------------
#!/bin/ksh
echo "Enter the file"
read n
perl -e 'print ((stat("n")))'... (6 Replies)
Discussion started by: ali560045
6 Replies
4. Programming
I am trying to run the following script which is a file format converter. The frame variable in the input file has a file of 3,2,1 which needs to be 0,1,2 respectively i.e. 3 =0 etc.
I have included the tr/// function into the script to do this, however it does not seem to be working
input its... (2 Replies)
Discussion started by: fordie
2 Replies
5. Shell Programming and Scripting
Hi all,
we do have daily oracle database backups and i need to generate report of each database start point and end point
we are using netapp snapshot(filer level) for backups.
all backups logs will be come in one directory
/u01/app/oracle/backup/hostname/log/*
here... (7 Replies)
Discussion started by: prakashdba2010
7 Replies
6. Shell Programming and Scripting
Hello everyone,
I have a list of inputs as below. My logic is to get the particular powerdisk which matches for ASM disk which means take the major & minor number of each asm disk and matches with powerdisk info then get the particular powerdisk
$ ls -l /dev/asm_* ---> ASM disk info... (11 Replies)
Discussion started by: kannan84
11 Replies
7. Web Development
Can anyone tell me how to export a variable from one perl CGI script to another perl cgi script when using a redirect.
Upon running the login.pl the user is prompted to enter user name and password. Upon entering the correct credentials (admin/admin) the user is
redirected to welcome page.
My... (3 Replies)
Discussion started by: Arun_Linux
3 Replies
8. Shell Programming and Scripting
Hello,
I have a large amount of data with the following structure:
Word=Transliterated word
I have written a Perl Script (reproduced below) which goes through the full file and identifies all dupes on the right hand side. It creates successfully a new file with two headers: Singletons and Dupes.... (5 Replies)
Discussion started by: gimley
5 Replies
9. Shell Programming and Scripting
Hi,
I have a perl script to read the log file and create a report from it. I have the script file and log file in a different directories. Now i have pipe the log file data to the perl script to create the report (HMTL file). I am using the below command this isn't working
tail -f... (4 Replies)
Discussion started by: vel4ever
4 Replies
LEARN ABOUT CENTOS
ppi::token::quotelike
PPI::Token::QuoteLike(3) User Contributed Perl Documentation PPI::Token::QuoteLike(3) NAME
PPI::Token::QuoteLike - Quote-like operator abstract base class INHERITANCE
PPI::Token::QuoteLike isa PPI::Token isa PPI::Element DESCRIPTION
The "PPI::Token::QuoteLike" class is never instantiated, and simply provides a common abstract base class for the five quote-like operator classes. In PPI, a "quote-like" is the set of quote-like things that exclude the string quotes and regular expressions. The subclasses of "PPI::Token::QuoteLike" are: qw{} - PPI::Token::QuoteLike::Words `` - PPI::Token::QuoteLike::Backtick qx{} - PPI::Token::QuoteLike::Command qr// - PPI::Token::QuoteLike::Regexp <FOO> - PPI::Token::QuoteLike::Readline The names are hopefully obvious enough not to have to explain what each class is. See their pages for more details. You may note that the backtick and command quote-like are treated separately, even though they do the same thing. This is intentional, as the inherit from and are processed by two different parts of the PPI's quote engine. SUPPORT
See the support section in the main module. AUTHOR
Adam Kennedy <adamk@cpan.org> COPYRIGHT
Copyright 2001 - 2011 Adam Kennedy. This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself. The full text of the license can be found in the LICENSE file included with this module. perl v5.16.3 2011-02-26 PPI::Token::QuoteLike(3)