Please make "last" work in "grep"

Front page | perl.perl6.language | Postings from May 2001

Please make "last" work in "grep"

Thread Next

From:

eedalf

Date:

May 2, 2001 02:14

Subject:

Please make "last" work in "grep"

Message ID:

3AEFCFA9.85B338C9@eed.ericsson.se

Hi,

I would like to propose adding the "last" statement
to the "grep", which currently doesn't work:

  maas34: perl -e 'grep { print and $_ == 3 and last } (1,2,3,4,5)'
  123
  Can't "last" outside a loop block at -e line 1.

This way it would be possible to use such constructs:


  print_header ($query);

  if ($but and not check_pass ($pass))
  {
      print abstract (q{<SPAN CLASS="pink">Wrong password</SPAN> ...
  }
  elsif ($but eq 'Create' and $proj and $sub and $pack and $prel)
  {
      insert_update_pack ($dbh, $proj, $sub, $pack, $prel);
  }
  elsif (grep { /^Delete\s+([\w.-]+)\|([\w.-]+)\|([\w.-]+)\|([\w.-]+)$/ and
                $query -> param ($_) eq 'Delete' and last } $query -> param)
  {
      delete_pack ($dbh, $1, $2, $3, $4);
  }
  else
  {
      print abstract (q{Please specify a project and ...
  }


Here I am looking for a button with a special name - "Delete ..." -
and there can be only one such button, so I have to interrupt the
"grep" after I find it (otherwise the $1, $2, $3, $4 might be unset).
I have to do it this strange way (using NAME and not the VALUE of
an HTML submit-button), because the VALUE is shown as the label of 
the button (and I  want it to show just "Delete", not "Delete CAPC|blah...")

Regards
Alex

Thread Next