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
- 29596 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 concatenate strings in perl?
How to read from a pipeline with Perl
Which has highest precedence in between list and terms? Explain?
What package you use to create a windows services?
Explain USE and REQUIREMENT statements?
How to read file into hash array ?
What does last statement do in perl?
Give an example of the -i and 0s option usage.
How to know whether a key exists or not in perl?
What does undef function in perl?
Explain grooving and shortening of arrays and splicing of arrays?
Write a script to reverse a string without using perl's built in functions?
ASP 
