Question

Project #6 Perl This assignment has two parts. Each part must be done using Perl Part A find.pl Create the script find.pl which searches for files in a directory list based on a regular expression pattern . If the file name matches, print that file name If the file name doesn't match, it should look for instances of the regular expression within the text of the file. If found, it should print the filename, a colon, and the text for the first line that contained that pattern Ifthe -i option is passed, the script should return the opposite files (i.e., those which do not match the expression in file name or contents). The script should be invoked with the following format find.pl -i perlRegexpPattern ListofFiles where -i is optional Example data is located in /usr/local/courses/clark/cs3423/2017Fa/Proj6/ For part A, copy those into a directory named "DataA". Example: For a directory, DataA, containing the following files input.txt projPer11.input projz.c Assuming input.txt contains the following text proji.c proj1.o proj12. projPerl1.pl projz.h trash.txt Hello World This is input for proj1 Test data find.pl should behave in the following way (the order of the files is insignificant) $ find.pl ". *proj1.*" DataA/* input.txt:This is input for proj1 proj1.c proj1.o proj12.c $ find.pl -i ". *po1.*DataA/* projPer11.p projPerl1.input projz.c projz.h trash.txt

Answer 1

Code-1:

Unix Terminal> cat find.pl

#!/usr/bin/perl

use strict;

use warnings;

# validating if the given argument has atleast 2 arguments passed

if (@ARGV < 2){

print "Invalid argument. Atleast two arguments must be passed", "\n";

print "Usage $0 <perlRegex> <List of files>", "\n";

}

# if all the required arguments are passed

else{

# if -i option is passed

if($ARGV[0] eq "-i"){

# taking regex and dir name into the variables

my ($regex, $dir) = ($ARGV[1], $ARGV[2]);

# capturing directory list

my @dirList = glob $dir;

# iterating through files in directory

foreach my $file(@dirList){

# flag variable to verify if the filename does not contain regex in its name or contents

my $flag = 1;

# capturing the filename without complete path

my $basename = (split /\//, $file)[1];

# if filename does not contain the regex given

if($file =~ /$regex/){

$flag = 0;

}

else{

# opening the file in read mode and checking if file does not have the required regex

open(FH, "<" , "$file") or die "$file cannot be opened: $!";

# flag variable to check if the given regex is not in entire file

while(my $line = <FH>){

if($line =~ /$regex/){

$flag = 0;

last;

}

}

close(FH);

}

# if filename does not contain the regex match or in its content then flag variable will be 1 otherwise 0

if($flag){

print $basename, "\n";

}

}

}

else{

# taking regex and dir name into the variables

my ($regex, $dir) = ($ARGV[0], $ARGV[1]);

# capturing directory list

my @dirList = glob $dir;

# iterating through files in directory

foreach my $file(@dirList){

# capturing the filename without complete path

my $basename = (split /\//, $file)[1];

# if filename contains the regex given

if($file =~ /$regex/){

print $basename, "\n";

}

else{

# opening the file in read mode and checking if file contains the required regex

open(FH, "<" , "$file") or die "$file cannot be opened: $!";

while(my $line = <FH>){

if($line =~ /$regex/){

print "$basename: $line";

last;

}

}

close(FH);

}

}

}

}

Unix Terminal>

Code output screenshot:

Unix Terminal> ./find.pl Invalid argument. Atleast two arguments must be passed Usage ./find.pl <perlRegex> <List of files> Unix Terminal> ./find.pl "Hello" "DataA/" input.txt: Hello world trash.txt: Hello wor L Unix Terminal> cat DataA/input.txt Hello world This is input for proj1 Test data Unix Terminal> ./find.pl ".xproj1.*" "DataA/*" input.txt: This is input for proj1 proj1.c proj1.o proj 12.С Unix Terminal> ./find.pl -i ".*proj1.*" "DataA/*" projPerl1.input projPerli.per projZ.c projZ.h trash.txt Unix Terminal>

Code-2:

Unix Terminal> cat projectSorter.pl

#!/usr/bin/perl

use strict;

use warnings;

# validating if the given argument is atleast one argument passed

if (@ARGV != 1){

   print "Invalid argument. One argument must be passed", "\n";

   print "Usage $0 <directory>", "\n";

}

else{

   # retreiving one argument which is dirname

   my $dirname = $ARGV[0];

   # getting list of files from the given directory

   my @files = glob $dirname . '/*';

   # iterating through each file in given directory

   foreach my $file(@files){

       # getting the basename of file without /

       my $baseName = (split /[\/]/, $file)[1];

       # retreiving the name before extension if filename contains proj*

       if($baseName =~ /proj(.*)\./){

           # creating a subdirectory from the filename

           my $assign_name = $1;

           my $sub_dirname = $dirname . "/" . "assignment" . $assign_name;

           # creating a subdirectory

           unless(-e $sub_dirname and -d $sub_dirname){

               `mkdir $sub_dirname`;

           }

           # moving the file to sub directory

           `mv $file $sub_dirname`;

       }

       # creating a directory misc if filename does not contains proj*

       else{

           my $sub_dirname = $dirname . "/" . "misc";

           unless (-e $sub_dirname and -d $sub_dirname){

               `mkdir $sub_dirname`;

           }

           `mv $file $sub_dirname`;

       }

   }

   print "\n";

}

Unix Terminal>

Code output screenshot:

Unix Terminal> ls -tlrh total 16 drwxr-xr-x 11 vishal group 374B Oct 26 20:21 DataA -rxr-xr-x 1 vishal group 2.4K Oct 26 21:16 find.pl -rwx dnx r-xr-х 11 vishal group 3748 0ct 28 10:05 DataB Unix Terminal>ls -tlhr DataB total 0 r-xr-x 1 vishal group 1.2K 0ct 28 10:03 project Sorter.pl r- 1 vishal 0B Oct 28 06:53 projPerl1.perl 0B Oct 28 06:53 projPerl1.input group rw-r-r- -rW-r--r r 1 vishal group -rw-r-r1 vishal group B 0ct 28 06:53 proj1.o group B Oct 28 06:53 proj1.c r-1 vishal r- 1 vishal rw-r-r group B Oct 28 10:04 trash.txt -rw-r-r-1 vishal group B 0ct 28 10:04 input.txt -rw-r-r1 vishal group B 0ct 28 10:04 projz.h r- 1 vishal group r 1 vishal B 0ct 28 10:04 projZ.c rw-r-r- -rW-r--r Unix Terminal> /projectSorter.pl DataB Unix Terminal> Unix Terminal>ls -1thr DataB total 0 drwxr-xr-x 4 vishal group 136B 0ct 28 10:11 misc drwxr-xr-x 4 vish drwxr-xr-x 4 vishal group 136B Oct 28 18:11 assignmentPerl1 drwxr-xr-x 3 vishal group 182B Oct 28 10:11 assignment12 drwxr-xr-x 4 vish Unix Terminal ls -R DataB assignment1 assignment12 assignmentPerl1 assignmentz misc group B 0ct 28 10:04 proj12. roup 136B oct 28 18:11 assignmentz group 136B 0ct 28 10:11 assignment1 DataB/assignment1: projl.c proj1.o DataB/assignment12: proj12.c DataB/assignmentPerll: projPerl1.input projPerl1.perl DataB/assignmentZ: projz.c projZ.h DataB/misc: input.txt trash.txt Unix Terminal> pwd /Users/vishaL/HomeworkLib/perl/Project Unix Terminal>