Perl China Blog Spot

2011年1月17日星期一

Re: [PerlChina] 如何把这些html元素属性读入一个hash中？

On 01/17/2011 12:59 PM, Kermit Mei wrote:
> 求助一个问题：
> 解析一些html文件，需要把每个元素的属性分别读取到一个hash中，并且把属性原
> 来的引号去掉，例如：
>
......
>
> 我现在用的办法比较繁琐，用了多次正则表达式和s///g替换，而且使用了空格作
> 为分隔属性的标志，在处理style时是存在错误的。
> 不知道有没有什么技巧，可以比较优雅地解决这个问题?
>

你可以用 Web::Scraper 能更有效的分析 html.

>
> Thanks
> --
> B.R
> Kermit
>

Qiang

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

[PerlChina] Net::FTP如何返回上传下载的速度

大家好！

今天使用Net::FTP模块来测试FTP，但是没办法打印其下载和上传的速度，请问该怎么做？

比如使用shell脚本，会返回：
3145728 bytes received in 00:50 (60.87 KB/s)
local: put remote: put
229 Entering Extended Passive Mode (|||28677|)
150 Ok to send data.
226 File receive OK.
3145728 bytes sent in 04:02 (12.68 KB/s)

2011年1月16日星期日

Re: [PerlChina] Perl 语言相关的幻灯片 | 课件

呵呵，多谢lxy。

我自己有点懒了，多谢提醒！

在 2011年1月17日上午11:20，lxy <astroxl@gmail.com>写道：

我没有，不过如果没有人给你发一份满意的话，可以考虑从google上搜索下素材：
比如搜索：perl introduction filetype:ppt
http://www.google.com.hk/search?hl=zh-CN&newwindow=1&safe=strict&q=perl++introduction+++filetype:ppt&aq=f&aqi=&aql=&oq=

2011/1/17 Fei Ni <nifei1998@gmail.com>

大家有没有有介绍Perl语言的相关幻灯片或者课件？我想在实验室的Lab meeting上简要介绍一下Perl。
如果谁有的话，能不能发我一份？在这里先谢谢大家啦！

祝好！

FeiNi

--
Feiny

Achieving dream takes time and patience.Great careers don't happen overnight ,and take years of hardwork.But every step along the road can get you closer to your dream.

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

--
****ASTROXL****
^y^

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

Feiny

Achieving dream takes time and patience.Great careers don't happen overnight ,and take years of hardwork.But every step along the road can get you closer to your dream.

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

[PerlChina] 如何把这些html元素属性读入一个hash中？

求助一个问题：
解析一些html文件，需要把每个元素的属性分别读取到一个hash中，并且把属性原来的引号去掉，例如：

<button type="button" style = " border:none;background:url(button_bk.png); width:150px; height:49px; ">

应该是 %btn_hash = {
"type" => "button",
"style" => "border:none;background:url(button_bk.png); width:150px; height:49px;",
}
注:style去掉了多余的空格和原来字符串中的引号("")，所有属性都用字符串形式存放。

再如：
<font size=6>
应该是 %font_hash = {"size" => "6",}
这里6也是字符串。

我现在用的办法比较繁琐，用了多次正则表达式和s///g替换，而且使用了空格作为分隔属性的标志，在处理style时是存在错误的。
不知道有没有什么技巧，可以比较优雅地解决这个问题?

Thanks
--
B.R
Kermit

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

Re: [PerlChina] Perl 语言相关的幻灯片 | 课件

我没有，不过如果没有人给你发一份满意的话，可以考虑从google上搜索下素材：

比如搜索：perl introduction filetype:ppt

http://www.google.com.hk/search?hl=zh-CN&newwindow=1&safe=strict&q=perl++introduction+++filetype:ppt&aq=f&aqi=&aql=&oq=

2011/1/17 Fei Ni <nifei1998@gmail.com>

大家有没有有介绍Perl语言的相关幻灯片或者课件？我想在实验室的Lab meeting上简要介绍一下Perl。
如果谁有的话，能不能发我一份？在这里先谢谢大家啦！

祝好！

FeiNi

--
Feiny

Achieving dream takes time and patience.Great careers don't happen overnight ,and take years of hardwork.But every step along the road can get you closer to your dream.

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

--
****ASTROXL****
^y^

[PerlChina] Perl5.010中的智能匹配操作符~~的问题。

大家好！
我在测试Perl5.010中的智能匹配操作符~~的时候发现下面这么一个问题：
在《Perl语言入门》（第五版）的第236页的表格中，有下面几句话：
@a ~~ /Fred/    有一个元素匹配给定的模式
@a ~~ 123       至少有一个元素转化为数字后是123
@a ~~ 'Fred'     至少有一个元素转化为字符串后是‘Fred'

但是我用下面的代码测试了一下，却发现上面的第2、3句有问题：
#!/usr/bin/perl
use strict;
use warnings;
use 5.010;
my @a = ( 1, 2, 3 );
foreach my $t (@a) {
    print "$t\t";
}
print "\n";
if ( @a ~~ /2/ ) {
    print "Match YES!\n";
}
else {
    print "Match No\n";
}
if ( @a ~~ 2 ) {
    print "Number YES!\n";
}
else {
    print "Number No\n";
}
if ( @a ~~ "2" ) {
    print "String YES!\n";
}
else {
    print "String No\n";
}

不知道谁能给解释一下？谢谢！

[PerlChina] Perl 语言相关的幻灯片 | 课件

大家有没有有介绍Perl语言的相关幻灯片或者课件？我想在实验室的Lab meeting上简要介绍一下Perl。

如果谁有的话，能不能发我一份？在这里先谢谢大家啦！

祝好！

FeiNi

--

Feiny

Achieving dream takes time and patience.Great careers don't happen overnight ,and take years of hardwork.But every step along the road can get you closer to your dream.

2011年1月17日星期一

2011年1月16日星期日

订阅

博客归档