Perl 字串轉換成UNIX時間戳

2021-08-08 07:03:24 字數 1329 閱讀 3242

最近遇到乙個需求，呼叫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...