Interested to Buy Any Domain ? << Click Here >> for more details...
Write a script to reverse a string without using Perl's
built in function
- 8 Answers
- 29581 Views
- Nokia, I also Faced
- E-Mail Answers
Answers were Sorted based on User's Feedback
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 |
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 |
Answer / kiran pawar
my $string = "kiran";
my @name = split//,$string;
while(@name){
print pop @name;
}
| Is This Answer Correct ? | 9 Yes | 1 No |
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 |
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 |
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 |
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 |
How to copy a file in perl?
Which feature of perl provides code reusability?
Write a script to reverse a string without using Perl's built in function
Create a function that is only available inside the scope where it is defined ?
What is the difference between perl array and perl hash?
Does Perl have reference type?
Perl regular expressions are greedy" what does this mean?
You want to download the contents of a url with perl. How would you do that?
In Perl, what is grep function used for?
Explain lists and ivalue?
What value is returned by a lone `return;’ statement?
What are the various perl data types based on the context?
ASP 
