Perl Forum tag:easun.org,2008-09-20:/perl//5 2008-10-14T13:13:21Z package EasunLee; use strict; use warnings; $EasunLee::VERSION = '0.05'; Movable Type Pro 4.25 关于FTP的OPEN的问题 tag:easun.org,2008:/perl//5.1113 2008-10-12T12:43:23Z 2008-10-14T13:13:21Z 请问一下,在FTP上打开一个文件,已经连接到FTP上然后用OPEN FILE为什么提示说打不开呢.应该怎么写OPEN才可以呢?谢谢!... chenchen http://easun.org/cgi-bin/mtos/mt-cp.cgi?__mode=view&blog_id=5&id=267 请问一下,在FTP上打开一个文件,已经连接到FTP上然后用OPEN FILE为什么提示说打不开呢.应该怎么写OPEN才可以呢?谢谢!

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

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

]]> [讨论]perl中的感叹号能否去掉 tag:easun.org,2007:/perl/forum//5.895 2007-10-29T13:21:39Z 2008-09-20T16:19:41Z 在perl的程序中第一行总有这么一句#！/usr/bin/perl这个感叹号可以去了吗？我去了以后也可以得到相同的结果，难道它真的没有用？... icyheart http://easun.org/cgi-bin/mtos/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-24T14:00:35Z 2007-10-24T14:00:35Z 借贵宝地，找一个高手。我们现在要做一本Perl的图书。不知道有哪位高手愿意写。如果有兴趣，请与我联系dragbook@sina.com。（前面找过一次，不幸被放鸽子了。）... dragbook http://easun.org/cgi-bin/mtos/mt-cp.cgi?__mode=view&blog_id=5&id=49 借贵宝地，找一个高手。
我们现在要做一本Perl的图书。不知道有哪位高手愿意写。如果有兴趣，请与我联系dragbook@sina.com。
（前面找过一次，不幸被放鸽子了。）

]]> [求助]想写个文本处理的程序，请支招～～ tag:easun.org,2007:/perl/forum//5.898 2007-10-21T16:52:52Z 2007-10-21T22:11:14Z 我现在要做一件事情内容如下：1.从一个文本中读取有／KW／的行2。再在这一行读／NUCLEUA／3.如果读出来了，然后向上找最近的／ID／向下找／／／／4.读取ID和／／间的部分请问第三3.4部怎样实现？谢谢... scbible http://easun.org/cgi-bin/mtos/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-15T14:24:23Z 2007-10-17T11:54:58Z 询问:PERL访问远程的机器或者HTTP的方法PERL如果访问远程的机器(比如别人共享文件夹),或者HTTP格式.那有类似NET::FTP的命令吗?谢谢... echohome http://easun.org/cgi-bin/mtos/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-10T10:12:36Z 2007-10-11T14:52:33Z taiqi http://easun.org/cgi-bin/mtos/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-09T20:19:09Z 2007-10-11T14:53:54Z fanyefeng http://easun.org/cgi-bin/mtos/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-09T14:01:24Z 2007-10-11T14:56:02Z echohome http://easun.org/cgi-bin/mtos/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-09T11:52:25Z 2007-10-09T12:56:05Z 两个关于PERL的小问题:1) 在PERL怎么注释一段代码? 2) a = //asd/fjasfkl;要把当中：//asd/fjasfkl　　拿出来怎么搞．．... taiqi http://easun.org/cgi-bin/mtos/mt-cp.cgi?__mode=view&blog_id=5&id=259 两个关于PERL的小问题:
1) 在PERL怎么注释一段代码?
2) a = //asd/fjasfkl;
要把当中：//asd/fjasfkl　　拿出来怎么搞．．

]]> [原创]一个PERL的怪问题. tag:easun.org,2007:/perl/forum//5.904 2007-10-09T11:41:32Z 2007-10-09T12:51:57Z taiqi http://easun.org/cgi-bin/mtos/mt-cp.cgi?__mode=view&blog_id=5&id=259 一个PERL的怪问题.
$LenthofDp=0;  
print $LengthofDp;
PRINT 不出.是不是因为太长了.

]]> [求助]我想用PERL做一个程序,实现它用远程SERVER下载文件和文件夹.. tag:easun.org,2007:/perl/forum//5.905 2007-10-07T22:56:40Z 2007-10-08T18:56:31Z taiqi http://easun.org/cgi-bin/mtos/mt-cp.cgi?__mode=view&blog_id=5&id=259 我想用PERL做一个程序,实现它用远程SERVER下载文件和文件夹..
比如说: $a="//server/pad",SERVER路经.然后下的文件是 1.EXE 和文件夹 2
应该怎么编写.能给个范例吗?谢谢.

]]> 路MM救命！ tag:easun.org,2007:/perl/forum//5.896 2007-09-03T20:31:02Z 2007-10-24T14:30:10Z 我的论坛的多附件上传出错！有时间帮我看下下啊！ 错误信息：CGI ErrorThe specified CGI application misbehaved by not returning a complete set of HTTP headers.... 好啊好 http://easun.org/cgi-bin/mtos/mt-cp.cgi?__mode=view&blog_id=5&id=203 我的论坛的多附件上传出错！有时间帮我看下下啊！

错误信息：
CGI Error
The specified CGI application misbehaved by not returning a complete set of HTTP headers.

]]> 合并排序问题 tag:easun.org,2007:/perl/forum//5.911 2007-08-26T15:11:13Z 2007-08-28T14:59:34Z 不好意思，编了一个类似检索的程序，目前输出遇到了问题。想请教一下。比如说我有两个输出文件，a和b，内容分别如下a的内容为##2There are 2 entities.##1There is 1 entity.b的内容为##2Tomorrow is another day.##1What a nice day!我现在要把这两个文件合并成一个文件，输出为##2There are 2 entities.Tomorrow is another day.##1There is 1 entity.What a nice day!也就是说，读取两个文件，遇到##2的话就把##2下面的句子提取出来放到一起，然后所有的##2下面的句子处理完了之后，再找到##1下面的句子放到一起。如果用perl的话，怎么来实现？... wyyuki http://easun.org/cgi-bin/mtos/mt-cp.cgi?__mode=view&blog_id=5&id=177 不好意思，编了一个类似检索的程序，目前输出遇到了问题。想请教一下。
比如说我有两个输出文件，a和b，内容分别如下
a的内容为
##2
There are 2 entities.
##1
There is 1 entity.
b的内容为
##2
Tomorrow is another day.
##1
What a nice day!
我现在要把这两个文件合并成一个文件，输出为
##2
There are 2 entities.
Tomorrow is another day.
##1
There is 1 entity.
What a nice day!
也就是说，读取两个文件，遇到##2的话就把##2下面的句子提取出来放到一起，然后所有的##2下面的句子处理完了之后，再找到##1下面的句子放到一起。
如果用perl的话，怎么来实现？

]]>