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;

复制代码

用第11行的写法没问题，但是把坐标点存在一个变量里用第12行的写法就报错（wrong # coordinates: expected an even number）,坐标点需要从文件里读取，怎样能解决这个问题，使用12行那样的写法

slgadbee

最近也在折腾PERL/TK，但是我是纯菜。。想请教一下TK模块怎么安装。。
我在WINDOW，下和在UBUNTU下装都是报错。。。郁闷

hypomac

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

hypomac

知道怎么回事了，必须用至少4个变量才可以，并且每个变量的值必须是数字，不能用$point="100,200";这种方式

新的问题：坐标点都是从文件读取的，数量很多，个数不确定，怎么写能把线画出来？