Answer Posted / rajendran

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

What is the peculiarity of returning values by subroutines in perl?

871

---

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,

2633

---

What does read () command do?

890

---

What are perl array functions?

1036

---

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

868

---

Define perl scripting?

949

---

Can inheritance be used in perl?

945

---

How to prevent file truncation in perl?

959

---

Is perl a case sensitive language?

1069

---

How will you create a file in perl?

943

---

What is perl I used for?

927

---

Explain regular expression in perl?

912

---

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

934

---

What is a chomp() function in perl?

980

---

Explain ivalue in perl?

929

---