HighWayToHell - Tag - perl
花园里, 篱笆下
2023-08-13T10:38:15+08:00
Druggo
urn:md5:79dfcacdbfd6434dfc57423d51240051
Dotclear
取得昨天的日期
urn:md5:19fe7460171da98af96e4a9cf3ccb258
2007-09-02T21:01:00+08:00
2007-09-02T21:06:38+08:00
admin
计算机
bashdatelinuxperlphpposixtipsyesterday
1.bash<br />
<code>$TZ="UTC+16" date</code><br />
<br />2.php<br />
<code>$yesterday=date('ymd',date('U')-3600*24);</code><br />
<br />3.perl<br />
<code>perl -e 'print scalar localtime(time-3600*24)'</code><br />
<br />
Perl中取得日期格式的几种方法:<br />
<code>perl -e 'use POSIX; print strftime("%Y-%m-%d %H:%M:%S", localtime)'</code><br />
<code>perl -e 'use HTTP::Date;print HTTP::Date::time2iso(time);'</code><br />
<code>perl -e '($sec,$min,$hour,$mday,$mon,$year)=localtime(time);$mon++;$mon="0$mon" if ($mon<10);$mday="0$mday" if ($mday<10);$year+=1900;print "$year-$mon-$mday";'</code><br />
http://blog.druggo.org/post/2007/09/02/#comment-form
http://blog.druggo.org/feed/atom/comments/119
批量替换文件内容
urn:md5:a2bd0329e6636541e771487af42caf70
2006-10-30T21:12:00+08:00
2006-10-30T21:12:03+08:00
admin
计算机
commandfindlinuxperlsubstitutexargs
<p><span class="postbody"><code>find -type f | xargs perl -i -pe s%windows%linux%g</code></span>
</p>
http://blog.druggo.org/post/2006/10/30/#comment-form
http://blog.druggo.org/feed/atom/comments/55