Help for this page

Select Code to Download


  1. or download this
    sub extract {
    my $aref=shift;
...
    @$aref=@{$aref}[grep !($_ ~~ @_) => 0..$#$aref];
    @out;
}
  2. or download this
    #!/usr/bin/perl

...
print Dumper \(@x0, @y, @x);

__END__
  3. or download this
    # -*- Perl -*-

...
1;

__END__
  4. or download this
    use Array::Extract;

my @x = 'a'..'g';
my @y = @x->extract(2,3,-8);