Perl issue - please help!


 
Thread Tools Search this Thread
Top Forums Shell Programming and Scripting Perl issue - please help!
# 8  
Old 05-21-2009
Quote:
Originally Posted by akreibich07
Hey thanks guys. KevinADC, I just tried your code and it worked great, but could you put up what exactly you were thinking when you put it together. Just wanted to know as a learning experience. I understand a large majority of it, but a full description would be great. Thanks!
The code I posted is very simple if you know what a label is (OUTTER and INNER in the code I posted). If the code finds the first pattern it enters the inner "while" and searches each line until it finds the second pattern, if it does it pushes it into the array and then starts again in the outter loop (next OUTTER).

Its very similar to what ghostdog posted using a binary flag ($f) but they way I did it is "flagless".
Login or Register to Ask a Question

Previous Thread | Next Thread

10 More Discussions You Might Find Interesting

1. Programming

Perl - EMail issue - NEED Help

I have a perl that is sending emails in a bad format: "begin 644 Included.doc M*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ M*BHJ*BHJ*BHJ*BH*4U5#0T534T953"!-1$XG<R!F;W(@07)C:&EV92!022`M M($-A;F-E;`HJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ... (1 Reply)
Discussion started by: mrn6430
1 Replies

2. Shell Programming and Scripting

Out of memory issue in perl

I am getting a out of memory issue while executing the perl program. Per version : /opt/acc_perl/lib/site_perl/5.14.2 Read in 54973 total records Read in 54973 table records from table. Out of memory! so the job get failed due to out of memory. need to get rid of the out of memory... (3 Replies)
Discussion started by: ramkumar15
3 Replies

3. Shell Programming and Scripting

Perl format issue

Input : day :15 and count -100 printf ("%6.6ld %10.10s %s\n",day,count) any idea what would be the format it will be. (3 Replies)
Discussion started by: ramkumar15
3 Replies

4. Shell Programming and Scripting

PERL - issue with OPEN

Hi, I have a menu script written in PERL which calls some shell scripts and displays the return. I'm having a problem with OPEN. A section of the code is below: `./scriptlist.ksh 1`; open OUTPUT, "</home/$SCRIPTUSER/output"; { local $/ = undef; $_ =... (2 Replies)
Discussion started by: chris01010
2 Replies

5. Shell Programming and Scripting

perl command issue

Hi, Please could someone advise on a perl command : export ENVPROP="$HOME/cfg/environment.properties.template" export LM_LICENSE=`awk -F= '!/^#/ && /LM_LICENSE/{print $2}' environment.properties` echo $LM_LICENSE $DATA_FILE/licenses/sample.demo.lic perl -i -npe... (1 Reply)
Discussion started by: venhart
1 Replies

6. Shell Programming and Scripting

wc -l command issue with perl

Hi Team, the Following program execute with out error but the out is not save with create2.txt. kindly help me!!! print "Enter your Number \n"; my $name = <STDIN>; if ($name =="*91111*") { @dirlist1 = `wc -l $name > create2.txt`; } else {print "do not match";} (3 Replies)
Discussion started by: adaleru
3 Replies

7. Shell Programming and Scripting

Perl Issue

Hi, I got this script from the web, this generates an LDAP report in CSV format. #!/usr/bin/perl # # Copyright (c) 2004 # Ali Onur Cinar &060;cinar&064;zdo.com&062; # # License: # # Permission to use, copy, modify, and distribute this software and its # documentation for... (23 Replies)
Discussion started by: raj001
23 Replies

8. Shell Programming and Scripting

Perl Script Issue - Please Help * Thanks!!!

Please help me with my script please. I am trying to do the following: 1. Read files for the current directory 2. Open and read from nbe files files only 3. Read only the lines with the results pattern 4. Split the line and print 3rd field Please indicate what line I need to modify. ... (8 Replies)
Discussion started by: jroberson
8 Replies

9. Shell Programming and Scripting

perl issue ..

hi one perl issue i have xml file with 2 values and one condition b.w them <rule> <val1>12</val1> <cond>and</cond> <val2>13</val2> </rule> i read these values in hash in perl code $one{val1} = 12 $one{cond} = and $one{val2} = 13 now i want to form... (3 Replies)
Discussion started by: zedex
3 Replies

10. Shell Programming and Scripting

issue with if loop in perl

Hi I have a log file, I am having problem with "if else" loop in my perl script which does, find a string in that file ,If that string is found append to success.txt else append it to failed.txt. problem is: else part of loop it is not working I am adding problem part of the script. ... (4 Replies)
Discussion started by: amitrajvarma
4 Replies
Login or Register to Ask a Question
Pod::Tree::PerlTop(3pm) 				User Contributed Perl Documentation				   Pod::Tree::PerlTop(3pm)

NAME
Pod::Tree::PerlTop - generate a top-level index for Perl PODs SYNOPSIS
$perl_map = new Pod::Tree::PerlMap; $perl_top = new Pod::Tree::PerlTop $perl_dir, $HTML_dir, $perl_map, %opts; $perl_top->index(@translators); $perl_top->translate; $top = $perl_top->get_top_entry; DESCRIPTION
"Pod::Tree::PerlTop" generates a top-level index for Perl PODs. It also translates perl.pod to perl.html The translator is specially hacked to insert links into the big verbatim paragraph that lists all the other Perl PODs. METHODS
$perl_top = "new" "Pod::Tree::PerlTop" $perl_dir, $HTML_dir, $perl_map, %options Creates and returns a new "Pod::Tree::PerlTop" object. $perl_dir is the root of the Perl source tree. $HTML_dir is the directory where HTML files will be written. $perl_map maps POD names to URLs. "Pod::Tree::PerlTop" uses it to resolve links in the perl.pod page. %options are passed through to "Pod::Tree::HTML". $perl_top->"index"(@translators) Generates a top-level index of all the PODs. The index is written to HTML_dir"/index.html". @translators is a list of other "Pod::Tree::Perl*" translator objects. "index" makes a "get_top_entry" call on each of them to obtain URLs and descriptions of the pages that it links to. $perl_top->"translate" Translates the perl.pod file to HTML. The HTML page is written to HTML_dir"/pod/perl.html" $perl_top->"get_top_entry" Returns a hash reference of the form { URL => $URL, description => $description } "Pod::Tree::PerlTop" uses this to build a top-level index of all the Perl PODs. REQUIRES
5.005; Pod::Tree::HTML; Pod::Tree::PerlUtil; EXPORTS
Nothing. SEE ALSO
"Pod::Tree::HTML", "Pod::Tree::PerlMap", AUTHOR
Steven McDougall, swmcd@world.std.com COPYRIGHT
Copyright (c) 2000 by Steven McDougall. This module is free software; you can redistribute it and/or modify it under the same terms as Perl. perl v5.10.1 2006-04-17 Pod::Tree::PerlTop(3pm)