I have written this much of code as of now.
#!/usr/bin/perl use strict; use warnings; use POSIX (); print ("Enter the directory name and date as input arguments:"); chomp($which_directory=@ARGV[0]); chomp($which_date=@ARGV[1]); die("Nothing entered as directory path name\n" if ($which_directory eq + ""); die("Nothing enetered as update date\n" if ($which_date eq ""); opendir(DIR,$which_directory); my @dir = grep { !/^\.+$/ } readdir(DIR); foreach (@dir) { -->Here I need to get all sub directories and then do a cd in each + diectory }
In reply to Re^2: Please advice
by ashish_sun123
in thread Please advice
by ashish_sun123
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |