티스토리 뷰

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









'DEV > Perl' 카테고리의 다른 글

FILE  (0) 2015.12.23
OOP  (0) 2015.12.21
정규표현식(Regular Expression)  (0) 2015.12.14
Package  (0) 2015.12.11
Subroutine (=함수)  (0) 2015.12.11
댓글
공지사항
최근에 올라온 글
최근에 달린 댓글
Total
Today
Yesterday
링크
«   2024/07   »
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
글 보관함