1. 安裝DBI套件
wget http://search.cpan.org/CPAN/authors/id/T/TI/TIMB/DBI-1.605.tar.gz
tar -xvf DBI-1.605.tar.gz
wget http://search.cpan.org/CPAN/authors/id/T/TI/TIMB/DBI-1.605.tar.gz
tar -xvf DBI-1.605.tar.gz
- 5月 17 週六 200802:11
Connect Database for MySQL
- 1月 12 週六 200804:06
分析fg-traffic-log (Perl)
說明：
程式目的：根據FG的traffic log 分析出每個IP的流量..
=============================
#!/usr/bin/perl
程式目的：根據FG的traffic log 分析出每個IP的流量..
=============================
#!/usr/bin/perl
- 1月 11 週五 200818:47
分割文字split (Perl)
#!/usr/bin/perl
use IO::File;
my $file = shift;
my $ft = IO::File->new($file);
my $line = <$ft>;
use IO::File;
my $file = shift;
my $ft = IO::File->new($file);
my $line = <$ft>;
- 11月 16 週五 200705:15
讀取遠端伺服器資料的第一行~(Perl)
#!/usr/bin/perl
use IO::File;
use IO::Socket;
my $server = shift;
my $fh = IO::Socket::INET->new($server);
my $line = <$fh>;
use IO::File;
use IO::Socket;
my $server = shift;
my $fh = IO::Socket::INET->new($server);
my $line = <$fh>;
- 11月 16 週五 200705:14
讀取檔案中的第一行文字~(Perl)
#!/usr/bin/perl
use IO::File;
my $file = shift;
my $ft = IO::File->new($file);
my $line = <$ft>;
use IO::File;
my $file = shift;
my $ft = IO::File->new($file);
my $line = <$ft>;
- 11月 16 週五 200705:13
安裝IO::File~(Perl)
於CPAN下載IO::File:
#wget http://cpansearch.perl.org/CPAN/authors/id/G/GB/GBARR/IO-1.2301.tar.gz
解壓縮:
#gunzip -c IO-1.2301.tar.gz | tar xvf -
安裝程式:
#perl Makefile.PL
#make
#make test
#make install
安裝過程一切順利 ^^
sclin by 淳
1
