目前分類:Perl (299)

瀏覽方式: 標題列表 簡短摘要

大家討論使用Gearman做分散式處理時,各機需要註冊一個獨立的job作為資訊回饋,但是為了方便,Gearman::Worker腳本register_function代碼又要通用,於是想到了使用各自的ip位址作為job命名~
那麼怎麼在worker腳本裡獲取本機ip作為func呢?
第一種辦法,最簡單的,調用shell:

shadow 發表在 痞客邦 PIXNET 留言(0) 人氣()

1. Perl函數
通過 & 調用.

 

shadow 發表在 痞客邦 PIXNET 留言(0) 人氣()

本脚本适用于apache的配置文件,进行批量建站。
#!/usr/bin/perl 
while(<>){ 
                chomp; 
                my @p=split (/ /,$_); 
                print <<SITE; 
<VirtualHost $p[2]:80> 
                VirtualDocumentRoot /home/web/$p[0] 
                ServerName $p[1] 
             ServerAlias www.$p[1] 
                <Directory /home/web/$p[0]> 

        Options    FollowSymLinks 
        AllowOverride All 

        Order allow,deny 
        Allow from all 
                </Directory> 
</VirtualHost> 

STIE 

shadow 發表在 痞客邦 PIXNET 留言(0) 人氣()

未命名  

#本程式的功能為判斷一個字串是不是ip,是ipv4還是ipv6

# 以下是用來將 IPv6 位址表示為文本字串的三種常規形式:

shadow 發表在 痞客邦 PIXNET 留言(0) 人氣()

200817423 (1)  

 

use Net::SNMP;

shadow 發表在 痞客邦 PIXNET 留言(0) 人氣()

未命名  

use strict;
#讀入一串數字,將它們按照數字排序,將結果按右對齊的列列印出來

shadow 發表在 痞客邦 PIXNET 留言(0) 人氣()

未命名  

use strict;
use DBI;

shadow 發表在 痞客邦 PIXNET 留言(0) 人氣()

未命名  

use DBI;
#definition of variables

shadow 發表在 痞客邦 PIXNET 留言(0) 人氣()

未命名  

use strict;
my @cards;

shadow 發表在 痞客邦 PIXNET 留言(0) 人氣()

未命名  

 

use strict;

shadow 發表在 痞客邦 PIXNET 留言(0) 人氣()

未命名  

需要安裝的模組:
File::Monitor

shadow 發表在 痞客邦 PIXNET 留言(0) 人氣()

未命名  

use strict;
use warnings;

shadow 發表在 痞客邦 PIXNET 留言(0) 人氣()

未命名  

必須先安裝E-MAIL-MIME,在命令視窗輸入ppm install Email-MINE

 

shadow 發表在 痞客邦 PIXNET 留言(0) 人氣()

未命名  

use Tk;
use strict;

shadow 發表在 痞客邦 PIXNET 留言(0) 人氣()

未命名    

use Tk;
use strict;

shadow 發表在 痞客邦 PIXNET 留言(0) 人氣()

未命名  

use Tk;
use strict;

shadow 發表在 痞客邦 PIXNET 留言(0) 人氣()

未命名  

use Tk;
use strict;

shadow 發表在 痞客邦 PIXNET 留言(0) 人氣()

1.查看perl version: perl -version

未命名  

2.看是否安裝Perl/Tk模組

shadow 發表在 痞客邦 PIXNET 留言(0) 人氣()

1.F5或者Run->Run
未命名  

shadow 發表在 痞客邦 PIXNET 留言(0) 人氣()

$SIG{QUIT} = "quit_catcher"; # implies "main::quit_catcher"

 

$SIG{QUIT} = *quit_catcher; # forces current package’s sub

shadow 發表在 痞客邦 PIXNET 留言(0) 人氣()