Said this, your question is slightly ambiguous. For if there are duplicate filenames you may have conflicts when trying to move them into "results". If you don't care about this a very rough primer may be along these lines:

#! /usr/bin/perl -l

use strict;
use warnings;
use File::Find;
use File::Basename;

@ARGV = grep { -d or !warn "`$_': not a directory!\n" } @ARGV;
die "Usage: $0 <target> <source> [<sources>]\n"
  if @ARGV < 2;

my $target=shift;

find { no_chdir => 1,
       wanted => sub {
           return unless /\.output$/;
           my $dest="$target/" . basename $_;
           rename $_, $dest or
             warn "Can't move `$_' to `$dest': $!\n" and
             return;
           print "`$_' => `$dest'\n";
       } }, @ARGV;

__END__
[download]

• trailing slashes: a relevant module may be File::Spec,
• checking the destinations.

As others have said, this can be done in Perl. But ... how many files do you have? If they will fit into the arguments list of a program then you can do this easily in the Unix shell:

If that works for you, then it may be easier than coding it in Perl. (And if you need it in a script then you can always use system).

Smylers

find ~/MyPerl/dir* -name '*.output' -exec mv '{}' ~/MyPerl/result \;

for n in `seq 1 50`; do mv ~/MyPerl/dir$n/*.output ~/MyPerl/result/; d
+one

for f in `find ~/MyPerl/dir* | grep 'output$'`; do mv $f ~/MyPerl/resu
+lt/; done
[download]

use File::Copy;
use File::Find;

find(sub{ push @_files, $Find::File::name }, @src_dirs);
copy $_, "dst_dir/$_" for @_files;
[download]

Yes, you can do easily by using File::Find.

my 100th post.