主要为文件及目录操作方法#!/usr/bin/perl w printf"write the path you want to search files:"; $searchdir=STDIN; chomp $searchdir; printf "Input search string:"; $searchstr=STDIN; chomp $searchstr; opendir(DIRHANDLE,$searchdir) || die "Cann''t open $searc