open为什么出错？

thevoice

UID: 22286
帖子: 1
积分: 2
在线时间: 10 分钟

1^# thevoice 发表于 2007-04-18 16:01

open为什么出错？

open为什么出错？
代码
[code]
#! /usr/perl/bin
use warnings;
use strict;

open (MYFILE, "file1") || die ("Could not open file");
[/code]
错误提示
[code]
Name "main::MYFILE" used only once: possible typo at D:\\program\perl\test.pl line 6.
Could not open file at D:\sai\program\perl\test.pl line 6.
[/code]

win + activeperl + ultraedit32

福尔马林

UID: 21234
帖子: 129
积分: 296
在线时间: 23 小时

2^# 福尔马林发表于 2007-04-18 16:09

把||换成or试试.

thevoice

UID: 22286
帖子: 1
积分: 2
在线时间: 10 分钟

3^# thevoice 发表于 2007-04-18 16:18

换成了or 也不行：（换成了or 也不行：（

福尔马林

UID: 21234
帖子: 129
积分: 296
在线时间: 23 小时

4^# 福尔马林发表于 2007-04-18 16:20

那你那文件存在吗？.

thevoice

UID: 22286
帖子: 1
积分: 2
在线时间: 10 分钟

5^# thevoice 发表于 2007-04-18 16:25

就是不存在想学习die语句的使用啊

现在看perl语言入门跟着学

anthony

UID: 5578
帖子: 196
积分: 450
在线时间: 2 天 4 小时

6^# anthony 发表于 2007-04-18 17:50

原因是--use warnings;<.
原因是
use warnings;
use strict;

thevoice

UID: 22286
帖子: 1
积分: 2
在线时间: 10 分钟

7^# thevoice 发表于 2007-04-19 07:56

注释掉以后确实好了--为.
注释掉以后确实好了
为什么不能用
use warnings;
use strict; 呢？

lanfd

UID: 8797
帖子: 79
积分: 181
在线时间: 8 小时

8^# lanfd 发表于 2007-04-19 09:06

估计因为你后面的程序没有close MYFILE;

福尔马林

UID: 21234
帖子: 129
积分: 296
在线时间: 23 小时

9^# 福尔马林发表于 2007-04-19 09:36

那句只是警告，告诉你那个.
那句只是警告，告诉你那个句柄后来没有被用到，白开了。

thevoice

UID: 22286
帖子: 1
积分: 2
在线时间: 10 分钟

10^# thevoice 发表于 2007-04-19 11:21

非常感谢：）刚开始学PE.
非常感谢：）刚开始学PERL 以后请多指教