求教 getc

yfreedom

#!/usr/bin/perl

open(FILE,"/etc/fstab") or die "could not open /etc/fstab!";
print (getc(FILE),"");
$a=getc(FILE);
print "$a";
print (getc(FILE));
print (getc(FILE)."\n");

[root@freedom ~]# ./temp
# Th

怎么是这个结果？？getc 返回的是什么阿？？请大虾指教一下

剑心

getc()获取文件中一个字符，并返回一个字符。
print (getc(FILE),"");#取得一个字符'#'并且返回
$a=getc(FILE);
print "$a"; #获得文件中第二个字符，并打印

print (getc(FILE));#第三个字符
print (getc(FILE)."\n");#第四个字符，并且换行

yfreedom

谢了，剑心兄弟