Perl Forum tag:easun.org,2008-09-20:/perl//5 2012-05-03T21:25:53Z package EasunLee; use strict; use warnings; $EasunLee::VERSION = '0.05'; Movable Type Pro 4.38 【模块使用】aspx页面的html table中数据提取，用什么模块好？ tag:easun.org,2012:/perl//5.1191 2012-02-06T07:45:49Z 2012-05-03T21:25:53Z 有个杯具的页面，使用aspx写的，其中的html table数据需要用到~~ 所以请教下各位高手，这个使用什么模块好一些，或者方便些？ 非常感谢~~... davidlu1001 http://easun.org/cgi-bin/mymt/mt-cp.cgi?__mode=view&blog_id=5&id=292 有个杯具的页面，使用aspx写的，其中的html table数据需要用到~~ 所以请教下各位高手，这个使用什么模块好一些，或者方便些？ 非常感谢~~ issues using matching variable $1,$2,.... tag:easun.org,2011:/perl//5.1182 2011-04-19T15:40:00Z 2011-09-09T00:06:21Z my $v = q/There are 2 boys/; my $regx = '\b(\d+)\b'; my $str = q/$1 of/; # I try to have $1 in a variable and then use the variable in s/// $v =~ s/$regx/$str/g; print $1,"\n"; # print out... kennychen http://easun.org/cgi-bin/mymt/mt-cp.cgi?__mode=view&blog_id=5&id=289 3 There are $1 of 10 boys Then I use "$v =~ s/$regx/$str/gee" instead, it output; Bareword found where operator expected at (eval 1) line 1, near "$1 of" (Missing operator before of?) Number found where operator expected at (eval 1) line 1, near "of 10" (Do you need to predeclare of?) 3 There are boys It seems there are no way to let the $1 to be interpolated in this case]]> bbcode [table] 的 perl 代码 tag:easun.org,2011:/perl//5.1176 2011-01-26T19:09:28Z 2011-01-26T19:09:28Z 各位好！我刚开始学 perl. 有一个很老的 perl bbs 软件包 leobbs. 里面有这样的代码： [code] $$post =~ s/(\[align=)(left|center|right)(\])(.+?)(\[\/align\])/$4/isg; [/code] 我想加一些行进去，使得 相关的 BBCode 能够工作。 试过 [code] $$post =~ s/\[td\]\s*(.*?)\s*\[\/td\]/$1/isg; ......[/code] 虽然可以用，但不能识别 的很多具体设定。理想地说，我希望 [td※]◇[/tr] 能够转换成 $2 不管 ※ 是空还是非空字符串，都赋值于 $1 ... 当然也要对 [table] ， [tr] 做同样的事情。 请教高手我希望的功能的代码。谢谢了。... elim http://easun.org/cgi-bin/mymt/mt-cp.cgi?__mode=view&blog_id=5&id=287 各位好！我刚开始学 perl. 有一个很老的 perl bbs 软件包 leobbs. 里面有这样的代码： [code] $$post =~ s/(\[align=)(left|center|right)(\])(.+?)(\[\/align\])/$4/isg; [/code] 我想加一些行进去，使得 相关的 BBCode 能够工作。 试过 [code] $$post =~ s/\[td\]\s*(.*?)\s*\[\/td\]/$1/isg; ......[/code] 虽然可以用，但不能识别 的很多具体设定。理想地说，我希望 [td※]◇[/tr] 能够转换成 $2 不管 ※ 是空还是非空字符串，都赋值于 $1 ... 当然也要对 [table] ， [tr] 做同样的事情。 请教高手我希望的功能的代码。谢谢了。 踩个脚印 tag:easun.org,2010:/perl//5.1171 2010-12-03T16:03:27Z 2010-12-08T03:15:51Z 邮箱里还能收到烹饪协会的情况反馈 两年半没有在这里了 踩个脚印 咩咩老哥，芳华妹妹 大家可好么？... 眼睛oo http://easun.org/cgi-bin/mymt/mt-cp.cgi?__mode=view&blog_id=5&id=3 邮箱里还能收到烹饪协会的情况反馈

两年半没有在这里了

踩个脚印

咩咩老哥，芳华妹妹

大家可好么？

]]> 关于FTP的OPEN的问题 tag:easun.org,2008:/perl//5.1113 2008-10-12T11:43:23Z 2008-10-14T12:13:21Z 请问一下,在FTP上打开一个文件,已经连接到FTP上然后用OPEN FILE为什么提示说打不开呢.应该怎么写OPEN才可以呢?谢谢!... chenchen http://easun.org/cgi-bin/mymt/mt-cp.cgi?__mode=view&blog_id=5&id=267 请问一下,在FTP上打开一个文件,已经连接到FTP上然后用OPEN FILE为什么提示说打不开呢.应该怎么写OPEN才可以呢?谢谢!

]]> 你也添加了编辑器啊，哈哈 tag:easun.org,2008:/perl//5.1109 2008-10-01T13:51:28Z 2012-05-03T11:08:28Z 发现你的论坛添加了很多功能，注册个研究下。... bb http://easun.org/cgi-bin/mymt/mt-cp.cgi?__mode=view&blog_id=5&id=265 发现你的论坛添加了很多功能，注册个研究下。

]]> [原创]来报到。 tag:easun.org,2007:/perl/forum//5.973 2007-12-29T15:42:33Z 2012-05-02T21:44:09Z 我新来的，我很喜欢perl。不小心发现了这里。感动ing。竟然在我国还有这么细致的维护perl的人们。好多资料不好找。在这里好好学习。谢谢路杨。... liguang3333 http://easun.org/cgi-bin/mymt/mt-cp.cgi?__mode=view&blog_id=5&id=252 我新来的，我很喜欢perl。不小心发现了这里。感动ing。竟然在我国还有这么细致的维护perl的人们。好多资料不好找。在这里好好学习。谢谢路杨。

]]> [讨论]perl中的感叹号能否去掉 tag:easun.org,2007:/perl/forum//5.895 2007-10-29T12:21:39Z 2008-09-20T15:19:41Z 在perl的程序中第一行总有这么一句#！/usr/bin/perl这个感叹号可以去了吗？我去了以后也可以得到相同的结果，难道它真的没有用？... icyheart http://easun.org/cgi-bin/mymt/mt-cp.cgi?__mode=view&blog_id=5&id=254 在perl的程序中第一行总有这么一句
#！/usr/bin/perl
这个感叹号可以去了吗？我去了以后也可以得到相同的结果，难道它真的没有用？

]]> 找一个Perl高手 tag:easun.org,2007:/perl/forum//5.897 2007-10-24T13:00:35Z 2012-05-02T21:46:05Z 借贵宝地，找一个高手。我们现在要做一本Perl的图书。不知道有哪位高手愿意写。如果有兴趣，请与我联系dragbook@sina.com。（前面找过一次，不幸被放鸽子了。）... dragbook http://easun.org/cgi-bin/mymt/mt-cp.cgi?__mode=view&blog_id=5&id=49 借贵宝地，找一个高手。
我们现在要做一本Perl的图书。不知道有哪位高手愿意写。如果有兴趣，请与我联系dragbook@sina.com。
（前面找过一次，不幸被放鸽子了。）

]]> [求助]想写个文本处理的程序，请支招～～ tag:easun.org,2007:/perl/forum//5.898 2007-10-21T15:52:52Z 2007-10-21T21:11:14Z 我现在要做一件事情内容如下：1.从一个文本中读取有／KW／的行2。再在这一行读／NUCLEUA／3.如果读出来了，然后向上找最近的／ID／向下找／／／／4.读取ID和／／间的部分请问第三3.4部怎样实现？谢谢... scbible http://easun.org/cgi-bin/mymt/mt-cp.cgi?__mode=view&blog_id=5&id=255
我现在要做一件事情内容如下：
1.从一个文本中读取有／KW／的行
2。再在这一行读／NUCLEUA／
3.如果读出来了，然后向上找最近的／ID／
向下找／／／／
4.读取ID和／／间的部分

请问第三3.4部怎样实现？谢谢

]]> 询问:PERL访问远程的机器或者HTTP的方法 tag:easun.org,2007:/perl/forum//5.899 2007-10-15T13:24:23Z 2007-10-17T10:54:58Z 询问:PERL访问远程的机器或者HTTP的方法PERL如果访问远程的机器(比如别人共享文件夹),或者HTTP格式.那有类似NET::FTP的命令吗?谢谢... echohome http://easun.org/cgi-bin/mymt/mt-cp.cgi?__mode=view&blog_id=5&id=256 询问:PERL访问远程的机器或者HTTP的方法
PERL如果访问远程的机器(比如别人共享文件夹),或者HTTP格式.那有类似NET::FTP的命令吗?
谢谢

]]> [求助]SYSTEM掉COPY的问题 tag:easun.org,2007:/perl/forum//5.902 2007-10-10T09:12:36Z 2007-10-11T13:52:33Z taiqi http://easun.org/cgi-bin/mymt/mt-cp.cgi?__mode=view&blog_id=5&id=259 SYSTEM掉COPY的问题
system("copy c:\1\1.docx c:\1\1\1.docx")无法解悉 \1 会出来笑脸(FAINT) 怎么办..

]]> HP-UNIX 11.11 PerlTK汉字乱码 tag:easun.org,2007:/perl/forum//5.901 2007-10-09T19:19:09Z 2007-10-11T13:53:54Z fanyefeng http://easun.org/cgi-bin/mymt/mt-cp.cgi?__mode=view&blog_id=5&id=258
####################################
use Tk;
use encoding("utf8");
$label_text1 = "软件说明";
$label_text2 = "高德电子软件说明";
$label_text3 = "工作站";
$mw = new MainWindow;
$mw->Label(-text => $label_text1)->pack;
$mw->Label(-text => $label_text2)->pack;
$mw->Label(-text => $label_text3)->pack;
MainLoop;

#################################
各位高人帮忙解决啊！

]]> [求助]请教一个PERL的思路 tag:easun.org,2007:/perl/forum//5.900 2007-10-09T13:01:24Z 2007-10-11T13:56:02Z echohome http://easun.org/cgi-bin/mymt/mt-cp.cgi?__mode=view&blog_id=5&id=256 请教一个PERL的思路
在一个数组里面有一系列的文件夹PATH
比如: dat\da\1  cor\2....
然后需要用它去访问一个远程的机器. \\GG\MEASURE\
看是否里面包涵这些文件夹.  
如果文件夹存在那就COPY里面所有文件到另一个SERVER \\DD\MEA\ 下
请问能提供个好思路吗谢谢

]]> [求助]两个关于PERL的小问题: tag:easun.org,2007:/perl/forum//5.903 2007-10-09T10:52:25Z 2007-10-09T11:56:05Z 两个关于PERL的小问题:1) 在PERL怎么注释一段代码? 2) a = //asd/fjasfkl;要把当中：//asd/fjasfkl　　拿出来怎么搞．．... taiqi http://easun.org/cgi-bin/mymt/mt-cp.cgi?__mode=view&blog_id=5&id=259 两个关于PERL的小问题:
1) 在PERL怎么注释一段代码?
2) a = //asd/fjasfkl;
要把当中：//asd/fjasfkl　　拿出来怎么搞．．

]]>