如何修正 syntax error 問題 ? - Perl, CGI - 程式設計 - 頂客論壇 ,免費遊戲,免費交友,免費空間,免費部落格,免費相簿,免費開店 - 頂客社區 dk101.com 最用心的華人社群網站
發新話題

[問題] 如何修正 syntax error 問題 ?

如何修正 syntax error 問題 ?

##### choosing which file type #################
print "Please Choose Solution ? \n" ;
print " 1) Please Input An filename ? \n" ;
print " 2) Summation Daily Total Counts  \n" ;
chomp ($line = <ftype>);

if ("$ftype" == "1") {

        print "Please input filename and file path \n" ;
        chomp ($line1 = <filepath>);
}
        if ( ! -e "$filepath" ) {

                print "************************************" ;
                print "*****Shit!! File does not exist*****" ;
                print "************************************" ;
                exit 1;
}

@datatype = ('split','licenceCounter','cdrsReceivedTotSum','cdrsCombinedSum','cdrsAggregatedSum');
    foreach (@datatype) {
         print $i;
                `gzcat $filepath | grep $i  >> $tmp_folder/$i."log"`;
}
elsif ("$ftype" == "2") {
        print " Please input date for processing \n";
        chomp ($line2 = <filedate>);  # ch_server
        print " Please input path \n";
        chomp ($line3 = <datepath>);
        $datefile =`ls -al $datepath/PM.$hostip.$filedate.*.xml.gz | wc -l`;
        if ( "$datefile" == "0" ) {
                print "Sorry !! There are no PM files under $datepath" ;
                exit 1 ;
}
@datatype = ('split','licenceCounter','cdrsReceivedTotSum','cdrsCombinedSum','cdrsAggregatedSum');
    foreach (@datatype) {
         print $i;
               `gzcat $datepath/PM.$hostip."$filedate.\*"."xml.gz" |grep $i  >> $tmp_folder/$i."log"`;
}
else {
        print "Sorry!! You don't give me the right command" ;
}


syntax error at test.pl line 25, near "elsif"
syntax error at test.pl line 30, near "else"
Missing right curly or square bracket at test.pl line 32, at end of line

TOP

看起來你要重新翻一下手冊了....
錯的很離譜的.

TOP

發新話題

本站所有圖文均屬網友發表,僅代表作者的觀點與本站無關,如有侵權請通知版主會盡快刪除。