如何将一组文件名开头相同的文件复制到其它文件夹中?

如何将一组文件名开头相同的文件复制到其它文件夹中?
把文件夹中的一组文件复制/移动到其它文件夹中.
abc.x
abc.y
abc.z

谢谢!:)

假如--abc.x--abc.y 假如
abc.x
abc.y
abc.z
在文件data1中，
现在把它移到data2中：
open IN "data1" || die "$!";
open OUT ">data2" || die "$!";
while (<IN>)
{
print OUT $_;
}
close IN;
close OUT;
这样就把data1中的内容复制到data2中了。

谢谢biomichael :)-- 谢谢biomichael :)

不过好像解决不了我的问题哦.
我是要把一个文件夹中的[color=red]其中几个[/color]文件名开头相同的文件复制到别的文件夹中

不是全部文件!

谢谢!

不好意思,下面的代码凑合能解决我的问题了,还请多多指点:)

use File::Copy;
my $datafile="abc";
my $path = "/dir/"; #存放文件的目录
opendir DIR, $path;
my @itemstomove=grep(/$datafile/i,readdir(DIR)); #读取该目录中文件名中含有"abc"
#的文件.[color=red]这里最好是能读取以
#"abc"开头的文件[/color]
closedir DIR;
my $newfile = "/newdir/";
foreach(@itemstomove){
move($_, $newfile) or die "File cannot be copied.";
}

呵呵，不好意思阿，是我看.
呵呵，不好意思阿，是我看错了，把文件夹看成文件了。
嗯，这个程序可以的

[quote]--...--my $da.
[quote]
...
my $datafile="abc";
my $path = "/dir/"; #存放文件的目录
opendir DIR, $path;
my @itemstomove=grep(/$datafile/i,readdir(DIR)); #读取该目录中文件名中含有"abc"
#的文件.这里最好是能读取以
#"abc"开头的文件
closedir DIR;
my $newfile = "/newdir/";
foreach(@itemstomove){
move($_, $newfile) or die "File cannot be copied.";
}
[/quote]
试试
for(glob $path.$datafile.'*') {
move($_, $newfile) or die "File cannot be copied.";
}

cp /newpath/to/foo/abc.*.
cp /newpath/to/foo/abc.* /path/to/bar

我也喜欢上面的方法.

不错，顶一下。.