perl里面的seek怎么用呢？ - 未名空间MITBBS历史存档

国际科技财经博客移民网络热点娱乐民生时事公众号

Redian新闻

>未名空间

>Programming - 葵花宝典

perl里面的seek怎么用呢？

perl里面的seek怎么用呢？# Programming - 葵花宝典

w*y2007-06-24 07:06

1 楼

我现在有一个很大的文件，还有一个该文件的PTR文件
这个PTR文件的每一行记录了一个我要读取的record的名字，起始位置，行数
我怎么用perl里的类似seek的函数找到那个位置读出正确的内容呢？
好比PTR的一行是7 12142 881
我把数据文件打开为F, 我用sysseek(F, 12142, SEEK_SET) 然后不管用还是getc
(F)读到的内容都是不对的
perl里面的seek应该怎么用呢？
多谢多谢！

Q*g2007-06-24 07:06

2 楼

"sysseek() bypasses normal buffered IO, so mixing this with reads (other
than sysread, for example <> or read()) print, write, seek, tell, or eof may
cause confusion."
so try sysread.

getc

【在 w***y 的大作中提到】

: 我现在有一个很大的文件，还有一个该文件的PTR文件
: 这个PTR文件的每一行记录了一个我要读取的record的名字，起始位置，行数
: 我怎么用perl里的类似seek的函数找到那个位置读出正确的内容呢？
: 好比PTR的一行是7 12142 881
: 我把数据文件打开为F, 我用sysseek(F, 12142, SEEK_SET) 然后不管用还是getc
: (F)读到的内容都是不对的
: perl里面的seek应该怎么用呢？
: 多谢多谢！