Account Options

  1. Sign in
The old Google Groups will be going away soon, but your browser is incompatible with the new version.
Google Groups Home
« Groups Home
Message from discussion Is rindex broken or does my brain need a reboot?

Received: by 10.68.230.98 with SMTP id sx2mr1073090pbc.1.1336447804218;
        Mon, 07 May 2012 20:30:04 -0700 (PDT)
Newsgroups: perl.perl6.users
Path: pr3ni912pbb.0!nntp.google.com!news2.google.com!news3.google.com!feeder3.cambriumusenet.nl!feed.tweaknews.nl!85.12.40.130.MISMATCH!xlned.com!feeder1.xlned.com!border2.nntp.ams.giganews.com!nntp.giganews.com!de-l.enfer-du-nord.net!feeder1.enfer-du-nord.net!nntp.develooper.com!nntp.perl.org
Return-Path: <schwarz...@gmail.com>
Mailing-List: contact perl6-users-h...@perl.org; run by ezmlm
Delivered-To: mailing list perl6-us...@perl.org
Received: (qmail 18526 invoked from network); 8 May 2012 03:19:50 -0000
Received: from x1.develooper.com (207.171.7.70)
  by x6.develooper.com with SMTP; 8 May 2012 03:19:50 -0000
Received: (qmail 29107 invoked by uid 225); 8 May 2012 03:19:50 -0000
Delivered-To: perl6-us...@perl.org
Received: (qmail 29103 invoked by alias); 8 May 2012 03:19:50 -0000
X-Spam-Status: No, hits=-2.7 required=8.0
	tests=BAYES_00,DKIM_SIGNED,DKIM_VALID,DKIM_VALID_AU,FREEMAIL_FROM,RCVD_IN_DNSWL_LOW,SPF_PASS
X-Spam-Check-By: la.mx.develooper.com
Received: from mail-bk0-f41.google.com (HELO mail-bk0-f41.google.com) (209.85.214.41)
    by la.mx.develooper.com (qpsmtpd/0.28) with ESMTP; Mon, 07 May 2012 20:19:47 -0700
Received: by bkcjm19 with SMTP id jm19so6026076bkc.14
        for <perl6-us...@perl.org>; Mon, 07 May 2012 20:19:42 -0700 (PDT)
DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed;
        d=gmail.com; s=20120113;
        h=from:to:subject:date:user-agent:mime-version:content-type
         :content-transfer-encoding:message-id;
        bh=GoDFesMk8bOEP75sjp7QsYTJBG23v1joF4jfuHEuGe0=;
        b=UA+I1H/y+nZMfdXoQ9HK7T9oeAjDUVu3kVRidt3vJm+r0NlDvQPTghTv9oTF991cN3
         hPmYT4bf5oLpenLpANBiIDnPfNl0ZcVtYqYuo5nuymbNFtIfi7MrzCJBQRl9CEkUWnb4
         nduhMf3QFcEFxGC+V1CetjgXE3S0yJgXaFvV6+ajk1jrdVGnZoD4rjrGlZbooeKvM5ZR
         aFSM0bMoLvEYlHoCpZkFPBGYRoKaLsTD8/FUCL+dYIgsgqEnlzYgX3ugwjT3Q1+oAW8R
         SA3SfMFJzJMsPP9DDedjGCe1kyIbmTm/x+x2ro3ABG1P4gdyFsNEUSzT0aBQybIhLl+b
         ZQRw==
Received: by 10.205.133.13 with SMTP id hw13mr6268654bkc.30.1336447182676;
        Mon, 07 May 2012 20:19:42 -0700 (PDT)
Received: from tamaki.localnet (77-23-3-40-dynip.superkabel.de. [77.23.3.40])
        by mx.google.com with ESMTPS id ie3sm35865073bkc.1.2012.05.07.20.19.42
        (version=SSLv3 cipher=OTHER);
        Mon, 07 May 2012 20:19:42 -0700 (PDT)
To: perl6-us...@perl.org
Subject: Is rindex broken or does my brain need a reboot?
Date: Tue, 8 May 2012 05:19:40 +0200
User-Agent: KMail/1.13.7 (Linux/3.2.15-fs; KDE/4.7.4; i686; ; )
MIME-Version: 1.0
Message-ID: <201205080519.41053.schwarz...@gmail.com>
Approved: n...@nntp.perl.org
From: schwarz...@gmail.com (Frederik Schwarzer)
Lines: 36
Content-Type: text/plain;
  charset="us-ascii"
Content-Transfer-Encoding: 7bit

Hi,

I had a little problem with rindex and wrote a small demo code that 
shows what I found.

The code is:
use v6;

my $string = "perl";
say $string;                                                                                                                                                                          
say $string.WHAT;                                                                                                                                                                     
say $string.index("e");                                                                                                                                                               
say $string.rindex("e");                                                                                                                                                              
                                                                                                                                                                                      
say "";                                                                                                                                                                               
say @*ARGS[0];                                                                                                                                                                        
say @*ARGS[0].WHAT;                                                                                                                                                                   
say @*ARGS[0].index("e");                                                                                                                                                             
say @*ARGS[0].rindex("e");                                                                                                                                                            

When run, I see the following (with a two-week old build of Rakudo 
master):
$ perl6 index.pl perl
perl
Str()
1
1

perl
Str()
1
Failure.new(exception => X::AdHoc.new(payload => "substring not 
found"))

Do I miss something? Any help is appreciated.

Regards