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

Spreadsheet-ParseExcel

http://search.cpan.org/~jmcnamara/Spreadsheet-ParseExcel-0.59/lib/Spreadsheet/ParseExcel.pm

contain many functions

install Spreadsheet::WriteExcel Spreadsheet::ParseExcel

http://cpan.uwinnipeg.ca/htdocs/Spreadsheet-WriteExcel/INSTALL.html

http://www.thegeekstuff.com/2011/12/perl-and-excel/

install manually

http://www.thegeekstuff.com/2008/09/how-to-install-perl-modules-manually-and-using-cpan-command/

verify whether variable is defined in perl

my $variable;

if (defined($variable))

{

print "defined";

}

else

{

print "not defined";

}

#---------------

unless (defined($variable)) {

print " not defined";

}

else

{

print" defined";

}

verify whether array is empty perl

use strict; use warnings;

my @array;

if (@array)

{

print "array not empty";

}

else

{ print "array empty";

}

------------------------------------------

unless (@array)

{

print "There is element inside array.";

exit(1);

}

Disable Copy, Cut,Paste, Paste Special Menu in excel

Private Sub Workbook_BeforeClose(Cancel As Boolean)

On Error Resume Next

With Application

.CellDragAndDrop = True

.OnKey "^c"

.OnKey "^v"

.OnKey "^x"

.OnKey "+{DEL}"

.OnKey "^{INSERT}"

.CutCopyMode = False

End With

Dim Ctrl As Office.CommandBarControl

For Each Ctrl In Application.CommandBars.FindControls(ID:=19) 'copy

Ctrl.Enabled = True

Next Ctrl

For Each Ctrl In Application.CommandBars.FindControls(ID:=21) ' Cut

Ctrl.Enabled = True

Next Ctrl

For Each Ctrl In Application.CommandBars.FindControls(ID:=22) ' Paste

Ctrl.Enabled = True

Next Ctrl

For Each Ctrl In Application.CommandBars.FindControls(ID:=755) ' Paste Special

Ctrl.Enabled = True

Next Ctrl

End Sub

Private Sub Workbook_Open()

On Error Resume Next

With Application

.CutCopyMode = False

.CellDragAndDrop = False

.OnKey "^c", ""

.OnKey "^v", ""

.OnKey "^x", ""

.OnKey "+{DEL}", ""

.OnKey "^{INSERT}", ""

End With

Dim Ctrl As Office.CommandBarControl

For Each Ctrl In Application.CommandBars.FindControls(ID:=19) ' Copy

Ctrl.Enabled = False

Next Ctrl

For Each Ctrl In Application.CommandBars.FindControls(ID:=21) ' Cut

Ctrl.Enabled = False

Next Ctrl

For Each Ctrl In Application.CommandBars.FindControls(ID:=22) ' Paste

Ctrl.Enabled = False

Next Ctrl

For Each Ctrl In Application.CommandBars.FindControls(ID:=755) ' Paste Special

Ctrl.Enabled = False

Next Ctrl

End Sub

Private Sub Workbook_Activate()

On Error Resume Next

With Application

.CutCopyMode = False

.CellDragAndDrop = False

.OnKey "^c", ""

.OnKey "^v", ""

.OnKey "^x", ""

.OnKey "+{DEL}", ""

.OnKey "^{INSERT}", ""

End With

Dim Ctrl As Office.CommandBarControl

For Each Ctrl In Application.CommandBars.FindControls(ID:=19) ' Copy

Ctrl.Enabled = False

Next Ctrl

For Each Ctrl In Application.CommandBars.FindControls(ID:=21) ' Cut

Ctrl.Enabled = False

Next Ctrl

For Each Ctrl In Application.CommandBars.FindControls(ID:=22) ' Paste

Ctrl.Enabled = False

Next Ctrl

For Each Ctrl In Application.CommandBars.FindControls(ID:=755) ' Paste Special

Ctrl.Enabled = False

Next Ctrl

End Sub

Private Sub Workbook_SheetBeforeRightClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)

Cancel = True

MsgBox "Right click menu deactivated." & vbCrLf & _

"For this file:", 16, ""

End Sub

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)

Application.CutCopyMode = False

End Sub

Private Sub Workbook_SheetActivate(ByVal Sh As Object)

On Error Resume Next

With Application

.CutCopyMode = False

.CellDragAndDrop = False

.OnKey "^c", ""

.OnKey "^v", ""

.OnKey "^x", ""

.OnKey "+{DEL}", ""

.OnKey "^{INSERT}", ""

End With

Dim Ctrl As Office.CommandBarControl

For Each Ctrl In Application.CommandBars.FindControls(ID:=19) ' Copy

Ctrl.Enabled = False

Next Ctrl

For Each Ctrl In Application.CommandBars.FindControls(ID:=21) ' Cut

Ctrl.Enabled = False

Next Ctrl

For Each Ctrl In Application.CommandBars.FindControls(ID:=22) ' Paste

Ctrl.Enabled = False

Next Ctrl

For Each Ctrl In Application.CommandBars.FindControls(ID:=755) ' Paste Special

Ctrl.Enabled = False

Next Ctrl

End Sub

Private Sub Workbook_Deactivate()

On Error Resume Next

With Application

.CellDragAndDrop = True

.OnKey "^c"

.OnKey "^v"

.OnKey "^x"

.OnKey "+{DEL}"

.OnKey "^{INSERT}"

.CutCopyMode = False

End With

Dim Ctrl As Office.CommandBarControl

For Each Ctrl In Application.CommandBars.FindControls(ID:=19) ' Copy

Ctrl.Enabled = True

Next Ctrl

For Each Ctrl In Application.CommandBars.FindControls(ID:=21) ' Cut

Ctrl.Enabled = True

Next Ctrl

For Each Ctrl In Application.CommandBars.FindControls(ID:=22) ' Paste

Ctrl.Enabled = True

Next Ctrl

For Each Ctrl In Application.CommandBars.FindControls(ID:=755) ' Paste Special

Ctrl.Enabled = True

Next Ctrl

End Sub

sample paste value only

http://www.jkp-ads.com/Download.asp#CatchPaste

split string by using regular expression

http://perlmeme.org/howtos/perlfunc/split_function.html