1.

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;


Discussion

No Comment Found

Related InterviewSolutions