perl 主函数和子函数的问题
时间：2010-08-23
来源：互联网
各位高手，我下面的程序，似乎是一个死循环，帮忙解决下，非常感谢！
#!/usr/bin/perl
use warnings;
open CONA,"mpcb.txt";
while(CONA)
{
if(eof)
{
exit;
}
else
{
print &m,"\n";
}
}
close CONA;
print "i can not believe in it\n";
sub m
{
8-1;
}
也就是说，我的命令界面会一直不断地出现7，却无法运行到print "i can not believe in it\n";这一行，请问这是什么问题？我该如何解决？
#!/usr/bin/perl
use warnings;
open CONA,"mpcb.txt";
while(CONA)
{
if(eof)
{
exit;
}
else
{
print &m,"\n";
}
}
close CONA;
print "i can not believe in it\n";
sub m
{
8-1;
}
也就是说，我的命令界面会一直不断地出现7，却无法运行到print "i can not believe in it\n";这一行，请问这是什么问题？我该如何解决？
作者: qianyuinsour 发布时间: 2010-08-23
while(<CONA>)
应该这么写
应该这么写
作者: 99超人 发布时间: 2010-08-23
回复 99超人
谢谢 99超人！改过来之后，7出现的次数就是打开文件的行数了，这一点已经正确。但是还是有一个问题，就是没有运行最后的 print "i can not believe in it\n";这个命令行，请问这个问题该怎么解决？
谢谢 99超人！改过来之后，7出现的次数就是打开文件的行数了，这一点已经正确。但是还是有一个问题，就是没有运行最后的 print "i can not believe in it\n";这个命令行，请问这个问题该怎么解决？
作者: qianyuinsour 发布时间: 2010-08-23
回复 qianyuinsour
因为
if(eof)
{
exit;
}
你程序执行到这里就退出了，所以不会执行后面的print语句
其实这段可以删除的
因为
if(eof)
{
exit;
}
你程序执行到这里就退出了，所以不会执行后面的print语句
其实这段可以删除的
作者: 99超人 发布时间: 2010-08-23
回复 99超人
谢谢 99超人！
问题就在这，看来我还得再看一遍小骆驼
谢谢 99超人！
问题就在这，看来我还得再看一遍小骆驼 作者: qianyuinsour 发布时间: 2010-08-23
exit是程序退出，循环退出用 last
作者: wuxiaojian1984 发布时间: 2010-08-23
相关阅读 更多
热门阅读
-
office 2019专业增强版最新2021版激活秘钥/序列号/激活码推荐 附激活工具
阅读：74
-
如何安装mysql8.0
阅读：31
-
Word快速设置标题样式步骤详解
阅读：28
-
20+道必知必会的Vue面试题（附答案解析）
阅读：37
-
HTML如何制作表单
阅读：22
-
百词斩可以改天数吗？当然可以，4个步骤轻松修改天数！
阅读：31
-
ET文件格式和XLS格式文件之间如何转化？
阅读：24
-
react和vue的区别及优缺点是什么
阅读：121
-
支付宝人脸识别如何关闭?
阅读：21
-
腾讯微云怎么修改照片或视频备份路径?
阅读：28
