当前时区为 UTC + 8 小时



发表新帖 回复这个主题  [ 3 篇帖子 ] 
作者 内容
1 楼 
 文章标题 : perl use strict open FILE fail (解决)
帖子发表于 : 2010-01-15 5:50 

注册: 2008-11-19 12:41
帖子: 52
送出感谢: 0 次
接收感谢: 0 次
#!/usr/bin/perl
use strict;

foreach (reverse @ARGV){
open FILE, $_;
if (!FILE){
die "File does not exist";
}
while (<FILE>){
print "$_\n";
}
}

# perl version 5.10
# Bareword "FILE" not allowed while "strict subs" in use at ./ex05 line 12.
# Execution of ./ex05 aborted due to compilation errors.

如果不用 use strict;
脚本没有问题,但加了 use strict; 就报Bareword "FILE"

谢谢


最后由 yins 编辑于 2010-01-15 11:54,总共编辑了 1 次

页首
 用户资料  
 
2 楼 
 文章标题 : Re: perl use strict open FILE fail
帖子发表于 : 2010-01-15 11:54 

注册: 2008-11-19 12:41
帖子: 52
送出感谢: 0 次
接收感谢: 0 次
#!/usr/bin/perl
use strict;

foreach (reverse @ARGV){

if (!open FILE, $_;){ # !FILE is wrong
die "File does not exist";
}
while (<FILE>){
print "$_\n";
}
}

自己的疏忽...


页首
 用户资料  
 
3 楼 
 文章标题 : Re: perl use strict open FILE fail
帖子发表于 : 2010-01-15 17:40 
头像

注册: 2007-02-27 21:47
帖子: 1475
地址: GL
送出感谢: 0 次
接收感谢: 0 次
yins 写道:
#!/usr/bin/perl
use strict;

foreach (reverse @ARGV){

if (!open FILE, $_;){ # !FILE is wrong
die "File does not exist";
}

open (FILE, $_) or die "File does not exist\n"; #更简洁些

while (<FILE>){
print "$_\n";
}
}

自己的疏忽...


_________________
Core i5, 512G + SSD 20G, DDRIII 8G


页首
 用户资料  
 
显示帖子 :  排序  
发表新帖 回复这个主题  [ 3 篇帖子 ] 

当前时区为 UTC + 8 小时


在线用户

正在浏览此版面的用户:没有注册用户 和 2 位游客


不能 在这个版面发表主题
不能 在这个版面回复主题
不能 在这个版面编辑帖子
不能 在这个版面删除帖子
不能 在这个版面提交附件

前往 :  
本站点为公益性站点,用于推广开源自由软件,由 DiaHosting VPSBudgetVM VPS 提供服务。
我们认为:软件应可免费取得,软件工具在各种语言环境下皆可使用,且不会有任何功能上的差异;
人们应有定制和修改软件的自由,且方式不受限制,只要他们自认为合适。

Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group
简体中文语系由 王笑宇 翻译