Answer Posted / anandan

#!/usr/bin/perl -w

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

Write a program to decode the data in the form using cgi programming

1054

---

what are the steps involved in reading a cgi script on the server?

948

---

How to read a directory in perl?

1045

---

Explain a tell function in perl?

975

---

Explain the arguments for perl interpreter.

1259

---

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

1009

---

“Perl regular expressions match the longest string possible”. What is the name of this match?

947

---

What are stdin, stdout and stderr?

1127

---

What are prefix dereferencer?

934

---

What is a chop() function in perl?

1022

---

What are the advantages and disadvantages of perl language?

919

---

Can you add two arrays together?

942

---

How to code in perl to implement the tail function in unix?

946

---

what are prefix dereferencer and list them out?

1044

---

What is 'rollback' command in perl?

964

---