在Perl中隐藏Twitter标记

在Perl中隐藏Twitter标记,perl,twitter,oauth,Perl,Twitter,Oauth,我正在编写一个Perl脚本,在Twitter上发布当前正在播放的MPD歌曲 为此,我需要插入应用程序的使用者密钥和使用者密钥 如果我想发布代码,我应该如何隐藏这些令牌 下面是代码:让它们成为环境变量 unless ($ENV{TWITTER_KEY} and $ENV{TWITTER_SECRET}) { die "Please set the environment variables TWITTER_KEY and TWITTER_SECRET\n"; } my $twitter =

我正在编写一个Perl脚本,在Twitter上发布当前正在播放的MPD歌曲

为此,我需要插入应用程序的使用者密钥和使用者密钥

如果我想发布代码,我应该如何隐藏这些令牌


下面是代码:

让它们成为环境变量

unless ($ENV{TWITTER_KEY} and $ENV{TWITTER_SECRET}) {
  die "Please set the environment variables TWITTER_KEY and TWITTER_SECRET\n";
}

my $twitter = Net::Twitter::Lite->new(
        consumer_key    => $ENV{TWITTER_KEY},
        consumer_secret => $ENV{TWITTER_SECRET},
);

你不能把钥匙放进密码里,这样就没人能把它弄出来。不是在Perl中,不是在其他地方

您的应用程序必须将代码发送到Twitter,因此它必须能够自己获取代码。这意味着任何有点上进心的正派黑客也能得到它


这也说明了这一点,但当你必须将应用程序分发给你的客户时,你不能真正使用它:要么他检查他的环境变量,要么只是添加一条打印语句,输出twitter

我已将代码重写为0。现在我正在使用这里记录的用户名/密码身份验证,但我得到了以下信息:
~/Sources/mpdtweet%/mpdtweet2.pl
推特«#正在播放深红国王-城市图片(在波塞冬之后)»。
401:未经授权
编辑好的,我不能使用它: