当前位置: 首页>>代码示例 >>用法及示例精选 >>正文


Perl tell()用法及代码示例


Perl中的tell()函数用于通过其FileHandle获取文件中读取指针的位置。如果未传递FileHandle,则它将返回最近访问的文件中的位置。

用法: tell(FileHandle)

参数:
FileHandle:要访问的文件的文件句柄。


返回值:读取指针的当前位置

示例1:

#!/usr/bin/perl  
   
# Opening a File in Read-only mode  
open(fh, "<", "Hello.txt");  
  
$position = tell(fh); 
print("Position of read pointer before reading: $position"); 
   
# Reading first 10 characters from the file 
for($i = 0; $i < 10; $i++) 
{ 
    $ch = getc(fh); 
} 
  
$position = tell(fh); 
  
# Current position of the read pointer 
print("\nCurrent Position: $position"); 
   
# Closing the File  
close(fh); 

输出:

示例2:

#!/usr/bin/perl  
   
# Opening a File in Read-only mode  
open(fh, "<", "Hello.txt");  
  
$position = tell(fh); 
print("Position of read pointer before reading: $position\n"); 
  
# Printing First 10 Characters 
print("First ten characters are: "); 
  
# Reading and printing first  
# 10 characters from the file 
for($i = 0; $i < 10; $i++) 
{ 
    $ch = getc(fh); 
    print" $ch"; 
} 
  
$position = tell(fh); 
  
# Current position of the read pointer 
print("\nCurrent Position: $position"); 
   
# Closing the File  
close(fh); 

输出:



相关用法


注:本文由纯净天空筛选整理自Code_Mech大神的英文原创作品 Perl | tell() Function。非经特殊声明,原始代码版权归原作者所有,本译文未经允许或授权,请勿转载或复制。