Answer Posted / anandan

#!/usr/bin/perl -w

use strict;
my($test,$number) = ("","");
@test = "12344tyyyyy456";
foreach(@test)
{
if ($_ =~ /\d/)
{$number++;
}
}
print $number;

What are the benefits of perl in using it as a web-based application?

837

---

What is use of ‘->’ symbol?

946

---

Explain about the applications of perl?

913

---

Explain perl. What are the advantages of programming in perl?

967

---

How can I implement the function overloading in Perl ? I read about the operator overloading, I do not know how to implement the function overloading. Thanks in advance ?

2855

---

Differences between die and exit.

944

---

How do you turn on the perl warnings?

857

---

What is the difference between single (') and double (") quote in a string in perl?

903

---

How does a “grep” function perform?

965

---

Explain gmtime() function in perl?

911

---

How we can navigate the xml documents?

934

---

What are the advantages of perl programming?

941

---

Explain the functioning of conditional structures in perl.

875

---

Explain the difference between die and exit in perl?

819

---

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,

2621

---