求助：perl怎么删除a*.txt文件？

mavina

unlink？
不能像shell那样是用通配符阿

wangrujun

unlink 可以通配符呀

       unlink LIST
       unlink  Deletes a list of files.  Returns the number of files success-
               fully deleted.

                   $cnt = unlink ’a’, ’b’, ’c’;
                   unlink @goners;
                   unlink <*.bak>;

               Note: "unlink" will not delete directories unless you are supe-
               ruser and the -U flag is supplied to Perl.  Even if these con-
               ditions are met, be warned that unlinking a directory can
               inflict damage on your filesystem.  Use "rmdir" instead.

               If LIST is omitted, uses $_.

wangrujun

1. 
   
2.       1 #! /usr/bin/perl -w
   
3.       2 #
   
4.       3
   
5.       4 use strict;
   
6.       5
   
7.       6 unlink(<ou*>);
   
8.       7
   
9. 
   

复制代码

mavina

原帖由 wangrujun 于 2006-8-17 11:44 发表
unlink 可以通配符呀

       unlink LIST
       unlink  Deletes a list of files.  Returns the number of files success-
               fully deleted.

                   $cnt = unlink ’a’, ’ ...

谢谢啦。
顺便问下File：：Copy可以使用通配符吗？

wangrujun

都可以的

mavina

原帖由 wangrujun 于 2006-8-17 11:55 发表
都可以的

use File::Copy;

copy("a*.txt", "/export/home/mavina");

不行啊，没拷过去

wangrujun

噢,perl 的copy只支持标量,所以不支持通配符.

`cp a*.txt /export`;