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);
}
BTW, comment vous l'écrivez à l'écran est à vous; il y a * beaucoup * de façons de le faire ... –