匹配某目錄下所有文件
#
!/usr/bin/perl?-w
$file_pattern ? = ? ' f:/tmp/*.pl ' ;
@file_list ? = ? glob ( $file_pattern );
foreach ? $file ?( @file_list )
{
???? print ? $file , ? " \n " ;
}
$file_pattern ? = ? ' f:/tmp/*.pl ' ;
@file_list ? = ? glob ( $file_pattern );
foreach ? $file ?( @file_list )
{
???? print ? $file , ? " \n " ;
}
posted on 2006-03-26 17:30 weidagang2046 閱讀(310) 評論(0) 編輯 收藏 所屬分類: Perl