고요한 하늘

1 my ($key, $val) = split(/\t/); 2 $val =~ s/\{\(//; 3 $val =~ s/\)\}//; 4 my @fields = split(/\),\(/, $val); 위와 같은 코드에서 아래와 같은 에러가 발견되었을 경우 Use of uninitialized value in substitution (s///) at 초기화 되지 않은 변수가 사용되었다는 경고 메세지인데 이유는 단순하다 1번 라인에 의해 값이 할당된 v..

my $temp = "테스트"; 이런식으로 코드 중간에 한글 문자열을 넣었을때 다음과 같은 경고 메세지가 뜬다. Wide character in print at $direction = encode('utf-8',"이전:어절:"); 해결 방법 : use Encode; ... my $temp = encode('utf-8',"테스트");

Unmatched ) in regex; marked by <-- HERE in 위와 같은 에러를 만났을때 매칭을 원하는 문자열 앞과 뒤에 \Q문자열\\E \Q와 \E로 문자열을 감싼 상태에서 매칭을 하면 에러가 발생하지 않는다. 예를 들면 if( $buffer =~ /\Qpattern\E/ ) { }

q() quoteqq() double quoteqw() quote( split by space )qqw() double quote( split by space )double quote 안에서는 interpolation 가능

MAP 함수는 배열을 INPUT으로 받아서 배열을 OUTPUT으로 만든다. my @OUTPUT = map { PROCESSING } @INPUT ex> $input 이라는 스칼라 변수를 공백 단위로 분리한다. split의 리턴 값은 배열이기 때문에 map함수의 입력조건을 만족한다. map함수에 배열이 입력으로 들어가더라도 하나씩 처리하게 되는데 그 값..

파일 삭제 if ( -e $output_file ) { unlink $output_file or die "cannot remove output file: $!";} 파일 열기 , 닫기 open(INPUT, $keywords_file) or die "cannot open input file: $!";close(INPUT); 파일 읽기 while ( <INPUT> ) { chomp; $total++; my ($unique_id, $named_entity, $clues) = split(/\t/); #next unless exists $top_persons->{$named_entity}; $valid++; $pe..

SHIFT를 사용해서 하나씩 assign 할수도 있고 @_를 가지고 하나씩 변수를 할당할수도 있다. my $keywords_file = shift;my $output_file = shift || "news.output.txt"; my $keywords_file=@_[0] my $keywords_file=@_[1]

HELP 옵션과 VERBOSE 설정을 예로 my $options = {}; # `my' defines a local variable.getopts("hv", $options);$debug_mode = $options->{v}; sub print_usage_and_exit { my $fh = shift || *STDOUT; my $message = shift; print $fh $message, "\n" if defined $message; print $fh <<END;Usage: $0 [-h] [-v] [-v] <keywords_file> [<output_file>] keywords_file - input..

3개의 변수에 대해서 초기화 my ($valid, $total, $request) = (0, 0, 0); 해시 변수 초기화 my %persons = (); 배열 초기화my @array1 = ( 1, 2, 3, 4, 5, 6, 7, 8, 9);my @array2 = ( 1..9); 특이표현1 : 배열 개수scalar @{$persons{$a}} <-배열개수 특이표현2 : 대소 비교 연산자<=> 비교연산자 리턴값 : -1, 0, 1

#!/usr/bin/perl #엄격한 문법 검사use strict; #경고 메세지 출력use warnings; # UTF8 기본 문자열 사용use utf8; # 특정 파일의 경로를 찾을때use FindBin;FindBin::again(); # 옵션 파서use Getopt::Std; # HTTP 유틸리티use LWP::Simple qw(!head); # XML 파서 use XML::Simple; # 여러가지 변수 DEBUGGINGuse Data::Dumper