{"id":21,"date":"2003-12-07T11:59:51","date_gmt":"2003-12-07T09:59:51","guid":{"rendered":"http:\/\/frenchfragfactory.net\/ozh\/archives\/2003\/12\/07\/datemodif-perl-script\/"},"modified":"2007-04-22T11:30:20","modified_gmt":"2007-04-22T09:30:20","slug":"datemodif-perl-script","status":"publish","type":"post","link":"https:\/\/planetozh.com\/blog\/2003\/12\/datemodif-perl-script\/","title":{"rendered":"Datemodif perl script"},"content":{"rendered":"

This perl script prints modification time of a file, in various format.
\nExamples <\/strong>: <\/p>\n

datemodif y-m-d mystuff.log → 2003-30-06
\ndatemodif d\/M\/Y-h.m.s mystuff.log → 06\/12\/03-21.30.02
\ndatemodif X d O Y mystuff.log → Samedi 06 D\u00c3\u00a9cembre 03 <\/p>\n

<\/p>\n

\n\n\t\t
\n\n\t\t
\n\t\t\t\t\t\t< View plain text<\/span> ><\/a>\n\t\t\t\t\t<\/div>\n\n\t\t
perl<\/div>\n\n\t\t\n\t\t
\n\n\t<\/div>\n\t\n\t
\n\t\t
  1. #!\/usr\/bin\/perl<\/span><\/div><\/li>\n
  2.  <\/div><\/li>\n
  3. # datemodif <format> <fichier><\/span><\/div><\/li>\n
  4. # ex : datemodif ymd tutu.txt<\/span><\/div><\/li>\n
  5. # ex : datemodif m-d tutu.txt<\/span><\/div><\/li>\n
  6. # ex : datemodif "D M Y" tutu.txt<\/span><\/div><\/li>\n
  7. #<\/span><\/div><\/li>\n
  8. # Heure de modif :<\/span><\/div><\/li>\n
  9. # s : 01-59<\/span><\/div><\/li>\n
  10. # m : 01-12<\/span><\/div><\/li>\n
  11. # h : 01-24<\/span><\/div><\/li>\n
  12. # i : 01-12 am\/pm<\/span><\/div><\/li>\n
  13. #<\/span><\/div><\/li>\n
  14. # Jour de modif :<\/span><\/div><\/li>\n
  15. # d : 01-31<\/span><\/div><\/li>\n
  16. # D : Lun-Dim<\/span><\/div><\/li>\n
  17. # e : lun-dim<\/span><\/div><\/li>\n
  18. # F : Lundi - Dimanche<\/span><\/div><\/li>\n
  19. # g : lundi - dimanche<\/span><\/div><\/li>\n
  20. # M : 1-12<\/span><\/div><\/li>\n
  21. # N : Jan-Dec<\/span><\/div><\/li>\n
  22. # n ; jan-dec<\/span><\/div><\/li>\n
  23. # O : Janvier-Decembre<\/span><\/div><\/li>\n
  24. # o : janvier-decembre<\/span><\/div><\/li>\n
  25. # y : 02<\/span><\/div><\/li>\n
  26. # Y : 2002<\/span><\/div><\/li>\n
  27.  <\/div><\/li>\n
  28. %weekday<\/span>=<\/span>(<\/span><\/div><\/li>\n
  29.     "0"<\/span>=><\/span>"Dim"<\/span>,<\/span><\/div><\/li>\n
  30.     "1"<\/span>=><\/span>"Lun"<\/span>,<\/span><\/div><\/li>\n
  31.     "2"<\/span>=><\/span>"Mar"<\/span>,<\/span><\/div><\/li>\n
  32.     "3"<\/span>=><\/span>"Mer"<\/span>,<\/span><\/div><\/li>\n
  33.     "4"<\/span>=><\/span>"Jeu"<\/span>,<\/span><\/div><\/li>\n
  34.     "5"<\/span>=><\/span>"Ven"<\/span>,<\/span><\/div><\/li>\n
  35.     "6"<\/span>=><\/span>"Sam"<\/span>,<\/span><\/div><\/li>\n
  36. )<\/span>;<\/span><\/div><\/li>\n
  37.  <\/div><\/li>\n
  38. %lweekday<\/span>=<\/span>(<\/span><\/div><\/li>\n
  39.     "0"<\/span>=><\/span>"Dimanche"<\/span>,<\/span><\/div><\/li>\n
  40.     "1"<\/span>=><\/span>"Lundi"<\/span>,<\/span><\/div><\/li>\n
  41.     "2"<\/span>=><\/span>"Mardi"<\/span>,<\/span><\/div><\/li>\n
  42.     "3"<\/span>=><\/span>"Mercredi"<\/span>,<\/span><\/div><\/li>\n
  43.     "4"<\/span>=><\/span>"Jeudi"<\/span>,<\/span><\/div><\/li>\n
  44.     "5"<\/span>=><\/span>"Vendredi"<\/span>,<\/span><\/div><\/li>\n
  45.     "6"<\/span>=><\/span>"Samedi"<\/span>,<\/span><\/div><\/li>\n
  46. )<\/span>;<\/span><\/div><\/li>\n
  47.  <\/div><\/li>\n
  48. %month<\/span>=<\/span>(<\/span><\/div><\/li>\n
  49.     "1"<\/span>=><\/span>"Jan"<\/span>,<\/span><\/div><\/li>\n
  50.     "2"<\/span>=><\/span>"Fev"<\/span>,<\/span><\/div><\/li>\n
  51.     "3"<\/span>=><\/span>"Mar"<\/span>,<\/span><\/div><\/li>\n
  52.     "4"<\/span>=><\/span>"Avr"<\/span>,<\/span><\/div><\/li>\n
  53.     "5"<\/span>=><\/span>"Mai"<\/span>,<\/span><\/div><\/li>\n
  54.     "6"<\/span>=><\/span>"Juin"<\/span>,<\/span><\/div><\/li>\n
  55.     "7"<\/span>=><\/span>"Juil"<\/span>,<\/span><\/div><\/li>\n
  56.     "8"<\/span>=><\/span>"Aout"<\/span>,<\/span><\/div><\/li>\n
  57.     "9"<\/span>=><\/span>"Sept"<\/span>,<\/span><\/div><\/li>\n
  58.     "10"<\/span>=><\/span>"Oct"<\/span>,<\/span><\/div><\/li>\n
  59.     "11"<\/span>=><\/span>"Nov"<\/span>,<\/span><\/div><\/li>\n
  60.     "12"<\/span>=><\/span>"Dec"<\/span>,<\/span><\/div><\/li>\n
  61. )<\/span>;<\/span><\/div><\/li>\n
  62.  <\/div><\/li>\n
  63.  <\/div><\/li>\n
  64. %lmonth<\/span>=<\/span>(<\/span><\/div><\/li>\n
  65.     "1"<\/span>=><\/span>"Janvier"<\/span>,<\/span><\/div><\/li>\n
  66.     "2"<\/span>=><\/span>"F\u00c3\u00a9vrier"<\/span>,<\/span><\/div><\/li>\n
  67.     "3"<\/span>=><\/span>"Mars"<\/span>,<\/span><\/div><\/li>\n
  68.     "4"<\/span>=><\/span>"Avril"<\/span>,<\/span><\/div><\/li>\n
  69.     "5"<\/span>=><\/span>"Mai"<\/span>,<\/span><\/div><\/li>\n
  70.     "6"<\/span>=><\/span>"Juin"<\/span>,<\/span><\/div><\/li>\n
  71.     "7"<\/span>=><\/span>"Juillet"<\/span>,<\/span><\/div><\/li>\n
  72.     "8"<\/span>=><\/span>"Aout"<\/span>,<\/span><\/div><\/li>\n
  73.     "9"<\/span>=><\/span>"Septembre"<\/span>,<\/span><\/div><\/li>\n
  74.     "10"<\/span>=><\/span>"Octobre"<\/span>,<\/span><\/div><\/li>\n
  75.     "11"<\/span>=><\/span>"Novembre"<\/span>,<\/span><\/div><\/li>\n
  76.     "12"<\/span>=><\/span>"D\u00c3\u00a9cembre"<\/span>,<\/span><\/div><\/li>\n
  77. )<\/span>;<\/span><\/div><\/li>\n
  78.  <\/div><\/li>\n
  79. if<\/span> (<\/span>!@<\/span>ARGV<\/span> )<\/span> {<\/span> <\/div><\/li>\n
  80.     help(<\/span>)<\/span>;<\/span><\/div><\/li>\n
  81.     exit<\/span>;<\/span><\/div><\/li>\n
  82. }<\/span><\/div><\/li>\n
  83.  <\/div><\/li>\n
  84. $file<\/span>=<\/span>pop<\/span>;<\/span><\/div><\/li>\n
  85.  <\/div><\/li>\n
  86. if<\/span> (<\/span>!-<\/span>e $file<\/span>)<\/span> {<\/span><\/div><\/li>\n
  87.    print<\/span> "File $file not found, aborting.\\n<\/span>"<\/span>;<\/span><\/div><\/li>\n
  88.    print<\/span> "Calling script with no arguments prints help\\n<\/span>"<\/span> ;<\/span><\/div><\/li>\n
  89.    exit<\/span>;<\/span><\/div><\/li>\n
  90. }<\/span><\/div><\/li>\n
  91.  <\/div><\/li>\n
  92. $arg<\/span> =<\/span> join<\/span> " "<\/span>,@<\/span>ARGV<\/span>;<\/span><\/div><\/li>\n
  93.  <\/div><\/li>\n
  94. $mtime<\/span> =<\/span> (<\/span>stat<\/span>(<\/span>$file<\/span>)<\/span>)<\/span>[<\/span>9<\/span>]<\/span>;<\/span><\/div><\/li>\n
  95. (<\/span>$sec<\/span>,<\/span>$min<\/span>,<\/span>$hour<\/span>,<\/span>$day<\/span>,<\/span>$mon<\/span>,<\/span>$year<\/span>,<\/span>$wday<\/span>,<\/span>$yday<\/span>)<\/span> =<\/span> localtime<\/span>(<\/span>$mtime<\/span>)<\/span>;<\/span><\/div><\/li>\n
  96. $year<\/span>+=<\/span>1900<\/span>;<\/span><\/div><\/li>\n
  97. $mon<\/span>++;<\/span><\/div><\/li>\n
  98. if<\/span> (<\/span>$hour<\/span> ><\/span> 12<\/span>)<\/span> {<\/span><\/div><\/li>\n
  99.    $hour_ampm<\/span>=<\/span>abs<\/span>(<\/span>$hour<\/span> -<\/span> 12<\/span>)<\/span>;<\/span> $p<\/span>=<\/span>"pm"<\/span><\/div><\/li>\n
  100. }<\/span> else<\/span> {<\/span><\/div><\/li>\n
  101.    $hour_ampm<\/span>=<\/span>"$hour"<\/span>;<\/span> $p<\/span>=<\/span>"am"<\/span><\/div><\/li>\n
  102. }<\/span><\/div><\/li>\n
  103. $ssec<\/span>=<\/span>&paf<\/span>(<\/span>$sec<\/span>)<\/span>;<\/span><\/div><\/li>\n
  104. $mmin<\/span>=<\/span>&paf<\/span>(<\/span>$min<\/span>)<\/span>;<\/span><\/div><\/li>\n
  105. $hhour<\/span>=<\/span>&paf<\/span>(<\/span>$hour<\/span>)<\/span>;<\/span><\/div><\/li>\n
  106. $hhour_ampm<\/span>=<\/span>&paf<\/span>(<\/span>$hour_ampm<\/span>)<\/span>;<\/span><\/div><\/li>\n
  107. $dday<\/span>=<\/span>&paf<\/span>(<\/span>$day<\/span>)<\/span>;<\/span><\/div><\/li>\n
  108. $mmon<\/span>=<\/span>&paf<\/span>(<\/span>$mon<\/span>)<\/span>;<\/span><\/div><\/li>\n
  109. $yyear<\/span>=<\/span>substr<\/span>(<\/span>$year<\/span>,<\/span>2<\/span>,<\/span>2<\/span>)<\/span>;<\/span><\/div><\/li>\n
  110.  <\/div><\/li>\n
  111. $arg<\/span>=<\/span>" "<\/span>.<\/span>$arg<\/span>;<\/span><\/div><\/li>\n
  112. $result<\/span> =<\/span> ""<\/span>;<\/span><\/div><\/li>\n
  113. $translated<\/span> =<\/span> 0<\/span>;<\/span><\/div><\/li>\n
  114.  <\/div><\/li>\n
  115. foreach<\/span> $letter<\/span> (<\/span>split<\/span> \/\/,<\/span>$arg<\/span>)<\/span> {<\/span><\/div><\/li>\n
  116.  <\/div><\/li>\n
  117. $translated<\/span> =<\/span> 0<\/span>;<\/span><\/div><\/li>\n
  118.  <\/div><\/li>\n
  119. # time<\/span><\/div><\/li>\n
  120. &pouet<\/span>(<\/span>"s"<\/span>,<\/span>$ssec<\/span>)<\/span>;<\/span><\/div><\/li>\n
  121. &pouet<\/span>(<\/span>"t"<\/span>,<\/span>$sec<\/span>)<\/span>;<\/span><\/div><\/li>\n
  122. &pouet<\/span>(<\/span>"m"<\/span>,<\/span>$mmin<\/span>)<\/span>;<\/span><\/div><\/li>\n
  123. &pouet<\/span>(<\/span>"u"<\/span>,<\/span>$min<\/span>)<\/span>;<\/span><\/div><\/li>\n
  124. &pouet<\/span>(<\/span>"h"<\/span>,<\/span>$hhour<\/span>)<\/span>;<\/span><\/div><\/li>\n
  125. &pouet<\/span>(<\/span>"g"<\/span>,<\/span>$hour<\/span>)<\/span>;<\/span><\/div><\/li>\n
  126. &pouet<\/span>(<\/span>"i"<\/span>,<\/span>$hhour_ampm<\/span>)<\/span>;<\/span><\/div><\/li>\n
  127. &pouet<\/span>(<\/span>"k"<\/span>,<\/span>$hour_ampm<\/span>)<\/span>;<\/span><\/div><\/li>\n
  128. &pouet<\/span>(<\/span>"p"<\/span>,<\/span>$p<\/span>)<\/span>;<\/span><\/div><\/li>\n
  129. # day<\/span><\/div><\/li>\n
  130. &pouet<\/span>(<\/span>"d"<\/span>,<\/span>$dday<\/span>)<\/span>;<\/span><\/div><\/li>\n
  131. &pouet<\/span>(<\/span>"D"<\/span>,<\/span>$day<\/span>)<\/span>;<\/span><\/div><\/li>\n
  132. &pouet<\/span>(<\/span>"W"<\/span>,<\/span>(<\/span>$weekday<\/span>{<\/span>"$wday"<\/span>}<\/span>)<\/span>)<\/span>;<\/span><\/div><\/li>\n
  133. &pouet<\/span>(<\/span>"w"<\/span>,<\/span>lc<\/span>(<\/span>$weekday<\/span>{<\/span>$wday<\/span>}<\/span>)<\/span>)<\/span>;<\/span><\/div><\/li>\n
  134. &pouet<\/span>(<\/span>"X"<\/span>,<\/span>$lweekday<\/span>{<\/span>$wday<\/span>}<\/span>)<\/span>;<\/span><\/div><\/li>\n
  135. &pouet<\/span>(<\/span>"x"<\/span>,<\/span>lc<\/span>(<\/span>$lweekday<\/span>{<\/span>$wday<\/span>}<\/span>)<\/span>)<\/span>;<\/span><\/div><\/li>\n
  136. # month<\/span><\/div><\/li>\n
  137. &pouet<\/span>(<\/span>"M"<\/span>,<\/span>$mmon<\/span>)<\/span>;<\/span><\/div><\/li>\n
  138. &pouet<\/span>(<\/span>"T"<\/span>,<\/span>$mon<\/span>)<\/span>;<\/span><\/div><\/li>\n
  139. &pouet<\/span>(<\/span>"N"<\/span>,<\/span>$month<\/span>{<\/span>$mon<\/span>}<\/span>)<\/span>;<\/span><\/div><\/li>\n
  140. &pouet<\/span>(<\/span>"n"<\/span>,<\/span>lc<\/span>(<\/span>$month<\/span>{<\/span>$mon<\/span>}<\/span>)<\/span>)<\/span>;<\/span><\/div><\/li>\n
  141. &pouet<\/span>(<\/span>"O"<\/span>,<\/span>$lmonth<\/span>{<\/span>$mon<\/span>}<\/span>)<\/span>;<\/span><\/div><\/li>\n
  142. &pouet<\/span>(<\/span>"o"<\/span>,<\/span>lc<\/span>(<\/span>$lmonth<\/span>{<\/span>$mon<\/span>}<\/span>)<\/span>)<\/span>;<\/span><\/div><\/li>\n
  143. # year<\/span><\/div><\/li>\n
  144. &pouet<\/span>(<\/span>"y"<\/span>,<\/span>$year<\/span>)<\/span>;<\/span><\/div><\/li>\n
  145. &pouet<\/span>(<\/span>"Y"<\/span>,<\/span>$yyear<\/span>)<\/span>;<\/span><\/div><\/li>\n
  146.  <\/div><\/li>\n
  147. $previousletter<\/span>=<\/span>$letter<\/span>;<\/span><\/div><\/li>\n
  148. if<\/span> (<\/span>!<\/span>$translated<\/span>)<\/span> {<\/span> $result<\/span>.=<\/span>$letter<\/span> }<\/span><\/div><\/li>\n
  149. }<\/span><\/div><\/li>\n
  150.  <\/div><\/li>\n
  151. $result<\/span>=~<\/span>s<\/span>\/^<\/span> \/\/;<\/span><\/div><\/li>\n
  152. $result<\/span>=~<\/span>s<\/span>\/<\/span>\\^\/\/;<\/span><\/div><\/li>\n
  153.  <\/div><\/li>\n
  154. print<\/span> "$result"<\/span>;<\/span><\/div><\/li>\n
  155.  <\/div><\/li>\n
  156.  <\/div><\/li>\n
  157. sub<\/span> pouet {<\/span><\/div><\/li>\n
  158. my<\/span> (<\/span>$in<\/span>,<\/span>$out<\/span>)<\/span> =<\/span> @_<\/span> ;<\/span><\/div><\/li>\n
  159. if<\/span> (<\/span>$previousletter<\/span> ne<\/span> "^"<\/span> &&<\/span> $letter<\/span> eq<\/span> $in<\/span>)<\/span> {<\/span><\/div><\/li>\n
  160.     $letter<\/span> =~<\/span> s\/$in\/$out\/g<\/span> ;<\/span><\/div><\/li>\n
  161.     $result<\/span> .=<\/span> $letter<\/span>;<\/span><\/div><\/li>\n
  162.     $translated<\/span>=<\/span>1<\/span>;<\/span><\/div><\/li>\n
  163. }<\/span><\/div><\/li>\n
  164. return<\/span><\/div><\/li>\n
  165. }<\/span><\/div><\/li>\n
  166.  <\/div><\/li>\n
  167. sub<\/span> paf {<\/span><\/div><\/li>\n
  168. my<\/span> (<\/span>$in<\/span>)<\/span>=<\/span>@_<\/span> ;<\/span><\/div><\/li>\n
  169. if<\/span> (<\/span>$in<\/span> <<\/span> 10<\/span>)<\/span> {<\/span>$in<\/span>=<\/span>"0"<\/span>.<\/span>$in<\/span>}<\/span><\/div><\/li>\n
  170. return<\/span> $in<\/span>;<\/span><\/div><\/li>\n
  171. }<\/span><\/div><\/li>\n
  172.  <\/div><\/li>\n
  173. sub<\/span> help {<\/span><\/div><\/li>\n
  174. print<\/span> <<ENDHELP;<\/span><\/div><\/li>\n
  175. Output modification time and date in various format.<\/span><\/div><\/li>\n
  176.  <\/div><\/li>\n
  177. Usage :<\/span><\/div><\/li>\n
  178. $0 <optional format> [file]<\/span><\/div><\/li>\n
  179.  <\/div><\/li>\n
  180. Format arguments are :<\/span><\/div><\/li>\n
  181.      arg   value   (output)<\/span><\/div><\/li>\n
  182.  > Time <\/span><\/div><\/li>\n
  183.       s : seconds  (01-59)<\/span><\/div><\/li>\n
  184.       t : seconds  (1-59)<\/span><\/div><\/li>\n
  185.       m : minutes  (01-12)<\/span><\/div><\/li>\n
  186.       u : minutes  (1-12)<\/span><\/div><\/li>\n
  187.       h : hour     (01-24)<\/span><\/div><\/li>\n
  188.       g : hour     (1-24)<\/span><\/div><\/li>\n
  189.       i : hour     (01-12)<\/span><\/div><\/li>\n
  190.       k : hour     (1-12)<\/span><\/div><\/li>\n
  191.       p : am or pm (am-pm)<\/span><\/div><\/li>\n
  192.  > Day <\/span><\/div><\/li>\n
  193.       d : monthday (01-31)<\/span><\/div><\/li>\n
  194.       D : monthday (1-31)<\/span><\/div><\/li>\n
  195.       W : weekday  (Lun-Dim)<\/span><\/div><\/li>\n
  196.       w : weekday  (lun-dim)<\/span><\/div><\/li>\n
  197.       X : weekday  (Lundi-Dimanche)<\/span><\/div><\/li>\n
  198.       x : weekday  (lundi-dimanche)<\/span><\/div><\/li>\n
  199.  > Month<\/span><\/div><\/li>\n
  200.       M : month    (01-12)<\/span><\/div><\/li>\n
  201.       T : month    (1-12)<\/span><\/div><\/li>\n
  202.       N : month    (Jan-Dec)<\/span><\/div><\/li>\n
  203.       n : month    (jan-dec)<\/span><\/div><\/li>\n
  204.       O : month    (Janvier-Decembre)<\/span><\/div><\/li>\n
  205.       o : month    (janvier-decembre)<\/span><\/div><\/li>\n
  206.  > Year<\/span><\/div><\/li>\n
  207.       y : year     (02)<\/span><\/div><\/li>\n
  208.       Y : year     (2002)<\/span><\/div><\/li>\n
  209.  <\/div><\/li>\n
  210. To escape an argument, use ^<\/span><\/div><\/li>\n
  211. Edit the script ($0) to translate weekdays and months if you wish.<\/span><\/div><\/li>\n
  212.  <\/div><\/li>\n
  213. Examples :<\/span><\/div><\/li>\n
  214.  $0 ymd tutu.txt<\/span><\/div><\/li>\n
  215.  $0 m-d tutu.txt<\/span><\/div><\/li>\n
  216.  $0 D M Y tutu.txt<\/span><\/div><\/li>\n
  217.  $0 ^dd^mm^yy tutu.txt<\/span><\/div><\/li>\n
  218.  <\/div><\/li>\n
  219. ENDHELP<\/span><\/div><\/li>\n
  220. }<\/span><\/div><\/li>\n<\/ol>\t<\/div>\n\n<\/div>\n\n","protected":false},"excerpt":{"rendered":"

    Retrieves modification date of a file, returns it in various formats<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"closed","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[],"tags":[2,3,9],"class_list":["post-21","post","type-post","status-publish","format-standard","hentry","tag-code","tag-linux","tag-perl"],"_links":{"self":[{"href":"https:\/\/planetozh.com\/blog\/wp-json\/wp\/v2\/posts\/21","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/planetozh.com\/blog\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/planetozh.com\/blog\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/planetozh.com\/blog\/wp-json\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/planetozh.com\/blog\/wp-json\/wp\/v2\/comments?post=21"}],"version-history":[{"count":0,"href":"https:\/\/planetozh.com\/blog\/wp-json\/wp\/v2\/posts\/21\/revisions"}],"wp:attachment":[{"href":"https:\/\/planetozh.com\/blog\/wp-json\/wp\/v2\/media?parent=21"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/planetozh.com\/blog\/wp-json\/wp\/v2\/categories?post=21"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/planetozh.com\/blog\/wp-json\/wp\/v2\/tags?post=21"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}