Skip to main content

Quick actions

cmd+k|ctrl+k

Search actions and languages

Navigation

Languages

split() my DATA

Snippet info

Language

Perl

Visibility

public

Author

grtodd

Created

2017-02-28T15:35:34Z

Updated

2021-09-27T07:01:54.151537Z

12345678910

#print [split, <DATA>]->[1];

my $ref = [ split, <DATA> ];

print $ref->[0];

print $ref->[2], $ref->[1];

__DATA__

Yes this is data ready to

be

mined.

#print [split, <DATA>]->[1];
my $ref = [ split, <DATA>  ]; 
print $ref->[0];
print $ref->[2], $ref->[1];


__DATA__ 
Yes this is data ready to
be
mined.

Perl

INFO

Home Public snippets Account Contact Privacy