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 |
Write a cgi program to show the header part?
What are scalars in perl?
you are required to replace a char in a string and store the number of replacements. How would you do that?
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 ?
Explain the meaning of subroutine?
How to deleting an existing file in perl programming?
what is the function of Return Value?
What rules must be followed by modules in perl.
Show the use of sockets for the server and client side of a conversation?
How to turn on Perl warnings? Why is that important?
Comment on data types and variables in perl.
Explain socket programming in perl?