#Perl file time stamp code

keys %files returns the list of keys (the filenames) and sorts them by a numeric comparison of the associated value (the modification time). (In the original code, it selected only certain filenames, but you'd changed the pattern to match anything.)Īs for how it sorts filenames: get_sorted_files returns a list of pathnames and modification times, which you store into the %files hash. You'd need to pass './', or better yet, fix it so the function appends a separator if needed.įourth, the grep no longer did anything and should be removed. 11 Answers Sorted by: 525 +50 moreutils includes ts which does this quite nicely: command ts ' Y-m-d H:M:S' It eliminates the need for a loop too, every line of output will have a timestamp put on it. Third, it expects $path to end with a directory separator, and you were passing '.'. localtime was converting the filename to a number (yielding 0), and then converting epoch time 0 ( 0:00:00 UTC) to your timezone. The first filename was a key, the second was its value, the third was the next key, and so on. I am able to create a directory, but i am unable to open the file. (stat($_)) was returning an empty list (because you were looking for a file like GLOB(0x3f9b38)status.txt instead of the correct pathname) and so the hash actually wound up containing filenames as both keys and values. Need Help Anonymous Monk has asked for the wisdom of the Perl Monks concerning the following question: Hi all, I wanted to crete a file to a directory with a timestamp. Second, all the modification dates read 'Wed Dec 31 16:00:00 1969' because you were passing a bad pathname to stat. The tool below can only handle Zulu timestamps. T is the time zone which is usually 'Z' (Zulu Time Zone UTC/GMT). The timestamp has the following format: YYYYMMDDHHMMSST. Your $dir is a directory handle that's where the GLOB(0x.) is coming from. These LDAP timestamps are much more simple and start with the year. Please note that the specifiers marked with an asterisk.

#Perl file time stamp code

My %hash = map ), ' ' įirst, you renamed $dir in the original code to $path, but didn't change it in the map line. You can use the POSIX function strftime() to format date and time with the help of the following table.

Opendir my($dir), $path or die 'can't opendir $path: $!' Use warnings # I bet you weren't using this, because it produced a lot

There are at least 2 problems with that code.