perl 从命令行读取文件并打开 

my $file = $ARGV[0];
open(FILE,"$file") or die "can't open $file";

 

posted @ 2018-08-22 14:30  maxsmile17  阅读(700)  评论(0)  编辑  收藏  举报