<?xml version="1.0" encoding="utf-8"?>
<rss version="2.0">
  <channel>
    <title>LinuxSir.cn，穿越时空的Linuxsir! - Perl  </title>
    <link>http://www.linuxsir.cn/forum.php?mod=forumdisplay&amp;fid=208</link>
    <description>Latest 20 threads of Perl  </description>
    <copyright>Copyright(C) LinuxSir.cn，穿越时空的Linuxsir!</copyright>
    <generator>Discuz! Board by Comsenz Inc.</generator>
    <lastBuildDate>Wed, 15 Apr 2026 15:06:17 +0000</lastBuildDate>
    <ttl>60</ttl>
    <image>
      <url>http://www.linuxsir.cn/static/image/common/logo_88_31.gif</url>
      <title>LinuxSir.cn，穿越时空的Linuxsir!</title>
      <link>http://www.linuxsir.cn/</link>
    </image>
    <item>
      <title>【求助】关于Net::FTP和perl在shell下执行时的返回值</title>
      <link>http://www.linuxsir.cn/forum.php?mod=viewthread&amp;tid=382241</link>
      <description><![CDATA[关于perl的Net::FTP,假如以下的  
ftp-&gt;get($remotefile, $fhandle) 语句执行，
文件下载过程中发生了超时,perl程序自身会中断执行。结果如下:  

[代码片段]  
------------------------------------------  
my $ftp = Net::FTP-&gt;new($host);  
if (not $ftp) {  
  e ...]]></description>
      <category>Perl  </category>
      <author>lelecool</author>
      <pubDate>Mon, 16 Jan 2012 13:14:02 +0000</pubDate>
    </item>
    <item>
      <title>[分享]下载优酷视频的perl脚本</title>
      <link>http://www.linuxsir.cn/forum.php?mod=viewthread&amp;tid=379498</link>
      <description><![CDATA[喜欢在优酷上下视频到mp4上看，自己写了个下载的脚本。]]></description>
      <category>Perl  </category>
      <author>bfscyb</author>
      <pubDate>Sat, 27 Aug 2011 05:28:52 +0000</pubDate>
    </item>
    <item>
      <title>nginx fastcgi perl上传文件</title>
      <link>http://www.linuxsir.cn/forum.php?mod=viewthread&amp;tid=374870</link>
      <description><![CDATA[环境为nginx fastcgi perl,怎么弄个文件上传的页面,参考了网上很多的例子,都不成
主要问题有两个:
1.当在html页面中加入method=\&quot;post\&quot;后则没有调用perl程序
2.每次上传文件是创建了,但是大小是0
哪位有能用的程序贴一下吧,我试试,也说不定是我环境配得有问题
谢谢了 ...]]></description>
      <category>Perl  </category>
      <author>eagle_m</author>
      <pubDate>Mon, 10 Jan 2011 04:06:29 +0000</pubDate>
    </item>
    <item>
      <title>Perl Webservice 部署资料，急~~~有会的，麻烦给指导一下！不慎感激！！！</title>
      <link>http://www.linuxsir.cn/forum.php?mod=viewthread&amp;tid=372427</link>
      <description><![CDATA[我现在有个接口，客户需求用webservice来实现，但从来没有搞过webservice，现在要大家给与指导~~~，那种从零开始的教程资料最好了。。。
我在网上查了半天，都没查到相关的，都是些错误问题的解释。。 ...]]></description>
      <category>Perl  </category>
      <author>anhui_test01</author>
      <pubDate>Sun, 26 Sep 2010 03:25:06 +0000</pubDate>
    </item>
    <item>
      <title>Perl Socket编程 服务器端的相关问题  急求</title>
      <link>http://www.linuxsir.cn/forum.php?mod=viewthread&amp;tid=371851</link>
      <description><![CDATA[server端 
#!/usr/bin/perl -w

use IO::Socket::INET;

$sock=IO::Socket::INET-&gt;new(
]]></description>
      <category>Perl  </category>
      <author>iwork</author>
<enclosure url="http://www.linuxsir.cn/data/attachment/forum/LocalHost=>\'127.0.0.1\',
" length="" type="image/jpeg" />      <pubDate>Fri, 27 Aug 2010 13:54:46 +0000</pubDate>
    </item>
    <item>
      <title>哪位同仁有Apache+Perl做CGI的，帮忙Run一下这个程序（分别使用GET和POST）？</title>
      <link>http://www.linuxsir.cn/forum.php?mod=viewthread&amp;tid=370835</link>
      <description><![CDATA[　最近写一个WebServer， 我想看看环境变量被如何设置了，以便支持Perl～但手上没有环境。十分感谢！
:thank:thank:thank:thank:thank:thank


  　 #!/usr/bin/perl
　　#安装说明:
　　#复制程序代码,并存成env.cgi
　　#以ascii模式上传至主机cgi-bin目录后将属性改 ...]]></description>
      <category>Perl  </category>
      <author>folklore</author>
      <pubDate>Sat, 24 Jul 2010 08:02:52 +0000</pubDate>
    </item>
    <item>
      <title>perl 双向管道 调用本地脚本问题</title>
      <link>http://www.linuxsir.cn/forum.php?mod=viewthread&amp;tid=368904</link>
      <description><![CDATA[程序目的是将一个输入导向一个本地的perl脚本, 再将这个脚本执行结果返回到当前的脚本, 使用open2双向管道操作, 但是总是不能成功, 请各位大大看看:

问题好像是本地脚本XXX.pl执行有问题, 因为是双向通信, 在IO上使用异步通信, select+sysread实现非阻塞的管道读取.


 ...]]></description>
      <category>Perl  </category>
      <author>mrstupid</author>
      <pubDate>Wed, 16 Jun 2010 11:53:23 +0000</pubDate>
    </item>
    <item>
      <title>perl如何实现case条件判断？</title>
      <link>http://www.linuxsir.cn/forum.php?mod=viewthread&amp;tid=366428</link>
      <description><![CDATA[就像shell中的 
case \&quot;$1\&quot; in
    aa)
     ;;
    bb)
     ;;
esac]]></description>
      <category>Perl  </category>
      <author>ilovemilk</author>
      <pubDate>Mon, 19 Apr 2010 08:23:19 +0000</pubDate>
    </item>
    <item>
      <title>perl行多次匹配内容的存储问题</title>
      <link>http://www.linuxsir.cn/forum.php?mod=viewthread&amp;tid=366199</link>
      <description><![CDATA[用perl 正则匹配如下行 ：
  .A(a), .B(b), .C(c), .D(d);
.A1(a1), .B1(b1);
要匹配到大写的A B C D等，
我的写法 ：  /\\.(\\w+)\\(/ 
这样$1存储的是每行的第一个匹配，但是后面的如何匹配，以及怎么存储和使用；
注意，每行的大写字母个数不一定一样。
谢谢 ~~ ...]]></description>
      <category>Perl  </category>
      <author>2357565</author>
      <pubDate>Wed, 14 Apr 2010 09:33:34 +0000</pubDate>
    </item>
    <item>
      <title>［求助］怎样配置apache让它支持perl脚本？</title>
      <link>http://www.linuxsir.cn/forum.php?mod=viewthread&amp;tid=366173</link>
      <description><![CDATA[即用perl来进行cgi开发。想弄个小服务器来试试。但无奈不会弄apache2.]]></description>
      <category>Perl  </category>
      <author>tandkzy</author>
      <pubDate>Tue, 13 Apr 2010 15:28:45 +0000</pubDate>
    </item>
    <item>
      <title>perl新手遇到读取文件问题</title>
      <link>http://www.linuxsir.cn/forum.php?mod=viewthread&amp;tid=366131</link>
      <description><![CDATA[想要通过命令行参数传一个目录
然后把每个文件名和mtime信息存入哈希表里
可是mtime总是读不到
下面是程序：
#!/usr/bin/perl -w
use strict;
#use warnings;
my $directory ;
my $num=@ARGV;
if ($num ==0) {die \&quot;please input the directory through the command line ...]]></description>
      <category>Perl  </category>
      <author>jtldragon</author>
      <pubDate>Mon, 12 Apr 2010 17:39:09 +0000</pubDate>
    </item>
    <item>
      <title>[求助]在perl 语言编程一书上看到的例程</title>
      <link>http://www.linuxsir.cn/forum.php?mod=viewthread&amp;tid=365917</link>
      <description><![CDATA[例程如下，在下不明白是什么意思，特请教。
next if (1..  /^$/); #忽略消息首部行

s/^/  /  if (/^$/  ..  eof()); #引起消息的主体

就是这两句。

它们的位置是在说明..操作符的这一段。提示是..在标量环境下，相当于sed下的行号。也有下面这个例句我可以理解的。
i ...]]></description>
      <category>Perl  </category>
      <author>tandkzy</author>
      <pubDate>Wed, 07 Apr 2010 01:47:38 +0000</pubDate>
    </item>
    <item>
      <title>perl正则式的问题</title>
      <link>http://www.linuxsir.cn/forum.php?mod=viewthread&amp;tid=364969</link>
      <description><![CDATA[问题是这样的。要用perl正则式 [0123456789]+匹配“ 12.五笔教程”，结果失败。
我的字符串是UTF8编码的～操作系统是UBUNTU8.04。不知道是正则式不正确，还是编码不正确。具体应该怎么样解决呢？ ...]]></description>
      <category>Perl  </category>
      <author>tandkzy</author>
      <pubDate>Wed, 17 Mar 2010 01:38:06 +0000</pubDate>
    </item>
    <item>
      <title>perl入门教程的一个习题疑惑！</title>
      <link>http://www.linuxsir.cn/forum.php?mod=viewthread&amp;tid=362209</link>
      <description><![CDATA[题目为将文件中的fred变成larry ，文件中的larry变种fred 也就是 fredandlarry将变成 larryandfred。
答案给定为：
   $^I=‘.out’;
     while(){
        unless(s/fred/larry/gi){
                    s/larry/fred/gi;
                   }   

我的疑问是当文件 ...]]></description>
      <category>Perl  </category>
      <author>suxingwakeup</author>
      <pubDate>Tue, 29 Dec 2009 10:22:03 +0000</pubDate>
    </item>
    <item>
      <title>perl中 &amp;lt;&amp;gt; @argv 的疑惑。</title>
      <link>http://www.linuxsir.cn/forum.php?mod=viewthread&amp;tid=362160</link>
      <description><![CDATA[my $what= shift @argv
while(){
       if(/\\b($what)/){
       print \&quot;wo saw....beginning of $_\&quot;
      }
   }
各位大哥，我一问是得到的输入是@argv，那$what的呢？如果@argv只有一个元素，那么$what将获得其值，  的值 是不是要从标准输入中得到呢，如果@argv大 ...]]></description>
      <category>Perl  </category>
      <author>suxingwakeup</author>
      <pubDate>Mon, 28 Dec 2009 10:16:38 +0000</pubDate>
    </item>
    <item>
      <title>perl如何将文本转换成十六进制数据</title>
      <link>http://www.linuxsir.cn/forum.php?mod=viewthread&amp;tid=361517</link>
      <description><![CDATA[请问perl如何将文本转换成十六进制数据：
 
例如：
文本字符串“你好”，
能否转换成十六进制的数据打印出来]]></description>
      <category>Perl  </category>
      <author>yyug</author>
      <pubDate>Tue, 15 Dec 2009 03:43:34 +0000</pubDate>
    </item>
    <item>
      <title>如何用Perl提取网页的内容</title>
      <link>http://www.linuxsir.cn/forum.php?mod=viewthread&amp;tid=361279</link>
      <description><![CDATA[我想把如下网址的内容提取出来,我就是想提取里面的IP地址和端口号,方便我每次都复制的操作.保存为记事本最好了
我在Google搜索告诉我用LWP::Simple
可是我实在想不出来了.

my $begin=\&quot;IPort\&quot;;
my $end=\&quot;HTTP\&quot;;
use LWP::Simple;
my $url=\&quot;http://www.cnproxy.com/proxy ...]]></description>
      <category>Perl  </category>
      <author>Netwrom</author>
      <pubDate>Thu, 10 Dec 2009 02:39:36 +0000</pubDate>
    </item>
    <item>
      <title>请教各位：用perl 如何实现从文本筛选特定的行保存到另外一个文件</title>
      <link>http://www.linuxsir.cn/forum.php?mod=viewthread&amp;tid=359859</link>
      <description><![CDATA[如：
Query= nmtca_Cluster3542.seq.Contig1 [178 - 513]
         (112 letters)
Database: g:/blast/wormpep206.fasta 
           24,143 sequences; 10,671,996 total letters
Searching..................................................done
]]></description>
      <category>Perl  </category>
      <author>foumer</author>
      <pubDate>Mon, 16 Nov 2009 13:45:42 +0000</pubDate>
    </item>
    <item>
      <title>[结贴]请教如何在wondows下建立gtk2-perl开发环境</title>
      <link>http://www.linuxsir.cn/forum.php?mod=viewthread&amp;tid=358482</link>
      <description><![CDATA[我已经下载好了gimp,好像是gtk的开发环境,安装是发现只有python扩展...

在sourceforge上找到了gtk2-perl

http://sourceforge.net/projects/gtk2-perl/files/

但现在不知道是下载哪个了,大家帮忙指点一下

好友sourceforge上说gtk2-perl是for gtk+的,请问gtk+是否和gi ...]]></description>
      <category>Perl  </category>
      <author>godsad</author>
      <pubDate>Sun, 18 Oct 2009 03:48:31 +0000</pubDate>
    </item>
    <item>
      <title>perl 下如何执行ls， make等</title>
      <link>http://www.linuxsir.cn/forum.php?mod=viewthread&amp;tid=358046</link>
      <description><![CDATA[perl下如何执行外部的程序，脚本等，如
编译常用的make,make install,
也如ls , wget等。
如果带变量参数呢？如ls $a  这里 $a是传递给ls的变量]]></description>
      <category>Perl  </category>
      <author>zswlb9999</author>
      <pubDate>Sat, 10 Oct 2009 14:07:57 +0000</pubDate>
    </item>
  </channel>
</rss>