Perl | getc Function

getc() function in Perl is used to read the next character from the file whose File Handle is passed to it as argument. If no FileHandle is passed then it takes one character as input from the user.

Syntax: getc(FileHandle)

Parameter:
FileHandle: of the file to be read

Returns: the character read from the file or undef on end of file

Example 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);

Output:

Example 2:

#!/usr/bin/perl

# Value to be entered by the user
$ch = getc(STDIN);

# Printing the entered value
print"Value entered: $ch";

Output: