MasterCard Delectable 1-For-1 Deals

Only with Debit or Prepaid MasterCard

Promotion period: 1 July - 30 Sept 2012


Buy 1 FREE 1 Promotion!
Enjoy double the excitement with Debit or Prepaid MasterCard all across Malaysia.


Purchase a Golden Screen Cinemas movie ticket and receive aFREE ticket to share at the same movie session.


Top up RM10 DiGi talktime with your Debit or Prepaid MasterCard and you will receive RM10 FREE when you purchase online.


Not a Debit MasterCard cardholder yet? Sign up now to enjoy a voucher for 1-for-1 regular pizza atPizza Hut.


Terms & conditions apply.

related link:

http://www.mastercard.com/sea/personal/en/promotions/malaysia/debit_malaysia.html

VBA Comparison Operators

VBA Comparison Operators

Comparison operators compare two numbers or strings and return a logical (True or False) result. The main Excel VBA comparison operators are listed in the table below:

Operator	Action
=	Equal To
< >	Not Equal To
<	Less Than
>	Greater Than
<=	Less Than or Equal To
>=	Greater Than or Equal To

references:
http://www.excelfunctions.net/VBA-Operators-And-Functions.html

split integer value from others character

  #!/usr/bin/perl

  use strict;


  my $data = '2323424: 2434324, 3455543543';
  my @ftr =();
  my @values = ();
 
   @values = split(/(\d+)/, $data);

  foreach my $val (0 ..  $#values) {

unless ( $values[$val] =~/^[0-9]+$/)
{
splice(@values, $val, 1);

}

  }

  print " @values\n";
  exit 0;

Perl CGI for beginner

Good post for beginner:
http://www.perlmonks.org/?node_id=44536

Website to download apache : httpd-2.0.64-win32-x86-openssl-0.9.8o.msi
http://httpd.apache.org/download.cgi#apache24

Della丁噹【不是你的錯】MV youtube

好好听噢~~




丁噹 

不是你的錯

作詞：黃婷
作曲：林邁可

音樂停止了 引擎熄火了
窒息的溫柔 尖銳得赤裸
一刀一刀 往我心上割 往傷口裡戳
那麼折磨 為了甚麼

別說你難過 別再安慰我
最爛的理由 是你配不上我
我沒有你想像中脆弱 我會好好的
沒有甚麼 罪不可赦

再痛的痛苦淚水 換不回 一點點感動
我不怪你 不是你的錯
再深的深情容忍 也不能 讓你再愛我
我不怪你 不是你的錯


別說你難過 別再安慰我
最爛的理由 是你配不上我
我沒有你想像中脆弱 我會好好的
沒有甚麼 罪不可赦

再痛的痛苦淚水 換不回 一點點感動
我不怪你 不是你的錯
再深的深情容忍 也不能 讓你再愛我
我不怪你 不是你的錯


再痛的痛苦淚水 換不回 一點點感動
我不怪你 不是你的錯
再深的深情容忍 也不能 讓你再愛我
我不怪你 不是你的錯


我的世界 沒有你 也許更遼闊
就到這裡 錯了又 如何

read text file and store line in array

if (-e $file )

{

open(ori, $file);

while( my $line = )

{

if ($line =~ m/^connect/i)

{

push(@array,$line)

}

}

}

else

{

print" cannot find the file";

}

reference

1.http://stackoverflow.com/questions/1512729/how-can-i-search-multiple-files-for-a-string-in-perl

read excel file in unix PERL module

popular module :- spreadsheet::ParseExcel

able to read xls file

unable to read .xlsx file

Spreadsheet::XLSX

focus on reading value for xlsx file

limited functionality

http://groups.google.com/group/spreadsheet-writeexcel/browse_thread/thread/9a69b3da83db317?pli=1

Excel::reader

read xlsx file (haven't test out)

https://github.com/jmcnamara/excel-reader-xlsx