軟體外包印度真的有效率嗎？

底下這個code會讀取XLM的檔案，把內容透過PC的RS232 PORT傳送到LCM上，並且等著接收模組上按鍵回送的鍵盤碼，這程式只有40行還含註解，算是十分簡單的DEMO程式，可是測試LCM的DEMO程式要XML幹嘛阿？

這故事要說到印度阿三，東ㄠ西ㄠ的鬼叫LCM不會動，一下子懷疑電路有問題，一下子不會用Perl，搞得我火都上來了，就圖文並茂的必殺技開下去，後來乾脆把keypad的問題也搞定掉算了，就把原先的只會傳送資料出去的code改成收送都可以的版本，而讀XML就他X的奇怪，最好是跟我說他們軟體想要怎麼用，要去XML讀檔，拿到裏面的欄位阿，想要怎樣...怎樣啦！

挖賽~趕情是當成是在開軟體需求了勒！

我也真他X的仁慈，還幫他們把這XML功能寫上去(雖然對我沒難度，但是還是要哎一下)，之前還說要改成我們的模組他們軟體要開發一個月(最好寫個小UI改IP要一個月啦)，算了，以他們這種程度，真的沒幾個月搞不下來，他X的我就只有幾個小時可以搞，阿是怎麼樣。

軟體外包給印度搞真的有效率嗎？(可能只是因為這個客戶很病而已...其實人家印度還是很強的...話說現在隨便一隻手機都強過太空梭發射的時代...台灣還是沒發射火箭上去阿...)

#!/usr/bin/perl -w

use Device::SerialPort;
use XML::Simple;

$xml = new XML::Simple;

if(!(-f "data.xml")){
 print "Can't found XML file!\r\n";
 exit 1;
}

$data = $xml->XMLin("data.xml") or die "Can't open XML file!\r\n";

print "$data->{DATA}\r\n";

#Open port with parameter 9600n81
my $port = Device::SerialPort->new("/dev/ttyS0");
$port->databits(8);
$port->baudrate(9600);
$port->parity("none");
$port->stopbits(1);

#write data via serial port
#see LCD_COMMANDS.pdf page 1
#table for function/command
#0xF8 0x01 = Clear screen
#The following data will clear screen first then send your XML data

$displayStr = sprintf("%c%c",0xF8,0x01);
$port->write("$displayStr");
sleep(1);
$port->write("$data->{DATA}");

while(1){
 my ($count, $string) = $port->read(1);
 if($count > 0){
  print "Keycode = ".unpack("H*",$string)."\r\n";
 }
}