19 lines
264 B
Perl
19 lines
264 B
Perl
use 5.20.0;
|
|
use warnings;
|
|
use experimental qw/
|
|
signatures
|
|
postderef
|
|
/;
|
|
|
|
my @input = split / /, <>;
|
|
|
|
parse_metadata(@input);
|
|
|
|
sub parse_metadata($nbr_children, $nbr_metadata, @payload) {
|
|
my @meta;
|
|
push @meta, pop @payload for 1..$nbr_metadata;
|
|
|
|
|
|
|
|
}
|