UNIX for Advanced & Expert Users

open(MYINPUTFILE, "<filename");
while(<MYINPUTFILE>)
 {
 # Good practice to store $_ value because
 # subsequent operations may change it.
 my($line) = $_;

 # Good practice to always strip the trailing
 # newline from the line.
 chomp($line);

 # Print the line to the screen and add a newline
 print "$line\n";
 }

#!/usr/local/bin/perl  
open (MYFILE, 'data.txt');  
while (<MYFILE>) {
   chomp;   
   print "$_\n";
  } 
 close (MYFILE);

while IFS= read -r var; do
  printf '%s\n' "$var"
done < infile

bash-2.03$ ls
infile
bash-2.03$ cat infile
one two
-n -e ok?

   three *
bash-2.03$ for i in `cat infile` ; do   echo $i    ; done
one
two

ok?
three
infile
bash-2.03$

bash-2.03$ while IFS= read -r var; do   printf '%s\n' "$var"; done < infile
one two
-n -e ok?

   three *
bash-2.03$

bash-2.03$ perl -pe1  infile
one two
-n -e ok?

   three *

#!/usr/bin/perl

use warnings;
use strict;

open my $infile, '<', 'infile'
  or die "open: $!\n";
  
print while <$infile>;

close $infile
  or warn "close: $!\n";

while read i
do
...
done < file