Re: Can I rewrite this code?

Not so nice, but possible:

my %args = %{ $_[0] };

# or

my %args = %{ +shift };
[download]

Update: The dereference curly braces introduce a new scope, so declaring the variable inside doesn't make sense:

my %args = %{ my $arg = shift };
# Here, $arg doesn't exist.
[download]

($q=q:Sq=~/;[c](.)(.)/;chr(-||-|5+lengthSq)`"S|oS2"`map{chr |+ord
}map{substrSq`S_+|`|}3E|-|`7**2-3:)=~y+S|`+$1,++print+eval$q,q,a,
[download]

Comment on Re: Can I rewrite this code? Select or Download Code

Replies are listed 'Best First'.
Re^2: Can I rewrite this code? by Anonymous Monk on Nov 23, 2018 at 17:40 UTC
and what does + in front of shift do?	[reply]
Re^3: Can I rewrite this code? by Corion (Patriarch) on Nov 23, 2018 at 17:46 UTC
The `+` in front of `shift` tells Perl that you want the function shift and not a string `"shift"` as the hash key.	[reply] [d/l] [select]