learning plus

2010年11月28日星期日

DFG @ perl

早在之前曾經探討過在 "high level ALU numbers @ estimator" 主要是分析每個 block (always) 內所需要的 ALU 個數, 但這還必須考慮到每個 ALU 彼此之間的相關性, 判斷是否可以化簡還是可以做到 parallel..,之後在針對每個 ALU 的 time slide level 做調整, 如 ASAP(as soon as possible), ALAP(as later as possible)的演算法 ...可參考Data Flow Graphs Intro .這邊就不多做說明, 底下我們就用簡單的 syntax 來產生最簡單的 DFG graph, 之後我們可以用這個 graph 做基底加入 time wait, hw constrain, power ... 的 information. main.pl

my $dfg = DFG2Graph->new('c=(a+b)*c;');
   $dfg->run_text();

#   $dfg->dump_graph();
   $dfg->dump_graphviz();

project: https://github.com/funningboy/SOC_c_model/blob/master/DFG/main.pl Result :

Ref: [PDF] Data Flow Graphs Intro http://en.wikipedia.org/wiki/Data_flow_diagram http://funningboy.blogspot.com/2010/09/alu-estimator-rtl-verilog.html

2010年11月26日星期五

proxy website @ yahoo 999

最近因為 Yahoo 999 的問題卡了幾天, 沒想到透過 Mozilla Firefox + proxy website list 就可以解決了, 但是 proxy website 後端的 https 加密機制跟轉向過後的網址我們並不知道,只能透過 Mozilla 來處理 cookie 跟轉址的 methods. 底下用 perl 寫個簡單的 download 程式,並透過 proxy website....當然你也可以用這個方式來隱藏你的 ip, 不過最好不用連到需要登入的網站. 畢竟我們是透過 proxy 的方式. 說不定你的帳號密碼會被紀錄下來...XD mech.pl

   #!/usr/bin/perl
    #using proxy server to download your file...
    # author : sean chen
    # mail   : funningboy@gmail.com
    # 2010/11/26

    use strict;
    use warnings;
    use Data::Dumper;
    use File::Basename;

    my $path = $ARGV[0]
      or die "Must specify your download path \
              ex: http://xxx/xxx/xxx/jpg";

    # create a new browser
    use WWW::Mechanize;
    my $browser = WWW::Mechanize->new( env_proxy  => 1,
                                       keep_alive => 1,
                                       timeout    => 60 );

    $browser->cookie_jar(HTTP::Cookies->new());

    # proxy website 
    $browser->get("http://hidemy.biz/");

    # post form
    $browser->form_number(1);
    $browser->field("u", $path);
    $browser->click();

    #get new url
    my $url = $browser->uri;

    my @arr = split("\/",$path);

    open (oPtr,">$arr[$#arr]") || die "$!";
    if($browser->success()){
         binmode(oPtr);
         print oPtr $browser->content();
    } else {
       print $browser->status(); die;
    }

how to use it

perl mech.pl http://www.ccc.ccc/ddd/ddd.jpg

2010年11月23日星期二

hot_or_not @ social network movie

最近看了一部好看的電影 "social network", 內容就請自行goole吧. 不果說真的現在社群的力量真是太強大了, 不像以前是靠 CPU 致富, 現在要靠 "社群&&網路" 摟...XD 不過回想到當初學生時代,那時候還很流行抽學辦,每次都要跟公關混熟不然拿到的都是張費紙.. .基於這樣的原因下, 想說透過 "自己->朋友1->朋友2->朋友3" 的分析找出最 hot/match 的選項, 這樣就不用巴結公關摟, 只需巴結你的朋友群, 再透過這個朋友認識下個朋友,依序認識到你最想要認識的...雖然說 facebook 已經提供了 "共通好友" 的功能,但還不能很陰險的把所有資料給抓出來,再進行分析比對. 底下就先寫個簡單的 sample layout view. 內部的分析之後再完成摟.

wretch       xxx@wretch.cc      :: 無名帳號
facebook     xxx@facebook.com   :: facebook帳號
relation     xxx->ddd->sss->your id
ps:       如何認識到 xxx?
          要從你的朋友 sss 再認識 ddd 就可以認識到 xxx

msn          xxx@msn.com        ::msn
yahoo        xxx@yahoo.com      ::yahoo 
match score  9                  ::跟constrain match 的值

sample view