undef and "x" operator

pglenski has asked for the wisdom of the Perl Monks concerning the following question:

Replies are listed 'Best First'.
Re: undef and "x" operator by tilly (Archbishop) on Aug 09, 2006 at 21:20 UTC
The usual approach is `$hic = ( split(/\*/) )[5];`	[reply] [d/l]
Re^2: undef and "x" operator by Skeeve (Parson) on Aug 09, 2006 at 21:51 UTC
Or `$hic = ( split(/\/,$_,7) )[5];` to split not more than necessary. Update:* Thanks to lidden for showing my mistake (had a 6 instead of 7). `s$$([},&%#}/&/]+}%&{});#$&&s&&$^X.($'^"%]=\&(\|?{%` `+`.+=%;.#_}\&"^"-+%*).}%:##%}={~=~:.")&e&&s""`$''`"e	[reply] [d/l] [select]
Re^3: undef and "x" operator by lidden (Curate) on Aug 09, 2006 at 22:05 UTC
`s/6/7/` or the sixth field will contain too much.	[reply] [d/l]
Re: undef and "x" operator by duckyd (Hermit) on Aug 09, 2006 at 23:15 UTC
If you just want to last item, you could use `my $hic = (split(/\*/))[-1];` [download]	[reply] [d/l]
Re: undef and "x" operator by ysth (Canon) on Aug 10, 2006 at 01:30 UTC
If it did work, it would be `(((undef) x 5), $hic) =`, since ()x is a different operator than x, and the former is what you would want. But it doesn't in fact work: `$ perl -we'(((undef) x 5), $foo) = 1..6; print $foo' Can't modify repeat (x) in list assignment at -e line 1, near "6;"` [download]	[reply] [d/l] [select]
Re^2: undef and "x" operator (@!, slice, x) by tye (Sage) on Aug 10, 2006 at 06:38 UTC
`#!/usr/bin/perl -w use strict; ( @![(0)x5], my $x )= split /-/, "a-b-c-d-e-f-g-h-i-j"; # (undef)x5, # @![1..5], # @{[]}[(0)x5], print "\$x=($x)\n"; __END__ $x=(f)` [download] Note that no extra keystrokes are required. (: You can golf off one keystroke at the expense of more memory consumed. Update: For two or three extra keystrokes you can avoid damaging the important global `@!` array. Yes, if I got code from someone that used this, I would indeed shoot them. - tye	[reply] [d/l] [select]
Re: undef and "x" operator by Skeeve (Parson) on Aug 09, 2006 at 23:54 UTC
Just for the fun of it: `$_="012345678"; eval '(' . 'undef,' x 5 . '$hic)=split/\/'; print $hic;` [download] `s$$([},&%#}/&/]+}%&{});#$&&s&&$^X.($'^"%]=\&(\|?{%` `+`.+=%;.#_}\&"^"-+%).}%:##%}={~=~:.")&e&&s""`$''`"e	[reply] [d/l] [select]