INTERVIEW QUESTIONS PROGRAMMING LANGUAGES PERL DETAILS

Question: Write a script to reverse a string without using Perl's built in functions?

Answer: my $txt = 'Hello World';
my $len= length($txt);
my $rev;
while($len > 0){
$len--;
$rev .= substr($txt,$len,1);
}
print $txt, ' - Reversed = ' , $rev;

my $txt = 'Hello World';
my $len= length($txt);
my $rev;
while($len > 0){
$len--;
$rev .= substr($txt,$len,1);
}
print $txt, ' - Reversed = ' , $rev; Source: CoolInterview.com

#!/usr/bin/perl
my $str="MYSTRING";
my @arr= split(//, $str);
@reverse_arr=reverse(@arr);
$reverse_str = join('', @reverse_arr);
print $reverse_str;

it prints- GNIRTSYM Source: CoolInterview.com

my $str="string";
my @arr=split(//,$str);
for(my $i=scalar @arr; $i>=0;$i--)
{
print $arr[$i];
} Source: CoolInterview.com

$string = "Hello World";
$str = chop($string);
$len = length($string);

for($i=0;$i<$len;$i++)
{
$c = chop($string);
$str = $str.$c;
}
print " Reverse = $str "; Source: CoolInterview.com

If you have the better answer, then send it to us. We will display your answer after the approval.

Rules to Post Answers in CoolInterview.com:-

• There should not be any Spelling Mistakes.
• There should not be any Gramatical Errors.
• Answers must not contain any bad words.
• Answers should not be the repeat of same answer, already approved.
• Answer should be complete in itself.

Name :*
Email Id :*
Answer :*
Verification Code	Not readable? Load New Code
Enter the above shown code: *
	Inform me about updated answers to this question