Discussion :

[rimenis]

bonjour,
je veux afficher le continu d'un fichier dans un Scrolled
voici le code :

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
 
 
 
my $text = $fenetre->Scrolled(
  "Text",
  -height     => 10,
  -wrap       => "none",
  -relief     => "solid",
  -background => "white",
  -scrollbars => "oe",
)->pack( -fill => "both", -expand => 1 );
 
$menu_ouvrir->command( -label   => 'Ouvrir', -command => \&open_file  ) ;
 
    sub open_file {
 
    my $filetypes =     [
            ['Drawing Files',    '.drg'],
            ['All files',    '*']
            ];
 
    my $select_file_full = $fenetre->getOpenFile(
                    -filetypes  => $filetypes,
 
  -initialdir => "/home/hp/Bureau/Master",
  -multiple   => 1,);
 tie *STDOUT, ref $text, $text;
print "$select_file_full";
 
 
 
 
    }

cependant aucun affichage !!!!


help plz !!

[djibril]

Bonsoir,

À aucun moment tu n'ouvres et ne lit le fichier. De plus, ton code n'est pas complet et pas bien indenté.
Merci de faire un effort à ce niveau.

[rimenis]

je débute encore avec perl surtt avec l'utilisation du module tk , en fait depuis longtemp je cherche à afficher le continu d'un fichier à l'aide d'un menu ouvrir , mais j'arrive pas à le faire , j'ai aussi cherché sur le faq encore j'ai pas mme trouver des exemples , voici mon code :

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
 
$menu_ouvrir->command( -label   => 'Ouvrir', -command => \&open_file  ) ;
my $txt = $fenetre -> Text(
 -height=>10,
-wrap       => "none",
-relief     => "solid",
-background => "white",
 
) -> pack(-fill => "both", -expand => 1 );
    sub open_file {
 
    my $filetypes =     [
            ['Drawing Files',    '.drg'],
            ['All files',    '*']
            ];
 
    my $select_file_full = $fenetre->getOpenFile(
                    -filetypes  => $filetypes,
 
  -initialdir => "/home/hp/Bureau/Master",
  -multiple   => 1,);
 
my $fic = $select_file_full;
 #tie *STDOUT, ref $text, $text;
$txt -> insert(" $select_file_full");
#print "$select_file_full";
 
    }

[djibril]

Voici un exemple de code sur lequel tu peux te baser pour continuer ton programme :

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
55
56
57
58
59
60
#!/usr/bin/perl
use warnings;
use strict;
use Tk;
use Encode;
 
# Programme principal
# Création de la fenêtre
my $fenetre = new MainWindow(
	-title      => 'Première fenêtre Tk',
	-background => 'brown',
);
 
# Affichage d'un texte
my $label_accueil = $fenetre->Label(
	-text       => 'Bonjour tout le monde',
	-background => 'white',
)->pack(qw/ -pady 5 /);
 
my $widget_texte = $fenetre->Scrolled(
	'Text',
	-scrollbars => 'osoe',
	-background => '#F3EFFF',
)->pack(qw/ -fill both -expand 1 -padx 5 -pady 10 /);
 
my $bouton = $fenetre->Button(
	-text    => 'Ouvrir un fichier',
	-command => [ \&ouvrir_fichier, $fenetre, $widget_texte ],
)->pack(qw/ -pady 2 /);
 
MainLoop;
 
sub ouvrir_fichier {
	my ( $fenetre, $widget_text ) = @_;
 
	my $filetypes = [ [ 'Drawing Files', '.drg' ], [ 'All files', '*' ] ];
	my $fichier = $fenetre->getOpenFile(
		-filetypes  => $filetypes,
		-initialdir => "/home/hp/Bureau/Master",
	);
 
	# Gestion des nom de fichiers encodés (avec accents)
	my $OS = lc($^O);
	if ( $OS eq 'mswin32' and defined $fichier ) {
		$fichier = encode( 'iso-8859-1', $fichier );
	}
 
	# Lecture du fichier et affichage dans le widget Texte
	open my $fh, '<', $fichier or die "Impossible de lire le chier $fichier\n";
	while ( my $ligne = <$fh> ) {
		$widget_texte->insert( 'end', $ligne );
 
		# Rafraichir le widget
		$widget_texte->update();
 
		# Voir la dernière ligne
		$widget_text->see('end');
	}
	close $fh;
}

Pour le détail des explications tu peu lire les tutoriels et cours de formation pour apprendre la programmation de Perl : http://perl.developpez.com/cours/

[rimenis]

bonjour,
merci pour votre réponse , il suffit de changer ds mon code :
-multiple => 1, par -multiple => 0,
cependat mon problème est avec l'affichage de l'arabe , y'a t 'il une solution pour resoudre le problème , en fait l'affichage est comme ds cette image :

http://www.developpez.net/forums/att...normal_tk.png/

[djibril]

Bonjour,

Je ne connais rien en arabe et votre premier post ne stipulait pas un souci de langage arabe.
Merci d'apprendre à être clair. Si vous n'êtes pas clair, ne mettez pas de titre clair, il vous sera difficile d'obtenir des réponses.