La función getc() en Perl se usa para leer el siguiente carácter del archivo cuyo identificador de archivo se le pasa como argumento. Si no se pasa FileHandle, toma un carácter como entrada del usuario.
Sintaxis: getc(FileHandle)
Parámetro:
FileHandle: del archivo a leerDevuelve: el carácter leído del archivo o undef al final del archivo
Ejemplo 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);
Producción:
Ejemplo 2:
#!/usr/bin/perl # Value to be entered by the user $ch = getc(STDIN); # Printing the entered value print"Value entered: $ch";
Producción: