Pages

Thursday, November 10, 2011

Array Perl



To get the index and item

for my $i (0 .. $#x) {
print "$i: $x[$i]\n";
}
To get the last item in array
. $array[$#array] .
To get the total number of array

.  scalar @array .
To get the max index in array
$#array
To Output the item of array
foreach (@array)
{
$element = $_;
print " $element\n"

}




References :
1. http://www.tutorialspoint.com/perl/perl_arrays.htm
2. http://perlmeme.org/howtos/data_structures/arrays.html

Friday, November 4, 2011

音乐分享 Bruno Mars -《Doo Wops & Hooligans (Deluxe Version)》


Bruno Mars -《Doo Wops & Hooligans (Deluxe Version)》豪华版

Tracklist:

01. Grenade

02. Just the Way You Are

03. Our First Time

04. Runaway Baby

05. The Lazy Song

06. Marry You

07. Talking to the Moon

08. Liquor Store Blues (feat. Damian Marley)

09. Count On Me

10. The Other Side (feat. Cee Lo Green & B.o.B)

Bonus Tracks (Deluxe Version):

11. Just the Way You Are (feat. Lupe Fiasco) [Remix]

12. Somewhere In Brooklyn Digital Booklet - Doo-Wops & Hooligans (Deluxe)

115 download http://u.115.com/file/f976fc6a20

Thursday, November 3, 2011

离开我你会幸福吗



喝了一点酒觉得头好痛
爱了那么久结果人去楼空
幻想的天空已不知去了影踪
编织的美梦却已化成冰冷与空洞
眼泪已无济于事 那爱已变成往事
骗自己不爱了忘记伤心事
离开我你会幸福吗
为什么听不到你回答
那段感情难道已不在牵挂
怪我当初爱你爱的那么傻
离开我你会幸福吗 我在等待你的回答
说好牵手到永久谁也不放下
难道你都忘了吗
离开我你会幸福吗

Monday, October 17, 2011

Extract Excel contents from perl

This code is used to calculate no. of w/s in excel file and read the worksheets' name.

my $sheetcnt = $Book->Worksheets->Count();
foreach (1..$sheetcnt){
print "\t" .$Book->Worksheets($_)->{Name} ."\n";
}


While last row and column can be read by using this:-

Finding the last Column and Row

my $LastRow = $Sheet->UsedRange->Find({What=>"*",
SearchDirection=>xlPrevious,
SearchOrder=>xlByRows})->{Row};

my $LastCol = $Sheet->UsedRange->Find({What=>"*",
SearchDirection=>xlPrevious,
SearchOrder=>xlByColumns})->{Column};

All of above code are use Win32::OLE without using complicated spreadsheet perl module.

Reference
1. http://www.perlmonks.org/?node_id=153486
2. http://www.ngbdigital.com/perl_ole_excel.html
3. http://perlguru.com/

Tuesday, October 4, 2011

王力宏 Wang Leehom 依然愛你 Still In Love With You

Thursday, September 29, 2011

转发:C++读写EXCEL文件方式比较

C++读写EXCEL文件方式比较

C++读取Excel的XLS文件的方法有很多,但是也许就是因为方法太多,大家在选择的时候会很疑惑。
由于前两天要做导表工具,比较了常用的方法,总结一下写个短文,

1.OLE的方式
这个大约是最常用的方式,这个方式其实启动了一个EXCEL的进程在背后读写EXCEL文件,这个方式的最大好处是什么事情都能做。包括设置EXCEL的格式,增加删除Sheet,读写单元格,等等。功能几乎是最全的,而且使用起来也不是特别的难。
其基本方法都是使用导出的.h文件进行OLE操作,但是由于OLE的接口说明文档不多,想非常完美的使用她们也不是太容易,好在例子也很多。
网上普遍认为OLE速度慢,EXCEL的OLE读写方式也基本一样。但是读取速度可以改进,如果在读取的加载整个Sheet的Range的全部数据,而不是一个个单元格读取,那么速度还是相对不错。想想原理也很简单,整体读取减少了OLE的交互次数。OLE的写入方式一般只能几个进行比较方便,所以速度可能要快很多。
我自己的亲身体会是,一个EXCEL文件,100多列的字段,如果采用一个个单元格的读取方式,1s大约3条左右的记录,如果整体读取,速度可以提高几十倍。
OLE读写EXCEL方式功能很强大,读取速度还可以,但写入速度不高,当然这个方式不可能移植的,而且你必须安装了EXCEL。

2.Basic EXCEL 方式
这是CodeProject上的一个推荐开源工程了,
http://www.codeproject.com/KB/office/BasicExcel.aspx
作者是基于EXCEL的文件格式进行的处理。但是为什么叫Basic EXCEL呢。
他不支持很多东西,公式,文件格式,表格合并等(有人说中文支持也不好),所以可以认为他只支持最基本的EXCEL表格,
我自己的尝试是如果这个EXCEL文件有其他元素(公式,格式等),使用Basic EXCEL读取会失败。
OLE读写EXCEL方式功能比较弱,由于是直接根据文件格式操作,读写速度都不错,你也不需要按照EXCEL,另外这个方式是可以移植的,但是有一些成本,其代码比较晦涩难懂,而且没有注释,另外即使在Windows平台上,告警也很多。


3.Sourceforge 上的几个EXCEL库。
Sourceforge 上有几个开源的的EXCEL库,但是完善的不多,有的是为了PHP读写EXCEL准备的,包括libXLS,XLSlib,SmartEXCEL等。我下载了几个实验了一下,在Widonws都没有编译成功。也罢了。

4.ODBC的方式
这个亲身没有尝试过,但是按照原理,应该只能读写。
速度吗,ODBC的速度本来就是出名的慢了。
http://www.vckbase.com/document/viewdoc/?id=421

值得一提的是Basic EXCEL的作者原来在CodeProject上有一个给予ODBC方式的封装CSpreadSheet 。如果有兴趣,大家可以去看看。其实内心还是很佩服这个作者的。
http://www.codeproject.com/KB/database/cspreadsheet.aspx

5.ADO的方式
ADO的方式听说应该就是使用OLEDB的方式。和OLE的方式应该没有本质区别。我看了看例子也和OLE很像


6.LibXL
LibXL 是一个收费的EXCEL的库。
http://www.libxl.com/
按照他的说明,他可以不依赖EXCEL读取XLS文件。包括设置格式等。看例子操作应该很简单。但是是否可以移植到Linux平台,我估计难度也不小。呵呵。
由于要收费,没有法子测试了。

7.网上一些号称不用OLE读取EXCEL例子
初步看了一下,这个应该是网上探索EXCEL格式文档的例子。可以实际操作的方式不强。




References:
1. Comparison of methods of reading/writing EXCEL in C++ (chinese)
2. How to automate Excel from C++ without using MFC or #import
3. BasicExcel-A Class to Read and Write to Microsoft Excel
4. http://vivianningyang.blogspot.com/2009/05/how-to-readwrite-excel-in-c.html

Thursday, July 21, 2011

音乐分享 Chris Medina - What Are Words


Sunday, May 15, 2011

Meeting you was fate, becoming your friend was a choice, but falling in love with you was beyond my control

 

site weekly hits