2007-10-22
■ [perl]デスクトップにログを保存するためのフォルダを作る 
ここには書けないけど、仕事上の手間を減らすスクリプトが昨日完成しました。
ずっとやろうやろうと思ってたんだけど、10月に入るあたりで一念発起。書いてる途中で不明なところを色んな人に助けてもらいながら何とかですが。
で、色々実験してたら副産物ができました。
仕事上で色んなログを取得→フォルダ分けして保存したりするわけですが、大した手間じゃないけど、これを使うとちょっと楽になる。動かしたところを隣の人に見せたら笑われたけどね！
#!/usr/local/bin/perl use strict; my($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time); $year-=100; $mon++; my $ymdhm = sprintf("%02d%02d%02d", $year, $mon, $mday); mkdir $ENV{USERPROFILE} . '/デスクトップ/' . "$ymdhm"."xx_log";
David2013/06/23 14:47Never seen a bteetr post! ICOCBW
xfxmcy2013/06/24 08:223GyU91 <a href="http://pkiyteadgdqq.com/">pkiyteadgdqq</a>
etoyfzcga2013/06/24 20:48yGbRFq <a href="http://juqnvgpupnks.com/">juqnvgpupnks</a>
Linee2013/07/04 02:29I apiatcpree you taking to time to contribute That's very helpful. http://aisdmdg.com [url=http://ubsdbnzhvg.com]ubsdbnzhvg[/url] [link=http://nutuhoaeu.com]nutuhoaeu[/link]
Linee2013/07/04 02:29I apiatcpree you taking to time to contribute That's very helpful. http://aisdmdg.com [url=http://ubsdbnzhvg.com]ubsdbnzhvg[/url] [link=http://nutuhoaeu.com]nutuhoaeu[/link]
Linee2013/07/04 02:29I apiatcpree you taking to time to contribute That's very helpful. http://aisdmdg.com [url=http://ubsdbnzhvg.com]ubsdbnzhvg[/url] [link=http://nutuhoaeu.com]nutuhoaeu[/link]