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);
输出:
相关用法
- Perl uc()用法及代码示例
- Perl each()用法及代码示例
- Perl sin()用法及代码示例
- Perl oct()用法及代码示例
- Perl ord()用法及代码示例
- Perl log()用法及代码示例
- Perl int()用法及代码示例
- Perl abs()用法及代码示例
- Perl exp用法及代码示例
- Perl hex用法及代码示例
- Perl cos()用法及代码示例
- Perl chr()用法及代码示例
- Perl rindex()用法及代码示例
- Perl join()用法及代码示例
- Perl keys()用法及代码示例
注:本文由纯净天空筛选整理自Code_Mech大神的英文原创作品 Perl | tell() Function。非经特殊声明,原始代码版权归原作者所有,本译文未经允许或授权,请勿转载或复制。