批量创建下月目录

hawk418126

各位大侠，有谁知道怎么在这个月的月底自动批量创建下个月每天目录的脚本？\r\n\r\n比如说：8月30号，在crontab里自动执行一个shell，创建从20080901到20080930的目录

tyrone.dev

#! /usr/bin/perl\r\n\r\nuse HTTP:ate ; \r\n\r\n$time = time( ) ; #取当前时间\r\n$time = str2time( \"2008-1-1\" ) ; #设定时间\r\n\r\n$prevmonth = 0 ; \r\n\r\nwhile( 1 ) {\r\n \r\n( $a , $b , $c , $day , $month , $year ) = localtime( $time )  ; \r\n$year += 1900 ; \r\n$month ++ ; \r\n\r\n//到下个月第一天就退出\r\nif ( $pervmonth != 0 && $pervmonth != $month ) {\r\n        last ; \r\n}\r\n\r\n$dir = sprintf( \"%s\" , $year * 10000 + $month * 100 + $day  ) ; \r\nprintf ( \"create dir %s\\n\" , $dir ) ;\r\nmkdir( $dir ) ;\r\n\r\n\r\n$pervmonth = $month ; \r\n$time += 3600 * 24 ;  //加上一天\r\n\r\n}

beginner-bj

每月一号的0点执行这个：\r\nfor i in `cal | xargs | awk -F\'t\' \'{print $NF}\'`;do\r\n  typeset -Z2 i\r\n  echo `date +%Y%m`$i\r\ndone\r\n\r\n如果执行没问题，echo换成mkdir

xuandhe

不得不顶 马老师

tyrone.dev

使用cal输出的话还可以一句话搞定。\r\ncal | awk \'BEGIN{RS=\" \" ; \"date \'+%Y%m\'\" | getline a } /[0-9]/ && length<=2 {printf ( \"mkdir %d%02d\\n\",a , $NF) }\' \r\n返回\r\nmkdir 200801\r\nmkdir 200802\r\n...\r\nmkdir 200831\r\n结果正确的话，可以再加 | sh 来执行

tyrone.dev

不好意思，我写错了，还需要加上xargs 。\r\ncal | xargs | awk \'BEGIN{RS=\" \" ; \"date \'+%Y%m\'\" | getline a } /[0-9]/ && length<=2 {printf ( \"mkdir %d%02d\\n\",a , $NF) }\'

tyrone.dev

想了想还有更简单的办法。\r\ncal | xargs -n1 echo `date +\"%Y%m\"` | awk \'$2<=31 {printf \"%s%02d\\n\",$1,$2}\' | xargs mkdir

tyrone.dev

如果不想用awk,还可以用\r\ncal | sed -n \'3,20p\' |  xargs -n1 expr `date +%Y%m` \\* 100 + | xargs mkdir

beginner-bj

楼上的PERL及SHELL SCRIPT的功力，的确令人佩服！\r\n\r\nTO：楼主\r\n简单的说，这个问题虽然方法很多，但最简单的思路只有一个——就是用cal命令，其次就是如何将1-9变成01-09，最后再利用循环（for、while、until、xargs也可以认为是一种循环的变体）完成。

chalylau

ls的都太强了