如何用Perl 写个判断语句,判断文件夹是否有文件

Python/PHP/Perl 开发与设计
回复
liucheng1513
帖子: 62
注册时间: 2010-09-08 18:17
送出感谢: 0
接收感谢: 0

如何用Perl 写个判断语句,判断文件夹是否有文件

#1

帖子 liucheng1513 » 2010-11-27 16:38

如何用Perl 写个判断语句,判断/home/work/tmp文件夹内是否有文件,有文件执行A 没有文件文件执行B
头像
trigger
帖子: 1585
注册时间: 2006-10-25 18:08
送出感谢: 0
接收感谢: 0

Re: 如何用Perl 写个判断语句,判断文件夹是否有文件

#2

帖子 trigger » 2010-11-27 17:33

代码: 全选

#! /usr/bin/perl
$dir = "~/music";
@dir_file = <$dir/*>;
if (@dir_file) {
  print "$_\n" for (@dir_file);
}else{
  print "empty\n";
}
楼主真是一派胡言,真可谓:“两个黄鹂鸣翠柳,不知所云;一行白鹭上青天,不知所止“。本来不想和你辩论,今天气愤不过,和你理论一番。我国宪法写得清清楚楚:“一夜夫妻百日恩,七楼以上才有电梯”。这个想必你知道,既然知道,你就不能断章取义,就算是天气预报,它还有不准的时候呢!!!再者说了,那中国银行也不是你一家开的。人家马拉多纳都结婚了,你还拿着粮票顶什么用呢。真是滑天下之大稽。前些日子,全国人大刚刚开过会,郑重声明:“中国不搞多party制,存栏母猪给补贴”。多好的事呢,楞让你这号人给搅混了。
头像
ChenFengyuan
帖子: 770
注册时间: 2008-03-23 0:39
送出感谢: 0
接收感谢: 4 次

Re: 如何用Perl 写个判断语句,判断文件夹是否有文件

#3

帖子 ChenFengyuan » 2010-11-27 17:34

if(glob "/path/to/dir/*")
{print "have files"}
else{print "no file"}' :em11
回复

回到 “Python/Php/Perl”