把蛋糕做大

大家都有蛋糕吃
posts - 8, comments - 3, trackbacks - 0, articles - 0

2006年7月14日

Shell下转换文件编码,从GB2312到UTF-8

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;

posted @ 2006-08-01 01:20 理想 阅读(1041) | 评论 (0) | 编辑 收藏

获取图片大小等信息

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);

posted @ 2006-07-14 15:34 理想 阅读(410) | 评论 (0) | 编辑 收藏