mjd-perl-pm on Mon, 6 Mar 2000 22:53:41 -0500 (EST) |
> last if (my $cp = index $t, $c) < 0; > last if (my $op = rindex $t, $o, $cp) < 0; > > There are at least four features of note: Oh, one more: Abigail said that one would probably be able to do it in one line, by doing something like my $op = rindex $t, $o, (my $cp = index $t, $c); but I think it would be hard to get the error checing in there without making it look super-nasty. **Majordomo list services provided by PANIX <URL:http://www.panix.com>** **To Unsubscribe, send "unsubscribe phl" to majordomo@lists.pm.org**
|
|