当前时区为 UTC + 8 小时



发表新帖 回复这个主题  [ 3 篇帖子 ] 
作者 内容
1 楼 
 文章标题 : 如何用Perl 写个判断语句,判断文件夹是否有文件
帖子发表于 : 2010-11-27 16:38 

注册: 2010-09-08 18:17
帖子: 62
送出感谢: 0 次
接收感谢: 0 次
如何用Perl 写个判断语句,判断/home/work/tmp文件夹内是否有文件,有文件执行A 没有文件文件执行B


页首
 用户资料  
 
2 楼 
 文章标题 : Re: 如何用Perl 写个判断语句,判断文件夹是否有文件
帖子发表于 : 2010-11-27 17:33 
头像

注册: 2006-10-25 18:08
帖子: 1582
送出感谢: 0 次
接收感谢: 0 次
代码:
#! /usr/bin/perl
$dir = "~/music";
@dir_file = <$dir/*>;
if (@dir_file) {
  print "$_\n" for (@dir_file);
}else{
  print "empty\n";
}


_________________
楼主真是一派胡言,真可谓:“两个黄鹂鸣翠柳,不知所云;一行白鹭上青天,不知所止“。本来不想和你辩论,今天气愤不过,和你理论一番。我国宪法写得清清楚楚:“一夜夫妻百日恩,七楼以上才有电梯”。这个想必你知道,既然知道,你就不能断章取义,就算是天气预报,它还有不准的时候呢!!!再者说了,那中国银行也不是你一家开的。人家马拉多纳都结婚了,你还拿着粮票顶什么用呢。真是滑天下之大稽。前些日子,全国人大刚刚开过会,郑重声明:“中国不搞多party制,存栏母猪给补贴”。多好的事呢,楞让你这号人给搅混了。


页首
 用户资料  
 
3 楼 
 文章标题 : Re: 如何用Perl 写个判断语句,判断文件夹是否有文件
帖子发表于 : 2010-11-27 17:34 
头像

注册: 2008-03-23 0:39
帖子: 770
送出感谢: 0 次
接收感谢: 4
if(glob "/path/to/dir/*")
{print "have files"}
else{print "no file"}' :em11


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

当前时区为 UTC + 8 小时


在线用户

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


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

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

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