File Perl

  1. Home
  2. Perl
  3. File
  4. Reading from the Filehandle
#!/usr/bin/perl
open(FILE, "data.txt") || die "Can't open data.txt: $!\n";
while() {
     print if /A/;
}
close(FILE);