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