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

[飛鳥]

作者: 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]

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

ex.

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

[飛鳥]

作者: superxboy

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

ex.

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

可以呀，不過我沒加進去
等第二版吧

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

[superxboy]

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

[飛鳥]

作者: superxboy

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

當然有啦

有多種可以使用,像tcl,tk

示範檔

PHP 語法:

#!/usr/local/bin/perl

use Tk;

# 建立新視窗，真的很簡單
my $mw = new MainWindow;

my $but = $mw -> Button(-text => "Push Me", -command =>\&push_button);
$but -> pack();

MainLoop;

#這以下是副程式 
sub push_button {
    print "史萊姆的第一個家最讚了!\n";
} 


不過perl原先是linux下的純文字程式，硬要用成exe的話就變成很大一隻(幾十k的程式會編出1M以上的exe檔)

單純的perl是不用編譯就可以在linux下執行了(在windows下也可以，但要先安裝ActivePerl )

[superxboy]

嗯嗯...了解了

不過"範例檔"滿狗腿的

[羅迪]

報告飛鳥大大，可以收集e-mai address的啦。

。不過，請問空白的tem.html及GoURL.txt是做什麼的？

可以删除嗎？

另外，請問可否收集姓名呢？

很愛玩這嗰的說。謝謝你呀！

[飛鳥]

作者: 羅迪

報告飛鳥大大，可以收集e-mai address的啦。

。不過，請問空白的tem.html及GoURL.txt是做什麼的？

可以删除嗎？

另外，請問可否收集姓名呢？

很愛玩這嗰的說。謝謝你呀！

tem.html是放置暫時網頁原始碼的檔案(跑完可刪)
GoURL.txt是收集網頁原始碼中的其他連結用的，可以拿來再執入收集e-mail(你覺得沒用也可以刪啦)

姓名 @@
光是百家姓就很難了，而且要找出特徵值

[羅迪]

謝謝飛鳥大大回覆。

敬佩你的努力！