Listing 8. Show layers that have a name matching the given regular
expression.

sub Layers_showByRE {
  my( $img, $layersre ) = @_;

  @layers = Gimp->image_get_layers( $img );
  foreach $l (@layers) {
    $n = Gimp->layer_get_name( $l );
    if( $n =~ m/$layersre/ )
      {
        Gimp->layer_set_visible( $l, 1 );
      }
  }
}
...
sub monkeyiq_gimp_layers_hideall {
  my($inputimagename,$outfilename,$layersre) = @_;

  $img = gimp_file_load( $inputimagename,
                         $inputimagename );
  Layers_showByRE( $img, $layersre );

  gimp_xcf_save( 0, $img, 0,
                 $outfilename, $outfilename );
  gimp_image_delete( $img );
}

