반응형 펄4 Perl Tutorial - 4. Count Lines 3 앞의 예제를 좀 더 깔끔하게 모듈화 시켜본다. #!/usr/bin/perl use 5.18.0; use warnings; use IO::File; main(@ARGV); sub main { my $filename = shift || "file.txt"; my $count = countlines( $filename ); say "there are $count lines in $filename"; } sub countlines { my $filename = shift; error("missing file") unless $filename; my $fh = IO::File->new( $filename , "r") or error("Cannot open $filename ($!)\n"); my $count = .. 2020. 12. 31. Perl tutorial - 3. Count lines 2 전의 튜토리얼을 통해서 파일을 읽고, 행의 갯수를 새 보았는데 겨우 행의 갯수를 세기 위해서 모든 text 파일을 읽어서 저장하는 것은 사실 비효율적인 일이다. 즉 파일의 contents 는 필요없고 단순히 몇 line 으로 이루어져 있는 지를 확인하는 보다 직관적인 튜토리얼은 다음과 같다. #!/usr/bin/perl use 5.18.0; use warnings; use IO::File; ##library for io control my $filename = "file.txt"; #declear var my $fh = IO::File->new($filename, "r"); if( ! $fh ){ print("Cannot open $filename ($!)\n"); exit } my $count = 0;.. 2020. 12. 31. Perl Tutorial - 2. Count Lines #!/usr/bin/perl use 5.18.0; use warnings; my $filename = "linesfile.txt"; open(FH, $filename); # open the file my @lines = ; # read the file close(FH); # close the file my $count = scalar @lines; # the number of lines in the file say "There are $count lines in $filename"; 지난번에 이어, 이번에는 파일 입출력과 관련된 튜토리얼이다. 먼저 Perl의 변수형은 int, float, string 등으로 데이터 타입에 따라 정의되는 다른 언어들과 달리 데이터의 형식 (단수, 복수 등)에 따라 scal.. 2020. 12. 28. Perl Tutorial 01 - Hello world Perl Script 관련 내용 사실 Perl 을 awk 나 sed 처럼 bash 상에서 inline으로 처리하는 데 쓰는 경우가 더 많아서 이렇게 체계적으로 포스팅하는 일이 거의 없을 거라 생각했는데, 뭐라도 기운이 있을 때(?) 기록을 남겨놔야 할 것 같아서 .. #!/usr/bin/perl use warnings use 5.18.0 say "Hello World" print "Hello World \n" Perl 가장 간단한 (그리고 제일 먼저 하게 되는) Hello World 프로그램이다. Unix 시스템에서 script 의 맨 첫번째 줄은 #! 키워드로 시작하는 경우가 많든데, 이는 "Shebang" 라고 부르며 이 파일이 다음의 프로그램(쉘)로 실행해야함을 명시한다. 예를들어 bash scri.. 2020. 12. 20. 이전 1 다음 반응형