Perl | getc 函数

原文:https://www.geeksforgeeks.org/perl-getc-function/

getc() 函数在 Perl 中用于从文件中读取下一个字符，文件句柄作为参数传递给它。如果没有传递文件句柄，那么它将接受一个字符作为用户的输入。

语法: getc(文件句柄)

参数: 待读文件的文件句柄:

返回:从文件中读取的字符或文件结束时未定义的字符

例 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";

输出:

---

我们一直在努力

apachecn/AiLearning

---