BlogJava-把蛋糕做大-随笔分类-perlhttp://www.blogjava.net/shonhen/category/13062.html大家都有蛋糕吃zh-cnThu, 01 Mar 2007 14:15:11 GMTThu, 01 Mar 2007 14:15:11 GMT60Shell下转换文件编码,从GB2312到UTF-8http://www.blogjava.net/shonhen/archive/2006/08/01/61110.html理想理想Mon, 31 Jul 2006 17:20:00 GMThttp://www.blogjava.net/shonhen/archive/2006/08/01/61110.htmlhttp://www.blogjava.net/shonhen/comments/61110.htmlhttp://www.blogjava.net/shonhen/archive/2006/08/01/61110.html#Feedback0http://www.blogjava.net/shonhen/comments/commentRss/61110.htmlhttp://www.blogjava.net/shonhen/services/trackbacks/61110.html
perl  - MEncode  - pi  - e  ' $_=encode_utf8(decode(gb2312=>$_)) '  filename

转换目录下所有文件
for f in `find .`; do [ -f $f ] && perl -MEncode -pi -e '$_=encode_utf8(decode(gb2312=>$_))' $f; done;



理想 2006-08-01 01:20 发表评论
]]>获取图片大小等信息http://www.blogjava.net/shonhen/archive/2006/07/14/58200.html理想理想Fri, 14 Jul 2006 07:34:00 GMThttp://www.blogjava.net/shonhen/archive/2006/07/14/58200.htmlhttp://www.blogjava.net/shonhen/comments/58200.htmlhttp://www.blogjava.net/shonhen/archive/2006/07/14/58200.html#Feedback0http://www.blogjava.net/shonhen/comments/commentRss/58200.htmlhttp://www.blogjava.net/shonhen/services/trackbacks/58200.html 1 use Image::Magick;
2 my ($width, $height, $size, $format);
3 my $image = Image::Magick->new;
4 ($width, $height, $size, $format) = $image->Ping('logo.png');
5 ($width, $height, $size, $format) = $image->Ping(file=>\*IMAGE);
6 ($width, $height, $size, $format) = $image->Ping(blob=>$blob);


理想 2006-07-14 15:34 发表评论
]]>