Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl -w
    
    ...
    my $str = "hello, world!";
    my $result = substr($str,length($str)-1,1);
    print $result;