2010年8月21日星期六

Re: [PerlChina] 请问有没有人使用过perl 来做 sina微博接口的示例啊

就是这么做的,还是有这个问题,可以看前面的代码.

--
您收到此邮件是因为您订阅了 Google 网上论坛的"PerlChina Mongers 讨论组"论坛。
要向此网上论坛发帖，请发送电子邮件至 perlchina@googlegroups.com。
要取消订阅此网上论坛，请发送电子邮件至 perlchina+unsubscribe@googlegroups.com。
若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。
发帖者 时间： 没有评论:

Re: [PerlChina] 请问有没有人使用过perl 来做 sina微博接口的示例啊

在 STEP 3 里要，把这个 URL 拿给用户验证。
用户验证成功成功会访问 oauth_callback 中的地址，
并把 token 传到 oauth_callback 中的地址里。

在 2010年8月21日 下午4:58，imxae <imx365ster@gmail.com> 写道：
> 请各位大大指导,在新浪微博的oauth,总是出现如下错误;
>
> 401 Unauthorized
>
> 日志:
>
> [DEBUG Net::OAuth] STEP 1: REQUEST SINA OAUTH TOKEN FOR THIS APP
> [DEBUG Net::OAuth] Request to_url:
> http://api.t.sina.com.cn/oauth/request_token?oauth_consumer_key=1438635265&oauth_nonce=1434579439&oauth_signature=c9woVbzjj6bFXWikhduY%2FwMeJG0%3D&oauth_signature_method=HMAC-SHA1&oauth_timestamp=1282380286&oauth_version=1.0
> [DEBUG Net::OAuth] Got Request Token: ec5165fe718d1869f2edaca3bbad55fa
> [DEBUG Net::OAuth] Got Request Token Secret:
> b70a38b114d841b08d41258c4cc55ca5
> [DEBUG Net::OAuth] STEP 2: SINA OAUTH TOKEN RESPONSE
> [DEBUG Net::OAuth] RESPONSE:
> oauth_token=ec5165fe718d1869f2edaca3bbad55fa&oauth_token_secret=b70a38b114d841b08d41258c4cc55ca5
> [DEBUG Net::OAuth] STEP 3: REQUEST SINA AUTHORIZATION FOR THIS APP
> [DEBUG Net::OAuth] URL :
> http://api.t.sina.com.cn/oauth/authorize?oauth_token=ec5165fe718d1869f2edaca3bbad55fa&oauth_callback=http%3A%2F%2Fwww.imx.net%2Foauth_sina_call.mpl
> [DEBUG Net::OAuth] STEP 4: REQUEST SINA ACCESS TOKEN FOR THIS APP
> [DEBUG Net::OAuth] URL:
> http://api.t.sina.com.cn/oauth/access_token?oauth_consumer_key=1438635265&oauth_nonce=3970420988&oauth_signature=6uaB8lKVQB15b9Yc%2FOO1fne%2FdAU%3D&oauth_signature_method=HMAC-SHA1&oauth_timestamp=1282380340&oauth_token=ec5165fe718d1869f2edaca3bbad55fa&oauth_version=1.0&oauth_verifier=713290
>
>
> 代码
>
>
> eval { require LWP::UserAgent } or $m->error("LWP::UserAgent module not
> available.$return_code");
> eval { require Net::SSL } or $m->error("Net::SSL module not
> available.$return_code");
> eval { require Net::OAuth } or $m->error("Net::OAuth module not
> available.$return_code");
>
> use Net::OAuth;
> use Net::OAuth::Request;
> use Net::OAuth::RequestTokenRequest;
> use Net::OAuth::AccessTokenRequest;
> use Net::OAuth::ProtectedResourceRequest;
> #$Net::OAuth::PROTOCOL_VERSION = Net::OAuth::PROTOCOL_VERSION_1_0A;
> my $ua = LWP::UserAgent->new;
> #use CGI;
> # my $q = new CGI;
>
> #sub { imxMain::MP ? $m->{apr}->param($_[0]) : $m->{cgi}->param($_[0]) }
> my $token = $cookies->{"token"};
> my $token_secret = $cookies->{"token_secret"};
> my $response_token = $m->paramStr("oauth_token");
>
> my $verifyer = $m->paramStr("oauth_verifier");
>
> my $request = Net::OAuth::AccessTokenRequest->new(
> consumer_key => '*',
> consumer_secret => '*',
> request_url => 'http://api.t.sina.com.cn/oauth/access_token',
> request_method => 'GET',
> signature_method => 'HMAC-SHA1',
> timestamp => time,
> nonce => int(rand(2 ** 32)),
> token => $token,
> token_secret => $token_secret,
> );
>
> $request->sign;
>
> if (!$request->verify) {
> die "Signature verification failed";
> }
> else {
> my $res = $ua->post($request_url); # Post message to the Service
> Provider
>
> if ($res->is_success) {
>
> print STDERR "[DEBUG Net::OAuth] STEP 5: SINA ACCESS TOKEN RESPONSE\n";
> print STDERR "[DEBUG Net::OAuth]\tRESPONSE : " . $res->content . "\n";
>
> print $res->content;
>
> }
>
> print $res->status_line;
> }
>
> --
> 您收到此邮件是因为您订阅了 Google 网上论坛的"PerlChina Mongers 讨论组"论坛。
> 要向此网上论坛发帖，请发送电子邮件至 perlchina@googlegroups.com。
> 要取消订阅此网上论坛，请发送电子邮件至 perlchina+unsubscribe@googlegroups.com。
> 若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。
>

--
http://weizhicheng.users.sourceforge.net/blog/

--
您收到此邮件是因为您订阅了 Google 网上论坛的"PerlChina Mongers 讨论组"论坛。
要向此网上论坛发帖，请发送电子邮件至 perlchina@googlegroups.com。
要取消订阅此网上论坛，请发送电子邮件至 perlchina+unsubscribe@googlegroups.com。
若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。

发帖者 时间： 没有评论:

Re: [PerlChina] 请问有没有人使用过perl 来做 sina微博接口的示例啊

请各位大大指导,在新浪微博的oauth,总是出现如下错误;
401 Unauthorized
日志:
 
[DEBUG Net::OAuth] STEP 1: REQUEST SINA OAUTH TOKEN FOR THIS APP
[DEBUG Net::OAuth] Request to_url: http://api.t.sina.com.cn/oauth/request_token?oauth_consumer_key=1438635265&oauth_nonce=1434579439&oauth_signature=c9woVbzjj6bFXWikhduY%2FwMeJG0%3D&oauth_signature_method=HMAC-SHA1&oauth_timestamp=1282380286&oauth_version=1.0
[DEBUG Net::OAuth] Got Request Token: ec5165fe718d1869f2edaca3bbad55fa
[DEBUG Net::OAuth] Got Request Token Secret: b70a38b114d841b08d41258c4cc55ca5
[DEBUG Net::OAuth] STEP 2: SINA OAUTH TOKEN RESPONSE
[DEBUG Net::OAuth] RESPONSE: oauth_token=ec5165fe718d1869f2edaca3bbad55fa&oauth_token_secret=b70a38b114d841b08d41258c4cc55ca5
[DEBUG Net::OAuth] STEP 3: REQUEST SINA AUTHORIZATION FOR THIS APP
[DEBUG Net::OAuth] URL : http://api.t.sina.com.cn/oauth/authorize?oauth_token=ec5165fe718d1869f2edaca3bbad55fa&oauth_callback=http%3A%2F%2Fwww.imx.net%2Foauth_sina_call.mpl
[DEBUG Net::OAuth] STEP 4: REQUEST SINA ACCESS TOKEN FOR THIS APP
[DEBUG Net::OAuth] URL: http://api.t.sina.com.cn/oauth/access_token?oauth_consumer_key=1438635265&oauth_nonce=3970420988&oauth_signature=6uaB8lKVQB15b9Yc%2FOO1fne%2FdAU%3D&oauth_signature_method=HMAC-SHA1&oauth_timestamp=1282380340&oauth_token=ec5165fe718d1869f2edaca3bbad55fa&oauth_version=1.0&oauth_verifier=713290
 
 
代码
 

 eval { require LWP::UserAgent } or $m->error("LWP::UserAgent module not available.$return_code");
 eval { require Net::SSL } or $m->error("Net::SSL module not available.$return_code");
 eval { require Net::OAuth } or $m->error("Net::OAuth module not available.$return_code");

use Net::OAuth;
use Net::OAuth::Request;
use Net::OAuth::RequestTokenRequest;
use Net::OAuth::AccessTokenRequest;
use Net::OAuth::ProtectedResourceRequest;
#$Net::OAuth::PROTOCOL_VERSION = Net::OAuth::PROTOCOL_VERSION_1_0A;
my $ua = LWP::UserAgent->new;
#use CGI;
#    my $q = new CGI;

    #sub { imxMain::MP ? $m->{apr}->param($_[0]) : $m->{cgi}->param($_[0]) }
    my $token = $cookies->{"token"};
    my $token_secret = $cookies->{"token_secret"};
    my $response_token = $m->paramStr("oauth_token");
   
    my $verifyer = $m->paramStr("oauth_verifier");

my $request = Net::OAuth::AccessTokenRequest->new(
 consumer_key => '*',
 consumer_secret => '*',
 request_url => 'http://api.t.sina.com.cn/oauth/access_token',
 request_method => 'GET',
 signature_method => 'HMAC-SHA1',
 timestamp => time,
 nonce => int(rand(2 ** 32)),
 token => $token,
 token_secret => $token_secret,
);

 $request->sign;

  if (!$request->verify) {
      die "Signature verification failed";
  }
 else {
    my $res = $ua->post($request_url); # Post message to the Service Provider
   
    if ($res->is_success) {

    print STDERR "[DEBUG Net::OAuth] STEP 5: SINA ACCESS TOKEN RESPONSE\n";
    print STDERR "[DEBUG Net::OAuth]\tRESPONSE : " . $res->content . "\n";
    
    print $res->content;

    }
    
    print $res->status_line;
 }

--
您收到此邮件是因为您订阅了 Google 网上论坛的"PerlChina Mongers 讨论组"论坛。
要向此网上论坛发帖，请发送电子邮件至 perlchina@googlegroups.com。
要取消订阅此网上论坛，请发送电子邮件至 perlchina+unsubscribe@googlegroups.com。
若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。
发帖者 时间： 没有评论:

2010年8月20日星期五

Re: [PerlChina] 有没有模块ssh登录后，再re-attach所有的screen窗口，再把screen中运行的屏幕状态保存下来？

先用  Net::SSH::Perl ,   Net::SSH::Expect  登陆再说 啊
 
截屏幕是啥模块，不清楚

2010/8/20 Beckheng Lam <bi.ken.lam@gmail.com>
如题，谢谢！

--
Perl乐事 -- http://www.perlersh.org
我的博客 -- http://www.perlersh.org/blog.html
诸法从缘起，如来说是因。
彼法因缘尽，是大沙门说。

--
您收到此邮件是因为您订阅了 Google 网上论坛的“PerlChina Mongers 讨论组”论坛。
要向此网上论坛发帖，请发送电子邮件至 perlchina@googlegroups.com。
要取消订阅此网上论坛，请发送电子邮件至 perlchina+unsubscribe@googlegroups.com。
若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。




--
            Yours Sincerely
                    Zeng Hong

--
您收到此邮件是因为您订阅了 Google 网上论坛的"PerlChina Mongers 讨论组"论坛。
要向此网上论坛发帖，请发送电子邮件至 perlchina@googlegroups.com。
要取消订阅此网上论坛，请发送电子邮件至 perlchina+unsubscribe@googlegroups.com。
若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。
发帖者 时间： 没有评论:

2010年8月19日星期四

Re: [PerlChina] 请问有没有人使用过perl 来做 sina微博接口的示例啊

新浪的Key和Secret也申请到了，谢谢楼上几位指点

--
您收到此邮件是因为您订阅了 Google 网上论坛的"PerlChina Mongers 讨论组"论坛。
要向此网上论坛发帖，请发送电子邮件至 perlchina@googlegroups.com。
要取消订阅此网上论坛，请发送电子邮件至 perlchina+unsubscribe@googlegroups.com。
若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。
发帖者 时间： 没有评论:

Re: [PerlChina] 请问有没有人使用过perl 来做 sina微博接口的示例啊

刚才联系了sohu的open平台的邮件，说要申请才会给OAuth的consumer_key和consumer_secret，谢谢楼上几位的指点

--
您收到此邮件是因为您订阅了 Google 网上论坛的"PerlChina Mongers 讨论组"论坛。
要向此网上论坛发帖，请发送电子邮件至 perlchina@googlegroups.com。
要取消订阅此网上论坛，请发送电子邮件至 perlchina+unsubscribe@googlegroups.com。
若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。
发帖者 时间： 没有评论:

Re: [PerlChina] 请问有没有人使用过perl 来做 sina微博接口的示例啊

在 2010年8月20日 上午11:12，imxae <imx365ster@gmail.com> 写道：
> 对就是用oauth的，
> http://search.cpan.org/~kgrennan/Net-OAuth-0.27/lib/Net/OAuth.pm
> 我在用时发现新浪要求consumer_key,consumer_secret生成，我用示例的不知道该怎么作。
>

建议多去看一下 OAuth 的文档。

consumer_key,consumer_secret
这两个值是要从新浪获取的。

> --
> 您收到此邮件是因为您订阅了 Google 网上论坛的"PerlChina Mongers 讨论组"论坛。
> 要向此网上论坛发帖，请发送电子邮件至 perlchina@googlegroups.com。
> 要取消订阅此网上论坛，请发送电子邮件至 perlchina+unsubscribe@googlegroups.com。
> 若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。
>

--
http://weizhicheng.users.sourceforge.net/blog/

--
您收到此邮件是因为您订阅了 Google 网上论坛的"PerlChina Mongers 讨论组"论坛。
要向此网上论坛发帖，请发送电子邮件至 perlchina@googlegroups.com。
要取消订阅此网上论坛，请发送电子邮件至 perlchina+unsubscribe@googlegroups.com。
若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。

发帖者 时间： 没有评论:

Re: [PerlChina] 请问有没有人使用过perl 来做 sina微博接口的示例啊

对就是用oauth的，

我在用时发现新浪要求consumer_key,consumer_secret生成，我用示例的不知道该怎么作。

--
您收到此邮件是因为您订阅了 Google 网上论坛的"PerlChina Mongers 讨论组"论坛。
要向此网上论坛发帖，请发送电子邮件至 perlchina@googlegroups.com。
要取消订阅此网上论坛，请发送电子邮件至 perlchina+unsubscribe@googlegroups.com。
若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。
发帖者 时间： 没有评论:

Re: [PerlChina] 请问有没有人使用过perl 来做 sina微博接口的示例啊

不就是 OAuth 么？
新浪微博 的实现很标准。
曾经用过 Objective-C 版的飘过。

在 2010年8月20日 上午11:03，imxae <imx365ster@gmail.com> 写道：
> 我等菜鸟就是不会所以才斗胆提问，希望各位大大指导。
>
> 在 2010年8月20日 上午10:56，woosley. xu. <redicaps@gmail.com>写道：
>>
>> 自己写一个呗，这个真的不难
>>
>> 在 2010年8月20日 上午10:42，蓝天下云层上 <imx365ster@gmail.com>写道：
>>>
>>> 在open.t.sina.com.cn中看来看去，就是没有perl的，sohu的开放产台也没有perl的，很郁闷啊，有没有哪个大哥做过相关的开
>>> 发，能提供个源码不？
>>>
>>> --
>>> 您收到此邮件是因为您订阅了 Google 网上论坛的"PerlChina Mongers 讨论组"论坛。
>>> 要向此网上论坛发帖，请发送电子邮件至 perlchina@googlegroups.com。
>>> 要取消订阅此网上论坛，请发送电子邮件至 perlchina+unsubscribe@googlegroups.com。
>>> 若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。
>>>
>>
>>
>>
>> --
>> Woosley.Xu
>>
>>
>>
>> --
>> 您收到此邮件是因为您订阅了 Google 网上论坛的"PerlChina Mongers 讨论组"论坛。
>> 要向此网上论坛发帖，请发送电子邮件至 perlchina@googlegroups.com。
>> 要取消订阅此网上论坛，请发送电子邮件至 perlchina+unsubscribe@googlegroups.com。
>> 若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。
>
> --
> 您收到此邮件是因为您订阅了 Google 网上论坛的"PerlChina Mongers 讨论组"论坛。
> 要向此网上论坛发帖，请发送电子邮件至 perlchina@googlegroups.com。
> 要取消订阅此网上论坛，请发送电子邮件至 perlchina+unsubscribe@googlegroups.com。
> 若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。
>

--
http://weizhicheng.users.sourceforge.net/blog/

--
您收到此邮件是因为您订阅了 Google 网上论坛的"PerlChina Mongers 讨论组"论坛。
要向此网上论坛发帖，请发送电子邮件至 perlchina@googlegroups.com。
要取消订阅此网上论坛，请发送电子邮件至 perlchina+unsubscribe@googlegroups.com。
若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。

发帖者 时间： 没有评论:

Re: [PerlChina] 请问有没有人使用过perl 来做 sina微博接口的示例啊

我等菜鸟就是不会所以才斗胆提问，希望各位大大指导。

在 2010年8月20日 上午10:56，woosley. xu. <redicaps@gmail.com>写道：
自己写一个呗，这个真的不难

在 2010年8月20日 上午10:42，蓝天下云层上 <imx365ster@gmail.com>写道：

在open.t.sina.com.cn中看来看去，就是没有perl的，sohu的开放产台也没有perl的，很郁闷啊，有没有哪个大哥做过相关的开
发，能提供个源码不？

--
您收到此邮件是因为您订阅了 Google 网上论坛的"PerlChina Mongers 讨论组"论坛。
要向此网上论坛发帖，请发送电子邮件至 perlchina@googlegroups.com。
要取消订阅此网上论坛，请发送电子邮件至 perlchina+unsubscribe@googlegroups.com。
若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。




--
Woosley.Xu




--
您收到此邮件是因为您订阅了 Google 网上论坛的"PerlChina Mongers 讨论组"论坛。
要向此网上论坛发帖，请发送电子邮件至 perlchina@googlegroups.com。
要取消订阅此网上论坛，请发送电子邮件至 perlchina+unsubscribe@googlegroups.com。
若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。

--
您收到此邮件是因为您订阅了 Google 网上论坛的"PerlChina Mongers 讨论组"论坛。
要向此网上论坛发帖，请发送电子邮件至 perlchina@googlegroups.com。
要取消订阅此网上论坛，请发送电子邮件至 perlchina+unsubscribe@googlegroups.com。
若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。
发帖者 时间： 没有评论:

Re: [PerlChina] 请问有没有人使用过perl 来做 sina微博接口的示例啊

自己写一个呗，这个真的不难

在 2010年8月20日 上午10:42，蓝天下云层上 <imx365ster@gmail.com>写道：
在open.t.sina.com.cn中看来看去，就是没有perl的，sohu的开放产台也没有perl的，很郁闷啊，有没有哪个大哥做过相关的开
发，能提供个源码不？

--
您收到此邮件是因为您订阅了 Google 网上论坛的"PerlChina Mongers 讨论组"论坛。
要向此网上论坛发帖，请发送电子邮件至 perlchina@googlegroups.com。
要取消订阅此网上论坛，请发送电子邮件至 perlchina+unsubscribe@googlegroups.com。
若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。




--
Woosley.Xu



--
您收到此邮件是因为您订阅了 Google 网上论坛的"PerlChina Mongers 讨论组"论坛。
要向此网上论坛发帖，请发送电子邮件至 perlchina@googlegroups.com。
要取消订阅此网上论坛，请发送电子邮件至 perlchina+unsubscribe@googlegroups.com。
若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。
发帖者 时间： 没有评论:

Re: [PerlChina] 请问有没有人使用过perl 来做 sina微博接口的示例啊

唉，不开源不是白说了

在10-8-20，Lin(林兴陆) <i@lxl.cn> 写道：

自己做来测试不开源。

// E-Mail:i@lxl.cn / QQ:28888888 /  MSN:linxinglu@hotmail.com

在 2010-8-20 上午10:42，"蓝天下云层上" <imx365ster@gmail.com>写道：


> 在open.t.sina.com.cn中看来看去，就是没有perl的，sohu的开放产台也没有perl的，很郁闷啊，有没有哪个大哥做过相关的开
> 发，能提供个源码不？
>
> --
> 您收到此邮件是因为您订阅了 Google 网上论坛的“PerlChina Mongers 讨论组”论坛。
> 要向此网上论坛发帖，请发送电子邮件至 perlchina@googlegroups.com。
> 要取消订阅此网上论坛，请发送电子邮件至 perlchina+unsubscribe@googlegroups.com。
> 若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。
>

--
您收到此邮件是因为您订阅了 Google 网上论坛的“PerlChina Mongers 讨论组”论坛。
要向此网上论坛发帖，请发送电子邮件至 perlchina@googlegroups.com。
要取消订阅此网上论坛，请发送电子邮件至 perlchina+unsubscribe@googlegroups.com。
若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。


--
您收到此邮件是因为您订阅了 Google 网上论坛的"PerlChina Mongers 讨论组"论坛。
要向此网上论坛发帖，请发送电子邮件至 perlchina@googlegroups.com。
要取消订阅此网上论坛，请发送电子邮件至 perlchina+unsubscribe@googlegroups.com。
若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。
发帖者 时间： 没有评论:

Re: [PerlChina] 请问有没有人使用过perl 来做 sina微博接口的示例啊

自己做来测试不开源。

// E-Mail:i@lxl.cn / QQ:28888888 /  MSN:linxinglu@hotmail.com

在 2010-8-20 上午10:42，"蓝天下云层上" <imx365ster@gmail.com>写道：
> 在open.t.sina.com.cn中看来看去，就是没有perl的，sohu的开放产台也没有perl的，很郁闷啊，有没有哪个大哥做过相关的开
> 发，能提供个源码不？
>
> --
> 您收到此邮件是因为您订阅了 Google 网上论坛的“PerlChina Mongers 讨论组”论坛。
> 要向此网上论坛发帖，请发送电子邮件至 perlchina@googlegroups.com。
> 要取消订阅此网上论坛，请发送电子邮件至 perlchina+unsubscribe@googlegroups.com。
> 若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。
>

--
您收到此邮件是因为您订阅了 Google 网上论坛的“PerlChina Mongers 讨论组”论坛。
要向此网上论坛发帖，请发送电子邮件至 perlchina@googlegroups.com。
要取消订阅此网上论坛，请发送电子邮件至 perlchina+unsubscribe@googlegroups.com。
若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。
发帖者 时间： 没有评论:

[PerlChina] 请问有没有人使用过perl 来做 sina微博接口的示例啊

在open.t.sina.com.cn中看来看去，就是没有perl的，sohu的开放产台也没有perl的，很郁闷啊，有没有哪个大哥做过相关的开
发，能提供个源码不？

--
您收到此邮件是因为您订阅了 Google 网上论坛的"PerlChina Mongers 讨论组"论坛。
要向此网上论坛发帖，请发送电子邮件至 perlchina@googlegroups.com。
要取消订阅此网上论坛，请发送电子邮件至 perlchina+unsubscribe@googlegroups.com。
若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。
发帖者 时间： 没有评论:

[PerlChina] 有没有模块ssh登录后，再re-attach所有的screen窗口，再把screen中运行的屏幕状态保存下来？

如题，谢谢！

--
Perl乐事 -- http://www.perlersh.org
我的博客 -- http://www.perlersh.org/blog.html
诸法从缘起，如来说是因。
彼法因缘尽，是大沙门说。

--
您收到此邮件是因为您订阅了 Google 网上论坛的"PerlChina Mongers 讨论组"论坛。
要向此网上论坛发帖，请发送电子邮件至 perlchina@googlegroups.com。
要取消订阅此网上论坛，请发送电子邮件至 perlchina+unsubscribe@googlegroups.com。
若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。

发帖者 时间： 没有评论:

2010年8月18日星期三

Re: [PerlChina] perlchina@googlegroups.com 的摘要 - “1 个主题”有 1 个帖子

用perl做自动化测试，不过觉得一般

2010/8/18 Allan Ruin <boxoxod@gmail.com>
弱弱的问一句。。赛门铁克跟perl的关系？

在 2010年8月16日 下午3:09， <perlchina+noreply@googlegroups.com>写道：

网上论坛: http://groups.google.com/group/perlchina/topics

    climby <mdengfeng@gmail.com> Aug 15 08:20PM -0700 ^
     
    赛门铁克诚招高级软件工程师，perl开发
     
    Company Overview
    Symantec is a global leader in providing security, storage and systems
    management solutions to help our customers - from consumers and small
    businesses to the largest global organizations - secure and manage
    their information-driven world against more risks at more points, more
    completely and efficiently. Our software and services protect
    completely, in ways that can be easily managed and with controls that
    can be enforced automatically - enabling confidence wherever
    information is used or stored.
     
    Department Overview
    Symantec's Information Management Group, with industry leading
    products that ensure successful backup, recovery and archiving of
    information and systems for organizations, is looking for exceptional
    individuals. If you would like to play a part in the success of
    market leading product teams such as NetBackup, PureDisk, Backup Exec,
    Backup Exec System Recovery and Enterprise Vault, then please apply
    today.
     
    Responsibilities
    * This employee will cooperate with local/global internal team
    members, global product teams, Quality Assurance teams, and product
    managers to involve into task analysis, feature implementation,
    product maintenance and the final delivery of the commitments on
    schedule.
    * This employee will be focusing on the script development and
    maintenance in installation, configuration and upgrading for
    Netbackup(NBU)'s new installer based on Common Product Install(CPI)
    framework under one or all of AIX, Solaris, Linux and HP-UX platforms.
    * His/her will make sure that the delivered work is well tested
    and make sure to deliver with high quality. He/she will obey the
    current process to design, develop, review for commitment and deliver
    on time.
    * The employee also needs to join in the lifecycle of software
    process, do design review, code reviews, documentation review on
    product logic flow, and also be responsible to improve test process in
    test automation development if required.
    Qualifications
    * Should have proficient knowledge in Perl language and UNIX
    shell programming; 5+ years working experience in development under
    one or multi UNIX platforms (AIX/Solaris/Linux/HP-UX)
    * Have strong understanding on one or more of Linux/Solaris/HP-
    UX/AIX platforms.
    * Should have ability to communicate in English, both oral and
    writing.
    * Strong OO skill and good coding style.
    * Should have good team work experience to cooperate with
    globally deployed sites. Must be cooperative in resolving conflicting
    issues.
    * Must be action oriented, should have the capability to take
    challenging tasks with innovative solutions.
    * Should have the capability to take actions under high
    pressure and deliver the commitments on time with high enthusiasm.
    * Bachelor or higher degree is required.
    * Backup software development experience is a plus.
    * Experience in C/C++/Java languages, experience with
    Netbackup, M. S degree, are definite pluses, too.
     
    工作地点：北京 五道口 清华科技园
     
    如果你有能力，优厚的薪酬在向你招手
     
    如有意向，请发简历至：Dengfeng_Mao@symantec.com
    简历经过筛选后，会立刻安排面试

     

--
您收到此邮件是因为您订阅了 Google 网上论坛的“PerlChina Mongers 讨论组”论坛。
要向此网上论坛发帖，请发送电子邮件至 perlchina@googlegroups.com。
要取消订阅此网上论坛，请发送电子邮件至 perlchina+unsubscribe@googlegroups.com。
若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。

--
您收到此邮件是因为您订阅了 Google 网上论坛的“PerlChina Mongers 讨论组”论坛。
要向此网上论坛发帖，请发送电子邮件至 perlchina@googlegroups.com。
要取消订阅此网上论坛，请发送电子邮件至 perlchina+unsubscribe@googlegroups.com。
若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。

--
您收到此邮件是因为您订阅了 Google 网上论坛的"PerlChina Mongers 讨论组"论坛。
要向此网上论坛发帖，请发送电子邮件至 perlchina@googlegroups.com。
要取消订阅此网上论坛，请发送电子邮件至 perlchina+unsubscribe@googlegroups.com。
若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。
发帖者 时间： 没有评论:

2010年8月17日星期二

Re: [PerlChina] perlchina@googlegroups.com 的摘要 - “1 个主题”有 1 个帖子

弱弱的问一句。。赛门铁克跟perl的关系？

在 2010年8月16日 下午3:09， <perlchina+noreply@googlegroups.com>写道：

网上论坛: http://groups.google.com/group/perlchina/topics

    climby <mdengfeng@gmail.com> Aug 15 08:20PM -0700 ^
     
    赛门铁克诚招高级软件工程师，perl开发
     
    Company Overview
    Symantec is a global leader in providing security, storage and systems
    management solutions to help our customers - from consumers and small
    businesses to the largest global organizations - secure and manage
    their information-driven world against more risks at more points, more
    completely and efficiently. Our software and services protect
    completely, in ways that can be easily managed and with controls that
    can be enforced automatically - enabling confidence wherever
    information is used or stored.
     
    Department Overview
    Symantec's Information Management Group, with industry leading
    products that ensure successful backup, recovery and archiving of
    information and systems for organizations, is looking for exceptional
    individuals. If you would like to play a part in the success of
    market leading product teams such as NetBackup, PureDisk, Backup Exec,
    Backup Exec System Recovery and Enterprise Vault, then please apply
    today.
     
    Responsibilities
    * This employee will cooperate with local/global internal team
    members, global product teams, Quality Assurance teams, and product
    managers to involve into task analysis, feature implementation,
    product maintenance and the final delivery of the commitments on
    schedule.
    * This employee will be focusing on the script development and
    maintenance in installation, configuration and upgrading for
    Netbackup(NBU)'s new installer based on Common Product Install(CPI)
    framework under one or all of AIX, Solaris, Linux and HP-UX platforms.
    * His/her will make sure that the delivered work is well tested
    and make sure to deliver with high quality. He/she will obey the
    current process to design, develop, review for commitment and deliver
    on time.
    * The employee also needs to join in the lifecycle of software
    process, do design review, code reviews, documentation review on
    product logic flow, and also be responsible to improve test process in
    test automation development if required.
    Qualifications
    * Should have proficient knowledge in Perl language and UNIX
    shell programming; 5+ years working experience in development under
    one or multi UNIX platforms (AIX/Solaris/Linux/HP-UX)
    * Have strong understanding on one or more of Linux/Solaris/HP-
    UX/AIX platforms.
    * Should have ability to communicate in English, both oral and
    writing.
    * Strong OO skill and good coding style.
    * Should have good team work experience to cooperate with
    globally deployed sites. Must be cooperative in resolving conflicting
    issues.
    * Must be action oriented, should have the capability to take
    challenging tasks with innovative solutions.
    * Should have the capability to take actions under high
    pressure and deliver the commitments on time with high enthusiasm.
    * Bachelor or higher degree is required.
    * Backup software development experience is a plus.
    * Experience in C/C++/Java languages, experience with
    Netbackup, M. S degree, are definite pluses, too.
     
    工作地点：北京 五道口 清华科技园
     
    如果你有能力，优厚的薪酬在向你招手
     
    如有意向，请发简历至：Dengfeng_Mao@symantec.com
    简历经过筛选后，会立刻安排面试

     

--
您收到此邮件是因为您订阅了 Google 网上论坛的“PerlChina Mongers 讨论组”论坛。
要向此网上论坛发帖，请发送电子邮件至 perlchina@googlegroups.com。
要取消订阅此网上论坛，请发送电子邮件至 perlchina+unsubscribe@googlegroups.com。
若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。

--
您收到此邮件是因为您订阅了 Google 网上论坛的"PerlChina Mongers 讨论组"论坛。
要向此网上论坛发帖，请发送电子邮件至 perlchina@googlegroups.com。
要取消订阅此网上论坛，请发送电子邮件至 perlchina+unsubscribe@googlegroups.com。
若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。
发帖者 时间： 没有评论:

Re: Re: [PerlChina] 求救 多行全部匹配问题

多谢 大哥提醒啊
 
 
2010-08-17
zmf122333@126.com
发件人： Zark Yoc
发送时间： 2010-08-17  19:53:52
收件人： perlchina
抄送：
主题： Re: [PerlChina] 求救 多行全部匹配问题
my $sec;
my $min;
my $hour;
my $mday;
my $mon;
my $year;
my $wday;
my $yday;
my $isdst;
my $sday;
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst)=localtime();

直接可以写成
my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst)=localtime();

-__-||

--
您收到此邮件是因为您订阅了 Google 网上论坛的"PerlChina Mongers 讨论组"论坛。
要向此网上论坛发帖，请发送电子邮件至 perlchina@googlegroups.com。
要取消订阅此网上论坛，请发送电子邮件至 perlchina+unsubscribe@googlegroups.com。
若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。
发帖者 时间： 没有评论:

Re: [PerlChina] 求救 多行全部匹配问题

my $sec;
my $min;
my $hour;
my $mday;
my $mon;
my $year;
my $wday;
my $yday;
my $isdst;
my $sday;
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst)=localtime();

直接可以写成
my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst)=localtime();

-__-||

--
您收到此邮件是因为您订阅了 Google 网上论坛的"PerlChina Mongers 讨论组"论坛。
要向此网上论坛发帖，请发送电子邮件至 perlchina@googlegroups.com。
要取消订阅此网上论坛，请发送电子邮件至 perlchina+unsubscribe@googlegroups.com。
若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。
发帖者 时间： 没有评论:

Re: [PerlChina] 求救 多行全部匹配问题

整了一下午  终于可以了：
 
 
#!/usr/bin/perl -w
#date:2010-08-17
#version:1.0.0.0
use strict;
my $sec;
my $min;
my $hour;
my $mday;
my $mon;
my $year;
my $wday;
my $yday;
my $isdst;
my $sday;
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst)=localtime();
my $now=sprintf("%04d-%02d-%02d",$year+1900,$mon+1,$mday-1);
open(L,"/opt/ccmp/logs/charge/symbian.log-$now.log") or die('Can not open this file!');
$/=undef;
my $a=<L>;
close(L);
open(LL,">>/opt/ccmp/logs/charge/symbian_log_grub/symbian_log_grub.$now.txt");
my $num=1;
while($a=~/((\[ip =\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3}\])\<c\>\n\<srqh\>\n[^\n]+\n[^\n]+\n[^\n]+\n\<\/srqh\>\n\<nd\>\n\<eid\>[^\n]+?\(B[^\n]+\<\/eid\>\n\<whead\>(.*?)\<\/whead\>\n\<wbody\>(.*?)\<\/wbody\>(.*?)\<\/c\>)/sg){
    print LL "============================================================\n";
    print LL "第$num个:  $2\n";
    print LL "----------------------------------\n";
    print LL "$1\n";
    print LL "============================================================\n";
    $a=$';
    $num=$num+1;
}
close(LL);
 
 
2010-08-17
zmf122333@126.com
发件人： zmf122333@126.com
发送时间： 2010-08-17  15:55:17
收件人： perlchina
抄送：
主题： [PerlChina] 求救 多行全部匹配问题
大家好！
         我有个文本，类似附件中的样子，我要的匹配项包括ip及<eid>标签中还有(B的内容知道</c>结束的这段日志。
以下是我的脚本，但是只能匹配到第1次的匹配项，以后的就匹配不到了，很是郁闷，各位帮我看看！
 
#!/usr/bin/perl -w
use strict;
open(L,'c:\\symbian.log') or die('Can not open this file!');
$/=undef;
my $a=<L>;
close(L);
$a=~/((\[ip =\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3}\])\<c\>\n\<srqh\>\n[^\n]+\n[^\n]+\n[^\n]+\n\<\/srqh\>\n\<nd\>\n\<eid\>(.*?)\(B(.*?)\<\/eid\>\n\<whead\>(.*?)\<\/whead\>\n\<wbody\>(.*?)\<\/wbody\>(.*?)\<\/c\>)/sg;
print "============================================================\n";
print "$2\n";
print "----------------------------------\n";
print "$1\n";
print "============================================================\n";
 
 
不甚感激！
 
2010-08-17
zmf122333@126.com
发帖者 时间： 没有评论:

[PerlChina] 求救 多行全部匹配问题

大家好！
         我有个文本，类似附件中的样子，我要的匹配项包括ip及<eid>标签中还有(B的内容知道</c>结束的这段日志。
以下是我的脚本，但是只能匹配到第1次的匹配项，以后的就匹配不到了，很是郁闷，各位帮我看看！
 
#!/usr/bin/perl -w
use strict;
open(L,'c:\\symbian.log') or die('Can not open this file!');
$/=undef;
my $a=<L>;
close(L);
$a=~/((\[ip =\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3}\])\<c\>\n\<srqh\>\n[^\n]+\n[^\n]+\n[^\n]+\n\<\/srqh\>\n\<nd\>\n\<eid\>(.*?)\(B(.*?)\<\/eid\>\n\<whead\>(.*?)\<\/whead\>\n\<wbody\>(.*?)\<\/wbody\>(.*?)\<\/c\>)/sg;
print "============================================================\n";
print "$2\n";
print "----------------------------------\n";
print "$1\n";
print "============================================================\n";
 
 
不甚感激！
 
2010-08-17
zmf122333@126.com
发帖者 时间： 没有评论:

2010年8月15日星期日

[PerlChina] 北京Symantec招perl 程序员

赛门铁克诚招高级软件工程师，perl开发

Company Overview
Symantec is a global leader in providing security, storage and systems
management solutions to help our customers - from consumers and small
businesses to the largest global organizations - secure and manage
their information-driven world against more risks at more points, more
completely and efficiently. Our software and services protect
completely, in ways that can be easily managed and with controls that
can be enforced automatically - enabling confidence wherever
information is used or stored.

Department Overview
Symantec's Information Management Group, with industry leading
products that ensure successful backup, recovery and archiving of
information and systems for organizations, is looking for exceptional
individuals. If you would like to play a part in the success of
market leading product teams such as NetBackup, PureDisk, Backup Exec,
Backup Exec System Recovery and Enterprise Vault, then please apply
today.

Responsibilities
* This employee will cooperate with local/global internal team
members, global product teams, Quality Assurance teams, and product
managers to involve into task analysis, feature implementation,
product maintenance and the final delivery of the commitments on
schedule.
* This employee will be focusing on the script development and
maintenance in installation, configuration and upgrading for
Netbackup(NBU)'s new installer based on Common Product Install(CPI)
framework under one or all of AIX, Solaris, Linux and HP-UX platforms.
* His/her will make sure that the delivered work is well tested
and make sure to deliver with high quality. He/she will obey the
current process to design, develop, review for commitment and deliver
on time.
* The employee also needs to join in the lifecycle of software
process, do design review, code reviews, documentation review on
product logic flow, and also be responsible to improve test process in
test automation development if required.
Qualifications
* Should have proficient knowledge in Perl language and UNIX
shell programming; 5+ years working experience in development under
one or multi UNIX platforms (AIX/Solaris/Linux/HP-UX)
* Have strong understanding on one or more of Linux/Solaris/HP-
UX/AIX platforms.
* Should have ability to communicate in English, both oral and
writing.
* Strong OO skill and good coding style.
* Should have good team work experience to cooperate with
globally deployed sites. Must be cooperative in resolving conflicting
issues.
* Must be action oriented, should have the capability to take
challenging tasks with innovative solutions.
* Should have the capability to take actions under high
pressure and deliver the commitments on time with high enthusiasm.
* Bachelor or higher degree is required.
* Backup software development experience is a plus.
* Experience in C/C++/Java languages, experience with
Netbackup, M. S degree, are definite pluses, too.

工作地点：北京 五道口 清华科技园

如果你有能力，优厚的薪酬在向你招手

如有意向，请发简历至：Dengfeng_Mao@symantec.com
简历经过筛选后，会立刻安排面试

--
您收到此邮件是因为您订阅了 Google 网上论坛的"PerlChina Mongers 讨论组"论坛。
要向此网上论坛发帖，请发送电子邮件至 perlchina@googlegroups.com。
要取消订阅此网上论坛，请发送电子邮件至 perlchina+unsubscribe@googlegroups.com。
若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。

发帖者 时间： 没有评论:
订阅： 博文 (Atom)