perl 寫表格到excel,實(shí)現(xiàn)動(dòng)態(tài)sheet個(gè)數(shù)和內(nèi)容

oliversai

文件sn內(nèi)容為：
Warning:jlfjalkjfldajflk(UID-346)
Warning:jlfjalkjfldajflk(UID-376)
Warning:jlfjalkjfldajflk(UID-34
Warning:jlfjalkjfldajflk(UID-346)
Warning:jlfjalkjfldajflk(UID-376)
Warning:jlfjalkjfldajflk(UID-34

想每個(gè)UID類型寫到一個(gè)sheet里，然后在讀去每行是判斷什么類型的，寫到相應(yīng)的sheet里，每判斷一行，相應(yīng)的sheet里多一行這個(gè)warning；
在實(shí)現(xiàn)時(shí)，遇到問題：Can't call method "write" without a package or object reference at excel.pl line 91, <IN> line 4.
主體程序段如下：各位幫忙看下，謝謝
open IN,"sn"||die "can not open the file $!\n";
while (<IN> {
    if ($_ =~ /(Warning:.*\((\S+)\))/) {
        $type = $2;
        $content = $1;
        $hash->{$type}->{$type}    = $type;
        $hash->{$type}->{$content} = $content;
        for ($m =0,$m <=$#type,$m++) {
            if($type[$j] eq $hash->{$type}->{$type}) {
                $new_flag = 1;
                last;
            }
            else {
                $new_flag = 0;
                print "bbbbbbbbbb\n";
            }
        }
        if (!($new_flag)) {
            $type[$k] = $hash->{$type}->{$type} ;
            $hash->{$type}->{$type}->{number} =1;
            $worksheetno   = '$worksheet'.$k;
            ${worksheetno} = $workbook->add_worksheet("$type[$k]";
            $worksheetno->write("B2", "$hash->{$type}->{$content}";
            $worksheetno->write("C2", "$hash->{$type}->{$type}->{number}";
            $count++;
            $k++;
        }
        else {
            $hash->{$type}->{$type}->{number} ++;
            $worksheetno   = '$worksheet'.$m;
            $rowno  = $hash->{$type}->{$type}->{number};
            $worksheetno->write("B2", "aa";
        }
    }
}