列出目錄下的所有子目錄和文件名
#
!/usr/bin/perl?-w
@files ? = ? < d :/*> ;
print ? join ( " \n------\n " , ? @files );
@files ? = ? < d :/*> ;
print ? join ( " \n------\n " , ? @files );
posted on 2006-08-14 17:36 weidagang2046 閱讀(567) 評論(0) 編輯 收藏 所屬分類: Perl