Perl, как печатать в список Perl/ TK

Question

Как отправить вывод на печать в поле списка Perl/ TK, может быть неограниченное количество строк печати. я знаю, как создать список, но не знаю, как вызвать список и распечатать его. это код, который производит печать построчно.

  [code]
    #!/usr/bin/perl -w
    use strict;

     #Read input file a line at a time

      $mydelimiter=",";



       open (INPUT1,"$INFILE1") or
         die " cannot open $INFILE1";

       while (<INPUT1>) { 
    @INFILE = ($_);
    chomp($_);
    @FAILS = split (/,/,);
    @SERVER = splice (@FAILS,0,1);
    @TYPE = splice (@FAILS,0,1);
    @REASON = splice (@FAILS,0,1);
    @STATUS = splice (@FAILS,0,1);
    @TICKET = splice (@FAILS,0,1);
    @RESOLUTION = splice (@FAILS,0,1);
    foreach $server1 (@SERVER) {
        $servers = $server1;
        $servers =~ tr/[a-z]/[A-Z]/;
    }   

    foreach $type1 (@TYPE) {
        $types = $type1;
        $types =~ tr/[a-z]/[A-Z]/;
    }   

    if ( "$types" eq "F") {
    $types="FAILED";
    }
    else {
    if ("$types" eq "S") {
    $types="FILES";
    @TICKET="TICKET";
    }}

    $value= &read_location;
    if ("$value" ne "0"){
    print "@SERVER \n";
    }
        [code]

Answer 1

Вот пример сценария perl/tk с использованием списка

#!/usr/bin/perl

use strict;
use warnings;
use Tk;


my $win = new MainWindow;
$win->geometry("400x300");

my $listbox = $win->Scrolled("Listbox", -scrollbars => 'se')
->pack(-expand => 1, -fill => 'both');

my @array = qw/hello there world/;
$listbox->insert('end', @array);

#or
for(@array){
    $listbox->insert('end', $_); #for single elements, note it appends to the listbox
}
MainLoop;

Вот хороший ресурс для продолжения исследований и информации с использованием perl/tk

http://docstore.mik.ua/orelly/perl3/tk/index.htm