Opendir范例代码,Perl代码库,德仔网

代码语言

代码分类

【Perl】 Opendir范例

作者:不吃皮蛋 / 发布于2014/9/12/ 369


	# load all files of the "data/" folder
	# into the @files array
	opendir(DIR, "data/");
	@files = readdir(DIR);
	closedir(DIR);
	
	
	# build a unsorted list from the
	# @files array:
	
	print "<ul>";
	
	foreach $file (@files) {
	 next if ($file eq "." or $file eq "..");
	 print "<li><a href=\"$file\">$file</a></li>";
	}
	
	print "</ul>";

评论列表

本站所提供的代码，版权归原作者所有，若有侵犯作者版权，请与我们联系，我们将立即删除或修改。谢谢!
本站所有代码发布及提供者。

　　

试试其它关键字

　Opendir　

同语言下

可能有用的

不吃皮蛋贡献的其它代码(18)