Answer Posted / 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

what is perl language?

930

---

What is the easiest way to download the contents of a URL with Perl?

954

---

What is the main function of cookie server?

1084

---

I have one question regarding to eval function. I know eval function is use for error checking but I am not able to understand below line. eval \'exec perl -S $0 ${1+\"$@\"}\' if 0; $0 for script name $@ set if error occur

2040

---

What are perl strings?

887

---

Explain subroutine?

920

---

You want to connect to sql server through perl. How would you do that?

930

---

What is the usage of -i and 0s options?

987

---

Explain '->' in perl?

929

---

How would you ensure the re-use and maximum readability of your perl code?

938

---

Which has highest precedence in between list and terms? Explain?

867

---

What does `$result = f() .. g()' really return?

1199

---

package MYCALC; use Exporter; our @EXPORT = (); our @ISA = qw(Exporter); our @EXPORT_OK = qw(addition multi); our %EXPORT_TAGS = (DEFAULT => [qw(&addition)],Both => [qw(&addition & +multi)]); sub addition { return $_[0] + $_[1]; } sub multi { return $_[0] * $_[1]; } 1; Program: use strict; use warnings; my @list = qw (2 2); use Module qw(:DEFAULT); print addition(@list),"\n"; Above coding is my module MYCALC and the program which using this module, I have not exported any function using @EXPORT, but I have used the DEFAULT in %EXPORT_TAGS with the function addition, when I call this function from the main it says the error as,

2683

---

Which functions in perl allows you to include a module file. State their differences.

946

---

How to close a directory in perl?

929

---