Solved

Finding modified date of the file and moving file to folder in perl

Posted on 2010-11-11
13
515 Views
Last Modified: 2012-06-22
Hi,

In perl how do I take the file modified date and create folder with name

archiveold/yyyy/MM/dd

suppose file modified date is 25-Oct-2010

If not exists then folders created should be

archiveold/2010/Oct/25

then I wanted to move the file to its relevant date folder

while (*.xml) {
  chomp;
  $file=$_ ;

  # suppose file modified date is 25-Oct-2010
  # create folders at path archiveold/2010/Oct/25 if dos not exists
  # move file in folder 'archiveold/2010/Oct/25'

}

Please guide
0
Comment
Question by:tia_kamakshi
  • 8
  • 5
13 Comments
 
LVL 84

Expert Comment

by:ozo
ID: 34118203
use POSIX;
use File::Path qw(make_path);
while( <*.xml> ){
   my $path=strftime"archiveold/%Y/%m/%d",localtime((stat)[9]);
   make_path $path;
   rename $_,"$path/$_" or warn "$path/$_ $!";
}
0
 

Author Comment

by:tia_kamakshi
ID: 34119233
Hi,

Thanks for your code

When I am running my code below, then I am getting the error saying

"make_path" is not exported by the File::Path module
Can't continue after import errors at ./archiveFiles.pl line 4
BEGIN failed--compilation aborted at ./archiveFiles.pl line 4.


Please guide

Many Thanks
#!/usr/bin/perl



use POSIX;

use File::Path qw(make_path);





my $srcdir = "/home/dbali/config/";



opendir(DIR, $srcdir) or die "Can't open $srcdir: $!";

my @files = grep { /\.*$/i } readdir(DIR);



foreach my $file (@files) {

   my $path=strftime"archiveold/%Y/%m/%d",localtime((stat)[9]);

   make_path $path;

   rename $_,"$path/$_" or warn "$path/$_ $!";

}

Open in new window

0
 
LVL 84

Expert Comment

by:ozo
ID: 34119336
What version of File::Path do you have?
does
use File::Path;
mkpath $path;
work?

Also, if you are using $file as your loop variable, then
localtime((stat)[9])
should be
localtime((stat "$srcdir/$file")[9]);
and
rename $_,"$path/$_"
should be
rename "$srcdir/$file","$path/$file";

also, /\.*$/i always matches, since all strings have zero or more "." before the end
so the grep is a noop

0
 

Author Comment

by:tia_kamakshi
ID: 34120243
Many Thanks for your reply

I need all types of files

what should I write instead of /\.*$/i  in my below code to list all files regardless of any extension.

But list should not folders and files in subdirectories

my @files = grep { /\.*$/i } readdir(DIR);


Many Thanks for your help
0
 

Author Comment

by:tia_kamakshi
ID: 34121610
Hi,

I have modified my code to below. It is giving me error saying

Use of uninitialized value in -d at /usr/share/perl/5.8/File/Path.pm line 143.
fileparse(): need a valid pathname at /usr/share/perl/5.8/File/Path.pm line 144


Also, please help me in fixing

I need all types of files

what should I write instead of /\.*$/i  in my below code to list all files regardless of any extension.

But list should not folders and files in subdirectories

my @files = grep { /\.*$/i } readdir(DIR);


Please guide

Thanks,

#!/usr/bin/perl



use POSIX;

use File::Path;

mkpath $path;



my $srcdir = "/home/dbali/config/";



opendir(DIR, $srcdir) or die "Can't open $srcdir: $!";

my @files = grep { /\.*$/i } readdir(DIR);



foreach my $file (@files) {

   my $path=strftime"archiveold/%Y/%m/%d",localtime((stat "$srcdir/$file")[9]);

   make_path $path;

   rename "$srcdir/$file","$path/$file";

}

Open in new window

0
 
LVL 84

Expert Comment

by:ozo
ID: 34122157
to get all files, just use
my @files =  readdir(DIR);
to omit directories, use
grep{ !-d "$srcdir/$_"}  readdir(DIR);
to list only plain files, use
grep{ -f "$srcdir/$_"}  readdir(DIR);

mkpath $path; should be inside the loop after $path is defined, where you now have make_path $path;
since you told me that your version of File::Path does not export that name
0
How to run any project with ease

Manage projects of all sizes how you want. Great for personal to-do lists, project milestones, team priorities and launch plans.
- Combine task lists, docs, spreadsheets, and chat in one
- View and edit from mobile/offline
- Cut down on emails

 

Author Comment

by:tia_kamakshi
ID: 34193682
Many Thanks for your replies.

I am sorry for late response. I was out of station last week.

I will get back to you today on this. Once again appologise for late response
0
 

Author Comment

by:tia_kamakshi
ID: 34194157
Hi,

I have modified the code and it is giving me below error saying

dbali@pbms-tstva2:~$ ./archiveFiles.pl
Can't locate object method "make_path" via package "archiveold/2010/02/04" (perhaps you forgot to load "archiveold/2010/02/04"?) at ./archiveFiles.pl line 14.
dbali@pbms-tstva2:~$


Please find my updated code

Please guide

Many Thanks

#!/usr/bin/perl



use POSIX;

use File::Path;



my $srcdir = "/home/dbali/config/";



opendir(DIR, $srcdir) or die "Can't open $srcdir: $!";

my @files = grep{ !-d "$srcdir/$_"}  readdir(DIR);



foreach my $file (@files) {

   my $path=strftime"archiveold/%Y/%m/%d",localtime((stat "$srcdir/$file")[9]);

   mkpath $path;

   make_path $path;

   rename "$srcdir/$file","$path/$file";

}

Open in new window

0
 
LVL 84

Expert Comment

by:ozo
ID: 34194199
Apparently, your version of File::Path has only mkpath not make_path.
So use mkpath not make_path
0
 

Author Comment

by:tia_kamakshi
ID: 34196702
Many Thanks.

Now my script is working good.

But my files are not moving to destination directory

Please guide
#!/usr/bin/perl



use POSIX;

use File::Path;



my $srcdir = "/home/dbali/config/";



opendir(DIR, $srcdir) or die "Can't open $srcdir: $!";

my @files = grep{ !-d "$srcdir/$_"}  readdir(DIR);



foreach my $file (@files) {

   my $path=strftime"archiveold/%Y/%b/%d",localtime((stat "$srcdir/$file")[9]);

   mkpath $srcdir.$path;

   rename "$srcdir/$file","$srcdir.$path/$file";

}

Open in new window

0
 

Author Comment

by:tia_kamakshi
ID: 34212692
I wanted to give a 100% points to ozo solution. By mistake request is gone for closure. Please allocate all 500 points to ozo.

Many Thanks
0
 
LVL 84

Accepted Solution

by:
ozo earned 500 total points
ID: 34213949
 mkpath $srcdir.$path;
rename "$srcdir/$file",$srcdir.$path."/$file";
or
rename "$srcdir/$file","$srcdir$path/$file";




0
 

Author Comment

by:tia_kamakshi
ID: 34217490
Please allocate all 500 points to Ozo or please let me know how do I do it????
0

Featured Post

Highfive + Dolby Voice = No More Audio Complaints!

Poor audio quality is one of the top reasons people don’t use video conferencing. Get the crispest, clearest audio powered by Dolby Voice in every meeting. Highfive and Dolby Voice deliver the best video conferencing and audio experience for every meeting and every room.

Join & Write a Comment

I've just discovered very important differences between Windows an Unix formats in Perl,at least 5.xx.. MOST IMPORTANT: Use Unix file format while saving Your script. otherwise it will have ^M s or smth likely weird in the EOL, Then DO NOT use m…
Many time we need to work with multiple files all together. If its windows system then we can use some GUI based editor to accomplish our task. But what if you are on putty or have only CLI(Command Line Interface) as an option to  edit your files. I…
Explain concepts important to validation of email addresses with regular expressions. Applies to most languages/tools that uses regular expressions. Consider email address RFCs: Look at HTML5 form input element (with type=email) regex pattern: T…
When you create an app prototype with Adobe XD, you can insert system screens -- sharing or Control Center, for example -- with just a few clicks. This video shows you how. You can take the full course on Experts Exchange at http://bit.ly/XDcourse.

759 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

20 Experts available now in Live!

Get 1:1 Help Now