Below a script in Perl. Here is one example of getting file list of a given directory recursively.
use strict;
use File::Find;
use File::Copy;
use Data::Dumper;
my @FILE_LIST;
# -- main --
{
my $sDir = "/home/username";
my @aFileList = GetFileList($sDir);
}
# ----------------------------
sub GetFileList($)
# ----------------------------
{
my $root = shift;
@FILE_LIST = ();
find(\&filter, $root);
return @FILE_LIST;
}
# ----------------------------
sub filter
# ----------------------------
{
my $root = $File::Find::topdir;
my $path = $File::Find::name;
my $file_name = $_;
if( $file_name =~ /\.(cgi|pl)$/i )
{
$root =~ s/\\/\\\\/g;
$path =~ s/^$root[\/\\]//;
push @FILE_LIST, $path;
}
}
3.9 Conditions on Personal Data applicable to Intermediaries: In particular, travel agents and other parties who submit Personal Data of other individuals through our website in connection with reservations or bookings at properties owned or managed by us ("Intermediaries") agree with and undertake to us that in doing so they (1) shall comply with all applicable data protection laws to the extent relevant, (2) shall ensure that such submission and disclosure is permitted under applicable data protection laws, and further represent and warrant that the necessary and appropriate consents from the individuals to whom the Personal Data relates have been obtained (directly or indirectly), in compliance with applicable data protection laws, so as to enable such Personal Data to be disclosed to, collected, used and otherwise processed by us (and our agents and service providers) for purposes of the reservations or bookings and related purposes (and where Intermediaries have consented on behalf of other individuals to the receiving of marketing and promotional materials, the foregoing representation and warranty on consents extends to such additional purposes), in compliance with applicable data protection laws, (3) shall keep and maintain complete and proper records of the consents obtained and upon our request shall provide copies of such consents, and (4) have read, understood and agreed to this Ascott Personal Data Protection Policy.