Write a script to reverse a string without using Perl's built in function

Categories >> Software >> Scripts >> CGI Perl
Suggest New Category

Write a script to reverse a string without using Perl's
built in function

Question Posted / roopabs26

8 Answers
27016 Views
Nokia, I also Faced
E-Mail Answers

Answers were Sorted based on User's Feedback

Write a script to reverse a string without using Perl's built in function..

Answer / kiruthikau

my $i;
my $str="hello";
my @str=split('',$str);
for($i=$#str;$i>=0;$i--)
{

print $str[$i];
}

Is This Answer Correct ?

47 Yes

15 No

Write a script to reverse a string without using Perl's built in function..

Answer / vipul dalwala

#!/usr/bin/perl

my $str = "hello";
$revstr = "";

while($str =~ /(.)/g)
{
$revstr = $1.$revstr;
}

print $revstr."\n";

Is This Answer Correct ?

12 Yes

2 No

Write a script to reverse a string without using Perl's built in function..

Answer / kiran pawar

my $string = "kiran";

my @name = split//,$string;

while(@name){

print pop @name;

}

Is This Answer Correct ?

9 Yes

1 No

Write a script to reverse a string without using Perl's built in function..

Answer / arukumar g m

my $string="hello";
my $str;
my $i = length($string);
while($i>0) {
my $nthstr = substr($string, $i-1, 1);
$str.=$nthstr;
$i = $i-1;
}
print $str;

Is This Answer Correct ?

3 Yes

0 No

Write a script to reverse a string without using Perl's built in function..

Answer / uma from sswdept - hov service

$strin = "uma";
print "\n \$strin <$strin>";

$len = length($strin);
@arr = split(//,$strin);
print "\n \$len $len \@arr <@arr>";

for($i=$len-1;$i>=0;$i--)
{
print $arr[$i];
$retVal .= join(//,$arr[$i]);
print "\n retVal <$retVal> ";
}

Is This Answer Correct ?

3 Yes

2 No

Write a script to reverse a string without using Perl's built in function..

Answer / venkatesh

#!/usr/bin/perl
$a = "Venky";
@c;
@b = split("", $a);
foreach $char (@b){
unshift(@c, $char);
}
$value = join("", @c);
print "$value\n";

Is This Answer Correct ?

1 Yes

0 No

Write a script to reverse a string without using Perl's built in function..

Answer / pallavi w

#!/usr/bin/perl -w
2
3 use strict;
4 my $string = "STRING";
5 my $rev_string = join "", reverse (split ("", $string));
6
7 print "The String is ". $string ."\n";
8 print "The reverse string is ". $rev_string ."\n";

Is This Answer Correct ?

4 Yes

8 No

Write a script to reverse a string without using Perl's built in function..

Answer / go

ghw#
wled
@w
ws

Is This Answer Correct ?

5 Yes

10 No

Post New Answer