Answer Posted / venkat

#!c:\perl\bin\perl

$Count = 0;
$pt = 2;
while ( $Count < @ARGV[0] )
{
if (isPrimary($pt))
{
print "$pt\n";
$Count++;
}
$pt++;
}

sub isPrimary
{
$flag = 1;
for ($i=2; $i<=$_[0]/2; $i++)
{
if ($_[0] % $i == 0)
{
$flag = 0;
}
}
return $flag;
}

You want to open and read data files with perl. How would you do that?

837

---

Comment on array slicing and range operator

898

---

Explain different types of perl operators.

879

---

You want to download the contents of a url with perl. How would you do that?

831

---

Explain about typeglobs?

874

---

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

906

---

What is hash?

960

---

What are scalars?

938

---

What does the’$_’ symbol mean?

947

---

Is perl compiler or interpreter?

887

---

What are the various perl data types based on the context?

885

---

What does the qx{ } operator do?

856

---

Explain lists in perl?

924

---

How to remove a directory in perl?

911

---

How do I read command-line arguments with Perl?

963

---