Question

I’m trying to print a character from a file each time I get a char as input.
My problem is that it prints the whole line. I know it’s a logic problem, I just can’t figure out how to fix it.

use Term::ReadKey;
$inputFile = "input.txt";
open IN, $inputFile or die "I can't open the file :$ \n";

ReadMode("cbreak");
while (<IN>) {  
    $line = <IN>;
    $char = ReadKey();
    foreach $i (split //, $line) {          
        print "$i" if ($char == 0);         
    }
}

Answer 1

Move the ReadKey call into the foreach loop.

---

use strictures;
use autodie qw(:all);
use Term::ReadKey qw(ReadKey ReadMode);

my $inputFile = 'input.txt';
open my $in, '<', $inputFile;

ReadMode('cbreak');
while (my $line = <$in>) {
    foreach my $i (split //, $line) {
        my $char = ReadKey;
        print $i;
    }
}

END { ReadMode('restore') }