방명록

방명록
null

덧글

댓글 입력 영역
  • 남촌 2020/03/09 11:19 # 삭제 답글

    개념을 잡는데 정말 도움이 많이 되었습니다..
    감사 합니다.
  • 저도봄 2020/02/27 12:21 # 삭제 답글

    2020년에도 한명 있습니다.
  • 김인수 2019/10/15 18:01 # 삭제 답글

    통신쪽 초보 입니다.
    그런데 정말 싸이트가 유용하고 많이 배우게 됩니다.
    그래서 이렇게 감사의 글 남깁니다.
  • deadfire 2019/12/16 20:43 # 삭제

    사이트를 누가 보기는 할까했었는데, 댓글까지 남겨주셨네요.

    ^^;
  • 박종우 2019/01/29 21:20 # 삭제 답글

    요즘은 뭐하시는지.. 되게 궁금합니다
  • deadfire 2019/03/04 16:50 # 삭제

    저에요.

    지금은 개발자가 100명쯤 있는 SW개발사에서 연구소장하고 있습니다.

    스팀잇도 조금 하다 말았습니다. https://steemit.com/@deadfire

    바쁘다는 핑계로 거의 관리를 못하고 있네요. (진짜 엄청 바쁩니다.)
  • jjin 2018/08/17 16:27 # 삭제 답글

    정말 좋은 사이트입니다 많은 도움이 되었어요
  • ZZang... 2018/05/03 15:47 # 삭제 답글

    난 스피어넷을 알고 있다...
  • deadfire 2020/05/26 09:05 # 삭제

    ZZang은 요새 뭐하고 지내나?
  • 재밌다 2014/12/28 17:11 # 삭제 답글

    안녕하세요~~~~

    컴에 초보이지만, 훌륭한 site인것 같습니다.
    앞으로 많이 유용하게 들락달락 할 것 같습니다.
    감사합니다.

    정말 훌륭하십니다. site 들어와서 보는데 아무런 조건이 없잖아요~~(내용도 훌륭하고~~~)
  • mathman 2013/05/02 09:38 # 삭제 답글

    엊그제까지 보고 잘 보고 있었는데, 갑자기 들어가지질 않아서 깜짝 놀랐습니다.
    .net으로 변경되었네요.
    잘 보고 있습니다.
  • lnrdo1 2006/06/01 12:17 # 답글

    안녕하세요. hihome 에 만드신 홈피 보고 여기까지 왔습니다..
    perl 에 대한것, cgi 와 자바 스크립트에 대한 것들.. 너무 유용하게 잘 봤습니다. 묶어서 책으로 펴내셔도 좋은듯. ㅎㅎ
    감사합니다. ^^
  • bluebike 2005/11/17 11:10 # 답글

    perl에 관해서 재미있고 쉽게 정리 해 놓으셨네요.. 좋은 정보 고맙습니다.
  • 한반도 2005/10/24 20:39 # 답글

    안녕하세요...친구가 되어 기쁩니다...환절기에 건강조심하세요...자주 놀러오겠씀다...
  • 가을 2005/10/16 18:46 # 답글

    펄에 관련된 질문 있습니다. LWP 를 이용해서..
    특정 웹사이트에 있는 테이블(카테고리와 정보가 입력되어있는) 부분만을 불러올려면 어떻게 해야하나요?
    그리고 column을 적용하려면 또 어떻게 해야하는지..
    답변 좀 부탁드립니다...^^
  • deadfire 2005/11/15 15:03 #

    HTML::TreeBuilder를 사용해 보십시오. N번째 Table 태그를 찾아서 또 그중에 tr, td 태그등을 찾아갈수 있습니다.

    예를 들면, 이런식으로요.

    use HTML::TreeBuilder;
    my $tree = HTML::TreeBuilder->new();
    $tree->parse_file("./x");

    # navigation to HEADING
    my $Htable = ($tree->look_down('_tag', 'table') )[3];


    my $table = ($tree->look_down('_tag', 'table') )[4];
    unless( $table ) { print "No Data Foundn"; exit; }
    for($i = 0;;$i++){
    my $row = ( $table->look_down('_tag', 'tr') )[$i];
    unless ( $row ) { print "No More n"; last; }

    #print $row->as_text."n";
    for($j = 0;$j < 6;$j++){
    my $col = ( $row->look_down('_tag', 'td') )[$j];
    unless( $col ) { print "Fail.....n"; last; }

    print "[".$col->as_text."]n";
    }
    print "----------------------------------------------n";
    }

◀ 다음덧글    이전덧글 ▶