On Tuesday, Sep 21, 2004, at 17:17 US/Central, Jenda Krynicky wrote:
How about this:
$s = "sasas dfgfgh asasas asedsase";
while ($s =~ /\G.*?(?=sas)./g) {
print "pos=",pos($s)-1, " = '",substr($s,pos($s)-1,3),"'\n";
}
Thanks. Seems to work, although I'm still trying to grok it. I'll probably have questions later.
Regards, - Robert http://www.cwelug.org
-- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] <http://learn.perl.org/> <http://learn.perl.org/first-response>
