从 sng 文件中筛选出图像的主体:
#!/usr/bin/perl
## 打开一个命令行中指示的文件
open(FOO, @ARGV[0]);
@file = <FOO>;
@data = ();
$flag = 0;
## 获取最后一个大括号中的内容
foreach $str (@file) {
if ($str =~ m/{/) {
$flag = 1;
@data = ();
next;
}
if ($str =~ m/}/) {
$flag = 0;
next;
}
if ($flag == 1) {
push(@data, $str);
}
}
## 删除字符串 "pixels hex"
shift(@data);
print @data;