Study Journals of TYRuan: Perl

顯示具有 Perl 標籤的文章。顯示所有文章

2024年8月2日星期五

使用Selenium 做爬蟲 Perl

####################### fedora linux：####################

$ sudo yum install python3-pip
$ sudo pip3 install selenium
$ export DISPLAY=:99
$ Xvfb :99 -screen 0 1024x768x16 &

$ cat test.pl
#!/usr/bin/perl
use Selenium::Remote::Driver;
#use Selenium::Firefox;

my $driver = Selenium::Remote::Driver->new(
        'browser_name' => 'firefox',
        'remote_server_addr' => '127.0.0.1',
        'port' => '4444',
        'platform' => 'linux',
    'auto_close' => true,
    'debug' => false
);
#my $driver = Selenium::Firefox->new;

$driver->set_timeout("implicit",10000);
$driver->set_implicit_wait_timeout(10000);
#$driver->get("https://www.google.com");
$driver->get("https://www.fedex.com/zh-tw/shipping/surcharges.html");
print $driver->get_title();

#############################################################
#兩種寫法都可以
#############################################################
#my @buttons = $driver->find_elements("//button[3]");
#print "@buttons\n";
#$buttons[0]->click;
#############################################################
my $button = $driver->find_element("//button[3]");
print "$button\n";
$button->click;
#############################################################
$driver->refresh;

my $data = $driver->find_element("//div[2]/div/table/tbody/tr/td");
#print "$data\n";
print "\n". $data->get_text(). "\n";
my $data = $driver->find_element("//div[2]/div/table/tbody/tr/td[2]");
#print "$data\n";
print "\n". $data->get_text(). "\n";
my $data = $driver->find_element("//div[2]/div/table/tbody/tr/td[3]");
#print "$data\n";
print "\n".$data->get_text() ."\n";

#$driver->close;

2017年12月6日星期三

500 Can't connect to LWP::UserAgent

1. in cpan, force install

IO::Socket::IP
2. my $agent = LWP::UserAgent->new(ssl_opts => { verify_hostname => 0});

2016年4月20日星期三

Installing Perl module LWP::Protocol:https

sudo yum install openssl-devel

2015年11月18日星期三

Perl and Oracle BLOB

#!/usr/bin/perl

use DBI;

require "$ENV{HOME}/perl/setEnv.pl";

my $dbh = DBI->connect( "dbi:Oracle:$topprod", "$echoUser", "$echoPass" )
    || die( $DBI::errstr . "\n" );
$dbh->{LongReadLen} = 50000000; # Make sure buffer is big enough for BLOB
my $sth = $dbh->prepare(q{
select regexp_substr(gca01,'ASO[789]-.*') oea01,
       gcb07,gcb09
from gca_file,gcb_file
where gca07 = gcb01
   and gca01 in (
                 select 'oea01='||oga16 gca01
                   from echo01.oga_file
                  where oga913 = to_date('20151001','yyyymmdd')
                    and regexp_like(oga01,'^ASH[789]-')
                )
}) || die "\nPrepare error: $DBI::err .... $DBI::errstr\n";;
$sth->execute() || die "\nExecute error: $DBI::err .... $DBI::errstr\n";

&blobSelect();

sub blobSelect()
{
   while (@data = $sth->fetchrow_array())
   {
      open FILE, "> $data[0]_$data[1]";
      print FILE $data[2];
      close FILE;
   }
   $sth->finish();
}

2015年6月15日星期一

Perl 特殊字元和8進位/16進位表示方法

$x = 0377; # 以「0」開頭是 8 進位表示法，因此 0377 代表十進位的 255
$y = 0xfe; # 以「0x」開頭是 16 進位表示法，因此 0xfe 代表十進位的 254

$x / $y 是數字，但是一旦用以下方式，就成為ASCII/UTF-8 的字串：

$x = chr(0xfe);
$y = "\xfe";
以上等價

$x = chr(0xFEFF);
$y = "\x{FEFF}"; #數字太大，要用{}標示
以上等價

這些字串也可以用 pack("ccc",...)，見以下範例：
[root@EIP-API-AP erp]# perl
print "0x64\n";
print "\x64\n";
print chr(0x64)."\n";
print pack("C",0x64)."\n";
__END__
0x64
d
d
d
結論："\x64" 等價 chr(0x64) 等價 pack("C",0x64) 但不等價 0x64

如何讓excel讀取utf-8 編碼的csv檔案時，不會有亂碼？

其實如果以筆記本或類似UltraEdit打開時，不會是亂碼。
原因是excel 預設打開csv檔案，是用 ANSI編碼打開。
解決方式有二：
1. excel打開，menu->資料->從文字檔->選擇要打開的csv，選擇utf-8編碼開啟
2. 當初寫入csv時，開頭寫入utf-8 BOM(byte order mark)編碼如下(第45列)

1 #!/usr/bin/perl
2
3 require "$ENV{HOME}/perl/setEnv.pl";
4
5 use MIME::QuotedPrint;
6 use MIME::Base64;
7 use Mail::Sendmail 0.75; # doesn't work with v. 0.74!
8 use DBI;
9 use utf8;
10 use Encode;
11
12 my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time-86400);
13 $year += 1900;
14 $mon += 1;
15 $mon = sprintf("%02d", $mon);
16
17 %mail = (
18          from => 'mis@echochem.com.tw',
19          #to => 'tracy\@echochem.com.tw',
20          to => "tyruan\@echochem.com.tw",
21          subject => '客戶主檔'."$year/$mon"
22         );
23 $mail{smtp} = 'x.x.x.x'; #要改
24
25 $boundary = "====" . time() . "====";
26 $mail{'content-type'} = "multipart/mixed; boundary=\"$boundary\"";
27
28 #$message = encode_qp( "客戶主檔 $year/$mon 資料" );
29 $message = encode_qp( "Customer Master Data $year/$mon " );
30
31 $file = $^X; # This is the perl executable
32
33 my $dbh = DBI->connect( "dbi:Oracle:$yyy", "$zzz", "$www" ) #要改
34     || die( $DBI::errstr . "\n" );
35 $dbh->{AutoCommit}    = 0;
36
37 my $sth = $dbh->prepare(qq{
38 select rmnth,occ01,occ02,occ11,occ18,ta_occ09
39   from axm_tbl_occ
40 where rmnth = to_char(trunc(sysdate,'mm')-1,'yyyymm')
41 });
42 $sth->execute();
43 chdir "$ENV{HOME}/perl/erp";
44 open FILE, "> 客戶主檔.csv";
45 print FILE chr(0xFEFF);
      #print FILE pack("CCC",0xef,0xbb,0xbf);#也可以，
#print FILE "\x{FEFF}"; #也可以，
      見http://stackoverflow.com/questions/7418946/force-utf-8-byte-order-mark-in-perl-file-output
46 print FILE "資料月份,客戶代碼,客戶名稱,統一編號,客戶全名,業務區域\n";
47 while(my @data = $sth->fetchrow_array()) {
48    $data[2] =~ s/,//g;
49    $data[4] =~ s/,//g;
50    print FILE "$data[0],$data[1],$data[2],$data[3],$data[4],$data[5]\n";
51 }
52 close FILE;
53 $sth->finish();
54 $dbh->disconnect();
55
56 open (F, "< 客戶主檔.csv") or die "Cannot read $file: $!";
57 binmode F; undef $/;
58 my $body;
59 while (my $line = <F>) {
60    $body .= $line;
61 }
62 $mail{body} = encode_base64($body);
63 close F;
64 print $mail{body};
65
66 $boundary = '--'.$boundary;
67 $mail{body} = <<END_OF_BODY;
68 $boundary
69 Content-Type: text/plain; charset="utf-8"
70 Content-Transfer-Encoding: quoted-printable
71
72 $message
73 $boundary
74 Content-Type: application/octet-stream; name="客戶主檔.csv"
75 Content-Transfer-Encoding: base64
76 Content-Disposition: attachment; filename="客戶主檔.csv"
77
78 $mail{body}
79 $boundary--
80 END_OF_BODY
81
82 sendmail(%mail) || print "Error: $Mail::Sendmail::error\n";
83

2015年5月4日星期一

How to send HTTP GET or POST request in Perl

http://xmodulo.com/how-to-send-http-get-or-post-request-in-perl.html

To install LWP on Ubuntu or Debian:
$ sudo apt-get install libwww-perl

To install LWP on CentOS, Fedora or RHEL:
$ sudo yum install perl-libwww-perl.noarch

HTTP GET Perl example

use LWP::UserAgent;

my $ua = LWP::UserAgent->new;

my $server_endpoint = "http://192.168.1.1:8000/service";

# set custom HTTP request header fields
my $req = HTTP::Request->new(GET => $server_endpoint);
$req->header('content-type' => 'application/json');
$req->header('x-auth-token' => 'kfksj48sdfj4jd9d');

my $resp = $ua->request($req);
if ($resp->is_success) {
    my $message = $resp->decoded_content;
    print "Received reply: $message\n";
}
else {
    print "HTTP GET error code: ", $resp->code, "\n";
    print "HTTP GET error message: ", $resp->message, "\n";
}

HTTP POST Perl example

use LWP::UserAgent;

my $ua = LWP::UserAgent->new;

my $url = "http://192.168.1.1:8000/service";

my $resp = $ua->post( $url, { 'term' => $md5 } );

if ($resp->is_success) {
    my $message = $resp->decoded_content;
    print "Received reply: $message\n";
}
else {
    print "HTTP POST error code: ", $resp->code, "\n";
    print "HTTP POST error message: ", $resp->message, "\n";
}

2015年1月8日星期四

Perl 解決Wide character in print with UTF-8 mode

use utf8;
binmode(STDIN, ':encoding(utf8)');
binmode(STDOUT, ':encoding(utf8)');
binmode(STDERR, ':encoding(utf8)');

但是如果要寫入FILE，則是

open FILE ,">:encoding(utf8)","tpca.csv";

print FILE ...;

close FILE;

2014年12月30日星期二

使用 oracle instantclient 安裝 Perl DBD::Oracle 出現 Unable to locate an oracle.mk or other suitable *.mk

http://stackoverflow.com/questions/26200174/error-while-installing-dbdoracle

Download the tar.gz package and unpack it

a)可以使用perl -MCPAN -e shell
b)出現標題error
c)去$HOME/.cpan/build/DBD-Oracle-xxx
d)執行以下步驟 2,3 ...
Build it
```
perl Makefile.PL -l
make && make test
```
Install
```
make install
```

2014年10月27日星期一

將繁體中文 charset = utf-8 的網頁，parsing後，轉為big-5 存文字檔

use Encode;

$text = decode("utf8",$text);
$text = encode("big5",$text);

之後FTP到Windows OS，office 才不會看到亂碼

如何解決 Perl parsing HTML 有等特殊符號的問題

其實可以用

use Data::Dump;

...
...
...

#$text是有問題的html code

print Data::Dump->dump($text), "\n";

會有以下結果：
("Data::Dump", "Tel\xEF\xBC\x9A02 - 25590489 \xA0")

==> \xA0 是   的Perl 字串

所以用以下程式將 替換掉
$text =~ s/\xa0//;

2014年10月6日星期一

LWP in Action (from O'REILLY)

http://docstore.mik.ua/orelly/perl3/lwp/ch01_05.htm

perl HTML::TokeParser example

#!/usr/bin/perl

#use strict;
use LWP::Simple;
use HTML::TokeParser;
use Encode;

#my $html   = get("https://www.iyp.com.tw/leisure/Hotels.html");
#my $html   = get("https://www.iyp.com.tw/showroom.php?cate_name_eng_lv1=leisure&cate_name_eng_lv3=Hotels&p=0");

my $i;
open FILE ," >output.csv";

for ($i=0 ; $i<=60 ; $i++) {

    my $html   = get("https://www.iyp.com.tw/showroom.php?cate_name_eng_lv1=leisure&cate_name_eng_lv3=Hotels&p=$i");
    my $stream = HTML::TokeParser->new(\$html);
    my %image = ( );

    while (my $token = $stream->get_token) {
        #if ($token->[2]{"title"} ne "" && $token->[2]{"target"} eq "_blank") {
            #if ($token->[0] eq 'S' && $token->[1] eq 'a' && $token->[2]{"class"} ne "more-btn") {
            if ($token->[0] eq 'S' && $token->[1] eq 'a' && $token->[2]{"target"} eq "_blank" && $token->[2]{"class"} ne "more-btn") {
                my ($tel) = $token->[2]{"href"} =~ m/(\d+)/;
                print FILE "$tel" ."#\t";
                #print FILE encode("big5",$token->[2]{"title"}). "\t";
                print FILE $token->[2]{"title"}. "#\t";
            }
            if ($token->[0] eq 'S' && $token->[1] eq "span" && $token->[2]{"title"} eq "查看地圖") {
                my ($misc,$addr) = $token->[2]{"go-map"} =~ m/(\/\/.*=)(.*)/;
                #print FILE encode("big5",$addr) ."\n";
                print FILE $addr ."\n";
                #print $token->[2]{"go-map"}. "\n"
            }
        #}
    }

}
close FILE;

2014年9月30日星期二

Perl の数値変換 16/10/8/2 位元轉換利用pack/unpack

http://mikeneko.creator.club.ne.jp/~lab/perl/numerical_transform/

perl 利用 regular expression and pack/unpack 比對特殊字元▲

use Spreadsheet::ParseExcel;
...
my $parser = Spreadsheet::ParseExcel->new();
...

excel 裡面有一個特殊字元 ▲
經過
perl
$char = unpack("H*","▲");
print $char;
__END__
解析，其16進位為 e296b2
所以用以下code判斷

353              my $tmp = ($sheet->get_cell($i,0))->value();
354              my $tmp2 = unpack("H*",$tmp) if $tmp;
355              $tc_imf09 = "危險品" if ($tmp2 =~ /e296b2/);

2014年9月18日星期四

insert Oracle with special characters in Perl

https://community.oracle.com/thread/2203961?tstart=0

use Encode;
...
$working = encode("utf8", "µmol/L");

2014年9月17日星期三

Perl 讀取 Excel (二)

http://fecbob.pixnet.net/blog/post/38617415-%E5%9C%A8perl%E4%B8%AD%E8%AE%80%E5%AF%ABexcel%E8%A1%A8

讀寫Excel的元件需要另外安裝，指令如下：

perl -MCPAN -e shell -> install Spreadsheet::WriteExcel

perl -MCPAN -e shell -> install Spreadsheet::ParseExcel

Python代碼

#!/usr/bin/perl

use Spreadsheet::WriteExcel; #寫入Excel資料

use Spreadsheet::ParseExcel; #讀取Excel資料

# 讀取資料

# 使用: LoadStringsFromExcel(fileName);

sub LoadStringsFromExcel

{

my $parser = Spreadsheet::ParseExcel->new();

my $workbook = $parser->parse(@_[0]); #打開傳入的檔

my $TotalCount = 0;

if(!defined $workbook) #是否打開成功

{

print "Failed to open @_[0]\n";

die $parser->error(),".\n";

}

$Sheets_Count = $workbook->worksheet_count(); #有多少個Sheet

#依次訪問所有Sheet

for ($index=1;$index<=$Sheets_Count;$index++)

{

my $worksheet = $workbook->worksheet($index-1);

my $result;

if(!defined $worksheet) #讀取Sheet失敗

{

print "Could not get the worksheet \n";

last;

}

else

{

$result = LoadWordingsFromSheet($worksheet);

$TotalCount += $result;

}

printf "\nTotal found $TotalCount strings\n";

print "Finished!\n";

}

# 讀取Sheet中字串，由LoadStringsFromExcel呼叫

sub LoadWordingsFromSheet

{

my $sheet = $_[0]; #取得傳入的sheet

if(!defined $sheet)

{

die "Could not get argument!\n";

}

#得到Sheet中的最小行號及最大行號

my ($minRow,$maxRow) = $sheet->row_range();

print "Now, checking ",$sheet->get_name()," \n"; #列印Sheet的名稱

$count = 1;

#依次讀取每行資料中第一列的資料

for($i=$minRow;$i<=$maxRow;$i++)

{

#取到第一列的資料, get_cell(行號，列號)

$str = ($sheet->get_cell($i,0))->value();

$str = trim($str);

print $str,"\n";

$count++;

}

return $count;

}

sub trim { my $s = shift; $s =~ s/^\s+|\s+$//g; return $s };

#寫入Excel

#使用WriteDataToExcel(檔案名)

sub WriteDataToExcel

{

my $workbook = Spreadsheet::WriteExcel->new(@_[0]);#打開Excel檔

if(!defined $workbook) #是否打開成功

{

print "Failed to open @_[0]\n";

die $parser->error(),".\n";

}

my $worksheet = $workbook->add_worksheet(); #新建一個Sheet

if(!defined $sheet)

{

die "Cannot create new sheet!\n";

}

#寫入第一行標題 write(行號，列號，內容)

$worksheet->write(0,0,'ID');

$worksheet->write(0,1,'RULE');

#其它處理

}

使用Perl 讀取 Excel

使用Spreadsheet::ParseExcel
[root@tiptopap ~]# perl -MCPAN -e shell
cpan> get Spreadsheet::ParseExcel
cpan> install Spreadsheet::ParseExcel
cpan> test Spreadsheet::ParseExcel

http://tc.wangchao.net.cn/bbs/detail_1476947.html

Spreadsheet::WriteExcel 和 Spreadsheet::ParseExcel

　　在 2000 年，Takanori Kawai 和 John McNamara 編寫出了 Spreadsheet::WriteExcel 和 Spreadsheet::ParseExcel 模塊並將它們張貼在 CPAN 上，這兩個模塊使得在任何平台上從 Excel 文件抽取數據成爲可能（盡管不容易）。
　　正如我們在稍後將看到的，如果您正在使用 Windows，Win32::OLE 仍提供一個更簡單、更可靠的解決方案，並且 Spreadsheet::WriteExcel 模塊建議使用 Win32::OLE 來進行更強大的數據和工作表操縱。Win32::OLE 帶有 ActiveState Perl 工具箱，可以用來通過 OLE 驅動許多其它 Windows 應用程序。請注意，要使用此模塊，您仍需要在機器上安裝和注冊一個 Excel 引擎（通常隨 Excel 本身安裝）。
　　需要解析 Excel 數據的應用程序數以千計，但是這裏有幾個示例：將 Excel 導出到 CSV、與存儲在共享驅動器上的電子表格交互、將金融數據移至數據庫以便形成報告以及在不提供任何其他格式的情況下分析數據。
　　要演示這裏給出的示例，必須在您的系統上安裝 Perl 5.6.0。您的系統最好是最近（2000 年或以後）的主流 UNIX 安裝（Linux、Solaris 和 BSD）。雖然這些示例在以前版本的 Perl 和 UNXI 以及其他操作系統中也可以使用，但是您應該考慮到您將面對那些它們無法作爲練習發揮作用的情況。
　　Windows 示例：解析
　　本節僅適用于 Windows 機器。所有其它各節適用于 Linux。
　　在進行之前，請安裝 ActiveState Perl（這裏使用版本 628）或 ActiveState Komodo IDE 以編輯和調試 Perl。Komodo 爲家庭用戶提供一個免費許可證，您大概在幾分鍾之內就可以得到它。（有關下載站點，請參閱本文後面的參考資料。）
　　使用 ActiveState PPM 軟件包管理器安裝 Spreadsheet::ParseExcel 和 Spreadsheet::WriteExcel 模塊是困難的。PPM 沒有曆史記錄，難以設置選項，幫助會滾出屏幕並且缺省方式是忽略相關性而安裝。您可以從命令行輸入“ppm”然後發出以下命令來調用 PPM：
　　清單 1：安裝 Excel 模塊的 PPM 命令
　　ppm install OLE::Storage_Lite
　　ppm install Spreadsheet::ParseExcel
　　ppm install Spreadsheet::WriteExcel
　　在這種情況下，該模塊的安裝將失敗，因爲 IO::Scalar 還不可用，因此，您可能想放棄 PPM 問題的查找，而轉向內置的 Win32::OLE 模塊。然而，在您閱讀本文時，ActiveState 可能已經發布了該問題的修正。
　　有了 ActiveState 的 Win32::OLE，您可以使用下面所列的代碼逐個單元地轉儲工作表：
　　下載 win32excel.pl
　　清單 2：win32excel.pl
　　#!/usr/bin/perl -w
　　use strict;
　　use Win32::OLE qw(in with);
　　use Win32::OLE::Const 'Microsoft Excel';
　　$Win32::OLE::Warn = 3;
　　# die on errors...
　　# get already active Excel application or open new
　　my $Excel = Win32::OLE-GetActiveObject('Excel.Application')
　　|| Win32::OLE-new('Excel.Application', 'Quit');
　　# open Excel file
　　my $Book = $Excel-Workbooks-Open("c:/komodo projects/test.xls");
　　# You can dynamically obtain the number of worksheets, rows, and columns
　　# through the Excel OLE interface.
　　Excel's Visual Basic Editor has more
　　# information on the Excel OLE interface.
　　Here we just use the first
　　# worksheet, rows 1 through 4 and columns 1 through 3.
　　# select worksheet number 1 (you can also select a worksheet by name)
　　my $Sheet = $Book-Worksheets(1);
　　foreach my $row (1..4)
　　{
　　foreach my $col (1..3)
　　{
　　# skip empty cells
　　next unless defined $Sheet-Cells($row,$col)-{'Value'};
　　# print out the contents of a cell
　　printf "At ($row, $col) the value is %s and the formula is %s\n",
　　$Sheet-Cells($row,$col)-{'Value'},
　　$Sheet-Cells($row,$col)-{'Formula'};
　　}
　　}
　　# clean up after ourselves
　　$Book-Close;
　　請注意，您可以用以下方式很輕松地爲單元分配值：
　　$sheet-Cells($row, $col)-{'Value'} = 1;
　　Linux 示例：解析
　　本節適用于 UNIX，特別適用于 Linux。沒有在 Windows 中測試它。
　　很難給出一個比 Spreadsheet::ParseExcel 模塊文檔中所提供的示例更好的 Linux 解析示例，因此我將演示那個示例，然後解釋其工作原理。
　　下載 parse-excel.pl
　　清單 3：parse-excel.pl
　　#!/usr/bin/perl -w
　　use strict;
　　use Spreadsheet::ParseExcel;
　　my $oExcel = new Spreadsheet::ParseExcel;
　　die "You must provide a filename to $0 to be parsed as an Excel file" unless @ARGV;
　　my $oBook = $oExcel-Parse($ARGV[0]);
　　my($iR, $iC, $oWkS, $oWkC);
　　print "FILE
　　:", $oBook-{File} , "\n";
　　print "COUNT :", $oBook-{SheetCount} , "\n";
　　print "AUTHOR:", $oBook-{Author} , "\n"
　　if defined $oBook-{Author};
　　for(my $iSheet=0; $iSheet {SheetCount} ; $iSheet++)
　　{
　　$oWkS = $oBook-{Worksheet}[$iSheet];
　　print "--------- SHEET:", $oWkS-{Name}, "\n";
　　for(my $iR = $oWkS-{MinRow} ;
　　defined $oWkS-{MaxRow} && $iR {MaxRow} ;
　　$iR++)
　　{
　　for(my $iC = $oWkS-{MinCol} ;
　　defined $oWkS-{MaxCol} && $iC {MaxCol} ;
　　$iC++)
　　{
　　$oWkC = $oWkS-{Cells}[$iR][$iC];
　　print "( $iR , $iC ) =", $oWkC-Value, "\n" if($oWkC);
　　}
　　}
　　}
　　此示例是用 Excel 97 測試的。如果它不能工作，則試著將它轉換成 Excel 97 格式。Spreadsheet::ParseExcel 的 perldoc 頁也聲稱了 Excel 95 和 2000 兼容性。
　　電子表格被解析成一個名爲 $oBook 的頂級對象。$oBook 具有輔助程序的特性，例如“File”、“SheetCount”和“Author”。 Spreadsheet::ParseExcel 的 perldoc 頁的工作簿一節中記載了這些特性。
　　該工作簿包含幾個工作表：通過使用工作簿 SheetCount 特性叠代它們。每個工作表都有一個 MinRow 和 MinCol 以及相應的 MaxRow 和 MaxCol 特性，它們可以用來確定該工作簿可以訪問的範圍。Spreadsheet::ParseExcel perldoc 頁的工作表一節中記載了這些特性。
　　可以通過 Cell 特性從工作表獲得單元；那就是清單 3 中獲得 $oWkC 對象的方式。Spreadsheet::ParseExcel 的 perldoc 頁的 Cell 一節中記載了 Cell 特性。根據文檔，似乎沒有一種方式能夠獲得特定單元中列出的公式。
　　Linux 示例：寫入
　　本節適用于 UNIX，特別適用于 Linux。沒有在 Windows 中測試它。
　　Spreadsheet::WriteExcel 在 Examples 目錄中帶有許多示例腳本，通常可以在 /usr/lib/perl5/site_perl/5.6.0/Spreadsheet/WriteExcel/examples 下找到這些腳本。它可能被安裝在其它各處；如果找不到那個目錄，請與您的本地 Perl 管理員聯系。
　　壞消息是 Spreadsheet::WriteExcel 無法用于寫入現有 Excel 文件。必須自己使用 Spreadsheet::ParseExcel 從現有 Excel 文件導入數據。好消息是 Spreadsheet::WriteExcel 與 Excel 5 直至 Excel 2000 兼容。
　　這裏有一個程序，它演示如何從一個 Excel 文件抽取、修改（所有數字都乘以 2）數據以及將數據寫入新的 Excel 文件。只保留數據，不保留格式和任何特性。公式被丟棄。
　　下載 excel-x2.pl
　　清單 4：excel-x2.pl
　　#!/usr/bin/perl -w
　　use strict;
　　use Spreadsheet::ParseExcel;
　　use Spreadsheet::WriteExcel;
　　use Data::Dumper;
　　# cobbled together from examples for the Spreadsheet::ParseExcel and
　　# Spreadsheet::WriteExcel modules
　　my $sourcename = shift @ARGV;
　　my $destname = shift @ARGV or die "invocation: $0 ";
　　my $source_excel = new Spreadsheet::ParseExcel;
　　my $source_book = $source_excel-Parse($sourcename)
　　or die "Could not open source Excel file $sourcename: $!";
　　my $storage_book;
　　foreach my $source_sheet_number (0 .. $source_book-{SheetCount}-1)
　　{
　　my $source_sheet = $source_book-{Worksheet}[$source_sheet_number];
　　print "--------- SHEET:", $source_sheet-{Name}, "\n";
　　# sanity checking on the source file: rows and columns should be sensible
　　next unless defined $source_sheet-{MaxRow};
　　next unless $source_sheet-{MinRow}
　　(王朝網路 wangchao.net.cn)

2014年3月27日星期四

install perl 連接 SAP及MSSQL時的作法

1. 利用ldconfig，讓linux可以讀到 SAP and freetds library
echo "/usr/local/freetds/lib" >> /etc/ld.so.conf
echo "/usr/sap/lib" >> /etc/ld.so.conf

2. 利用CPAN，直接安裝nsapnwrfc and DBD:Sybase
perl -MCPAN -e shell
force install DBD:Sybase
force install sapnwrfc

2014年3月20日星期四

perl pack/unpack 在中文轉換的用法

將四轉為16進位
tyruan@Ubuntu-TY ~ $ perl
print unpack("H*","四");
__END__
e59b9b

將abc轉為16進位
tyruan@Ubuntu-TY ~ $ perl
print unpack("H*","abc");
__END__
616263

將61轉為字串 (只轉前兩碼)
tyruan@Ubuntu-TY ~ $ perl
print pack("H2","616263");
__END__
a

將616263轉為字串
tyruan@Ubuntu-TY ~ $ perl
print pack("H*","616263");
__END__
abc

將e59b9b轉為字串
tyruan@Ubuntu-TY ~ $ perl
print pack("H*","e59b9b");
__END__
四

訂閱：文章 (Atom)

標籤

2024年8月2日 星期五

2017年12月6日 星期三

2016年4月20日 星期三

2015年11月18日 星期三

2015年6月15日 星期一

2015年5月4日 星期一

HTTP GET Perl example

HTTP POST Perl example

2015年1月8日 星期四

2014年12月30日 星期二

2014年10月27日 星期一

2014年10月6日 星期一

2014年9月30日 星期二

2014年9月18日 星期四

2014年9月17日 星期三

2014年3月27日 星期四

2014年3月20日 星期四

網誌存檔