- 博客(1)
- 资源 (1)
- 收藏
- 关注
原创 Perl hacks (1) ── 从 sng 文件中筛选出图像的主体
从 sng 文件中筛选出图像的主体:#!/usr/bin/perl## 打开一个命令行中指示的文件open(FOO, @ARGV[0]);@file = ;@data = ();$flag = 0;## 获取最后一个大括号中的内容foreach $str (@file) { if ($str =~ m/{/) { $flag = 1; @data = (); next; } if ($s
2007-04-13 14:55:00 1052
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人