Perl深拷贝
来源:互联网 发布:c语言头文件 stdio.h 编辑:程序博客网 时间:2024/05/22 01:23
使用mkdir可以创建一个目录,但只能创建一个目录。
使用mkpath则可以创建连续的子目录。在linux下使用cp -p同样可以实现同样的功能。 再使用File::Copy来拷贝。
1 use File::Path; 2 use File::Copy; 3 sub writeSubFolder 4 { 5 my $root = 'E:/perl_work/'; 6 my $toDir = "project/pages/test/test.jpg" ; 7 my $fileName = "tmp/test.jpg"; 8 $toDir =~ m|(.*)/.+$| ; 9 my $subFolder = $1; 10 print "creating $subFolder"; 11 if( chdir($root) ) 12 { 13 mkpath($subFolder) or die "createFolder error!" unless( -e $subFolder ); 14 copy($fileName , $subFolder) or die "copy error"; 15 } 16 }
- Perl深拷贝
- Perl中哈希结构的深度拷贝
- perl 文件目录的创建删除拷贝
- 深拷贝&&浅拷贝
- 深拷贝||浅拷贝
- 浅拷贝,深拷贝
- 浅拷贝,深拷贝
- 深拷贝,浅拷贝
- 浅拷贝 深拷贝
- 浅拷贝.深拷贝
- 浅拷贝 深拷贝
- 深拷贝,浅拷贝
- 深拷贝、浅拷贝
- 深拷贝、浅拷贝
- 深拷贝+浅拷贝
- 深拷贝 浅拷贝
- 浅拷贝、深拷贝
- 浅拷贝、深拷贝
- perl字符串映射函数
- 共享内存mmap
- Linux下Java写文件ANSI_X3.4-1968的问题
- Soundex语音算法
- 删除Linux乱码文件
- Perl深拷贝
- perl传递数组的问题
- Git diff hash顺序的问题
- Ojective C入门
- IOS写文件
- perl文件名过滤工具
- 推荐引擎基本原理
- Perl分割字符串的一个精妙的写法
- objective-c目录递归