천

신문 기사를 긁어오기 입니다.

· 2016-01-22 (금) 13:17:00 · 2575 · 1

<?

function get($url){//문서가져옮
        $fp = fopen($url, "r");
       
        while(!feof($fp)){
                $tmp = fgets($fp, 900);
                $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, "//")){        //루트로 가라
               
                $makeUrl = $host."/".str_replace("//", "", $Link);
               
        }else{        //제자리
               
                $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.donga.com/fbin/output?f=total";
$like[] = "$date_Y$date_M$date_D";

$newspaper[] = "연합신문";
$URL[] = "http://www.yonhapnews.co.kr/services/0400000000.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);//--> url 추출
               
        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 "<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++)
?> 

|

댓글 1개

2016-06-24 (금) 12:56:29
현이천사님 글을 참 많이 보는거 같으네요 ^^
신문사 소스글 잘 보았습니다
그런데 어떻게 적용해야 하는지 궁금하네요

소스를 드림위버에 넣어보아도 반응이 전혀 없어서요 ......
그누보드소스에 넣어야 하는지 ...
아니면 어떻게 적용하는건지좀 알으켜 주세요 ....

그럼수고하세요 ~~~
댓글을 작성하시려면 로그인이 필요합니다.

프로그램

8,188건
+
제목 글쓴이 날짜 조회
16-02-06 조회 3,495
16-02-04 조회 3,043
16-02-04 조회 3,313
16-02-04 조회 2,861
16-02-03 조회 3,119
16-02-03 조회 2,755
16-02-03 조회 2,907
16-02-03 조회 2,832
16-02-03 조회 2,929
16-02-02 조회 2,973
16-02-02 조회 2,840
16-02-02 조회 2,859
16-02-02 조회 2,767
16-02-02 조회 2,668
16-02-01 조회 2,770
16-02-01 조회 2,478
16-02-01 조회 2,566
16-01-31 조회 2,542
16-01-31 조회 2,621
16-01-31 조회 2,619
16-01-30 조회 3,025
16-01-30 조회 2,613
16-01-30 조회 2,580
16-01-30 조회 2,783
16-01-30 조회 2,679
16-01-30 조회 2,644
16-01-29 조회 2,590
16-01-29 조회 2,587
16-01-29 조회 2,460
16-01-29 조회 2,409
16-01-28 조회 2,668
16-01-28 조회 2,496
16-01-28 조회 2,420
16-01-28 조회 2,340
16-01-28 조회 2,492
16-01-27 조회 2,478
16-01-27 조회 2,470
16-01-27 조회 2,494
16-01-26 조회 2,465
16-01-26 조회 2,433
16-01-26 조회 2,443
16-01-26 조회 2,547
16-01-25 조회 2,442
16-01-25 조회 2,520
16-01-25 조회 2,521
16-01-25 조회 2,393
16-01-24 조회 2,388
16-01-24 조회 2,406
16-01-24 조회 2,328
16-01-23 조회 2,380
16-01-23 조회 2,408
16-01-23 조회 2,371
16-01-22 조회 2,467
16-01-22 조회 2,331
16-01-22 조회 2,474
16-01-22 조회 2,576
16-01-21 조회 2,580
16-01-21 조회 2,492
16-01-21 조회 2,398
16-01-21 조회 2,486
16-01-21 조회 2,430
16-01-20 조회 2,457
16-01-20 조회 2,367
16-01-20 조회 2,355
16-01-20 조회 2,314
16-01-19 조회 2,383
16-01-19 조회 2,444
16-01-19 조회 2,388
16-01-19 조회 2,451
16-01-19 조회 2,436
16-01-18 조회 2,416
16-01-18 조회 2,415
16-01-18 조회 2,431
16-01-18 조회 2,541
16-01-17 조회 2,588
16-01-17 조회 2,418
16-01-17 조회 2,527
16-01-16 조회 2,303
16-01-16 조회 2,300
16-01-16 조회 2,318
16-01-15 조회 2,462
16-01-15 조회 2,332
16-01-15 조회 2,458
16-01-15 조회 2,401
16-01-14 조회 2,528
16-01-14 조회 2,608
16-01-14 조회 3,088
16-01-14 조회 2,419
16-01-14 조회 2,656
16-01-14 조회 2,468
16-01-13 조회 2,704
16-01-13 조회 2,472
16-01-13 조회 2,447
16-01-13 조회 2,377
16-01-13 조회 2,375
16-01-12 조회 2,650
16-01-12 조회 2,574
16-01-12 조회 2,365
16-01-12 조회 2,484
16-01-11 조회 2,636