2010-08-29 18 views
2

J'ai écrit un script qui obtient un nom de fichier et insère le contenu du fichier dans un Text widget. Maintenant, quand je ferme la fenêtre de script, j'en ai besoin pour écrire le texte sur l'écran Unix.Comment puis-je obtenir le texte dans le widget Texte Perl/Tk?

Comment puis-je obtenir le contenu du widget Texte?

Mon insertion widget texte code Sorce est:

open(FILE, $file_name); 
foreach my $line (<FILE>) { 
    $text->insert('end', $line); 
} 

Répondre

6
$text->get('1.0','end-1c'); 

(Il est end-1c - fin moins un caractère - pour des raisons assez techniques, avec juste vous end obtiendrez une nouvelle ligne de plus ajouté A connu. Tk gotcha.)

+0

BTW, comment vous l'écrivez à l'écran est à vous; il y a * beaucoup * de façons de le faire ... –