DEV/Perl

CPAN

초록매실원액 2015. 12. 24. 15:54

CPAN(comprehensive Perl Archive Network)

  • 모듈과 자료들의 집합

 

CPAN의 활용

  • 개발지원 모듈

  • Www/html, http, cgi등

  • 운영체제 인터페이스, 하드웨어 드라이버

  • 서버와 데몬

  • 문자열 처리, 언어처리, 해석과 검색

  • 전자우표와 뉴스그룹

  • RSS 번역기 만들기


CPAN의 모듈 설치


직접 압축파일을 다운받아 설치

http://www.perl.com/cpan/ 에서 해당 모듈을 검색하여 다운 후 설치

프로그램을 이용하여 설치

Linux : cpan 명령을 이용하여 설치

Windows : cpan or ppm 명령을 이용하여 설치


CPAN의 모듈 설치


cpan > i /net/ #모듈을 검색

cpan > install NET::FTP //해당 모듈 설치

cpan > exit or q

설치한 모듈 매뉴얼 보기

Perldoc Net::FTP


파일검색

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
#File::find::Rule
 
 
use strict;
 
 
 
use File::find::Rule;
 
 
 
my @path = ('d:\\' );
 
my @files = File::Find::Rule->file()
                            ->name('*.txt' )
                            ->in( @path);
 
for(@files){
    print $_,"\n";        
}
cs


Win32::GuiTest



참고

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
Pcap_lookupdev(\$err);
 
 
 
UseNet::Pcap;
 
 
 
My $err = '';
 
My $dev = Net::Pcap::Pcap_lookupdev(\$err); #네트워크 드라이브 장치를 리턴(eth0)
 
 
 
My $pcap = Net::Pcap::pcap_open_live($dev,1000,1,0,\$err);
 
1000 = 1000 start
 
Net::Pcap::pcap_loop($pcap,0,\&process_packet,"Just for  the demo");
 
#\&process_packet <-캡처할 함수 호출
 
0:무제한 {몇 개나 받을껀지}
 
 
 
Sub process_packet 
{
  #my ( $user_data, $header, $packet ) =@;
  Print $packet;
 
  #if($packet =~ /m_id=(.+?)&/gs;
  {
    Print $1 \n";
  }
}
cs









저작자표시