>> Read No. 3201 article  
신문기사 긁어오기 [PHP]

등록 2002-12-31 12:33:00     조회 6
이름 0172    

		각 신문사의 오늘 날짜 기사 긁어 오는 소스입니다.
 <?
 function get($url){
        $fp = fopen($url, "r");
       
        while(!feof($fp)){
                $tmp = fgets($fp, 1024);
                $temp .= $tmp;
        }
       
fclose($fp);
 return $temp;
}//function get
 function Strip($all){
       
        $link_pm=strpos($all,">");
       
        $link=substr($all,0,$link_pm);
       
        if(!$link) return;
       
        if(ereg(""",$link)){
               
                $link_p=strpos($link,""");
                $link=substr($link,$link_p+1);
                $link_p=strpos($link,""");
               
                $link=substr($link,0,$link_p);
        }
       
        if(ereg("'",$link)){
               
                $link_p=strpos($link,"'");
                $link=substr($link,$link_p+1);
                $link_p=strpos($link,"'");
               
                $link=substr($link,0,$link_p);
        }
       
        $link=trim($link);
       
        $substr=substr($all,$link_pm+1);
        $substr_p=strpos($substr,"</a>");
        $substr=substr($substr,0,$substr_p);
        $strip=strip_tags($substr);
        $strip=trim($strip);
       
        return array(link => $link, sub => $strip);
}//function strip($all)
 function makeUrl($Url, $Link){
       
        if(!strpos($Link,"http://") && substr_count
("$Link","http://")) return $Link;
       
        $eURL = pathinfo("$Url");
       
        $host = parse_url($Url);
        $host = $host[scheme]."://".$host[host];
       
        $Link = "/".$Link;
        if(substr_count("$Link","../")){
               
                $Link = str_replace("./../", "", $Link);
                $Link = str_replace("../", "", $Link);
               
                $pos = strrpos($eURL["dirname"], "/");
                $makeUrl = substr($eURL["dirname"],0,$pos);
               
                $makeUrl = "$makeUrl"."$Link";
       
        }else if(substr_count("$Link","//") && !strpos($Link, "//"))
{        //·&ccedil;Æ&reg;·&Icirc; °¡¶&oacute;
               
                $makeUrl = $host."/".str_replace("//", "", $Link);
               
        }else{        //&Aacute;&brvbar;&Agrave;&Uacute;¸&reg;
               
                $Link = str_replace("./", "", $Link);
                $makeUrl = $eURL["dirname"]."$Link";
        }
 return $makeUrl;       
}
////////////////////////////////////// 날짜 설정
$date_Y = date("Y");
$date_M = date("m");
$date_D = date("d");
 $mdate = "$date_Y.$date_M.$date_D";
////////////////////////////////////////////////////////////<== 신문사
별 설정
 $newspaper<> = "한겨레";
$URL<> = "http://www.hani.co.kr/TOTAL/home01.html";  //한겨레 전체기사
페이지
$like<> = "$date_Y$date_M$date_D";
 $newspaper<> = "조선";
$URL<> = "http://www.chosun.com/w21data/html/list/BAL.html";  //조선일
보 전체기사 페이지
$like<> = "$date_Y$date_M$date_D";
 $newspaper<> = "중앙";
$URL<> = "http://www.joins.com/list/home_list.html";     //중앙일보 전
체기사 페이지
$like<> = "$date_Y$date_M$date_D";
  $newspaper<> = "연합";
$URL<> = "http://www.yonhapnews.net/services/0300000000.html"; //연합
뉴스 전체기사 페이지
$like<> = "$date_Y$date_M$date_D";
 ////////////////////////////////////////////////////////////<== 출력 부
분
 for($x=0; $x < sizeof($newspaper); $x++){
         $temp = get($URL[$x]);
         $all = split("href =|HREF =|href=|HREF=",$temp);
               
        for($i=0; $i < sizeof($all); $i++){
               
                $kisa =  Strip($all[$i]);
                 if(ereg($like[$x], $kisa[link]) && 20 < strlen($kisa
[sub])){
                       
                        $LinkURL = makeUrl($URL[$x], $kisa[link]);
                        echo "<br><a href='$LinkURL'>[$newspaper[$x]]
$kisa[sub]</a><br>";
                }//if(ereg($like[$x], $kisa[link]) && 20 < strlen($kisa
[sub]))
        }//for($i=0; $i < sizeof($all); $i++)
}//for($x=0; $x < sizeof($newspaper); $x++)
?>
 미리보기 : http://0172.kr.kg/  확장하기에는 별 무리 없는 것 같습니다.
 신문사별 설정만 조금 변경 해 주시면 여러모로 쓸모가 많을 것 같습니다.
이름
암호
  목록보기 윗글 아랫글
글쓰기
답장쓰기 수정 삭제
정규표현식 [ 상세 검색 ]
페이지로딩: [ 0.23 초 ] 작업시간: [ 0.01 초 ]

Copyleft 1999-2026 by JSBoard Open Project
Theme Designed by IDOO All right reserved
[TOP]

적수네 동네
+
| 적수네 동네
| 공부방
| 리눅스 잡지 서고
| LSN 소스
| 링크 모음
+---+
게시판
+
| 떠들어보세!
| 질문과 답변
| 새소식과 정보
| 1원짜리 팁?
| 대화방
+---+
칼럼?
+
| 세하 훔쳐보기
| Welcome2nite
| 혜진의 염장판
+---+
리눅스 상표권
+
| 반대 서명란
| 토론 게시판
+---+
GNU
+
| GNU 선언문
| GNU GPL
| GNU 미러 목록
+---+
프로젝트?
+
| 리눅스카운터
| RC5DES
| 실질헌법 제작
+---+
커널 소식
+
| 안정 버젼: 2.4.14
+---+
테마 선택
+
LSN 방송국?
+
| OFF AIR
+---+
회원
+
| 로그인
+---+
[ 적수네 동네 ] [ 리눅스 상표권 독점 반대 ] [ 한글 리눅스 문서 프로젝트 ] [ KrLine ] [ 사랑넷 ] [ Valid HTML 4.0! ] [ SlashDot ] [ Freshmeat ]
Copyleft (C) 1998-2001 Byeong-Chan Kim . License
TIME: 1791013876
System by WYZsoft, HDD by I.O.Linux, Mizi Research, Embryo, WOWLINUX, Domain by SarangNet, Network by KrLine.