12-13-2012
It worked!!!
Thanks Guru.. It worked
10 More Discussions You Might Find Interesting
1. Shell Programming and Scripting
Hello guys/gals,
i am sorry as this is probably very simply but i am slowly learning perl and need to convert some old korn shell scripts.
I need to be able to search a file line by line but only match a string at particular location on that line, for example character 20-30. So my file... (4 Replies)
Discussion started by: dynamox
4 Replies
2. Shell Programming and Scripting
Hi All
I want to search a string from an array in Perl. If a match occurs, assign that string to a variable else assign 'No match'. I tried writing the script as follows but it's in vain. Please help me..
#!/usr/bin/perl
use strict;
my $NER;
my @text=("ORG","PER");
... (4 Replies)
Discussion started by: my_Perl
4 Replies
3. Shell Programming and Scripting
Hi All
I have a file of format
asdf
asf
first
sec
endi
asdk
rt
123
ferf
dfg
ijglkp (7 Replies)
Discussion started by: mailabdulbari
7 Replies
4. Shell Programming and Scripting
Hi,
I have a file having around 30 records. Each record has 5 fields delimited by PIPE. Few records in the file having Junk characters in the field2 and field4.
I found the junk charcter and I tested it and replace the junk with space with the command below
perl -i -p -e "s/\x00/ /g"... (1 Reply)
Discussion started by: ramkrix
1 Replies
5. Shell Programming and Scripting
Hi,
I am using KSH shell to do some programming.
I want to search array and print index value of the array.
Example..
nodeval4workflow="DESCRIPTION ="" ISENABLED ="YES" ISVALID ="YES" NAME="TESTVALIDATION"
set -A strwfVar $nodeval4workflow
strwfVar=DESCRIPTION=""... (1 Reply)
Discussion started by: tmalik79
1 Replies
6. Shell Programming and Scripting
How to reverse search for a matched string in a file. Get line# of the first matched line. I am getting '2' into 'lineNum' variable.
But it feels like I am using too many commands. Is there a better more efficiant way to do this on Unix?
abc.log
aaaaaaaaaaaaa
bbbbbbbbbbbbb... (11 Replies)
Discussion started by: kchinnam
11 Replies
7. UNIX and Linux Applications
Hi,
I want the Perl script with versions 5.8.2 and 5.8.5 starting with
#!/usr/bin/perl
The Perl program should read the excel file or text file line by line and taking into an array and search in the UNIX directories for reference file of .jsp or .js or .xsl with path .The Object names... (2 Replies)
Discussion started by: pasam
2 Replies
8. UNIX for Advanced & Expert Users
Hi,
i want to search and replace array values by using perl
perl -pi -e "s/${d$i]}/${b$j]}" *.xml
i am using while loop for the same. if i excute this,it shows "Substitution replacement not terminated at -e line 1.".
please tell me what's wrong this line (1 Reply)
Discussion started by: arindam guha
1 Replies
9. UNIX for Dummies Questions & Answers
I'm trying to find a way to search a range of similar words in a file. I tried using sed but can't get it right:sed 's/\(ca01\)*//'It only removes "ca01" but leaves the rest of the word. I still want the rest of the information on the lines just not these specific words listed below. Any... (3 Replies)
Discussion started by: seekryts15
3 Replies
10. UNIX for Beginners Questions & Answers
How to grep for searching a string within a begin and end pattern of a file.
Sent from my Redmi 3S using Tapatalk (8 Replies)
Discussion started by: Baishali
8 Replies
LEARN ABOUT SUSE
pdl::pod::usage
Usage(3) User Contributed Perl Documentation Usage(3)
NAME
pod2usage - print a usage message using a script's embedded pod documentation
SYNOPSIS
use PDL::Pod::Usage;
pod2usage();
pod2usage(2);
pod2usage({EXIT => 2});
pod2usage({EXIT => 2, VERBOSE => 0});
pod2usage(EXIT => 1, VERBOSE => 2, OUTPUT=*STDERR);
pod2usage(VERBOSE => 2);
DESCRIPTION
pod2usage will print a usage message for the invoking script (using its embedded pod documentation) and then exit the script with the
specified exit value. It takes a single argument which is either a numeric value corresponding to the desired exit status (which defaults
to 2), or a reference to a hash. If more than one argument is given then the entire argument list is assumed to be a hash. If a hash is
supplied it should contain elements with one or more of the following keys:
"EXIT"
The desired exit status to pass to the exit() function.
"VERBOSE"
The desired level of "verboseness" to use when printing the usage message. If the corresponding value is 0, then only the "SYNOPSIS"
section of the pod documentation is printed. If the corresponding value is 1, then the "SYNOPSIS" section, along with any section
entitled "OPTIONS", "ARGUMENTS", or "OPTIONS AND ARGUMENTS" is printed. If the corresponding value is 2 or more then the entire
manpage is printed.
"OUTPUT"
A reference to a filehandle, or the pathname of a file to which the usage message should be written. The default is "*STDERR" unless
the exit value is less than 2 (in which case the default is "*STDOUT").
"INPUT"
A reference to a filehandle, or the pathname of a file from which the invoking script's pod documentation should be read. It defaults
to the file indicated by $0 ($PROGRAM_NAME for "use English;" users).
If neither the exit value nor the verbose level is specified, then the default is to use an exit value of 2 with a verbose level of 0.
If an exit value is specified but the verbose level is not, then the verbose level will default to 1 if the exit value is less than 2 and
will default to 0 otherwise.
If a verbose level is specified but an exit value is not, then the exit value will default to 2 if the verbose level is 0 and will default
to 1 otherwise.
EXAMPLE
Most scripts should print some type of usage message to STDERR when a command line syntax error is detected. They should also provide an
option (usually "-h" or "-help") to print a (possibly more verbose) usage message to STDOUT. Some scripts may even wish to go so far as to
provide a means of printing their complete documentation to STDOUT (perhaps by allowing a "-man" option). The following example uses
pod2usage in combination with Getopt::Long to do all of these things:
use PDL::Pod::Usage;
use Getopt::Long;
GetOptions("help", "man") || pod2usage(2);
pod2usage(1) if ($opt_help);
pod2usage(VERBOSE => 2) if ($opt_man);
CAVEATS
By default, pod2usage() will use $0 as the path to the pod input file. Unfortunately, not all systems on which Perl runs will set $0
properly (although if $0 isn't found, pod2usage() will search $ENV{PATH}). If this is the case for your system, you may need to explicitly
specify the path to the pod docs for the invoking script using something similar to the following:
o "pod2usage(EXIT => 2, INPUT => "/path/to/your/pod/docs");"
AUTHOR
Brad Appleton <Brad_Appleton-GBDA001@email.mot.com>
Based on code for Pod::Text::pod2text() written by Tom Christiansen <tchrist@mox.perl.com>
perl v5.12.1 2009-10-17 Usage(3)