Bonsoir à tous (et à toutes ?)    
 
 
J'ai un souci d'affichage avec une listbox; j'ai mis un bout de mon programme en italique ci-dessous, à faire tourner pour tester de votre coté...
 
 
Pour voir le problème, il faut sélectionner un dossier qui contient des fichiers dont le nom comprend des caractères spéciaux, genre "çé_là_kè_losse.txt", puis cliquer sur afficher. Normalement, on voit apparaitre dans la listbox les fichiers du dossier choisi, avec la commande $lb->insert('end', $fic);. Pour comparer, j'ai aussi rajouté une sortie console print "$fic\n";.  
Et c'est là que je ne comprend pas: dans la console, pas de souci, ca passe, mais pas dans la listbox    
 
 
Et pour plus de fun, j'ai rajouté ça :
$test = "àçéèêïù";
$lb->insert('end', $test);

Et ca passe bien cette fois...  

 
En image :

 
En un mot comme en cent :
 
 
###### LE CODE ######

 
use Tk;
$mainw = new MainWindow(
  -title      => "Selection d'un dossier",
);
$mainw->minsize(300,300);
 
$dirpath = "Pas de choix pour l'instant";
sub selectionDir{
  $Directory = $mainw->chooseDirectory(
    -mustexist  => 1,
  );
  if (defined $Directory) {
    $dirpath = $Directory;
  }
}
 
sub afficher{
  print "dossier choisi: $dirpath\n";
  unless ($dirpath eq "Pas de choix pour l'instant" ){
    undef @listfic;
    @listfic =();
    $dirpath =~ s/\//\\/g;
    $commande="dir \"$dirpath\"/B/ON";
    open (DIR, "$commande |" ) || die "caramba encore rate $!";
    $lb->delete(0, 'end');
    while (<DIR> ){
      chomp;
      push(@listfic, "$_" );
    }
    sort @listfic;
    for $fic (@listfic){
      $lb->insert('end', $fic);
      print "$fic\n";
    }
    $test = "àçéèêïù";
    $lb->insert('end', $test);
  }
}
 
$bouton = $mainw->Button(
  -text    => "Selection d'un dossier",
  -command => [\&selectionDir],
);
$bouton->pack();
 
$bouton2 = $mainw->Button(
  -text    => 'Afficher le choix',
  -command => [\&afficher],
)->pack();
 
 
$lb = $mainw->Scrolled(
  "Listbox",
  -scrollbars => "se",
  -selectmode => 'multiple',
)->pack(
  -expand => 1,
  -fill => both,
  -side => left,
);
 
MainLoop();
 

C'est la que tu récupères les noms avec le mauvais encoding (ie différent de celui avec lequel tu codes ton fichier Perl).
Donc soit tu ré-encodes dans le bon encoding avant mettre dans la liste, soit tu utilise une procédure pure perl pour récupérer les noms des fichiers dans un répertoire, comme:
 
$dirpath =~ s/\//\\/g;  
opendir(DIR, $dirpath) || die "caramba encore rate $!";  
$lb->delete(0, 'end');  
@listfic= readdir(DIR);  
closedir(DIR);
sort @listfic;  
etc
 
EDIT: ah oui, je vois, tu veux les noms courts DOS. Je vais regarder cela.  
 
Ceci devrait coller, si ton encoding DOS n'est pas le bon, remplaces le par le nom d'encoding approprié
use Encode;
.....................
    while (<DIR> ){  
      chomp;  
      push(@listfic, decode("cp850", $_) );  
    }  
Ça marche sur ma bécane.
A+,

Version qui devrait marcher avec un DOS de toute nationalité:

###### LE CODE ###### 
 
use Encode; 
use Win32::Codepage::Simple qw(get_oemcp);
use Tk;
 
 
my $codepage = "cp".get_oemcp();
$mainw = new MainWindow( 
  -title      => "Selection d'un dossier", 
); 
$mainw->minsize(300,300); 
 
$dirpath = "Pas de choix pour l'instant"; 
sub selectionDir{ 
  $Directory = $mainw->chooseDirectory( 
    -mustexist  => 1, 
  ); 
  if (defined $Directory) { 
    $dirpath = $Directory; 
  } 
} 
 
sub afficher{ 
  print "dossier choisi: $dirpath\n"; 
  unless ($dirpath eq "Pas de choix pour l'instant" ){ 
    undef @listfic; 
    @listfic =(); 
    $dirpath =~ s/\//\\/g; 
    $commande="dir \"$dirpath\"/B/ON"; 
    open (DIR, "$commande |" ) || die "caramba encore rate $!"; 
    $lb->delete(0, 'end');
    while (<DIR> ){ 
      chomp; 
      push(@listfic, decode($codepage, $_) );  
    } 
    sort @listfic; 
    for $fic (@listfic){ 
      $lb->insert('end', $fic); 
      print encode($codepage,$fic), "\n"; 
    } 
    $test = "àçéèêïù"; 
    $lb->insert('end', $test); 
  } 
} 
 
$bouton = $mainw->Button( 
  -text    => "Selection d'un dossier", 
  -command => [\&selectionDir], 
); 
$bouton->pack(); 
 
$bouton2 = $mainw->Button( 
  -text    => 'Afficher le choix', 
  -command => [\&afficher], 
)->pack(); 
 
 
$lb = $mainw->Scrolled( 
  "Listbox", 
  -scrollbars => "se", 
  -selectmode => 'multiple', 
)->pack( 
  -expand => 1, 
  -fill => both, 
  -side => left, 
); 
 
MainLoop();

 
A+,

Merci !  
 
La solution  

use Encode;  
push(@listfic, decode("cp850", $_) );
 
marche parfaitement !  
 

 
Par contre, la deuxième avec le code intégral plante à la ligne 4 use Win32::Codepage::Simple qw(get_oemcp);
 
(ce qui impacte du coup la ligne 8 je suppose... my $codepage = "cp".get_oemcp();)
 
J'obtiens ce message d'erreur:
 
Can't locate Win32/Codepage/Simple.pm in @INC (@INC contains: C: /Perl64/site/lib
 C: /Perl64/lib .) at F:\perl\solution.pl line 4.
BEGIN failed--compilation aborted at F:\perl\solution.pl line 4.
 
Je soupçonne un problème d'OS chez moi (à savoir Windows7 64 bits et non pas 32...) d'en être à l'origine... ou un module manquant ???
 
Merci encore de t'être penché sur mon problème et de m'avoir aidé !    

Oui, les modules, en général, une installation de base, elle en a le minimum genre 600/12000 de tête.
Faut ajouter soi même les modules utiles pour ses programmes ensuite.
A+,