OpenSource BLOG OpenSource BLOG

#!/usr/bin/perluse strict;use warnings;print "===============================\n";print " Perl_TEST(File Input & Count Data)\n";print "===============================\n\n";# ~.txt 파일을 open 해서 한 객체에 넣는다.open (INFO, 'test1.txt' );# 객체의 내용에 대하여 배열에 넣는다.my @lines = ;# 배열에 공백을 제거한다.@lines = trim(@lines);# Uniq 하게 추출된 단어들단 uniqq 배열에 넣는다.my @uniqq = uniqElements(@lines);# 객체를 닫는다, 이후부터는 배열만 가지고 이어간다.clo..

그동안 split가 함수인줄 알고 있었는데, 함수가 아닌 연산자였다고 한다. 새로운걸 알았다. 소개split 함수는 주어진 대상문자열을 특정한 문자열을 이용해서 분리하여 배열에 저장하는 일을 한다. 분리하기 위한 문자는 단일 문자일수도 있고 문자열 일 수도 있다. 또한 정규표현(:12)을 이용해서 분리할 수도 있다. 사용법my $str = "yundream, joinc, 1974"; my @data = split(',', $str); my ($data1, $data2, $data3) = split(',', $str); my ($data1, @data2) = split(',', $str); 예제URL 분석URL 주소를 분석해서, protocol, Domain 이름 그리고 URI Page 정보를 얻어오는 간..

펄의 주석 기호: 라인 코멘트(Line Comments)샤프(#)가 펄의 주석 기호입니다. # 기호 뒤에 있는 문장은 실행에서 제외됩니다. 한 개의 문장만을 주석 처리할 수 있습니다. 펄의 주석 기호: 블록 코멘트(Block Comments)블록 코멘트라는 것은 C/C++나 자바의 /* ... */ 처럼 여러 줄을 한꺼번에 무시할 수 있는 주석입니다. 즉, 특정 구역을 주석 처리하는 것입니다. 펄에는 원래 블록 코멘트가 없지만, =pod 와 =cut 을 사용하면 블록 코멘트를 구현할 수 있습니다. 다만 =pod 앞에 공백이 있으면 에러가 납니다. 펄의 파일 끝 기호: __END__펄에는 __END__ 문이라는 것이 있는데, 펄이 __END__ 다음부터는 더 이상 파일을 읽지 않습니다. 따라서 __END_..

Perl is loosely typed language and there is no need to specify a type for your data while using in your program. The Perl interpreter will choose the type based on the context of the data itself.Perl has three basic data types: scalars, arrays of scalars, and hashes of scalars, also known as associative arrays. Here is little detail about these data types.S.N.Types and Description1Scalar: Scalar..

명령행(Command line)@ARGV라는 배열을 제공하며, 이 배열은 명령행에서 전달된 모든 값들이 담겨 있습니다. use strict를 사용하더라도 이 변수는 따로 선언하지 않아도 됩니다. use strict;use warnings;use Data::Dumper qw(Dumper); print Dumper \@ARGV;이것을 다음처럼 실행합니다: perl programming.pl -a --machine remote /etc 그러면 출력은 다음과 같습니다 use strict;use warnings; my ($name, $number) = @ARGV; if (not defined $name) { die "Need name\n";} if (defined $number) { print "Save '$na..