如何得到文件句柄所在位置的行号？

shiyutang

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

1^# shiyutang 发表于 2005-05-03 16:59

如何得到文件句柄所在位置的行号？

如何得到文件句柄所在位置的行号？
因为tell可以告诉文件句柄的位置，但却是从文件头到当前位置之间的字符数。我现在写程序，想要得到当前位置的行号，怎么办？

flw

UID: 21204
帖子: 144
积分: 331
在线时间: 1 天 4 小时

2^# flw 发表于 2005-05-03 17:48

$....

shiyutang

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

3^# shiyutang 发表于 2005-05-03 19:51

嗯，能否说得详...
嗯，能否说得详细些？我是新手。

tienco

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

4^# tienco 发表于 2005-05-03 20:16

我也是新学的我也是新学的
我现在用ue来写程序，它可以自动标出好行号的

shiyutang

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

5^# shiyutang 发表于 2005-05-03 21:44

不是要用UE得到...
不是要用UE得到行号。而是我写的要知道现在读到哪一行了，以便处理。

chaoslawful

UID: 7804
帖子: 78
积分: 179
在线时间: 8 小时

6^# chaoslawful 发表于 2005-05-04 00:14

变量$.--见pe...
变量$.
见perldoc perlvar

shiyutang

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

7^# shiyutang 发表于 2005-05-04 11:21

似乎还是不行。...
似乎还是不行。是我用错了吗？

写了一个程序：
open(TEXT, "<D:\\abcde.txt");
seek TEXT,15,0;
print "The current position is ", tell TEXT, ".\n";
print "The character at the current position in the file is ", getc TEXT, ".\n";
print "The current line number is ", $., ".";
close TEXT;

其中D:\\abcde.txt是这样子的：
abcde
fghij
klmno
pqrst
uvwxy
z

输出结果如下：
The current position is 15.
The character at the current position in the file is l.
The current line number is 0.

可见文件句柄的位置已经正确移到了15，并且也正确输出了处于该位置的字母“l”，这是行号应该是3，但输出却为0，这是怎么回事？应该怎么改？

booboo

UID: 46324
帖子: 121
积分: 278
在线时间: 20 小时

8^# booboo 发表于 2005-05-04 11:39

[color=red]$. ...
[color=red]$. 是上次阅读的文件的当前输入行号 [/color]
[color=ff00ff]这里一篇文章说得很清楚: [/color][u]http://bbs.s8s8.net/forums/lofiversion/index.php/t15049.html[/u]

shiyutang

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

9^# shiyutang 发表于 2005-05-04 12:23

也就是说，必须...
也就是说，必须用 while(<TEXT>)这样才能使$.显示行号，或者说，事实上$.就是统计\n的个数？

那么，在文件中用seek移动文件句柄后，事实上$.并没有去统计\n的个数，于是就不能显示正确的行数了？