How can you create an object of a class in a package?
Answers were Sorted based on User's Feedback
Answer / sh faisal
package Test;
sub new
{
$class = shift;
$self = {};
bless $self,$class; # By Mistake earlier i wrote it as
#$ref
return $self;
}
1;
# In perl Script
use Test; # Include the module you have created
$obj=new Test; # creating an onject of Class Test
Is This Answer Correct ? | 4 Yes | 0 No |
Answer / vipul dalwala
Say Pachage is My Package
package MyPackage;
sub method() {
}
Then U can create Object
$myobject = new MyPackage();
and u can call any method of object like:
$myobject->method();
Is This Answer Correct ? | 3 Yes | 1 No |
Answer / bhagwat gupta
--Like you do in any perl programme.
package PackageName;
use RelativePath::ModuleName;# The Class as per your questn
...
...
my $object = ModuleName->new();
...
...
1;
Is This Answer Correct ? | 0 Yes | 1 No |
Answer / shah faisal
package Test;
sub new
{
$class = shift;
$self = {};
bless $ref,$class;
return $ref;
}
1;
# In perl Script
use Test; # Include the module you have created
$obj=new Test; # creating an onject of Class Test
Is This Answer Correct ? | 2 Yes | 3 No |
How to read file into hash array ?
Explain '->' in perl?
What does this symbol mean '->'?
Consider the following example #! /bin/perl use strict; sub sample { my @arr=(1,2,3,4); return @arr; } my ($a,$b,$c,$d) = &sample; print "$a\n$b\n$c\n$d\n"; In the above code, How can I get the $c without using the arguments such as $a,$b. I don't want to use any array to get the return values.
How to convert strings into an array in perl?
Explain splicing of arrays?
while(my($key, $value) = each(%hash) ) { print "$key => $value\n"; } my($key, $value); while(($key, $value) = each(%hash) ) { print "$key => $value\n"; } What is the different between these two code in case of "my" usage ?
How many types of operators are used in the Perl?
Which functions in perl allows you to include a module file. State their differences.
How can memory be managed in Perl?
What are hashes?
How to merge two arrays in perl?