123456789101112131415161718192021222324 |
- #!/usr/bin/perl
- print "Hallo World\n";
- my @FileList = `find -name 'backup_settings'`;
- foreach (@FileList) {
- chomp;
- $OrigFile=$_;
- if (m/(.*)backup_settings/)
- {
- $_=$1;
- s/^\.//g;
- s/\//\./g;
- s/\.$//;
- $DirString=$_;
- };
- print "copy $OrigFile backup_settings$DirString \n";
- system ("cp $OrigFile backup_settings$DirString");
- }
|