• 請問這樣的需求用perl怎麼寫

    Posted on 二月 4th, 2010 小煙銅 1 comment

    ACELL 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 翹臀JENNY 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 comment

    if ($line1 =~ m/$J(?!-/){print "@array[1] @array1[1]\n"}

    目前 這個寫法 只能單過濾 - ,我需要多個條件的寫法。

    是還要加上什麼 。

  • 請問如何轉換成二進位?

    Posted on 一月 18th, 2010 city council 2 comments

    若有一字串
    $a = "76543210";

    如果字串 $a 為八進位如何轉換成二進位?
    如果字串 $a 為十進位如何轉換成二進位?
    如果字串 $a 為十六進位如何轉換成二進位?

  • perl程式怎麼用網頁執行?

    Posted on 一月 15th, 2010 recollect * 實 2 comments

    類似php,asp的作法

    在網頁上輸入資料,按下確定後,能透過perl執行後,再輸出成網頁呢?

    也就是說,以圖像化的方式去run每一個小的perl程式

    而不是用command line

    請會perl程式的回答,謝謝