That is evaluating 'a' =>shift,'b'=>shift,'c'=>shift in list context, storing it in an anonymous hash, and returning a reference to this hash (through the anonymous hash composer/constructor {}) to be assigned later to the scalar variable $this.
=> is just a fancy comma. The 3 shifts get the arguments passed to the class' constructor new in that order. That is, first argument will be associated with key a, second with key b, and so on. If no arguments are passed to the constructor (apart from the default class name or object reference, if invoked as a method), the corresponding keys' values will be undef.
By the way, your Perl skills are less than wonderful. There are a lot of questionable/wrong things in your code. E.g., returning 1 in the module file at the wrong place, multiple lexical declarations with the same symbol and type in the same lexical scope, etc.
All
Please help me to call url in Perl. Ex:
http://www.test.com/dynf?urn=123
Assume it will return success if 123 is in urn or it will return " failed".
I want store this return type in a variable.
Please help me to call the URL through PERL.
Thanx in advance
Regards
Deepak (1 Reply)
Hi all,
Not sure if this is the right forum to post query regarding perl script.
I have a perl script which internally calls a shell script. My problem is that the shell script should be passed command line arguments.
I call a shell script from perl using:
system("sript.sh");
How do... (3 Replies)
Hi,
I would like to invoke "Winzip" utility from a perl script, input the name of zip file and provide output path for unzipped files. Any pointers will be appreciated.
Thanks (5 Replies)
Hi,
I am trying to execute a perl script from c program.
I tried using system command.
system("perl test.pl filename") ;
This perl program takes filename as input and prints a number
to screen.
I need to get that returned number in C program.
system command is... (3 Replies)
Hi ,
Here is my piece of code--
main();
sub main
{
$result = GetOptions ("LogDir=s" => \$LogDir,
"Summary" => \$Summary,
"Indiviual=s" => \$Individual ,
"Diagnostics=s" => \$Diagnostics,
... (1 Reply)
On bash I run precompiled c Program as follows:
./create_cust 1 10000 US S > us_cust.csv
create_cust is a c program and requires 4 parameters.
I am redirecting the output of this program to csv file
I need to run this same program in perl
I am aware of exec command though not... (7 Replies)
hi all,
I have 3 perl scripts a.pl,b.pl and c.pl
each of these work when i pass a date for eg: perl c.pl 2010-05-27
now i want to write a perl script that would call the 3 scripts and make it run all the 3 scripts (a.pl,b.pl,c.pl) parallelly rather than 1 after the other.......
pls... (2 Replies)
All,
Is it possible to call a subroutine from the perl expect module after logging to a system that is within the same program. My situation is I need to run a logic inside a machine that I'm logging in using the expect module, the logic is also available in the same expect program.
Thanks,... (5 Replies)
Can anyone break down the different methods of using SSH in perl? I'm currently using Net::SSH::Expect, which allows me to login to a machine and execute multiple commands without having to ssh again. This feature of holding the session works well for me, but it's slow. If I set timeouts to 4... (3 Replies)
Note: Not a programmer by profession but occasionally have to program.
I am looking for general methods and freely/readily available tools employed to debug problems during development of perl scripts. Anything that has really helped you out with problems you just couldn't find.
A couple of... (5 Replies)
Discussion started by: Vi-Curious
5 Replies
LEARN ABOUT CENTOS
template::base
Template::Base(3) User Contributed Perl Documentation Template::Base(3)NAME
Template::Base - Base class module implementing common functionality
SYNOPSIS
package My::Module;
use base qw( Template::Base );
sub _init {
my ($self, $config) = @_;
$self->{ doodah } = $config->{ doodah }
|| return $self->error("No 'doodah' specified");
return $self;
}
package main;
my $object = My::Module->new({ doodah => 'foobar' })
|| die My::Module->error();
DESCRIPTION
Base class module which implements a constructor and error reporting functionality for various Template Toolkit modules.
PUBLIC METHODS
new(\%config)
Constructor method which accepts a reference to a hash array or a list of "name => value" parameters which are folded into a hash. The
"_init()" method is then called, passing the configuration hash and should return true/false to indicate success or failure. A new object
reference is returned, or undef on error. Any error message raised can be examined via the error() class method or directly via the $ERROR
package variable in the derived class.
my $module = My::Module->new({ ... })
|| die My::Module->error(), "
";
my $module = My::Module->new({ ... })
|| die "constructor error: $My::Module::ERROR
";
error($msg, ...)
May be called as an object method to get/set the internal "_ERROR" member or as a class method to get/set the $ERROR variable in the
derived class's package.
my $module = My::Module->new({ ... })
|| die My::Module->error(), "
";
$module->do_something()
|| die $module->error(), "
";
When called with parameters (multiple params are concatenated), this method will set the relevant variable and return undef. This is most
often used within object methods to report errors to the caller.
package My::Module;
sub foobar {
my $self = shift;
# some other code...
return $self->error('some kind of error...')
if $some_condition;
}
debug($msg, ...)
Generates a debugging message by concatenating all arguments passed into a string and printing it to "STDERR". A prefix is added to
indicate the module of the caller.
package My::Module;
sub foobar {
my $self = shift;
$self->debug('called foobar()');
# some other code...
}
When the "foobar()" method is called, the following message is sent to "STDERR":
[My::Module] called foobar()
Objects can set an internal "DEBUG" value which the "debug()" method will examine. If this value sets the relevant bits to indicate
"DEBUG_CALLER" then the file and line number of the caller will be appened to the message.
use Template::Constants qw( :debug );
my $module = My::Module->new({
DEBUG => DEBUG_SERVICE | DEBUG_CONTEXT | DEBUG_CALLER,
});
$module->foobar();
This generates an error message such as:
[My::Module] called foobar() at My/Module.pm line 6
module_version()
Returns the version number for a module, as defined by the $VERSION package variable.
AUTHOR
Andy Wardley <abw@wardley.org> <http://wardley.org/>
COPYRIGHT
Copyright (C) 1996-2007 Andy Wardley. All Rights Reserved.
This module is free software; you can redistribute it and/or modify it under the same terms as Perl itself.
SEE ALSO
Template
perl v5.16.3 2011-12-20 Template::Base(3)