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

最新推荐文章于 2025-01-19 12:56:29 发布

原创最新推荐文章于 2025-01-19 12:56:29 发布 · 1.1k 阅读

0 ·

本内容遵循CC 4.0 BY-SA版权协议

收录于

当前文章被以下社区和专栏收录：

本文介绍了一种使用Perl脚本从特定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;