perl/Tk Canvas createLine問題

hypomac

1. #!/usr/bin/perl
   
2. use strict;
   
3. use warnings;
   
4. use Tk;
   
5. 
   
6. my $mw = MainWindow->new;
   
7. $mw->geometry('600x400');
   
8. my $canvas=$mw->Scrolled('Canvas',-scrollbars=>'se');
   
9. 
   
10. $points="1,300,20,200,30,300,40,200";
    
11. $canvas->createLine(1,300,20,200,30,300,40,200,-joinstyle=>'round',-smooth=>1);
    
12. #$canvas->createLine($points,-joinstyle=>'round',-smooth=>1);
    
13. 
    
14. $canvas->configure(-background=>'grey',-scrollregion=>[$canvas->bbox("all")]);
    
15. $canvas->pack(-fill=>'both',-expand=>1);
    
16. 
    
17. MainLoop;

復(fù)制代碼

用第11行的寫法沒問題，但是把坐標(biāo)點(diǎn)存在一個變量里用第12行的寫法就報錯（wrong # coordinates: expected an even number）,坐標(biāo)點(diǎn)需要從文件里讀取，怎樣能解決這個問題，使用12行那樣的寫法

slgadbee

最近也在折騰PERL/TK，但是我是純菜。。想請教一下TK模塊怎么安裝。。
我在WINDOW，下和在UBUNTU下裝都是報錯。。。郁悶

hypomac

windows下先裝active perl，然后用ppm裝Tk

hypomac

知道怎么回事了，必須用至少4個變量才可以，并且每個變量的值必須是數(shù)字，不能用$point="100,200";這種方式

新的問題：坐標(biāo)點(diǎn)都是從文件讀取的，數(shù)量很多，個數(shù)不確定，怎么寫能把線畫出來？