如何抓取公开共享的 Secret (secret.ly) 帖子

Question

Secret (secret.ly) 是一个匿名社交网络，人们通过短信的形式分享他们的想法。人们不时在this、this 和this 等社交媒体上分享他们的“秘密” 我正在尝试创建一个公开可用的秘密流，我想知道是否有一种方法可以抓取 secret.ly 域以提取所有这些公开秘密，尽管 URL 是随机字符串。我可以在 Twitter 上搜索，但我想知道是否有办法直接在 secret.ly

上搜索

Answer 1

这里是使用 perl 的开始。看来他们在社交媒体上也有联系。此脚本只会获取站点并转储链接。如果不知道你想要什么，我就不能做更多了。

use strict;
use warnings;
use WWW::Mechanize;

my $mech = WWW::Mechanize->new();

$mech->get('http://www.secret.ly');
print $mech->dump_links;

更新：还有一个 WWW::Mechanize 的 find_all_links 方法，您可能会发现它也很有帮助。