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 DEBIAN
padre::document::perl::starter
Padre::Document::Perl::Starter(3pm) User Contributed Perl Documentation Padre::Document::Perl::Starter(3pm)NAME
Padre::Document::Perl::Starter - Starter module for Perl 5 documents
DESCRIPTION
Padre::Document::Perl::Starter provides support for generating Perl 5 documents and projects of various types.
METHODS
new
my $starter = Padre::Document::Perl::Starter->new($main);
The "new" constructor creates a new code generator, taking the main window object as a parameter.
main
The "main" accessor returns the main window object.
current
The "current" accessor returns a "Padre::Current" object for the current context.
create_script
$starter->create_script;
Create a new blank Perl 5 script, applying the user's style preferences if possible.
create_module
$starter->create_module( module => $package );
Create a new empty Perl 5 module, applying the user's style preferences if possible. If passed a package name, that module will be created.
If no package name is provided, the user will be asked for the name to use.
create_test
$starter->create_test;
Create a new empty Perl 5 test, applying the user's style preferences if possible.
COPYRIGHT & LICENSE
Copyright 2008-2012 The Padre development team as listed in Padre.pm.
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.14.2 2012-06-27 Padre::Document::Perl::Starter(3pm)