第一次用Perl語言，想請大神解釋兩段腳本的意思，絕不做伸手黨，需要報酬的請回復(fù)，謝

scterl

  因為公司接手一個系統(tǒng)監(jiān)控項目，需要使用到perl腳本，本人又想去做，但是需要簡單解釋下公司發(fā)的perl腳本，才可以參加，由于零時接到消息，沒時間準備，所以想請大神幫忙看下，如需報酬可以回復(fù)，本人很想?yún)⒓舆@個項目，學(xué)習(xí)perl語言。
如果可以的話，最好能一一對應(yīng)，因為本人還為學(xué)過，不太明白，謝謝各位大大了。
### main ###

#check argument
usage if(!defined(@ARGV) || (scalar(@ARGV) < 2));
my $scope=shift @ARGV;
my $interval = shift  @ARGV || "60";

#check  env
our $osname = &checkOs();
our $ov_install_bin_dir;
our $agent_data_dir;
our $metric_config_file;
our $bhm_ftp_temp_dir;
our $bhm_ftp_err_log;
our $dbspi_udm_config;


&check_env();
&genDir($agent_data_dir);
&genDir($bhm_ftp_temp_dir);

#check  oracle config env  
exit 0         unless(&checkOracleSpi());
exit 0  unless(&checkudmConfig($dbspi_udm_config));

# process env
our $filename;
$filename = &gencsvname($interval);

#load data to csv file
&parserDbspicao($scope);

### end of main ###

scterl

大大們，解釋兩三段都行，再次感謝了。

jason680

回復(fù) 2# scterl

tell us where you cannot understand ...

Note: study basic if you know nothing with Perl.
http://72891.cn/forum.p ... ;page=1#pid12776211   

laputa73

告訴你一個方法
如果你一點編程經(jīng)驗都沒有,那么就直接百度翻譯一下
多數(shù)語言和英語差不多
比如這段

1. 
   
2. #檢查參數(shù)
   
3. 
   
4. usage if(!defined(@ARGV) || (scalar(@ARGV) < 2));
   
5. 如果（使用！定義（@ argv）| |（標量（@ argv）＜2））；
   

復(fù)制代碼

還有

1. #檢查Oracle配置環(huán)境
   
2. 
   
3. exit 0 unless(&checkOracleSpi());
   
4. 除非退出0（與checkoraclespi()）；
   
5. 
   
6. exit 0 unless(&checkudmConfig($dbspi_udm_config));
   
7. 除非退出0（與checkudmconfig（合dbspi_udm_config））；
   

復(fù)制代碼

Ray001

樓主不是伸手黨，是砸錢黨！

104359176

回復(fù) 5# Ray001


    ### main ###

#check argument
usage if(!defined(@ARGV) || (scalar(@ARGV) < 2)); # 如果命令行沒有定義或命令行參數(shù)個數(shù)少于2，就顯示幫助（估計就退出了）
my $scope=shift @ARGV; # 獲取第一個參數(shù)到變量 $scope
my $interval = shift  @ARGV || "60"; # 獲取第二個變量 $interval 如果得到的是 0 就默認設(shè)置成 60

#check  env
our $osname = &checkOs();
our $ov_install_bin_dir;
our $agent_data_dir;
our $metric_config_file;
our $bhm_ftp_temp_dir;
our $bhm_ftp_err_log;
our $dbspi_udm_config;


&check_env();
&genDir($agent_data_dir);
&genDir($bhm_ftp_temp_dir);

#check  oracle config env  
exit 0         unless(&checkOracleSpi()); # 如果函數(shù)調(diào)用返回為 false 就退出
exit 0  unless(&checkudmConfig($dbspi_udm_config));  # 同上

# process env
our $filename;
$filename = &gencsvname($interval);

#load data to csv file
&parserDbspicao($scope);

### end of main ###

&parserDbspicao($scope) 是函數(shù)調(diào)用的寫法，函數(shù)名稱是 parserDbspicao 參數(shù)是 $scope.

our $filename;; => 聲明一個全局變量
my $my $scope=shift @ARGV; 聲明一個局部變量

scterl

太感謝大神了，謝謝謝謝回復(fù) 6# 104359176


   

scterl

嗯嗯，相當(dāng)科學(xué)的啊，謝謝大神指導(dǎo)，完全是零基礎(chǔ)，感謝回復(fù) 4# laputa73