Write a script to generate n prime no.s?
Submitted by: Administrator#!c:perlbinperl
$Count = 0;
$pt = 2;
while ( $Count < @ARGV[0] )
{
if (isPrimary($pt))
{
print "$ptn";
$Count++;
}
$pt++;
}
sub isPrimary
{
$flag = 1;
for ($i=2; $i<=$_[0]/2; $i++)
{
if ($_[0] % $i == 0)
{
$flag = 0;
}
}
return $flag;
}
Submitted by: Administrator
$Count = 0;
$pt = 2;
while ( $Count < @ARGV[0] )
{
if (isPrimary($pt))
{
print "$ptn";
$Count++;
}
$pt++;
}
sub isPrimary
{
$flag = 1;
for ($i=2; $i<=$_[0]/2; $i++)
{
if ($_[0] % $i == 0)
{
$flag = 0;
}
}
return $flag;
}
Submitted by: Administrator
Read Online CGI Perl Job Interview Questions And Answers
Top CGI Perl Questions
☺ | Difference between Perl and Mod_perl? |
☺ | Write a script to display mirror image of a entered value and also check whether Palindrome? |
☺ | Write an expression or Perl script to identify the entered IP address is valid or not? |
☺ | Write a script to generate n prime no.s? |
☺ | How to find a substring in a string without using substr built in functions, and print the substring found? |
Top Coding/Programming Categories
☺ | Python Interview Questions. |
☺ | OOP Interview Questions. |
☺ | Software engineering Interview Questions. |
☺ | PHP Interview Questions. |
☺ | VBA (Visual Basic for Applications) Interview Questions. |