05-20-2009
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!
10 More Discussions You Might Find Interesting
1. Shell Programming and Scripting
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
2. Shell Programming and Scripting
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
3. Shell Programming and Scripting
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
4. Shell Programming and Scripting
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
5. Shell Programming and Scripting
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
6. Shell Programming and Scripting
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
7. Shell Programming and Scripting
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
8. Shell Programming and Scripting
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
9. Shell Programming and Scripting
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
10. Programming
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
LEARN ABOUT DEBIAN
file::find::rule::perl
File::Find::Rule::Perl(3pm) User Contributed Perl Documentation File::Find::Rule::Perl(3pm)
NAME
File::Find::Rule::Perl - Common rules for searching for Perl things
SYNOPSIS
use File::Find::Rule ();
use File::Find::Rule::Perl ();
# Find all Perl files smaller than 10k
my @files = File::Find::Rule->perl_file
->size('<10Ki')
->in('dir');
# Locate all the modules that PAUSE will index
my @mod = File::Find::Rule->no_index
->perl_module
->in('My-Distribution');
DESCRIPTION
I write a lot of things that muck with Perl files. And it always annoyed me that finding "perl files" requires a moderately complex
File::Find::Rule pattern.
File::Find::Rule::Perl provides methods for finding various types Perl-related files, or replicating search queries run on a distribution
in various parts of the CPAN ecosystem.
METHODS
perl_module
The "perl_module" rule locates perl modules. That is, files that are named "*.pm".
This rule is equivalent to "->"file->name( '*.pm' )> and is included primarily for completeness.
perl_test
The "perl_test" rule locates perl test scripts. That is, files that are named "*.t".
This rule is equivalent to "->"file->name( '*.t' )> and is included primarily for completeness.
perl_installer
The "perl_installer" rule locates perl distribution installers. That is, it locates "Makefile.PL" and "Build.PL" files.
perl_script
The "perl_script" rule locates perl scripts.
This is any file that ends in .pl, or any files without extensions that have a perl "hash-bang" line.
perl_file
The "perl_file" rule locates all files containing Perl code.
This includes all the files matching the above "perl_module", "perl_test", "perl_installer" and "perl_script" rules.
no_index
# Provide the rules directly
$rule->no_index(
directory => [ 'inc', 't', 'examples' ],
file => [ 'Foo.pm', 'lib/Foo.pm' ],
);
# Provide a META.yml to use
$rule->no_index( 'META.yml' );
# Provide a dist root directory to look for a META.yml in
$rule->no_index( 'My-Distribution' );
# Automatically pick up a META.yml from the target directory
$rule->no_index->in( 'My-Distribution' );
The "no_index" method applies a set of rules as per the no_index section in a "META.yml" file.
SUPPORT
Bugs should always be submitted via the CPAN bug tracker
http://rt.cpan.org/NoAuth/ReportBug.html?Queue=File-Find-Rule-Perl <http://rt.cpan.org/NoAuth/ReportBug.html?Queue=File-Find-Rule-Perl>
For other issues, contact the maintainer
AUTHOR
Adam Kennedy <adamk@cpan.org>
SEE ALSO
<http://ali.as/>, File::Find::Rule, File::Find::Rule::PPI
COPYRIGHT
Copyright 2006 - 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.12.4 2011-10-31 File::Find::Rule::Perl(3pm)