討論 - 最近在寫e-mail收集程式

atie · 2007-08-28, 08:49 PM

這個程式會不會到後來就是變成

像是在收集網友的mail Add

然後賣給行銷公司　廣發廣告郵件的程式啊

飛鳥 · 2007-08-29, 02:20 PM

引用:

作者: atie

這個程式會不會到後來就是變成

像是在收集網友的mail Add

然後賣給行銷公司　廣發廣告郵件的程式啊

當然不會啦，公開的部份只會收集在網址清單裡的資料

要到全自動就要加程式啦

而且要看得懂我的perl天書寫什麼囉

以下是perl程式碼：

PHP 語法:


			
#!perl

use LWP::Simple;

print "輸入要尋找的網址：";

my $url=<> ;

my $file='tmp.html';
my $GoURL='GoURL.txt';
my $mailURL='mailURL.txt';


chomp $url;
my $url1=$url;
$url1 =~ s/[?].*//g;
print "$url1";
my $www = get("$url");
getstore($www, tmp.html);         # 存入檔案
open(html,"> $file")||print "不能寫入$file";
    print html "$www";
close(html);

open (html,"< $file")||print "不能開啟$file";
open (mailurl,">>$mailURL")||print "不能開啟$mailURL";
open (url,">>$GoURL")||print "不能開啟$GoURL";
    while($line=<html>){
        chomp $line;
        if($line =~ /(href\=\"\S{1,100}\")/is){
            my $url2=$1;
            $url2 =~ s/href\=//ig;
            $url2 =~ s/"//g;
            if($url2 =~ /\b(\/.*)/is){
                print url "$url1$1\n";
            }elsif($1 =~ /\b(h.*)/is){
                print url "$url2\n";
            }elsif($url2 =~ /([\?].*)/is){
                print "$1\n";
            }elsif($url2 =~ /\b(m.*)/is){
                my $mail=$1;
                $mail =~ s/mailto\://g;
                if($mail =~ /(.*\@.*)/ ){
                print mailurl "$1\n";
                }
            }
        }
        if($line =~ /(\w{1,20}\d\w{1,20}\@\S{1,20}[.]\S{1,20}tw)/is){
        print mailurl "$1\n";
        }
        if($line =~ /(\w{1,20}\d\w{1,20}\@\S{1,20}[.]com)/is){
        print mailurl "$1\n";
        }
        if($line =~ /(\w{1,20}\d\w{1,20}\@\S{1,20}[.]org)/is){
        print mailurl "$1\n";
        }
        if($line =~ /(\w{1,20}\d\w{1,20}\@\S{1,20}[.]hk)/is){
        print mailurl "$1\n";
        }
    }
    close(url);
    close(mailurl);
close(html);

windwos下的直接執行exe檔下載測試

會自行產生GoURL.txt來放置收集到的網址
mailURL.txt來放置收集到的e-mail

把pchome貼圖測試網址貼上：http://ejokeimg.pchome.com.tw/see-po...&cat=111&rank=

superxboy · 2007-08-29, 02:49 PM

執行以後...跳出cmd視窗後...沒幾秒就自動關閉視窗了=.=

飛鳥 · 2007-08-29, 03:29 PM

引用:

作者: superxboy

執行以後...跳出cmd視窗後...沒幾秒就自動關閉視窗了=.=

再下一次吧，我重新上傳了
= =a

superxboy · 2007-08-29, 04:10 PM

程式好像怪怪的...在你給的網址中(http://ejokeimg.pchome.com.tw/see-po...&cat=111&rank=)
沒有bk20403@yahoo.com

但mail清單中卻有...

飛鳥 · 2007-08-29, 05:02 PM

引用:

作者: superxboy

程式好像怪怪的...在你給的網址中(http://ejokeimg.pchome.com.tw/see-po...&cat=111&rank=)
沒有bk20403@yahoo.com

但mail清單中卻有...

因為比對兩次的關係，這會比對.com和.tw結尾的

所以都比對成功，所以找到bk20403@yahoo.com和bk20403@yahoo.com.tw

這是試用版，我之前寫的，現在的新版就己改進這個問題了，只比對一次

像我程式的這一段也做了限制

PHP 語法:


			
        if($line =~ /(w{1,20}dw{1,20}@S{1,20}[.]S{1,20}tw)/is){
        print mailurl "$1\n";
        }
        if($line =~ /(w{1,20}dw{1,20}@S{1,20}[.]com)/is){
        print mailurl "$1\n";
        }
        if($line =~ /(w{1,20}dw{1,20}@S{1,20}[.]org)/is){
        print mailurl "$1\n";
        }
        if($line =~ /(w{1,20}dw{1,20}@S{1,20}[.]hk)/is){
        print mailurl "$1\n";
        }

只找.tw .com .org .hk的e-mail結尾的

superxboy · 2007-08-29, 05:18 PM

perl的程式...不能用參數餵網址嗎?

ex.

語法:

C:\www2mailaddress.exe "http://tw.yahoo.com"

2007-08-28, 08:49 PM	#1 (permalink)
atie 超級版主榮譽勳章勳章總數25 UID - 7036 在線等級: 註冊日期: 2002-12-08 住址: 面壁思過協會文章: 18204 精華: 0 現金: 35 金幣資產: 141233949 金幣	這個程式會不會到後來就是變成像是在收集網友的mail Add 然後賣給行銷公司　廣發廣告郵件的程式啊
	__________________ 　﹒☆°﹒☆．﹒☆°﹒☆．﹒☆° °﹒☆°．﹒‧°∴°﹒°．﹒‧°∴°.﹒‧°∴°﹒☆...... ☆ 　　許好願　　　　做好事　　　　轉好運　　　一個願無量善緣；菩提心永不褪變心中常存善解、包容、感恩、知福、惜福
	送花文章: 19079, 收花文章: 13665 篇, 收花: 61022 次

2007-08-29, 02:49 PM	#3 (permalink)
superxboy 管理版主榮譽勳章勳章總數16 UID - 21259 在線等級: 註冊日期: 2003-01-02 住址: 北極文章: 10335 精華: 6 現金: 130 金幣資產: 844182589 金幣	執行以後...跳出cmd視窗後...沒幾秒就自動關閉視窗了=.=
	__________________ 愛的時候，可以不公平；不愛了、分開了，總該公平了吧重情重義重粉味愛台愛鄉愛查某
	送花文章: 3254, 收花文章: 4835 篇, 收花: 21651 次

2007-08-29, 04:10 PM	#5 (permalink)
superxboy 管理版主榮譽勳章勳章總數16 UID - 21259 在線等級: 註冊日期: 2003-01-02 住址: 北極文章: 10335 精華: 6 現金: 130 金幣資產: 844182589 金幣	程式好像怪怪的...在你給的網址中(http://ejokeimg.pchome.com.tw/see-po...&cat=111&rank=) 沒有bk20403@yahoo.com 但mail清單中卻有...

	送花文章: 3254, 收花文章: 4835 篇, 收花: 21651 次

2007-08-29, 05:18 PM	#7 (permalink)
superxboy 管理版主榮譽勳章勳章總數16 UID - 21259 在線等級: 註冊日期: 2003-01-02 住址: 北極文章: 10335 精華: 6 現金: 130 金幣資產: 844182589 金幣	perl的程式...不能用參數餵網址嗎? ex. 語法: C:\www2mailaddress.exe "http://tw.yahoo.com"

	送花文章: 3254, 收花文章: 4835 篇, 收花: 21651 次

Google 提供的廣告