perl - read file line by line

라인수가 많지 않으면 cat 결과를 array 에 넣어서 읽으면 됩니다.

my @lines = `cat file.txt`;

for my $line (@lines) {
    print $line;
}

 

라인수가 많으면 file open 을 이용합니다.

#!/usr/bin/env perl

use strict;
use warnings;

my $file = "file.txt";
open my $info, $file or die "Could not open $file: $!";

while (my $line = <$info>) {
    print $line;
}
close $info;