主题:  [求助]这个怎么写?

薪火千叶
职务：普通成员
等级：1
金币：0.0
发贴：34
注册：2002/5/15 5:59:26
#12002/7/4 23:10:36
用Perl的最底层代码来写一个返回所有子目录的程序，
要求：
1 Perl无递归
2 不能用PM包
3 附带原代码，注释，代码少与10行,要求完全正确
4 参照函数: opendir ; -d ; foreach ; grep
请各位大虾帮忙
谢谢

helmet
职务：版主
等级：4
金币：10.0
发贴：1559
注册：2004/1/30 15:59:27
#22002/7/5 17:14:05
#! /usr/bin/perl

$path="/home/liming/" ;
opendir(DIR,$path) || die "can't opendir: $!";

if(-d $path)
{
@file = readdir(DIR) ;
foreach(@file)
{
print($_ . "\n") ;
}
}
else
{
print("the dir not exist !") ;
}

closedir(DIR) ;
---------------------------------------
符合要求么？ :)

编辑历史:[这消息被deathcult编辑过(编辑时间2002-07-05 17:14:35)]
[这消息被deathcult编辑过(编辑时间2002-07-05 17:15:14)]

http://www.bang5.com

helmet
职务：版主
等级：4
金币：10.0
发贴：1559
注册：2004/1/30 15:59:27
#32002/7/5 20:06:38
#! /usr/bin/perl #定义由perl来解释。
$path="/home/liming/" ; #设定路径。

opendir(DIR,$path) ; #打开文件句柄handle 。
if(-d $path) #如果存在这个目录。
{
foreach(@file=readdir(DIR)) #用readdir()函数将文件/目录符给数组
{
print($_ . "\n") ; #打印@file的每一个元素。
}
}
else
{
print("the dir not exist !") ;
}

closedir(DIR) ; #关闭文件句柄。


http://www.bang5.com