https://www.adminschool.net/wiki/ 2026-04-22T04:47:37+00:00 https://www.adminschool.net/wiki/ https://www.adminschool.net/wiki/lib/exe/fetch.php?media=wiki:dokuwiki.svg text/html 2025-10-03T13:30:49+00:00 Anonymous (anonymous@undisclosed.example.com) https://www.adminschool.net/wiki/doku.php?id=develop:perl:compile&rev=1759498249&do=diff Perl Source Compile Source Compile * Perl Source Compile은 일반적으로 2가지 이유가 대부분입니다. * 컴파일을 통해 바이너리 코드를 얻음으로써 실행 속도를 조금 더 빠르게 하고 메모리 공간을 확보하기 위해 text/html 2025-10-03T13:30:49+00:00 Anonymous (anonymous@undisclosed.example.com) https://www.adminschool.net/wiki/doku.php?id=develop:perl:encoding&rev=1759498249&do=diff Perl Encoding Encoding 변환( UTF-8 <-> EUC-KR ) * EUC-KR 에서 UTF-8 로 변환 use encoding; ... $message="어드민스쿨"; $message=Encode::encode("utf-8", Encode::decode("euc-kr",$message)); ... * UTF-8 에서 EUC-KR 로 변환 use encoding; ... $message="어드민스쿨"; $message=Encode::encode("euc-kr", Encode::decode("utf-8",$message)); ... text/html 2025-10-03T13:30:49+00:00 Anonymous (anonymous@undisclosed.example.com) https://www.adminschool.net/wiki/doku.php?id=develop:perl:excel&rev=1759498249&do=diff Perl을 이용하여 Excel과 연동하기 Excel 데이타 읽기 #!/usr/bin/perl -w # # starlits at adminschool.net # excel cell reading # use strict; use Spreadsheet::ParseExcel; use Encode; my $encoding = "euc-kr"; my $oExcel = new Spreadsheet::ParseExcel; die "You must provide a filename to $0 to be parsed as an Excel file" unless @ARGV; my $oBook = $oExcel->Parse($ARGV[0]); my($iR, $iC, $oWkS, $oWkC); print "FILE :", $oBook->{File} , "\n"; print "COUNT :", $oBook->{SheetCount} , "\n"; print "AUTHOR:", $oBook->{… text/html 2025-10-03T13:30:49+00:00 Anonymous (anonymous@undisclosed.example.com) https://www.adminschool.net/wiki/doku.php?id=develop:perl:lwp&rev=1759498249&do=diff Perl과 LWP 소개할 내용은 Perl LWP모듈의 소개와 간단한 사용 예제 그리고 그것을 이용해서 만들어본 웹페이지의 링크를 체크하는 스크립트이다. LWP ( Library for WWW in Perl ) 모듈은 웹에 존재하는 데이터에 접근하는 매우 인기있고 안정적인 모듈이다. text/html 2025-10-03T13:30:49+00:00 Anonymous (anonymous@undisclosed.example.com) https://www.adminschool.net/wiki/doku.php?id=develop:perl:mssql&rev=1759498249&do=diff Perl을 이용하여 MS SQL Server 연동하기 Installation FreeTDS 설치하기 apt로 설치하기 * freetds-common 과 freetds-dev 를 설치해 준다. # apt-get install freetds-common freetds-dev source로 설치하기(순서) * 다운로드 text/html 2025-10-03T13:30:49+00:00 Anonymous (anonymous@undisclosed.example.com) https://www.adminschool.net/wiki/doku.php?id=develop:perl:number_format&rev=1759498249&do=diff Perl Number Format Outline * 숫자가 너무 크면, 읽기 쉽게 3자리씩 , 을 찍어줄 수 있다. * 그 이외에 다양한 숫자표현방식을 구현한다. Debian Install * APT Install # apt-get install libnumber-format-perl text/html 2025-10-03T13:30:49+00:00 Anonymous (anonymous@undisclosed.example.com) https://www.adminschool.net/wiki/doku.php?id=develop:perl:oracle&rev=1759498249&do=diff Perl + Oracle 연동 사전작업 * apt-get 을 이용하여 패키지 설치 # apt-get install libdbi-test-perl libdbix-abstract-perl make # apt-get install python3 python-dev python3-dev \ build-essential libssl-dev libffi-dev \ libxml2-dev libxslt1-dev zlib1g-dev \ python-pip text/html 2025-10-03T13:30:49+00:00 Anonymous (anonymous@undisclosed.example.com) https://www.adminschool.net/wiki/doku.php?id=develop:perl:perlcgi&rev=1759498249&do=diff Perl CGI Encoding * Header 안에 charset 정보를 넣어준다. print $q->header(-charset => 'utf-8'); Oracle Query Korean Encoding * Perl CGI에서 Oracle 환경설정을 해주지 않으면 한글이 제대로 나오지 않을 수 있다. text/html 2025-10-03T13:30:49+00:00 Anonymous (anonymous@undisclosed.example.com) https://www.adminschool.net/wiki/doku.php?id=develop:perl:portscan&rev=1759498249&do=diff Perl을 이요하여 PortScan 하기 #!/usr/bin/perl -w # portscan.pl -- Version 07-Dec-2001 # Copyright (c) 2001 Jochen Kupperschmidt <jochen@kupperschmidt.de> # Released under the terms of the GNU General Public License # _ _ # | |_ ___ _____ ___ _ _ _ ___ ___| |_ # | | . | | ._| | | | . | _| . / # |_|_|___|_|_|_|___|_____|___|_| |_|_\ # http://homework.nwsnet.de/ use IO::Socket; my ($host, $from, $to, $port, $socket); ($host = $ARGV[0]) or die "Usage:… text/html 2025-10-03T13:30:49+00:00 Anonymous (anonymous@undisclosed.example.com) https://www.adminschool.net/wiki/doku.php?id=develop:perl:sorting&rev=1759498249&do=diff HASH 소팅(sorting) 한글순으로 소팅 #!/usr/bin/perl use strict; use warnings; my %cities = ( "한국" => "서울", "일본" => "도쿄", "그리스" => "아테네", "미국" => "워싱턴", "프랑스" => "파리", ); print "\n<key를 가나다순으로 소팅>\n"; foreach $_ (sort keys %cities) { print "$_ : $cities{$_}\n"; } print "\n\n<value를 가나다순으로 소팅>\n"; foreach $_ (sort { $cities{$a} cmp $cities{$b} } keys %cities) { print "$_ : $cities{$_}\n"; }… text/html 2025-10-03T13:30:49+00:00 Anonymous (anonymous@undisclosed.example.com) https://www.adminschool.net/wiki/doku.php?id=develop:perl:unixdaemonsinperl&rev=1759498249&do=diff Unix Daemons in Perl Now that we understand the basic attributes of a daemon, let's put the pieces together into a simple Perl program: Simple Daemon: Listing 1 use POSIX qw(setsid); chdir '/' or die "Can't chdir to /: $!"; umask 0; open STDIN, '/dev/null' or die "Can't read /dev/null: $!"; #open STDOUT, '>/dev/null' or die "Can't write to /dev/null: $!"; open STDERR, '>/dev/null' or die "Can't write to /dev/null: $!"; defined(my $pid = fork) or die "Can't fork: $!"; ex… text/html 2025-10-03T13:30:49+00:00 Anonymous (anonymous@undisclosed.example.com) https://www.adminschool.net/wiki/doku.php?id=develop:perl:wide_char&rev=1759498249&do=diff Wide character in print at 에러 대처방법 * Wide character in print at 오류는 UTF-8 플래그가 지정된 문자열을 print하려고 할때 발생합니다. * UTF-8 플래그를 제거하고 print하면 에러가 발생하지 않습니다.