I have seen this posting here:

perl -e '@d=localtime ((stat(shift))[9]); printf "%02d-%02d-%04d %02d:%02d:%02d\n", $d[3],$d[4]+1,$d[5]+1900,$d[2],$d[1],$d[0]' file1.txt

I need to use it inside a perl script. Can anybody please help me out.

Sure. Cut and paste it into your text editor you're using to write the Perl script. Let us know how it turns out.

ShawnMilo

Thanks, I copied the whole statement into my perl script , but it is giving synatax error:

syntax error at compare_forms2.pl line 27, near "perl -e "

Here is the code i used in my per script:

perl -e '@d=localtime ((stat(shift))[9]); printf "%02d-%02d-%04d %02d:%02d:%02d\n", $d[3],$d[4]+1,$d[5]+1900,$d[2],$d[1],$d[0]
'$ddt_dir_prod[1];

Where $ddt_dir_prod[1] contains a valid file.

Either you're joking, or you have no business writing code today. Please pick up a basic Perl book or read a Web tutorial and let us know when you can write a simple Perl script and understand what it does.

Sincerely,
ShawnMilo

I apologize for the rudeness of my comment. I know that I sometimes come off more harshly than I mean to, and I also thought that my first post was funny.

But in all seriousness, you don't seem to understand some very basic things, and it wouldn't really help you if we gave you the answers because you wouldn't be able to apply them. Also, you haven't even said what you're trying to accomplish. That makes it nearly impossible for anyone to help you anyway.

If you get anything even half-working, post it and someone may be able to help you fix it. But, as I said, it doesn't appear that you know enough Perl (or maybe programming in general) to be making this attempt without further study.

ShawnMilo

ya u r right. I am very new to this field..as you said have to learn the basic concepts first.Any way thank you very much.