Shell Programming and Scripting

#!/usr/bin/perl -w

use warnings;
use strict;
use Time::Local;
use File::Copy;

my @dirs = ("<path1>","<path2>","<path3>");
my %seen;
while (my $pwd = shift @dirs) {
    opendir(DIR,"$pwd") or die "Cannot open $pwd\n";
    my @files = readdir(DIR);
    closedir(DIR);
    foreach my $file (@files) {
        if (-d $file and ($file !~ /^\.\.$ARGV[0]$/) and !$seen{$file}) {
            $seen{$file} = 1;
            push @dirs, "$pwd/$file";
        }
        next if ($file !~ /\.$ARGV[0]$/i);
        my $mtime = (stat("$pwd/$file"))[9];
        print   "$pwd \t $file \t", scalar(localtime($mtime));
        print "\n";
    }
}

#!/usr/bin/perl

use strict;
use warnings;
open (my $fh, '<', 'test.txt') || die "Could not open test.txt: $!\n";
my @test = grep { $_ !~ /^#/ } <$fh>;
print @test;

#!/usr/bin/perl

use strict;
use warnings;
my @test;
open (my $fh, '<', 'test.txt') || die "Could not open test.txt: $!\n";
while(<$fh>)
{
  chomp;
  push(@test,$_) if($_ !~ /^#/);
}
print @test;

#!/usr/bin/perl -w

use warnings;
use strict;
use Time::Local;
use File::Copy;

my @dirs = ();
open (my $fh, '<', 'test.txt') || die "Could not open test.txt: $!\n";
while(<$fh>)
{
  chomp;
  push(@dirs,$_) if($_ !~ /^#/);
}

my %seen;
while (my $pwd = shift @dirs) {

### REST OF THE CODE ###

()

my @dirs = ();

sort

sort @array