*DATA is a file handle, pointing to the part of the source file after the __DATA__ mark.
The ->@* is a post-dereference, it's an alternative way of writing
my @headers = @{ $csv->getline( *DATA ) };
The getline method returns an array reference, by dereferencing it we get an array which we (shallow) copy into @headers.
map{substr$_->[0],$_->[1]||0,1}[\*||{},3],[[]],[ref qr-1,-,-1],[{}],[sub{}^*ARGV,3]
| [reply] [d/l] [select] |
I'm coming back to this pretty late.
I wanted to say thank you for explaining those items. I'll look further into the __DATA__ mark thing. I didn't understand that, but at least there's enough unique characters to search for it within the perl documentation.
| [reply] |