On Sat, 2002-09-07 at 14:22, Smylers wrote:
> Aaron Sherman wrote:
> > sub chomp($string is rw){
[...]
> > } elsif $irs.length == 0 {
> > $string =~ s/ \n+ $ //;
>
> Should that C<+> be there? I would expect chomp only to remove a single
> line-break.
Note that this is in paragraph (e.g. C<$/=''>) mode....
> > sub reverse(@list) {
> > my @r;
> > my $last = @list.length - 1;
> > for(my $i=$last;$i >= 0;$i++) {
> > @r[$last-$i] = @list[$i];
> > }
> > return *@r;
> > }
>
> In a scalar context does C<reverse> still a string with characters
> reversed?
Yes, but that would be:
sub reverse($string) {
return join '', reverse([split //, $string]);
}
Though this example is too inefficient, it does demonstrate the point.
--
Aaron Sherman <[EMAIL PROTECTED]>
http://www.ajs.com/~ajs
