Help for this page

Select Code to Download


  1. or download this
    @lines = grep is_empty($_), @lines;
    
  2. or download this
    sub is_empty {
      my $line = shift;
      $line eq ''
    }