Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- #! /usr/bin/perl
- use strict;
- use warnings;
- use Data::Dumper qw( Dumper );
- sub splitlist(@)
- {
- [@_[0 .. int((($#_ % 2 ) ? $#_ : $#_ - 1) / 2)]], [@_[int(($#_ + 1) / 2) .. $#_]]
- }
- my @empty;
- my @oneelement = qw( 1 );
- my @odd = qw( 1 2 3 4 5 );
- my @even = qw( 1 2 3 4 5 6 );
- print "empty:\n";
- my ($f,$s) = splitlist(@empty);
- print "first: " . Dumper($f) . "\n";
- print "second: " . Dumper($s) . "\n";
- print "oneelement:\n";
- ($f,$s) = splitlist(@oneelement);
- print "first: " . Dumper($f) . "\n";
- print "second: " . Dumper($s) . "\n";
- print "odd:\n";
- ($f,$s) = splitlist(@odd);
- print "first: " . Dumper($f) . "\n";
- print "second: " . Dumper($s) . "\n";
- print "even:\n";
- ($f,$s) = splitlist(@even);
- print "first: " . Dumper($f) . "\n";
- print "second: " . Dumper($s) . "\n";
- ~
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement