perl

    0热度

    1回答

    美好的一天, 我刮了一些页面,显示我需要在表中的数据。在页面上有多个表与以下内容: <table class="dTable" cellspacing="1" cellpadding="1" border="0"> 我想刮在表格单元格中的项目: <td class="dCell" align="right"> 有相同类别的网页上不幸的是许多细胞。此外,某些页面包含额外的dCells以获取更

    0热度

    1回答

    这似乎是一个常见问题,我搜索了很多,但没有成功找到解决方案。试过mysql_auto_reconnect和connect_cached但没有帮助。这基本上是我在这里的代码。 在闲置30秒后,mysql服务器将关闭连接。 mysql_auto_reconnect只有当我第一个$ dbh->从服务器断开(在代码中注释)时才起作用。 connect_cached方法在这里工作,但我仍然在while循环中

    0热度

    1回答

    为什么我无法访问子包我不能工作了:如果我用同样的 #!/usr/bin/perl -w package MbzDb::Instance; use strict; use warnings; use Getopt::Long; require Exporter; our @ISA = qw(Exporter); our @EXPORT = qw(new startFromComma

    0热度

    1回答

    我有一个批量替换语句,我想转移到Perl。 但我仍然想从批处理中调用perl,并将结果作为变量返回。 SET TEST = "mystring" SET modified=%TEST:"='% ECHO %modified% //prints: 'mystring' 最后我不想打印,只是变量%modified%的工作。 我怎么能写perl上面的语句,以便perl接受teststring,用

    0热度

    1回答

    我需要在perl上绘制2D图像到大小为1024x768的图像;行的坐标是unix时间戳,如x1 = 1365693813 y1 =(某个虚拟中心)x2 = 1365793815 y2 =(某个虚拟中心)。什么公式可以将真实生活中的图像缩放到图像空间中?

    -3热度

    2回答

    我想这样做: my %options = makeHash("user=bob,pass=123"); 奖励分,如果任何人都可以做这项工作... my %options = makeHash('user="bob,a",pass=123'); 我可以随便写有多个分割的第一个方法()的,但我想要知道,如果有特定于Perl的清凉优雅的方式可以做到这一点...

    3热度

    1回答

    我试图使用Statistics::PCA软件包对一些基因变体进行PCA。该软件包需要读取列表中的列表(如果我正确理解它,可以是一个数组数组,对吧?)。 下面是我的代码的一部分,我为每个人创建数组(每个人都是一个实际的人类主体,它获得一个填充0和1的数组,表示存在或不存在称为“SV”的遗传变体) ),然后把他们在我的数组的数组称为@LoL_SVs: my @LoL_SVs; foreach (@

    2热度

    2回答

    我有下面的XML: <resources xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"> <resource id="kig" type="com.ac.resourcedata.xml" site="ki"> <property name="name1">value1</property> <proper

    2热度

    6回答

    我有一个问题,我希望有人能(大大简化解释什么,我试图做的目的)帮助... 我有三种不同的阵列: my @array1 = ("DOG","CAT","HAMSTER"); my @array2 = ("DONKEY","FOX","PIG", "HORSE"); my @array3 = ("RHINO","LION","ELEPHANT"); 我也有一个包含从网页内容的变量(使用WWW

    0热度

    1回答

    我最初是由这个疑惑:我只是努力在Perl,字符分割功能时,我注意到了这一点: DB<56> map(print("-", $_, "\n"), split(//, "test") ); -t -e -s -t DB<57> map(print("-", $_, "\n"), split(/./, "test") ); DB<58> map(print("-", $_