Perl getc函数

Perl中的 getc() 函数用于从文件中读取下一个字符，该文件的File Handle被作为参数传递给它。如果没有传递 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 isch";
  
# 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";

输出：