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("-", $_