Answer Posted / guest

# Reverse a string and check if it is palindrome

my $str = "A man, a plan, a cat, a canal – Panama!"; # a
multiple word string

@arr = split //, $str;
my $revstr;
for (0..$#arr) {
$revstr .= join (//, pop(@arr));
}
print "reversed string: $revstr\n";

my $mod_str = $str;
$mod_str =~ (s/[\W]//g);
$revstr =~ (s/[\W]//g);

print "$str is a palindrome \n" if ( lc($mod_str) eq lc
($revstr) );

Define operators used in perl?

881

---

What is qq (double q)operator in perl?

965

---

What are some common methods to all handles in perl?

886

---

Explain ivalue in perl?

909

---

how to create a flat file database as shown below s.no name age city phone 0 hema 22 Calcutta 4312542 1 hema 21 Bangalore 2344345 2 ganesh 25 delhi 2445454 3 kartik 45 pune 4312121 4 santosh 25 Hyderabad 2254231 5 kumar 25 mysore 2344567 6 gita 34 mangalore 6532123 7 gita 32 pune 2213456 Q1.print the details of the person who r from bangalore q2.Replace the city name managlore to pune q3.prints no of person having name gita and hema q4.print how many are of age 25.

2014

---

What is the main function of cookie server?

1002

---

You want to empty an array. How would you do that?

846

---

What is 'commit' command in perl?

1036

---

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

941

---

What is 'rollback' command in perl?

901

---

What are the various uses of perl?

950

---

What $! In perl?

907

---

Why should I use the -w argument with my Perl programs?

914

---

What is cpan in perl?

900

---

Which has the highest precedence, List or Terms? Explain?

849

---