Help for this page

Select Code to Download


  1. or download this
    {
  my @list;
...
  no warnings 'exiting';
  last LOOP;
}
  2. or download this
    my @a=1..10; # update2

...
(123)(456)(789)(10)
(123)(456)(789)(10)
(123)(456)(789)(10)
  3. or download this
    This can be extended to take more than one element at a time:

...

(Except the for version does not destroy the array.)
  4. or download this
    $SIG{__WARN__}= sub {
  return if $_[0] =~ /^Exiting subroutine/;
  warn $_[0];
};