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

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=

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

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

主題工具
顯示可列印版本郵寄本頁給好友
顯示模式
切換到平板模式混合模式切換到樹形模式

Google 提供的廣告