Perl hacks (1) ── 从 sng 文件中筛选出图像的主体

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