最近遇到乙個需求,呼叫perl指令碼,由於自己不會perl硬著頭皮上
#!/usr/bin/perl -w
#檢測是否是閏年
#輸入引數年:數值型別
#如:2017
sub is_leap_yearelse
return $flag;
}#返回偏移後的unix時間戳
#引數:年,月,日,偏移日期(可正可負),數值型別
#如:2017,9,15,-3,返回2017-9-12-0;00:00的unix時間戳
sub getoffsettimesecondelse
}for( $j = 1; $j < $month; $j = $j + 1)
}$sec += ($day- 1) * 86400;
$sec -= 28800;
$sec += 86400 * $offsetday;
return $sec;}
my $txdate;
my $jobname;
$txdate = $argv[2];
$jobname = $argv[1];
my $y=substr($txdate, 0, 4) + 0;
my $m=substr($txdate,4,2) + 0;
my $d=substr($txdate,6,2) + 0;
my $mysecondtest = getoffsettimesecond($y,$m,$d,0);
my ($tsec1,$tmin1,$thour1,$***ay1,$tmon1,$tyear_off1,$twday1) = localtime($mysecondtest);
if($twday1 == 0)
my $lastsecond = getoffsettimesecond($y,$m,$d,-6-$twday1);
my($sec,$min,$hour,$day,$mon,$year) = localtime($lastsecond);
$mon++;
$year += 1900;
$txdate = sprintf("%04d%02d%02d",$year,$mon,$day);
#print "$txdate\n";
#傳送報表 週報rp_sohu_ad_weekly
my $code=system("/bin/sh /opt/dwetl/tableau/sh/tableau_mail.sh 'rp_ad_weekly' '$txdate'");
exit $code/256;
字串轉換成整數
題目詳情 輸入乙個表示整數的字串,把該字串轉換成整數並輸出,例如輸入字串 345 則輸出整數345。請完成函式strtoint,實現字串轉換成整數的功能。友情提醒 提交 之前,請複查下你的程式,比如當給的字串是如左邊所示的時候,有考慮到麼?當然,它們各自對應的正確輸出如右邊所示 假定你是在32位系統...
字串轉換成整數
輸入乙個表示整數的字串,把該字串轉換成整數並輸出,例如輸入字串 345 則輸出整數345。需要考慮的問題 1.由於整數可能不僅僅之含有數字,還有可能以 或者 開頭,表示整數的正負。2.處理非法輸入。在使用指標之前判斷這個指標是不是為空。3.輸入的字串中可能含有不是數字的字元。4.最後乙個需要考慮的問...
字串轉換成整數
字串轉換成整數。不廢話,貼 在網上找到了大神july的帖子,發現即使演算法非常細膩,但是我自己在電腦上執行卻不行,所以自己改了一下,應該沒有問題了。include include include using namespace std int strtoint const char str if i...