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

飛鳥 · 2007-08-28, 04:19 PM

最近在想這個東西

給程式一個含有網址的檔案

程式就會把這些網址裡所包括下一層的網址另存到另一個網址去了

(當然也可以另存包括的e-mail囉)

用perl寫不到50行就搞定了

不過還在寫一些重複出現的網址檢查步驟

anotherlevel · 2007-08-28, 04:22 PM

引用:

作者: 飛鳥

最近在想這個東西
給程式一個含有網址的檔案
程式就會把這些網址裡所包括下一層的網址另存到另一個網址去了
(當然也可以另存包括的e-mail囉)
用perl寫不到50行就搞定了
不過還在寫一些重複出現的網址檢查步驟

喔
這個可以賺錢喔...
賣給行銷公司吧

飛鳥 · 2007-08-28, 04:39 PM

引用:

作者: anotherlevel

喔
這個可以賺錢喔...
賣給行銷公司吧

呵，我打算公開原始碼

superxboy · 2007-08-28, 05:30 PM

有趣的東西...其實和圖片收集程式相似

飛鳥 · 2007-08-28, 05:33 PM

引用:

作者: superxboy

有趣的東西...其實和圖片收集程式相似

你在想什麼

superxboy · 2007-08-28, 07:31 PM

引用:

作者: 飛鳥

你在想什麼

我可是正人君子...

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-29, 05:20 PM

引用:

作者: superxboy

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

ex.

語法:

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

可以呀，不過我沒加進去

等第二版吧

因為我知道會有人想寫成.bat批次檔

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

另一個問題...perl...沒有視窗介面嗎?

2007-08-28, 04:19 PM	#1
飛鳥協調管理員榮譽勳章勳章總數19 UID - 23073 在線等級: 註冊日期: 2003-01-07 VIP期限: 無限期住址: 史萊姆團隊文章: 7199 精華: 11 現金: 837 金幣資產: 260029 金幣	討論 - 最近在寫e-mail收集程式最近在想這個東西給程式一個含有網址的檔案程式就會把這些網址裡所包括下一層的網址另存到另一個網址去了 (當然也可以另存包括的e-mail囉) 用perl寫不到50行就搞定了不過還在寫一些重複出現的網址檢查步驟
	__________________ 寶貝你我的地球, 請少開電器，減少溫室氣體排放外，多種植植物，減少列印，多用背面，丟棄時做垃圾分類。 ~~~~鳥巢學習誌-Blog~~~~
	送花文章: 11706, 收花文章: 3363 篇, 收花: 16453 次

2007-08-28, 05:30 PM	#4 (permalink)
superxboy 管理版主榮譽勳章勳章總數16 UID - 21259 在線等級: 註冊日期: 2003-01-02 住址: 北極文章: 10335 精華: 6 現金: 130 金幣資產: 844182589 金幣	有趣的東西...其實和圖片收集程式相似
	__________________ 愛的時候，可以不公平；不愛了、分開了，總該公平了吧重情重義重粉味愛台愛鄉愛查某
	送花文章: 3254, 收花文章: 4835 篇, 收花: 21651 次

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

2007-08-29, 02:49 PM	#9 (permalink)
superxboy 管理版主榮譽勳章勳章總數16 UID - 21259 在線等級: 註冊日期: 2003-01-02 住址: 北極文章: 10335 精華: 6 現金: 130 金幣資產: 844182589 金幣	執行以後...跳出cmd視窗後...沒幾秒就自動關閉視窗了=.=

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

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

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

2007-08-29, 05:31 PM	#15 (permalink)
superxboy 管理版主榮譽勳章勳章總數16 UID - 21259 在線等級: 註冊日期: 2003-01-02 住址: 北極文章: 10335 精華: 6 現金: 130 金幣資產: 844182589 金幣	另一個問題...perl...沒有視窗介面嗎?

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

Google 提供的廣告