[perl] ouverture de fichier d'extension parti

#! /usr/bin/perl

use warnings;
use strict;

my %h;
my $fic;

opendir DIR,"." or die "E/S : $!\n";

while ( defined (my $fic = readdir(DIR)) ){
  next if $fic =~ /^\.+/;
  $h{substr($fic,-3)}++;
  if ( $fic =~ /.*\.(f06)/ || $fic =~ /.*\.(nas)/){
    if ($h{$1} >1){
      die "Plusiers fichier $1\n";
    }
    else {
      open F,"$fic" or die "E/S : $!\n";
    }
  }
}

while (<F>){print} # pour test

#! /usr/bin/perl

use warnings;
use strict;

my %h;
my $fic;

opendir DIR,"." or die "E/S : $!\n";

while ( defined (my $fic = readdir(DIR)) ){
  next if $fic =~ /^\.+/;
  $h{substr($fic,-3)}++;
  if ( $fic =~ /.*\.(f06|nas)/){
    if ($h{$1} >1){
      die "Plusiers fichier $1\n";
    }
    else {
      open F,"$fic" or die "E/S : $!\n";
    }
  }
}