让perl 读取图片的一部分怎么做

zhangzhangg

UID: 38342
帖子: 132
积分: 303
在线时间: 1 天

1^# zhangzhangg 发表于 2007-09-17 12:29

让perl 读取图片的一部分怎么做

编写一段perl code 让她读取某个文件中的某个图片的某一部分
请问高手该怎么写
最好不使用任何模块
这样才算真正的高手

jigloo

UID: 21372
帖子: 1
积分: 2
在线时间: 10 分钟

2^# jigloo 发表于 2007-09-17 12:33

嗯，你说的太好了，直接转comp.lang.perl.misc吧。

apile

UID: 42255
帖子: 66
积分: 151
在线时间: 6 小时

3^# apile 发表于 2007-09-17 13:59

open(FF,"/xxx/xxx.jpg");
binmode FF;
sysread($buf,FF,0,500);
类似这样吧...

zhangzhangg

UID: 38342
帖子: 132
积分: 303
在线时间: 1 天

4^# zhangzhangg 发表于 2007-09-17 23:08

QUOTE:

原帖由 apile 于 2007-9-17 13:59 发表
open(FF,"/xxx/xxx.jpg");
binmode FF;
sysread($buf,FF,0,500);
类似这样吧...

可是你并没有给出如何从文件中获取某个图片、如何切割图片并取出一部分（不能是乱码）的代码
希望高手给出一个完全的程序

顺便问一下：将有个图片转为TXT文件，那么怎么才能通过她的乱码将其还原

apile

UID: 42255
帖子: 66
积分: 151
在线时间: 6 小时

5^# apile 发表于 2007-09-18 22:00

其实我只是写个大概...具体的
就是用一个byte一个byte读出来存进buff中...
然後批配那个buff如果用unpack的结果等於某个16进制的字符串..代表起点..清掉buff..读取资料进buff...

批配到某个16进制的字符串..代表终点....

读图档...如果只希望固定某个位置到某个位置...直接更改..shift与size就好了...

批配起点与终点的16进制字符串....你要自己去算..

没给固定的pattern..天晓得你要取得什麽东西...

Ecore

UID: 27927
帖子: 2
积分: 4
在线时间: 10 分钟

6^# Ecore 发表于 2007-09-20 11:52

惯它明白.

xiaoshengcaicai

UID: 22139
帖子: 174
积分: 400
在线时间: 1 天 17 小时

7^# xiaoshengcaicai 发表于 2007-09-20 12:28

我是进来寒楼主的

lokchungk

UID: 6618
帖子: 74
积分: 170
在线时间: 7 小时

8^# lokchungk 发表于 2007-09-20 13:30

用OLE

hmilymb

UID: 16670
帖子: 2
积分: 4
在线时间: 10 分钟

9^# hmilymb 发表于 2007-09-24 23:57

楼主的目的不是想要做什么东西，是想进来怎么样才是真正的高手。所以对楼主的要求，别太认真。

让perl 读取图片的一部分 怎么做

让perl 读取图片的一部分 怎么做

让perl 读取图片的一部分怎么做

让perl 读取图片的一部分怎么做