From hylinux at gmail.com  Sun Jan 14 22:35:12 2007
From: hylinux at gmail.com (=?GB2312?B?u8bStg==?=)
Date: Mon, 15 Jan 2007 14:35:12 +0800
Subject: [PerlChina] =?gb2312?b?udjT2sq508Ntb2RfcGVybLavzKzQtGFwYWNoZbXE?=
	=?gb2312?b?zNi2qMS/wrzF5NbG?=
Message-ID: <74646cb40701142235o63dbe955s737194c73cac91f0@mail.gmail.com>

哪位做过使用mod_perl写apache的模块handler？
我想使用这个handler从数据库里根据不同的配制给予不同的apache权限。
例如有的用户有php支持。
有的用户没有。
-------------- next part --------------
An HTML attachment was scrubbed...
URL: http://mail.pm.org/pipermail/china-pm/attachments/20070115/5298368c/attachment.html 

From fayland at gmail.com  Sun Jan 14 22:50:47 2007
From: fayland at gmail.com (Fayland Lam)
Date: Mon, 15 Jan 2007 06:50:47 +0000
Subject: [PerlChina]
 =?gb2312?b?udjT2sq508Ntb2RfcGVybLavzKzQtGFwYWNoZbXE?=
 =?gb2312?b?zNi2qMS/wrzF5NbG?=
In-Reply-To: <74646cb40701142235o63dbe955s737194c73cac91f0@mail.gmail.com>
References: <74646cb40701142235o63dbe955s737194c73cac91f0@mail.gmail.com>
Message-ID: <45AB2447.3030100@gmail.com>

黄叶 wrote:
> 哪位做过使用mod_perl写apache的模块handler？
> 我想使用这个handler从数据库里根据不同的配制给予不同的apache权限。
> 例如有的用户有php支持。
> 有的用户没有。

check
http://perl.apache.org/docs/general/multiuser/multiuser.html#Virtual_Hosts_in_the_guide


>
> ------------------------------------------------------------------------
>
> _______________________________________________
> China-pm mailing list
> China-pm at pm.org
> http://mail.pm.org/mailman/listinfo/china-pm


-- 
Fayland Lam // http://www.fayland.org/ 


From pangj at earthlink.net  Mon Jan 29 05:41:50 2007
From: pangj at earthlink.net (Jeff Pang)
Date: Mon, 29 Jan 2007 21:41:50 +0800 (GMT+08:00)
Subject: [PerlChina] Want to get a module
Message-ID: <14734423.1170078110884.JavaMail.root@elwamui-huard.atl.sa.earthlink.net>

Hello,

One of my friends asked the helps from me and hope I could write a Perl module for handling Excel file for him.

He would like to call the module's function like this:

&export_to_excel($filename, $location, \@data_array);

$location is, for example, "B2",which means  Column B, Row 2.
@data_array looks like:
@AoA = (
           [ "fred", "barney" ],
           [ "george", "jane", "elroy" ],
           [ "homer", "marge", "bart" ],
    );

I'm not familiar with Windows and Excel at all.So I ask the helps here.I'd like to pay RMB 100 for the function.
I think if there is some a guy who is familiar with them,he could spend about 1 hour to finish it.
Anyone who is interested in it,please contact with me.

Thanks!


--
Books below translated by me to Chinese.
Practical mod_perl: http://home.earthlink.net/~pangj/mod_perl/
Squid the Definitive Guide: http://home.earthlink.net/~pangj/squid/

From jim.zhang.china at gmail.com  Mon Jan 29 22:11:41 2007
From: jim.zhang.china at gmail.com (Jim Zhang)
Date: Tue, 30 Jan 2007 14:11:41 +0800
Subject: [PerlChina] China-pm Digest, Vol 21, Issue 3
In-Reply-To: <mailman.7.1170100810.29644.china-pm@pm.org>
References: <mailman.7.1170100810.29644.china-pm@pm.org>
Message-ID: <1f1ee1a60701292211n504c6ac9sb100da989b31ecb2@mail.gmail.com>

please clarify your meaning:

&export_to_excel($filename, $location, \@data_array);

$location is, for example, "B2",which means  Column B, Row 2.
@data_array looks like:
@AoA = (
           [ "fred", "barney" ],
           [ "george", "jane", "elroy" ],
           [ "homer", "marge", "bart" ],
    );

insert all the data in @AoA=() into "ColumnB, Row2" or insert "fred" in B2,
"barney" in B3, or others?

2007/1/30, china-pm-request at pm.org <china-pm-request at pm.org>:
>
> Send China-pm mailing list submissions to
>         china-pm at pm.org
>
> To subscribe or unsubscribe via the World Wide Web, visit
>         http://mail.pm.org/mailman/listinfo/china-pm
> or, via email, send a message with subject or body 'help' to
>         china-pm-request at pm.org
>
> You can reach the person managing the list at
>         china-pm-owner at pm.org
>
> When replying, please edit your Subject line so it is more specific
> than "Re: Contents of China-pm digest..."
>
>
> Today's Topics:
>
>    1.  Want to get a module (Jeff Pang)
>
>
> ----------------------------------------------------------------------
>
> Message: 1
> Date: Mon, 29 Jan 2007 21:41:50 +0800 (GMT+08:00)
> From: Jeff Pang <pangj at earthlink.net>
> Subject: [PerlChina] Want to get a module
> To: PerlList-China  <china-pm at pm.org>
> Message-ID:
>         <
> 14734423.1170078110884.JavaMail.root at elwamui-huard.atl.sa.earthlink.net>
>
> Content-Type: text/plain; charset=UTF-8
>
> Hello,
>
> One of my friends asked the helps from me and hope I could write a Perl
> module for handling Excel file for him.
>
> He would like to call the module's function like this:
>
> &export_to_excel($filename, $location, \@data_array);
>
> $location is, for example, "B2",which means  Column B, Row 2.
> @data_array looks like:
> @AoA = (
>            [ "fred", "barney" ],
>            [ "george", "jane", "elroy" ],
>            [ "homer", "marge", "bart" ],
>     );
>
> I'm not familiar with Windows and Excel at all.So I ask the helps here.I'd
> like to pay RMB 100 for the function.
> I think if there is some a guy who is familiar with them,he could spend
> about 1 hour to finish it.
> Anyone who is interested in it,please contact with me.
>
> Thanks!
>
>
> --
> Books below translated by me to Chinese.
> Practical mod_perl: http://home.earthlink.net/~pangj/mod_perl/
> Squid the Definitive Guide: http://home.earthlink.net/~pangj/squid/
>
>
> ------------------------------
>
> _______________________________________________
> China-pm mailing list
> China-pm at pm.org
> http://mail.pm.org/mailman/listinfo/china-pm
>
> End of China-pm Digest, Vol 21, Issue 3
> ***************************************
>



-- 
Best regards,

Jim Zhang
-------------- next part --------------
An HTML attachment was scrubbed...
URL: http://mail.pm.org/pipermail/china-pm/attachments/20070130/ae3480e7/attachment.html 

From pangj at earthlink.net  Mon Jan 29 22:16:18 2007
From: pangj at earthlink.net (Jeff Pang)
Date: Tue, 30 Jan 2007 01:16:18 -0500 (EST)
Subject: [PerlChina] China-pm Digest, Vol 21, Issue 3
Message-ID: <23182906.1170137778963.JavaMail.root@elwamui-cypress.atl.sa.earthlink.net>

An HTML attachment was scrubbed...
URL: http://mail.pm.org/pipermail/china-pm/attachments/20070130/321084f0/attachment.html 

From wanmyome at gmail.com  Mon Jan 29 23:19:44 2007
From: wanmyome at gmail.com (Wan)
Date: Tue, 30 Jan 2007 15:19:44 +0800
Subject: [PerlChina] Want to get a module
In-Reply-To: <14734423.1170078110884.JavaMail.root@elwamui-huard.atl.sa.earthlink.net>
References: <14734423.1170078110884.JavaMail.root@elwamui-huard.atl.sa.earthlink.net>
Message-ID: <45BEF190.8000006@gmail.com>

#!/usr/bin/perl
use Win32::OLE;
my $ex = Win32::OLE->new('Excel.Application') or die "oops\n";
#$ex->{Visible} = 1;
my $wb = $ex->Workbooks->Open("D:/new.xls");
my $sheet = $wb->Worksheets(1);
$sheet->cells(1,1)->{value} = "哈哈，不到10分钟就可以挣100块钱，幸福啊";
$sheet->cells(2,1)->{value} = "不过这样拿你钱好像有点好像有点残忍";
$wb->Save;
$wb->Close;
$ex->Quit;

你在网上查一下Excel.Application

From pangj at earthlink.net  Mon Jan 29 23:54:06 2007
From: pangj at earthlink.net (Jeff Pang)
Date: Tue, 30 Jan 2007 02:54:06 -0500 (EST)
Subject: [PerlChina] Want to get a module
Message-ID: <16700658.1170143646645.JavaMail.root@elwamui-cypress.atl.sa.earthlink.net>

Thanks.
他的目的是要能写一个已存在的excel文件，就是说某个excel文件已存在，他可以打开，并从指定位置（$location）开始追加数据（@data）。你的这个函数能做到吗？能搞定我马上给你pay money.:)

-----Original Message-----
>From: Wan <wanmyome at gmail.com>
>Sent: Jan 30, 2007 2:19 AM
>To: Jeff Pang <pangj at earthlink.net>, china-pm at pm.org
>Subject: Re: [PerlChina] Want to get a module
>
>#!/usr/bin/perl
>use Win32::OLE;
>my $ex = Win32::OLE->new('Excel.Application') or die "oops\n";
>#$ex->{Visible} = 1;
>my $wb = $ex->Workbooks->Open("D:/new.xls");
>my $sheet = $wb->Worksheets(1);
>$sheet->cells(1,1)->{value} = "哈哈，不到10分钟就可以挣100块钱，幸福啊";
>$sheet->cells(2,1)->{value} = "不过这样拿你钱好像有点好像有点残忍";
>$wb->Save;
>$wb->Close;
>$ex->Quit;
>
>你在网上查一下Excel.Application


--
Books below translated by me to Chinese.
Practical mod_perl: http://home.earthlink.net/~pangj/mod_perl/
Squid the Definitive Guide: http://home.earthlink.net/~pangj/squid/

From pangj at earthlink.net  Mon Jan 29 23:56:04 2007
From: pangj at earthlink.net (Jeff Pang)
Date: Tue, 30 Jan 2007 02:56:04 -0500 (EST)
Subject: [PerlChina] Want to get a module
Message-ID: <7733530.1170143764356.JavaMail.root@elwamui-cypress.atl.sa.earthlink.net>


另外，非常不好意思。他要求脚本在Linux上工作，呵呵。


-----Original Message-----
>From: Jeff Pang <pangj at earthlink.net>
>Sent: Jan 30, 2007 2:54 AM
>To: Wan <wanmyome at gmail.com>, china-pm at pm.org
>Subject: Re: [PerlChina] Want to get a module
>
>Thanks.
>他的目的是要能写一个已存在的excel文件，就是说某个excel文件已存在，他可以打开，并从指定位置（$location）开始追加数据（@data）。你的这个函数能做到吗？能搞定我马上给你pay money.:)
>
>-----Original Message-----
>>From: Wan <wanmyome at gmail.com>
>>Sent: Jan 30, 2007 2:19 AM
>>To: Jeff Pang <pangj at earthlink.net>, china-pm at pm.org
>>Subject: Re: [PerlChina] Want to get a module
>>
>>#!/usr/bin/perl
>>use Win32::OLE;
>>my $ex = Win32::OLE->new('Excel.Application') or die "oops\n";
>>#$ex->{Visible} = 1;
>>my $wb = $ex->Workbooks->Open("D:/new.xls");
>>my $sheet = $wb->Worksheets(1);
>>$sheet->cells(1,1)->{value} = "哈哈，不到10分钟就可以挣100块钱，幸福啊";
>>$sheet->cells(2,1)->{value} = "不过这样拿你钱好像有点好像有点残忍";
>>$wb->Save;
>>$wb->Close;
>>$ex->Quit;
>>
>>你在网上查一下Excel.Application
>
>
>--
>Books below translated by me to Chinese.
>Practical mod_perl: http://home.earthlink.net/~pangj/mod_perl/
>Squid the Definitive Guide: http://home.earthlink.net/~pangj/squid/
>_______________________________________________
>China-pm mailing list
>China-pm at pm.org
>http://mail.pm.org/mailman/listinfo/china-pm


--
Books below translated by me to Chinese.
Practical mod_perl: http://home.earthlink.net/~pangj/mod_perl/
Squid the Definitive Guide: http://home.earthlink.net/~pangj/squid/

From dongxu.ma at gmail.com  Tue Jan 30 00:03:19 2007
From: dongxu.ma at gmail.com (Dongxu Ma)
Date: Tue, 30 Jan 2007 16:03:19 +0800
Subject: [PerlChina] Want to get a module
In-Reply-To: <7733530.1170143764356.JavaMail.root@elwamui-cypress.atl.sa.earthlink.net>
References: <7733530.1170143764356.JavaMail.root@elwamui-cypress.atl.sa.earthlink.net>
Message-ID: <9bc0d5d20701300003i7127c231md9a70762672648f4@mail.gmail.com>

Please _DO_ check CPAN

http://search.cpan.org/~scesano/Spreadsheet-TieExcel-0.75/TieExcel.pod
http://search.cpan.org/~jmcnamara/Spreadsheet-WriteExcel-2.18/lib/Spreadsheet/WriteExcel.pm
http://www-128.ibm.com/developerworks/library/l-pexcel/

On 1/30/07, Jeff Pang <pangj at earthlink.net> wrote:
>
>
> 另外，非常不好意思。他要求脚本在Linux上工作，呵呵。
>
>
> -----Original Message-----
> >From: Jeff Pang <pangj at earthlink.net>
> >Sent: Jan 30, 2007 2:54 AM
> >To: Wan <wanmyome at gmail.com>, china-pm at pm.org
> >Subject: Re: [PerlChina] Want to get a module
> >
> >Thanks.
> >他的目的是要能写一个已存在的excel文件，就是说某个excel文件已存在，他可以打开，并从指定位置（$location）开始追加数据（@data）。你的这个函数能做到吗？能搞定我马上给你pay
> money.:)
> >
> >-----Original Message-----
> >>From: Wan <wanmyome at gmail.com>
> >>Sent: Jan 30, 2007 2:19 AM
> >>To: Jeff Pang <pangj at earthlink.net>, china-pm at pm.org
> >>Subject: Re: [PerlChina] Want to get a module
> >>
> >>#!/usr/bin/perl
> >>use Win32::OLE;
> >>my $ex = Win32::OLE->new('Excel.Application') or die "oops\n";
> >>#$ex->{Visible} = 1;
> >>my $wb = $ex->Workbooks->Open("D:/new.xls");
> >>my $sheet = $wb->Worksheets(1);
> >>$sheet->cells(1,1)->{value} = "哈哈，不到10分钟就可以挣100块钱，幸福啊";
> >>$sheet->cells(2,1)->{value} = "不过这样拿你钱好像有点好像有点残忍";
> >>$wb->Save;
> >>$wb->Close;
> >>$ex->Quit;
> >>
> >>你在网上查一下Excel.Application
> >
> >
> >--
> >Books below translated by me to Chinese.
> >Practical mod_perl: http://home.earthlink.net/~pangj/mod_perl/
> >Squid the Definitive Guide: http://home.earthlink.net/~pangj/squid/
> >_______________________________________________
> >China-pm mailing list
> >China-pm at pm.org
> >http://mail.pm.org/mailman/listinfo/china-pm
>
>
> --
> Books below translated by me to Chinese.
> Practical mod_perl: http://home.earthlink.net/~pangj/mod_perl/
> Squid the Definitive Guide: http://home.earthlink.net/~pangj/squid/
> _______________________________________________
> China-pm mailing list
> China-pm at pm.org
> http://mail.pm.org/mailman/listinfo/china-pm




-- 
Cheers, Dongxu
__END__
http://search.cpan.org/~dongxu
-------------- next part --------------
An HTML attachment was scrubbed...
URL: http://mail.pm.org/pipermail/china-pm/attachments/20070130/fd49e24e/attachment-0001.html 

From jim.zhang.china at gmail.com  Tue Jan 30 01:03:47 2007
From: jim.zhang.china at gmail.com (Jim Zhang)
Date: Tue, 30 Jan 2007 17:03:47 +0800
Subject: [PerlChina] China-pm Digest, Vol 21, Issue 4
In-Reply-To: <mailman.2235.1170144216.26104.china-pm@pm.org>
References: <mailman.2235.1170144216.26104.china-pm@pm.org>
Message-ID: <1f1ee1a60701300103raf3518br13f97f082ed72f64@mail.gmail.com>

采用: perl  -MCPAN -e 'install Spreadsheet::ParseExcel"' 安装CPAN的包。
如果安装有问题，直接cd /your_binary; make install就可以。
测试程序见下面： 给我发邮件付费吧。希望你是个诚实的人哦！！经过测试！！
#!/usr/bin/perl

use Spreadsheet::ParseExcel;
use Spreadsheet::ParseExcel::SaveParser;

die "please input your excel file!\n" if(@ARGV<1);
my $file = $ARGV[0];
my $excel = new Spreadsheet::ParseExcel::SaveParser;
my $oBook = $excel->Parse($file);
my @data=('jim','ford');
#format: the insert data will use this format
my $iFmt = $oBook->{Worksheet}[0]->{Cells}[0][0]->{FormatNo};
#Addcell():第几个表，行，列，数据，[格式可选]
#第一个表，第一行第二列插入数据，使用第一行第一列的格式。
$oBook->AddCell(0, 0, 1, \@data, $iFmt);
#插入的这行没有格式
$oBook->AddCell(0, 1, 0, '304');
#插入的这行用单元格第一行第一列的格式
$oBook->AddCell(0, 1, 1, 'Kawai,Takanori', $iFmt);
#1.3 Save
$excel->SaveAs($oBook, $file);  # as the same name



2007/1/30, china-pm-request at pm.org <china-pm-request at pm.org>:
>
> Send China-pm mailing list submissions to
>         china-pm at pm.org
>
> To subscribe or unsubscribe via the World Wide Web, visit
>         http://mail.pm.org/mailman/listinfo/china-pm
> or, via email, send a message with subject or body 'help' to
>         china-pm-request at pm.org
>
> You can reach the person managing the list at
>         china-pm-owner at pm.org
>
> When replying, please edit your Subject line so it is more specific
> than "Re: Contents of China-pm digest..."
>
>
> Today's Topics:
>
>    1. Re:  China-pm Digest, Vol 21, Issue 3 (Jim Zhang)
>    2. Re:  China-pm Digest, Vol 21, Issue 3 (Jeff Pang)
>    3. Re:  Want to get a module (Wan)
>    4. Re:  Want to get a module (Jeff Pang)
>    5. Re:  Want to get a module (Jeff Pang)
>    6. Re:  Want to get a module (Dongxu Ma)
>
>
> ----------------------------------------------------------------------
>
> Message: 1
> Date: Tue, 30 Jan 2007 14:11:41 +0800
> From: "Jim Zhang" <jim.zhang.china at gmail.com>
> Subject: Re: [PerlChina] China-pm Digest, Vol 21, Issue 3
> To: china-pm at pm.org
> Message-ID:
>         <1f1ee1a60701292211n504c6ac9sb100da989b31ecb2 at mail.gmail.com>
> Content-Type: text/plain; charset="iso-8859-1"
>
> please clarify your meaning:
>
> &export_to_excel($filename, $location, \@data_array);
>
> $location is, for example, "B2",which means  Column B, Row 2.
> @data_array looks like:
> @AoA = (
>            [ "fred", "barney" ],
>            [ "george", "jane", "elroy" ],
>            [ "homer", "marge", "bart" ],
>     );
>
> insert all the data in @AoA=() into "ColumnB, Row2" or insert "fred" in
> B2,
> "barney" in B3, or others?
>
> 2007/1/30, china-pm-request at pm.org <china-pm-request at pm.org>:
> >
> > Send China-pm mailing list submissions to
> >         china-pm at pm.org
> >
> > To subscribe or unsubscribe via the World Wide Web, visit
> >         http://mail.pm.org/mailman/listinfo/china-pm
> > or, via email, send a message with subject or body 'help' to
> >         china-pm-request at pm.org
> >
> > You can reach the person managing the list at
> >         china-pm-owner at pm.org
> >
> > When replying, please edit your Subject line so it is more specific
> > than "Re: Contents of China-pm digest..."
> >
> >
> > Today's Topics:
> >
> >    1.  Want to get a module (Jeff Pang)
> >
> >
> > ----------------------------------------------------------------------
> >
> > Message: 1
> > Date: Mon, 29 Jan 2007 21:41:50 +0800 (GMT+08:00)
> > From: Jeff Pang <pangj at earthlink.net>
> > Subject: [PerlChina] Want to get a module
> > To: PerlList-China  <china-pm at pm.org>
> > Message-ID:
> >         <
> > 14734423.1170078110884.JavaMail.root at elwamui-huard.atl.sa.earthlink.net>
> >
> > Content-Type: text/plain; charset=UTF-8
> >
> > Hello,
> >
> > One of my friends asked the helps from me and hope I could write a Perl
> > module for handling Excel file for him.
> >
> > He would like to call the module's function like this:
> >
> > &export_to_excel($filename, $location, \@data_array);
> >
> > $location is, for example, "B2",which means  Column B, Row 2.
> > @data_array looks like:
> > @AoA = (
> >            [ "fred", "barney" ],
> >            [ "george", "jane", "elroy" ],
> >            [ "homer", "marge", "bart" ],
> >     );
> >
> > I'm not familiar with Windows and Excel at all.So I ask the helps here.I
> 'd
> > like to pay RMB 100 for the function.
> > I think if there is some a guy who is familiar with them,he could spend
> > about 1 hour to finish it.
> > Anyone who is interested in it,please contact with me.
> >
> > Thanks!
> >
> >
> > --
> > Books below translated by me to Chinese.
> > Practical mod_perl: http://home.earthlink.net/~pangj/mod_perl/
> > Squid the Definitive Guide: http://home.earthlink.net/~pangj/squid/
> >
> >
> > ------------------------------
> >
> > _______________________________________________
> > China-pm mailing list
> > China-pm at pm.org
> > http://mail.pm.org/mailman/listinfo/china-pm
> >
> > End of China-pm Digest, Vol 21, Issue 3
> > ***************************************
> >
>
>
>
> --
> Best regards,
>
> Jim Zhang
> -------------- next part --------------
> An HTML attachment was scrubbed...
> URL:
> http://mail.pm.org/pipermail/china-pm/attachments/20070130/ae3480e7/attachment-0001.html
>
> ------------------------------
>
> Message: 2
> Date: Tue, 30 Jan 2007 01:16:18 -0500 (EST)
> From: Jeff Pang <pangj at earthlink.net>
> Subject: Re: [PerlChina] China-pm Digest, Vol 21, Issue 3
> To: china-pm at pm.org
> Message-ID:
>         <
> 23182906.1170137778963.JavaMail.root at elwamui-cypress.atl.sa.earthlink.net>
>
> Content-Type: text/plain; charset="utf-8"
>
> An HTML attachment was scrubbed...
> URL:
> http://mail.pm.org/pipermail/china-pm/attachments/20070130/321084f0/attachment-0001.html
>
> ------------------------------
>
> Message: 3
> Date: Tue, 30 Jan 2007 15:19:44 +0800
> From: Wan <wanmyome at gmail.com>
> Subject: Re: [PerlChina] Want to get a module
> To: Jeff Pang <pangj at earthlink.net>,  china-pm at pm.org
> Message-ID: <45BEF190.8000006 at gmail.com>
> Content-Type: text/plain; charset=UTF-8; format=flowed
>
> #!/usr/bin/perl
> use Win32::OLE;
> my $ex = Win32::OLE->new('Excel.Application') or die "oops\n";
> #$ex->{Visible} = 1;
> my $wb = $ex->Workbooks->Open("D:/new.xls");
> my $sheet = $wb->Worksheets(1);
> $sheet->cells(1,1)->{value} = "哈哈，不到10分钟就可以挣100块钱，幸福啊";
> $sheet->cells(2,1)->{value} = "不过这样拿你钱好像有点好像有点残忍";
> $wb->Save;
> $wb->Close;
> $ex->Quit;
>
> 你在网上查一下Excel.Application
>
>
> ------------------------------
>
> Message: 4
> Date: Tue, 30 Jan 2007 02:54:06 -0500 (EST)
> From: Jeff Pang <pangj at earthlink.net>
> Subject: Re: [PerlChina] Want to get a module
> To: Wan <wanmyome at gmail.com>, china-pm at pm.org
> Message-ID:
>         <
> 16700658.1170143646645.JavaMail.root at elwamui-cypress.atl.sa.earthlink.net>
>
> Content-Type: text/plain; charset=UTF-8
>
> Thanks.
> 他的目的是要能写一个已存在的excel文件，就是说某个excel文件已存在，他可以打开，并从指定位置（$location）开始追加数据（@data）。你的这个函数能做到吗？能搞定我马上给你pay
> money.:)
>
> -----Original Message-----
> >From: Wan <wanmyome at gmail.com>
> >Sent: Jan 30, 2007 2:19 AM
> >To: Jeff Pang <pangj at earthlink.net>, china-pm at pm.org
> >Subject: Re: [PerlChina] Want to get a module
> >
> >#!/usr/bin/perl
> >use Win32::OLE;
> >my $ex = Win32::OLE->new('Excel.Application') or die "oops\n";
> >#$ex->{Visible} = 1;
> >my $wb = $ex->Workbooks->Open("D:/new.xls");
> >my $sheet = $wb->Worksheets(1);
> >$sheet->cells(1,1)->{value} = "哈哈，不到10分钟就可以挣100块钱，幸福啊";
> >$sheet->cells(2,1)->{value} = "不过这样拿你钱好像有点好像有点残忍";
> >$wb->Save;
> >$wb->Close;
> >$ex->Quit;
> >
> >你在网上查一下Excel.Application
>
>
> --
> Books below translated by me to Chinese.
> Practical mod_perl: http://home.earthlink.net/~pangj/mod_perl/
> Squid the Definitive Guide: http://home.earthlink.net/~pangj/squid/
>
>
> ------------------------------
>
> Message: 5
> Date: Tue, 30 Jan 2007 02:56:04 -0500 (EST)
> From: Jeff Pang <pangj at earthlink.net>
> Subject: Re: [PerlChina] Want to get a module
> To: china-pm at pm.org
> Message-ID:
>         <
> 7733530.1170143764356.JavaMail.root at elwamui-cypress.atl.sa.earthlink.net>
>
> Content-Type: text/plain; charset=UTF-8
>
>
> 另外，非常不好意思。他要求脚本在Linux上工作，呵呵。
>
>
> -----Original Message-----
> >From: Jeff Pang <pangj at earthlink.net>
> >Sent: Jan 30, 2007 2:54 AM
> >To: Wan <wanmyome at gmail.com>, china-pm at pm.org
> >Subject: Re: [PerlChina] Want to get a module
> >
> >Thanks.
> >他的目的是要能写一个已存在的excel文件，就是说某个excel文件已存在，他可以打开，并从指定位置（$location）开始追加数据（@data）。你的这个函数能做到吗？能搞定我马上给你pay
> money.:)
> >
> >-----Original Message-----
> >>From: Wan <wanmyome at gmail.com>
> >>Sent: Jan 30, 2007 2:19 AM
> >>To: Jeff Pang <pangj at earthlink.net>, china-pm at pm.org
> >>Subject: Re: [PerlChina] Want to get a module
> >>
> >>#!/usr/bin/perl
> >>use Win32::OLE;
> >>my $ex = Win32::OLE->new('Excel.Application') or die "oops\n";
> >>#$ex->{Visible} = 1;
> >>my $wb = $ex->Workbooks->Open("D:/new.xls");
> >>my $sheet = $wb->Worksheets(1);
> >>$sheet->cells(1,1)->{value} = "哈哈，不到10分钟就可以挣100块钱，幸福啊";
> >>$sheet->cells(2,1)->{value} = "不过这样拿你钱好像有点好像有点残忍";
> >>$wb->Save;
> >>$wb->Close;
> >>$ex->Quit;
> >>
> >>你在网上查一下Excel.Application
> >
> >
> >--
> >Books below translated by me to Chinese.
> >Practical mod_perl: http://home.earthlink.net/~pangj/mod_perl/
> >Squid the Definitive Guide: http://home.earthlink.net/~pangj/squid/
> >_______________________________________________
> >China-pm mailing list
> >China-pm at pm.org
> >http://mail.pm.org/mailman/listinfo/china-pm
>
>
> --
> Books below translated by me to Chinese.
> Practical mod_perl: http://home.earthlink.net/~pangj/mod_perl/
> Squid the Definitive Guide: http://home.earthlink.net/~pangj/squid/
>
>
> ------------------------------
>
> Message: 6
> Date: Tue, 30 Jan 2007 16:03:19 +0800
> From: "Dongxu Ma" <dongxu.ma at gmail.com>
> Subject: Re: [PerlChina] Want to get a module
> To: "Jeff Pang" <pangj at earthlink.net>, china-pm at pm.org
> Message-ID:
>         <9bc0d5d20701300003i7127c231md9a70762672648f4 at mail.gmail.com>
> Content-Type: text/plain; charset="gb2312"
>
> Please _DO_ check CPAN
>
> http://search.cpan.org/~scesano/Spreadsheet-TieExcel-0.75/TieExcel.pod
>
> http://search.cpan.org/~jmcnamara/Spreadsheet-WriteExcel-2.18/lib/Spreadsheet/WriteExcel.pm
> http://www-128.ibm.com/developerworks/library/l-pexcel/
>
> On 1/30/07, Jeff Pang <pangj at earthlink.net> wrote:
> >
> >
> > 另外，非常不好意思。他要求脚本在Linux上工作，呵呵。
> >
> >
> > -----Original Message-----
> > >From: Jeff Pang <pangj at earthlink.net>
> > >Sent: Jan 30, 2007 2:54 AM
> > >To: Wan <wanmyome at gmail.com>, china-pm at pm.org
> > >Subject: Re: [PerlChina] Want to get a module
> > >
> > >Thanks.
> >
> >他的目的是要能写一个已存在的excel文件，就是说某个excel文件已存在，他可以打开，并从指定位置（$location）开始追加数据（@data）。你的这个函数能做到吗？能搞定我马上给你pay
> > money.:)
> > >
> > >-----Original Message-----
> > >>From: Wan <wanmyome at gmail.com>
> > >>Sent: Jan 30, 2007 2:19 AM
> > >>To: Jeff Pang <pangj at earthlink.net>, china-pm at pm.org
> > >>Subject: Re: [PerlChina] Want to get a module
> > >>
> > >>#!/usr/bin/perl
> > >>use Win32::OLE;
> > >>my $ex = Win32::OLE->new('Excel.Application') or die "oops\n";
> > >>#$ex->{Visible} = 1;
> > >>my $wb = $ex->Workbooks->Open("D:/new.xls");
> > >>my $sheet = $wb->Worksheets(1);
> > >>$sheet->cells(1,1)->{value} = "哈哈，不到10分钟就可以挣100块钱，幸福啊";
> > >>$sheet->cells(2,1)->{value} = "不过这样拿你钱好像有点好像有点残忍";
> > >>$wb->Save;
> > >>$wb->Close;
> > >>$ex->Quit;
> > >>
> > >>你在网上查一下Excel.Application
> > >
> > >
> > >--
> > >Books below translated by me to Chinese.
> > >Practical mod_perl: http://home.earthlink.net/~pangj/mod_perl/
> > >Squid the Definitive Guide: http://home.earthlink.net/~pangj/squid/
> > >_______________________________________________
> > >China-pm mailing list
> > >China-pm at pm.org
> > >http://mail.pm.org/mailman/listinfo/china-pm
> >
> >
> > --
> > Books below translated by me to Chinese.
> > Practical mod_perl: http://home.earthlink.net/~pangj/mod_perl/
> > Squid the Definitive Guide: http://home.earthlink.net/~pangj/squid/
> > _______________________________________________
> > China-pm mailing list
> > China-pm at pm.org
> > http://mail.pm.org/mailman/listinfo/china-pm
>
>
>
>
> --
> Cheers, Dongxu
> __END__
> http://search.cpan.org/~dongxu
> -------------- next part --------------
> An HTML attachment was scrubbed...
> URL:
> http://mail.pm.org/pipermail/china-pm/attachments/20070130/fd49e24e/attachment.html
>
> ------------------------------
>
> _______________________________________________
> China-pm mailing list
> China-pm at pm.org
> http://mail.pm.org/mailman/listinfo/china-pm
>
> End of China-pm Digest, Vol 21, Issue 4
> ***************************************
>



-- 
Best regards,

Jim Zhang
-------------- next part --------------
An HTML attachment was scrubbed...
URL: http://mail.pm.org/pipermail/china-pm/attachments/20070130/b6fd1575/attachment-0001.html 

From pangj at earthlink.net  Tue Jan 30 01:48:56 2007
From: pangj at earthlink.net (Jeff Pang)
Date: Tue, 30 Jan 2007 17:48:56 +0800 (GMT+08:00)
Subject: [PerlChina] China-pm Digest, Vol 21, Issue 4
Message-ID: <14214890.1170150536436.JavaMail.root@elwamui-rustique.atl.sa.earthlink.net>

An HTML attachment was scrubbed...
URL: http://mail.pm.org/pipermail/china-pm/attachments/20070130/cdbd6592/attachment.html