Perl getc用法及代码示例

Perl中的getc()函数用于从文件中读取下一个字符，该文件的文件句柄作为参数传递给该文件。如果没有传递FileHandle，则它将一个字符作为来自用户的输入。

用法： getc(FileHandle)

参数：
FileHandle:要读取的文件

返回值：从文件读取的字符或文件末尾的undef

示例1:

#!/usr/bin/perl  
    
# Opening a File in Read-only mode  
open(fh, "<", "File_to_be_read.txt");  
    
# Reading next character from the file 
$ch = getc(fh) 
  
# Printing the read character 
print"Character read from the file is $ch"; 
  
# Closing the File  
close(fh);

输出：

示例2:

#!/usr/bin/perl  
  
# Value to be entered by the user 
$ch = getc(STDIN); 
  
# Printing the entered value 
print"Value entered: $ch";

输出：

相关用法

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