Beefy Boxes and Bandwidth Generously Provided by pair Networks
We don't bite newbies here... much
 
PerlMonks  

Re: Last index use in array slice

by ColonelPanic (Friar)
on Dec 03, 2012 at 09:23 UTC ( [id://1006827]=note: print w/replies, xml ) Need Help??


in reply to Last index use in array slice

Another way to do it: instead of splitting everything and then ignoring some of it, find and split only the stuff you want.

use strict;
use warnings;

my $str = "discard\ndiscard\nkeep1\nkeep2";
my $discard = 2;

my @arr = ($str =~ /^(?:[^\n]*\n){$discard}(.*)/s ? split /\n/, $1 : (
+) );

print "@arr";

[download]


When's the last time you used duct tape on a duct? --Larry Wall

Replies are listed 'Best First'.
Re^2: Last index use in array slice
by bart (Canon) on Dec 03, 2012 at 13:15 UTC
    Alternatively, yet still using the idea of discarding part of the output: 
    my(undef, undef, @rest) = split/\n/;

    [download]
    But, with a variable value for $index, I'd rather go the splice route.
[reply]
[d/l]

      Yeah, I thought of that one, but ultimately didn't use it because, as you mentioned, it doesn't work well with an arbitrary starting index.

      You could do something like this:

      my $str = "discard\ndiscard\nkeep1\nkeep2";
my $index = 2;

my @arr = grep {$index-- <= 0} split "\n", $str;

      [download]


      When's the last time you used duct tape on a duct? --Larry Wall
[reply]
[d/l]

In Section Seekers of Perl Wisdom

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?

www.com | www.net | www.org
Node Status?
node history
Node Type: note [id://1006827]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? • Last hour • Other CB clients
Other Users?
Others romping around the Monastery: (2)
As of 2024-04-16 07:31 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found