I have a perl script I am trying to modify and I cannot seem to get it to do right. I want it if the -l is ran with the script to cat the given file and then exit.
Code:
my ( $help, $version, $list );
my $query = 0;
my $default = '';
GetOptions(
'd|default=s' => \$default,
'q|query=s' => \$query,
'v|version' => \$version,
'h|help|?' => \$help,
'l|list' => \$list
) or pod2usage( 2 );
pod2usage( 1 ) if $help;
if ( $version ) {
$VERSION =~ s/\$//g;
print "$basenm $VERSION\n";
exit( 0 );
}
pod2usage( 1 ) if ( !$query );
if ( $list ) {
my $catcon = "/app/share/ecctools/etc/sysconfig/ecc-config.xml";
open($catcon);
print $catcon;
close($catcon);
exit ( 0 );
}
The other options work fine with the rest of the script, but I can't get the -l listing to work and cat the file and exit
Hi All,
I have problem catting file and delete file
cat /tmp/file1
13 21:27:01
cat /tmp/file2
12 12:17:32
cat /tmp/file3
13 19:57:14
etc.. fileXX
so what is command shell for find word "12:17:32" in three file or etc files
Thx.
car (4 Replies)
Hi ,
I'm not so new to linux but very very rusty. Trying to migrate my solar / wind power web server from Windows XP runnning apache to linux. I have the first part of the ftp down as you can see below. I'm having a problem once I have identified the daily file. I'm not being very clear with my... (3 Replies)
cat can't show the last line of a file sftp transffered from Windows, because the last line is not ended with new line.
Vi can show all line with warning
I can append blank line in order for cat to show all lines, But is there a command to do this without modifying the file?
> cat -A... (3 Replies)
Hi,
I'm trying to auto generate some php files with a default preamble at the top which is a block comment.
The problem is that my output has no new lines and it looks like the output from "ls" is being printed after everyline
This is my code
#!/bin/bash
read -d '' pre_amble... (1 Reply)
hi people,
i'm having a hard time trying to extract a list of vars delimited by section inside a ini file ...
let's consider this ini file :
; config file
DESC = "channel synchro TGG01"
DMM_VER = DMM23
PATH_FIFO = /users/tgg00/fifo
QRT = BTS01.TGG.01.2
MODE_TRACE... (5 Replies)
Hi guys,
I have to filter out certain patterns from a log file (arerror.log, for those who know BMC Remedy). The problem is that the file is big, too big to be read properly. Filters aren't working properly on the file, and neither the entire contents are visible using more, or vi.
I FTP'd it to... (9 Replies)
I have modified the CUPS file - (deleted the Pause Printer part ) and now I cannot access anything under localhost:631, or printer settings through System preferences. They just keep freezing and there is no way I can get back to edit the config file. Any suggestions?
thank you... (2 Replies)
Hi ,
i have a parameter which has path of a file. Now i need to have another parameter with the content of that file. I tried the belwo script , can any one please help.
I dont want to use cat command to read. Can we do it with out using cat command.
while read line
do... (9 Replies)
Use and complete the template provided. The entire template must be completed. If you don't, your post may be deleted!
1. The problem statement, all variables and given/known data:
You will create a shell script that performs the following action:
Use a parameter to pass a file that... (5 Replies)
Hi Folks -
I have a script I am executing that I wish to archive the output(logfile) file once the script is done executing to a folder based on the following date format:
YYYYMM
For this example purpose, I am performing a simple MKDIR. The script works fine, but the archiving is the... (7 Replies)
Discussion started by: SIMMS7400
7 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)