-
請問這樣的需求用perl怎麼寫
Posted on 二月 4th, 2010 1 commentACELL 100
B
B{aa}
89898
99009
A
A{bb}
09000
02883
X
X{ccc}
89353
20949
D
D{ddd}
98999
90909
請問要用perl處理上面這段資料,從英文字母開頭到下面的一些資料為單位例如:
X
X{ccc}
89353
20949
然後要將這些子block依第一個英文字母排序,也就是最後要變成
ACELL 100
A
A{bb}
09000
02883
B
B{aa}
89898
99009
D
D{ddd}
98999
90909
X
X{ccc}
89353
20949整個資料的最開頭ACELL當然不動,用perl我該怎麼寫ㄋ~!要注意一點就是,這些data的量不一定只有四組,有可能上百組,—-perl 菜菜鳥
-
PERL-將數字打散重放,不能重覆。
Posted on 二月 3rd, 2010 1 comment輸入
—————————–
32
20
20
01
01,02
10,43
01,16,20
20
01,10,18,32,34
14,16,32
10,14,16,30
10,14,42
42
18,20
20
10
01
11,16
43
20,34
10,16,43
01,14,32
01,14,42
————————–
輸出
01
43
18
34
20,10
01,42
10,11,14
10
12,32,20,01,11
32,14,11
42,20,16,14
10,11,01
16
01,14
16
32
12
01,14
34
11,12
42,11,18
20,01,18
10,02,43
—————–
簡單的想法 ,就是把上面的空格裡面的數字打散再重放。條件只有 每一排 不有有數字重覆。
排不排序都沒關,要排不排沒差。
但 我沒辨把 輸出後的單一排裡面重覆的問題。
請救救我吧
-
read 函式使用
Posted on 一月 30th, 2010 1 comment請教各位大哥大姊
我有一個 二進位 的檔案要一個 byte 一個 byte 的讀入
但是我寫的 code 有些問題
可否請各位大哥大姊 能夠賜教
感恩~use strict;
open file_in,"<QGCAK05-E11.DAT";
my $buffer;
my $offset;while(!eof(file_in))
{
read(file_in,$buffer,1,$offset);
my $char = sprintf("%d",ord($buffer)); #轉成十進位
print"$char\n";
$offset++; #位移一位
} -
請教”perl”的問題 (算次數)。
Posted on 一月 30th, 2010 1 comment各位前輩,小的剛學"perl"的程式,所以遇到了一些問題想請您幫幫忙,,,謝謝。
這是我的資料檔案 (實際上可能會有 f, g, h . . . 很多),
<text.txt>
a, b, c, d,
20, 52, 62, 74,
10, 43, 62, 53,
85, 82, 62, 42,
94, 85, 92, 53,
10, 33, 56, 1,就是如何產生一個報告能算得出 :
a,b,c,d 總共出現了幾個不同的數目,又每個數目分別出現了幾次 ? (就像下面這樣子)
a : 20 (1), 10 (2), 85 (1), 94 (1).
b : 52 (1), 43 (1), 82 (1), 85 (1).
c : 62 (3), 92 (1), 56 (1).
d : 74 (1), 53 (2), 42 (1), 1 (1).謝謝您。
-
perl 轉成 exe file
Posted on 一月 25th, 2010 1 comment可否請教各位大大
如何將我的 perl 程式 轉成 exe file
有沒有相關教學
或去那邊下載相關檔案
可否請大大們詳細解說一下!
感恩! -
如何用C shell or perl 來判斷內容
Posted on 一月 24th, 2010 2 comments假設檔案 a 內容為
0 1 1 3 <- 不要
1 1 2 1 <- 不要
2 1 1 1 <- 不要
3 2 1 1 <- 不要
0 1 1 2 <-保留
1 1 2 1 <-保留
2 1 1 1 <-保留
3 1 2 1 <-保留
0 3 1 1 <- 不要
1 1 1 1 <- 不要
0 1 1 1 <- 保留
1 1 1 1 <- 保留
…………………..類推
我只要保留第二次出現的資料…該如何判斷呢~~!?
(第一列的 0~3 or 0~1 or 0~9 會固定出現兩次 ) -
PERL的一些小問題^^
Posted on 一月 23rd, 2010 2 comments請問各位大大~
1.當判斷式用= =和 eq有什麼差別呢?
2.還有假如我讀到一個一串"abc "怎麼把後面的空白刪除?
有像java裡面trim()那種函式嘛?3q解答喔~
-
perl 條件比對。
Posted on 一月 18th, 2010 1 commentif ($line1 =~ m/$J(?!-/){print "@array[1] @array1[1]\n"}
目前 這個寫法 只能單過濾 - ,我需要多個條件的寫法。
是還要加上什麼 。
-
請問如何轉換成二進位?
Posted on 一月 18th, 2010 2 comments若有一字串
$a = "76543210";如果字串 $a 為八進位如何轉換成二進位?
如果字串 $a 為十進位如何轉換成二進位?
如果字串 $a 為十六進位如何轉換成二進位? -
perl程式怎麼用網頁執行?
Posted on 一月 15th, 2010 2 comments類似php,asp的作法
在網頁上輸入資料,按下確定後,能透過perl執行後,再輸出成網頁呢?
也就是說,以圖像化的方式去run每一個小的perl程式
而不是用command line
請會perl程式的回答,謝謝

