Discussion :

[Perl53]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

$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

[djibril]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

http://perl.developpez.com/faq/tk/?p...ectionFichiers

[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

[djibril]

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

[Perl53]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

[djibril]

Voilà avec quelques correction :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 .

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

Courage

[Perl53]

j'ai toujours le meme problème

[djibril]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[Perl53]

ça marche sans accent ^^

[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.

[Perl53]

dsl pas vu le nb au début

[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 :

Sélectionner tout - Visualiser dans une fenêtre à part

use Encode;

et dans ta procédure ouvrir, tu remplaces

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

return $nom_fichier;

par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

return encode( "iso-8859-1",$nom_fichier);

[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 ?

[djibril]

N'oublie pas le tag résolu.

[djibril]

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.

[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)

[djibril]

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