준호씨의 블로그

perl - read file line by line 본문

개발이야기

perl - read file line by line

준호씨 2019. 1. 5. 00:41
반응형

라인수가 많지 않으면 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;
반응형
Comments