当学习一门东西，到了你即使闲下来，都想去摆弄，那么是否可以算被迷住了呢？  我承认，我被perl迷住了。——我与perl的故事  献给一切喜欢perl的朋友。  说起编程，我只能算新手。但是，因为有了perl，我发现，我的生活和从前大不相同！    编程，对你我来说

perl脚本如下:#!/usr/bin/perl-wuseNet::SSH::Perl;my$user='root';my$pass="123456";

新安装的rhel5.5下载了LWP模块一步一步走执行perlMakefile.PL后有一些提示Warning:prerequisiteCompress::Raw::Zlib0notfound.Warning:prerequisiteHTML:arser3.33notfound.Warning:prerequisiteHTML::Tagset0notfou

用Omap3530开发板，SD上有LINUX的系统，按网上BOA移植的步骤，得到了boa可执行文件,将boa、boa.conf拷贝到SD卡/etc/boa目录下，把SD卡插入板子。。启动之。。一切OK，运行./boa。。。。结果出现：-sh:./boa:notfound另：老出现Spuriousirq95:0xffffffdf,pleaseflushpostedw

假设我有一个文件，我现在要做一些过滤我要把符合（条件A）或者（条件B）或者（条件C和条件D）同时且不符合（条件E）的的行剔除，该如何写呢？这个一定需要将文件预读到一个数组吗？这样如果文件很大，似乎很麻烦我的思路：openFH,"file";while(<FH>){if...这里该怎么删除不匹配条件的一行呢？}

谢谢！

本帖最后由okr001610于2010-11-1910:48编辑大家好！最近我在写Perl脚本，读取query文件中的query，向服务器引擎申请查询返回结果。因为query文件很大（可能有几百万行），因此想到用多进程/线程并发申请。申请服务器用的是HTTP::Lite库:  my$timeout=5;

代码如下，为何循环不能结束呢，read函数的说明文档里也写着当读取完毕时返回值为0.无论是判断返回值为0或者undef都不能结束循环。望高人指点。1#!/usr/bin/perl  2useIO::Socket;  3usestrict;

我有文件A和B其中A中内容为gi|20178371|ref|NP_619791.1|gi|20178373|ref|NP_619794.1|gi|20178378|ref|NP_619799.1|gi|20178380|ref|NP_619801.1|gi|20178381|ref|NP_619802.1|B为gi|20178371|ref|NP_619791.1| &

#!/usr/bin/perl-wusestrict;my$filename="/home/ztl/123.jpg";openJPG,$filename;while(<JPG>){