onlyforbopi
1/12/2017 - 2:34 PM

PERL_STRINGS

PERL_STRINGS

sub revstring {
 
	my $stringa = shift;
	my $newstring = reverse $stringa ; 
 
	return $newstring;
 
}
 
my $a = "panos";
print $a;
my $b = reverse $a;
print $b;
my $c = revstring($a);
print revstring($c);
print revstring($b);
print revstring($a);
1. revstring                :  Reverses a string