Problème getOpenFile sous perl 5.9

Version imprimable

08/10/2009, 20h55
Perl53

Problème getOpenFile sous perl 5.9

Bonjour,
ayant installer perl 5.9, j'ai voulu tester mes anciens programmes et il se trouve que a présent, j'ai un problème quand je récupère un nom de fichier avec la méthode :

Code:

$nom_fichier = $fenetre -> getOpenFile ( -initialdir => 'C:\....' ) ; # sous Windows

je ne peut pas lire ce fichier ou écrire dedans, par exemple quand c'est un fichier texte alors que avec perl 5.8.3, cela marchait très bien
08/10/2009, 21h18
djibril

Code:

$nom_fichier = $fenetre -> getOpenFile ( -initialdir => 'C:/' ) ; # sous Windows

http://perl.developpez.com/faq/tk/?p...ectionFichiers
08/10/2009, 22h55
Perl53

cela ne change rien le problème est que quand le chemin du fichier est stocké dans $nom_fichier, je ne peut pas par exemple lire $nom_fichier alors que si j'initialise $nom_fichier avec un chemin et que je le lis, ça marche
09/10/2009, 09h03
djibril

Un peu plus de code pour voir comment tu t'y prends ;)

mon programme a pour but de lire le fichier audio choisi par getOpenFile, il marchait très bien sous perl 5.8.3 :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
#! /usr/bin/perl -w
use Tk;
use Win32::MediaPlayer;
 
$fenetre = new MainWindow ();
 
$cadre_bouton = $fenetre -> Frame () -> pack ();
 
$img_play = $cadre_bouton -> Photo ( -file => "play.gif" );
$cadre_bouton -> Button (-image => $img_play ,-command => \&Play) -> pack (-side => 'left');
 
my $types = [
     ['Musique',['.mp3', '.wma']],
     ['Vidéos','.avi'],
 ];
 
sub Ouvrir {
	$nom_fichier = $fenetre -> getOpenFile ( -initialdir => 'C:\Users\Kévin\Music' ,-filetypes=>$types) ;  # sous Windows
	print "$nom_fichier\n" ;
	$music = "unplay";
}
 
sub Play {
	if ($music ne "play") {
		$winmm = new Win32::MediaPlayer;  
		$winmm->load($nom_fichier);        
		$winmm->play;                    
		$winmm->volume(100);             
		$winmm->seek('00:00'); 
		$music = "play";
		print 'Total Length : '.$winmm->length(1),$/;
		print "$music\n";
		while ($music eq "play") {
			 $pos = $winmm->pos(1);
			 $fenetre -> update;
		}
	}elsif($pause = "oui"){
		$winmm->resume;
		$pause = "non"
	}
}
 
MainLoop ();

et voici le messgae d'erreur que maintenant j'obtiens, le problème ne venant pas du module, il marche avec une scalaire initialisée :
http://nsa11.casimages.com/img/2009/...3424526522.jpg

Voilà avec quelques correction :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
#! /usr/bin/perl
use warnings;
use strict;
use Tk;
use Win32::MediaPlayer;
 
my $fenetre = new MainWindow();
 
my $cadre_bouton = $fenetre->Frame()->pack();
my $img_play = $cadre_bouton -> Photo ( -file => "play.gif" );
$cadre_bouton->Button(
  -image => $img_play ,
  -command => \&Play,
)->pack( -side => 'left' );
 
my $music = "unplay";
my $pause = "non";
 
sub Ouvrir {
  my $types = [ [ 'Musique', [ '.mp3', '.wma' ] ], [ 'Vidéos', '.avi' ], ];
  my $nom_fichier = $fenetre->getOpenFile(
    -initialdir => 'C:\Users\Kévin\Music',
    -filetypes  => $types,
  );    # sous Windows
  print "$nom_fichier\n";
  $music = "unplay";
  return $nom_fichier;
}
 
sub Play {
  my $winmm;
  if ( $music ne "play" ) {
    $winmm = new Win32::MediaPlayer;
    my $nom_fichier = Ouvrir();
 
    $winmm->load($nom_fichier);
    $winmm->play;
    $winmm->volume(100);
    $winmm->seek('00:00');
    $music = "play";
    print 'Total Length : ' . $winmm->length(1), $/;
    print "$music\n";
    while ( $music eq "play" ) {
      my $pos = $winmm->pos(1);
      $fenetre->update;
    }
  }
  elsif ( $pause eq "oui" ) {
    $winmm->resume;
    $pause = "non";
  }
}
 
MainLoop();

C'est marrant, car j'avais déjà fait aussi un petit lecteur de musique en TK il y a quelques temps qui fonctionnait bien :ccool:.

Petit conseil.
- Apprends à bien déclarer tes variables et utiliser use strict;, c'est la base.

Courage

09/10/2009, 16h59
Perl53

j'ai toujours le meme problème :calim2:

euh tu deconnes là ? voici le script qui fonctionne chez moi

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
#! /usr/bin/perl
use warnings;
use strict;
use Tk;
use Win32::MediaPlayer;
 
my $fenetre = new MainWindow();
 
my $cadre_bouton = $fenetre->Frame()->pack();
my $img_play = $cadre_bouton -> Photo ( -file => "play.gif" );
$cadre_bouton->Button(
  -image => $img_play ,
  -command => \&Play,
)->pack( -side => 'left' );
 
my $music = "unplay";
my $pause = "non";
 
sub Ouvrir {
  my $types = [ [ 'Musique', [ '.mp3', '.wma' ] ], [ 'Vidéos', '.avi' ], ];
  my $nom_fichier = $fenetre->getOpenFile(
    -initialdir => 'C:\Users\Kévin\Music',
    -filetypes  => $types,
  );    
 
  $music = "unplay";
  return $nom_fichier;
}
 
sub Play {
  my $winmm;
  if ( $music ne "play" ) {
    $winmm = new Win32::MediaPlayer;
    my $nom_fichier = Ouvrir();
    return unless (defined $nom_fichier);
    $winmm->load($nom_fichier);
    $winmm->play;
    $winmm->volume(100);
    $winmm->seek('00:00');
    $music = "play";
    print 'Total Length : ' . $winmm->length(1), $/;
    print "$music\n";
    while ( $music eq "play" ) {
      my $pos = $winmm->pos(1);
      $fenetre->update;
    }
  }
  elsif ( $pause eq "oui" ) {
    $winmm->resume;
    $pause = "non";
  }
}
 
MainLoop();

Teste le, si ça ne fonctionne pas, donne moi le message d'erreur.

NB: Test d'abord des fichiers musique dont le nom ne contient pas d'accents et ensuite avec accents.
Je pense que tu dois avoir des soucis avec les accents, j'avais déjà eu ça. Si c'est le cas, je te montrerais comment gérer l'encodage.

09/10/2009, 17h31
Perl53

ça marche sans accent ^^
09/10/2009, 17h32
djibril

T'as essayé ceci ?
NB: Test d'abord des fichiers musique dont le nom ne contient pas d'accents et ensuite avec accents.
Je pense que tu dois avoir des soucis avec les accents, j'avais déjà eu ça. Si c'est le cas, je te montrerais comment gérer l'encodage.
09/10/2009, 17h36
Perl53

dsl pas vu le nb au début :oops:
09/10/2009, 17h40
djibril

test un fichier mp3 de nom toto.mp3 par exemple ne contenant pas dans les chemin d'accents ou simple quote. Ex : C:/toto.mp3.

Tu sélectionnes toto.mp3 dans le C. Si ça ça marche, c'est un problème d'encodage.

Tu devra mettre en début de script :

Code:

use Encode;

et dans ta procédure ouvrir, tu remplaces

Code:

return $nom_fichier;

par

Code:

return encode( "iso-8859-1",$nom_fichier);
09/10/2009, 17h41
Perl53

maintenant ça marche avec tous les fichiers, merci beaucoup mais maintenant je vais être obligé de mettre encode (...) a chaque fois que j'aurais un fichier avec un nom contenant des accents ? :(
09/10/2009, 17h42
djibril

:ccool::ccool:

N'oublie pas le tag résolu.
09/10/2009, 17h44
djibril

Citation:

Envoyé par Perl53

maintenant ça marche avec tous les fichiers, merci beaucoup mais maintenant je vais être obligé de mettre encode (...) a chaque fois que j'aurais un fichier avec un nom contenant des accents ? :(

Bah non. Encode est mis dans la procédure ouvrir, donc ça suffit pour le reste. Tout est question d'encodage de ton script, du nom des fichiers.
09/10/2009, 17h47
Perl53

ce que je voulais dire c'est si je dois faire un autre programme contenant un openfile et que j'ai encore des nom de fichiers avec des accents a ouvrir je serais a chaque fois obligé de mettre la fonction encode ? (surtout que mon nom contenant un accent, tous les fichiers musique ou texte que j'ai on un accent dans leur chemin)
09/10/2009, 18h53
djibril

Dès que tu gères des fichiers avec accents, il est préférable de faire attention à cela oui.