Answer Posted / santha

$testnumber='34535sssss24';
$numbercount=0;
while($testnumber=~m{\d}igs)
{
$numbercount++;
}
print "\n $numbercount";

When would `local $_' in a function ruin your day?

944

---

Remove the duplicate data from @array=(“perl”,”php”,”perl”,”asp”)

988

---

For a situation in programming, how can you determine that Perl is a suitable?

874

---

What is the purpose of goto expr statement?

906

---

Suppose an array contains @arraycontent=(‘ab’, ‘cd’, ‘ef’, ‘gh’). How to print all the contents of the given array?

958

---

What is warn function in perl?

944

---

Explain tk?

977

---

What are some of the key features of objects in perl?

934

---

What are stdin, stdout and stderr?

1093

---

What is hash?

1046

---

Explain USE and REQUIREMENT statements?

916

---

How do you turn on the perl warnings?

912

---

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,

2668

---

Explain different types of perl operators.

923

---

How do I read command-line arguments with Perl?

1009

---