Answer Posted / ananth_s

#!usr/bin/perl
use strict;
use warnings;
my $string="XmanXseriesx";
my $count = ($string =~ tr/X//);
print "There are $count Xs in the string\n";
print $string;

Explain goto label?

906

---

How to turn on Perl warnings? Why is that important?

1050

---

What is the use of strict?

908

---

what is the function of Return Value?

1053

---

How many types of operators are used in the Perl?

1023

---

How do you match one letter in the current locale?

1004

---

How to find the length of an array in perl?

1006

---

Can inheritance be used in perl?

971

---

Give an example of using the -n and -p option.

985

---

Explain tk?

970

---

Why we use CGI?

2525

---

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,

2663

---

Why to use perl scripting?

981

---

List all the features of perl programming?

887

---

There are two types of eval statements i.e. Eval expr and eval block. Explain them.

1002

---