随笔分类 -  Perl

摘要：第一次Perl项目中经常用到脚本①创建目录#@ARGV传入要创建的目录&create_directory(shift); sub create_directory(){ my $directory= shift; my $mask=0755; #权限--Windows可以不用 unless(-e $directory){ mkdir($directory); }}#函数定义mkdir(FILENAME, MODE); (UNIX)mkdir(FILENAME); (Windows)②获取当前文件相关目录信息 ◆获取当前文件名：　__FILE__ ※... 阅读全文