5% assure discount from here only

Tuesday, January 25, 2011

(6) How do I reverse a string?

Solution :

my $string = "problems";
my $reversed = reverse $string;
print $reversed; # output is smelborp;

2 comments:

  1. How do we do it without reverse ()?

    ReplyDelete
  2. my @a = qw/I m here/;
    my $length = scalar(@a);
    my @b;
    for(my $i=0;$i<=$length;$i++)
    {
    my $j = $a[$length - $i];
    push(@b, $j);
    }
    print @b;

    ReplyDelete