v1.0
#读取当前目录下的文件名列表 use strict; opendir TMP, "./" || die "cannot open dir"; open RES, ">./file_list.txt" || die "Cannot open and write"; foreach (readdir TMP){ if(/.+\.pdf/){ print RES "$_\n"; } }
原文地址:https://www.cnblogs.com/liulele/p/11518470.html
时间: 2024-08-29 07:31:04