[問題]關於MAIL的問題

看板Perl作者yingwan (yingwan)時間16年前 (2008/10/30 12:34)推噓0(0推 0噓 7→)

留言7則, 2人參與討論串1/1

最近用perl做了一個CGI 使用者可以在網頁上留言，然後程式會把這些留言寄給我遇到的問題是，我只能收到留言的第一個字，之後的內容我完全無法收到原本以為是因為我設純量變數，所以我換成陣列，但是那樣還是無法收到全部留言內容希望好心人幫我看看我哪裡需要改進，謝謝大家 #!/usr/bin/perl -w #------------------------ #CGI for Contact_Us html #------------------------ use CGI qw(:standard -debug); use CGI::Carp qw(fatalsToBrowser); #get input $email= param ("email"); $subject= param ("subject"); $comments= param ("comments"); #checking for missing input if ($email eq "") { push (@missing, "Email");} if ($subject eq "") { push (@missing, "Subject");} if ($comments eq "") { push (@missing, "Comments");} $missing= join( ", ", @missing); if ($missing) { print header(); print start_html(-title=>"Missing Input"); print h2("Incomplete Input"); print p("You did not enter <b>$missing</b>"); print end_html(); exit; } #check for email $goodmail=0; if ($email=~ /^\w+\@\w/) { $goodmail=1; } if ($goodmail==0) { print header(); print start_html(-title=>"Bad Email Address"); print p("Your email address $email is not valid"); print end_html(); exit; } $admin="123\@yahoo.com.tw"; open (MAIL, "| mail $admin") || die "can't mail to administrator"; print MAIL "SUBJECT: $subject\n"; print MAIL "FROM: $email\n"; print MAIL "$comments\n"; close(MAIL); print header(); print start_html(-title=>"Email Sent"); print p("Your comments has been sent, Thank you.\n"); print end_html(); exit; -- ※ 發信站: 批踢踢實業坊(ptt.cc) ◆ From: 149.159.132.73