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;