Perl China Blog Spot

2011年5月19日星期四

[PerlChina] 用perl实现firebug的部分功能：获取页面元素（图片,CSS,JS）

尝试用LWP,HTML::LinkExtor 可以取得在body内的一些文件(src="xxxx")
但是对<javascript>部分的一些内容还没有啥办法。
希望各位提供一些思路
希望实现的结果如下图：列出页面所调用的文件(下图为www.baidu.com的首页结果）

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

2011年5月18日星期三

Re: [PerlChina] eclipse+EPIC调试perl，变量名称没法正常显示

你用komodo多好啊

在 2011-5-19，2:35，樊丽科 <flike0612@126.com> 写道：

今天看到网上关于perl开发环境的文章，自己整合起来看看，结果以失败告终，如果有知道是怎么回事儿的，烦请告知。

参考的文章：http://www.blogjava.net/davidwang/archive/2009/05/25/277838.html

我的环境：

1、windows 7；

2、下载Eclipse Classic 3.6.2，安装，未见问题；

http://www.eclipse.org/downloads/
3、下载EPIC，安装，未见问题；

4、通过PPM GUI安装PadWalker，提示成功；

通过上面几步后，理论上在DEBUG perl程序的时候，应该能够追踪变量的值，但是，在变量区只显示如下变量信息，而没有本地变量信息

$^RE_TRIE_MAXBUF 65536

我的测试程序非常简单

my $a=1;
my $b=2;
my $c=$a+$b;
print $c;

关于变量区的开关，我都尝试过了。各位如果谁碰到了此类问题，不吝赐教。

--

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

[PerlChina] eclipse+EPIC调试perl，变量名称没法正常显示

今天看到网上关于perl开发环境的文章，自己整合起来看看，结果以失败告终，如果有知道是怎么回事儿的，烦请告知。

参考的文章：http://www.blogjava.net/davidwang/archive/2009/05/25/277838.html

我的环境：

1、windows 7；

2、下载Eclipse Classic 3.6.2，安装，未见问题；

http://www.eclipse.org/downloads/
3、下载EPIC，安装，未见问题；

4、通过PPM GUI安装PadWalker，提示成功；

通过上面几步后，理论上在DEBUG perl程序的时候，应该能够追踪变量的值，但是，在变量区只显示如下变量信息，而没有本地变量信息

$^RE_TRIE_MAXBUF 65536

我的测试程序非常简单

my $a=1;
my $b=2;
my $c=$a+$b;
print $c;

关于变量区的开关，我都尝试过了。各位如果谁碰到了此类问题，不吝赐教。

2011年5月17日星期二

Re: [PerlChina] 请教一个XML处理相关的问题

你只需要读入这两个文件，根据这两个文件的内容生成 hash 结构，然后交给 XML::Simple 的 XMLout 来帮你生成最终的 XML 文件，或者你手工生成也可以（没 XML::Simple 方便），比如根据你的例子，我可以给出这样的例子：

use XML::Simple;

my $hashref = {
    Group => {
        ID        => "U",
        TYPE      => "ROOT",
        SchoolRef => [ { ID => "SCHOOL01" }, { ID => "SCHOOL02" }, { ID => "SCHOOL03" } ],
    },
};

$xml = XMLout($hashref, RootName => undef);
print $xml;

结果输出的是：

<Group ID="U" TYPE="ROOT">
    <SchoolRef ID="SCHOOL01" />
    <SchoolRef ID="SCHOOL02" />
    <SchoolRef ID="SCHOOL03" />
</Group>

你可以将 file1.csv 的内容当作一棵树，然后写代码构造上面例子中的 hashref 就好了。

2011/5/18 许高飞 <flyhighxu@gmail.com>

大家好！

遇到一个头疼的问题，特来请教大家。
file1.txt表示一个大学U的院系班级层次结构，
U下面有SCHOOL01等院,院下面有系，系下面是班级（也有一些班级的上一级就直接是院）；
file2.txt是学生的学号、姓名、班级、成绩。
需要从这两个文件读取信息，并输出成XML文件。

file1.csv:
ID,PARENTID
U,ROOT
SCHOOL01,U
SCHOOL02,U
SCHOOL03,U
DEPT01,SCHOOL01
CLASS01,DEPT01
CLASS02,DEPT01
CLASS03,DEPT01
DEPT02,SCHOOL02,
CLASS04,DEPT02
DEPT03,SCHOOL02
CLASS05,DEPT03
DEPT04,SCHOOL02
CLASS06,DEPT04
CLASS07,SCHOOL03
……

file2.csv:
ID,NAME,CLASS,GPA
pb001,Mike,CLASS01,3.70
pb002,Jim,CLASS01,3.92
pb003,Lisa,CLASS02,3.88
pb004,Look,CLASS03,4.05
……

file1.txt表示一个大学U的院系班级层次结构，
U下面有SCHOOL01等院,院下面有系，系下面是班级（也有一些班级的上一级就直接是院）；
file2.txt是学生的学号、姓名、班级、成绩。
需要从这两个文件读取信息，并输出成类似下面这样的XML文件格式：

<Group ID="U" TYPE="ROOT">
<SchoolRef ID="SCHOOL01"/>
<SchoolRef ID="SCHOOL02"/>
<SchoolRef ID="SCHOOL03"/>
……
</Group>

<Group ID="SCHOOL01" TYPE="SCHOOL">
<DeptRef ID="DEPT01"/>
</Group>

<Group ID="DEPT01" TYPE="DEPT">
<ClassRef ID="CLASS01"/>
</Group>

<Group ID="SCHOOL03" TYPE="SCHOOL">
<ClassRef ID="CLASS07"/>
</Group>

<Group ID="CLASS01" TYPE="CLASS">
<student ID="pb001" NAME="Mike" GPA="3.70"/>
<student ID="pb002" NAME="Jim" GPA="3.92"/>
</Group>

<Group ID="CLASS02" TYPE="CLASS">
<student ID="pb003" NAME="Lisa" GPA="3.88"/>
</Group>

<Group ID="CLASS03" TYPE="CLASS">
<student ID="pb004" NAME="Look" GPA="4.05"/>
</Group>
……

对XML处理不熟悉，看了一下XML::Simple的用法，看得头大还是没想明白我这个问题要怎么处理？故来请教一下大家，先谢谢了。

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

Re: [PerlChina] 请教一个XML处理相关的问题

if you just need write XML, you can try XML::Writer

Thanks

On 2011/5/18 12:49, 许高飞 wrote:
> 大家好！
>
> 遇到一个头疼的问题，特来请教大家。
> file1.txt表示一个大学U的院系班级层次结构，
> U下面有SCHOOL01等院,院下面有系，系下面是班级（也有一些班级的上一级就直
> 接是院）；
> file2.txt是学生的学号、姓名、班级、成绩。
> 需要从这两个文件读取信息，并输出成XML文件。
>
> file1.csv:
> ID,PARENTID
> U,ROOT
> SCHOOL01,U
> SCHOOL02,U
> SCHOOL03,U
> DEPT01,SCHOOL01
> CLASS01,DEPT01
> CLASS02,DEPT01
> CLASS03,DEPT01
> DEPT02,SCHOOL02,
> CLASS04,DEPT02
> DEPT03,SCHOOL02
> CLASS05,DEPT03
> DEPT04,SCHOOL02
> CLASS06,DEPT04
> CLASS07,SCHOOL03
> ……
>
> file2.csv:
> ID,NAME,CLASS,GPA
> pb001,Mike,CLASS01,3.70
> pb002,Jim,CLASS01,3.92
> pb003,Lisa,CLASS02,3.88
> pb004,Look,CLASS03,4.05
> ……
>
> file1.txt表示一个大学U的院系班级层次结构，
> U下面有SCHOOL01等院,院下面有系，系下面是班级（也有一些班级的上一级就直
> 接是院）；
> file2.txt是学生的学号、姓名、班级、成绩。
> 需要从这两个文件读取信息，并输出成类似下面这样的XML文件格式：
>
> <Group ID="U" TYPE="ROOT">
> <SchoolRef ID="SCHOOL01"/>
> <SchoolRef ID="SCHOOL02"/>
> <SchoolRef ID="SCHOOL03"/>
> ……
> </Group>
>
> <Group ID="SCHOOL01" TYPE="SCHOOL">
> <DeptRef ID="DEPT01"/>
> </Group>
>
> <Group ID="DEPT01" TYPE="DEPT">
> <ClassRef ID="CLASS01"/>
> </Group>
>
> <Group ID="SCHOOL03" TYPE="SCHOOL">
> <ClassRef ID="CLASS07"/>
> </Group>
>
> <Group ID="CLASS01" TYPE="CLASS">
> <student ID="pb001" NAME="Mike" GPA="3.70"/>
> <student ID="pb002" NAME="Jim" GPA="3.92"/>
> </Group>
>
> <Group ID="CLASS02" TYPE="CLASS">
> <student ID="pb003" NAME="Lisa" GPA="3.88"/>
> </Group>
>
> <Group ID="CLASS03" TYPE="CLASS">
> <student ID="pb004" NAME="Look" GPA="4.05"/>
> </Group>
> ……
>
> 对XML处理不熟悉，看了一下XML::Simple的用法，看得头大还是没想明白我这个
> 问题要怎么处理？故来请教一下大家，先谢谢了。
>
>
> --
> 您收到此邮件是因为您订阅了 Google 网上论坛的"PerlChina Mongers 讨论组"
> 论坛。
> 要向此网上论坛发帖，请发送电子邮件至 perlchina@googlegroups.com。
> 要取消订阅此网上论坛，请发送电子邮件至
> perlchina+unsubscribe@googlegroups.com。
> 若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN
> 访问此网上论坛。

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

[PerlChina] 请教一个XML处理相关的问题

大家好！

遇到一个头疼的问题，特来请教大家。
file1.txt表示一个大学U的院系班级层次结构，

U下面有SCHOOL01等院,院下面有系，系下面是班级（也有一些班级的上一级就直接是院）；
file2.txt是学生的学号、姓名、班级、成绩。
需要从这两个文件读取信息，并输出成XML文件。

file1.csv:
ID,PARENTID
U,ROOT
SCHOOL01,U
SCHOOL02,U
SCHOOL03,U
DEPT01,SCHOOL01
CLASS01,DEPT01
CLASS02,DEPT01
CLASS03,DEPT01
DEPT02,SCHOOL02,
CLASS04,DEPT02
DEPT03,SCHOOL02
CLASS05,DEPT03
DEPT04,SCHOOL02
CLASS06,DEPT04
CLASS07,SCHOOL03
……

file2.csv:
ID,NAME,CLASS,GPA
pb001,Mike,CLASS01,3.70
pb002,Jim,CLASS01,3.92
pb003,Lisa,CLASS02,3.88
pb004,Look,CLASS03,4.05
……

file1.txt表示一个大学U的院系班级层次结构，

U下面有SCHOOL01等院,院下面有系，系下面是班级（也有一些班级的上一级就直接是院）；
file2.txt是学生的学号、姓名、班级、成绩。
需要从这两个文件读取信息，并输出成类似下面这样的XML文件格式：

<Group ID="U" TYPE="ROOT">
<SchoolRef ID="SCHOOL01"/>
<SchoolRef ID="SCHOOL02"/>
<SchoolRef ID="SCHOOL03"/>
……
</Group>

<Group ID="SCHOOL01" TYPE="SCHOOL">
<DeptRef ID="DEPT01"/>
</Group>

<Group ID="DEPT01" TYPE="DEPT">
<ClassRef ID="CLASS01"/>
</Group>

<Group ID="SCHOOL03" TYPE="SCHOOL">
<ClassRef ID="CLASS07"/>
</Group>

<Group ID="CLASS01" TYPE="CLASS">
<student ID="pb001" NAME="Mike" GPA="3.70"/>
<student ID="pb002" NAME="Jim" GPA="3.92"/>
</Group>

<Group ID="CLASS02" TYPE="CLASS">
<student ID="pb003" NAME="Lisa" GPA="3.88"/>
</Group>

<Group ID="CLASS03" TYPE="CLASS">
<student ID="pb004" NAME="Look" GPA="4.05"/>
</Group>
……

对XML处理不熟悉，看了一下XML::Simple的用法，看得头大还是没想明白我这个问题要怎么处理？故来请教一下大家，先谢谢了。

[PerlChina] what's new in perl 5.14

这个slides不错
http://blogs.perl.org/users/andrew_shitov/2011/05/whats-new-in-perl-514.html

--
Woosley.Xu

订阅：博文 (Atom)

2011年5月19日星期四

2011年5月18日星期三

2011年5月17日星期二

订阅

博客归档