perl - 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]