用perl如何在XP系统的桌面新建文件夹？

zhangfenyun

用perl如何在XP系统的桌面新建文件夹？

     例如：C:/DOCUME~1/ADMINI~1/桌面/22215/光绘原稿


    在  桌面上的 22215文件夹中新建  光绘原稿 文件夹      

    谢谢大家

sunzhiguolu

1. #!/usr/bin/perl
   
2. use strict;
   
3. use warnings;
   
4. 
   
5. my $path = 'C:\Users\your_name\Desktop\22215';
   
6. mkdir ($path . '\光绘原稿');

复制代码