やっつけコード。与えられたファイルリストから chmod, chown をするコードを吐き出す。

chperm_maker.pl

#!/usr/bin/perl

=head1 chperm_maker.pl

    与えられたファイルリストのパーミッションを
    変更するスクリプトを生成する

=head1 例

  $ find . -exec ls -d {} + | perl <this script path>

=head1 $flag について

  $flag = 1 にすると chown も行うコードを生成。
     chown <uid>:<gid> <path> となるため、
     対象サーバでUID,GIDが同一であること

=cut

use strict;
use warnings;
use File::stat;

my $flag = 0; 

while (<>) {
    chomp;
    my $path = $_;
    my $st = stat $path;
    printf "chmod %04o %s; ", $st->mode & 07777, $path;
    if ($flag == 1) {
        printf "chown %d:%d %s;\n", $st->uid, $st->gid, $path;
    } else {
        print "\n";
    }
}

# vim: sw=4 ts=4 et:

コレくらいならワンライナーでかけるだろクソがって声が聞こえた気がする

find . -exec ls -d {} + | perl -MFile::stat -ne 'my $f = $_; my $s = stat $f; printf "chmod %04o %s\n", $s->mode & 07777, $f;'