Re: perlish way of splitting file records

you can also use an anonymous array to accomplish what you attempted in your second example:

print [ split(/:/,<FILEHANDLE>) ]->[3]
[download]

Oddly enough, to use a list slice there are some subtle parenthesis issues:

# this works:
print ((split /:/, <FILEHANDLE>)[3]);

# doesn't work (note the missing outer parenthesis):
print (split /:/, <FILEHANDLE>)[3];
[download]

I'm guessing the second example has some ambiguity with taking the slice off the print or the split
-- Brian

Update: As pointed out below, an anonymous array is slower (by 39%) than a plain ol' list slice. Depending on the circumstances, however, it's very unlikely that this slowdown would ever be noticable (since on the box I tested, it was still able to perform 89,445 anonymous array creations and access per second).

Comment on Re: perlish way of splitting file records Select or Download Code

Replies are listed 'Best First'.
Re^2: perlish way of splitting file records by VSarkiss (Monsignor) on Jun 01, 2006 at 16:39 UTC
The parenthesis following `print` is assumed to contain its arguments. You can either enclose everything in parens as you've done, or disambiguate in some other way, such as with unary plus. Consider: `$ perl -MO=Deparse -e 'print ((split /:/,<FILEHANDLE>)[3])' print((split(/:/, <FILEHANDLE>, 0))[3]); -e syntax OK $ perl -MO=Deparse -e 'print +(split /:/,<FILEHANDLE>)[3]' print((split(/:/, <FILEHANDLE>, 0))[3]); -e syntax OK` [download] Do not rebuke them with harsh words ... but rather lead them gently - with URLs - so that they may learn wisdom.	[reply] [d/l] [select]
Re^2: perlish way of splitting file records by ikegami (Patriarch) on Jun 01, 2006 at 17:25 UTC
Yes, it's possible to use an anonymous array, but it's needlessly expensive when a list slice will do.	[reply]