1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
|
#!/usr/bin/env perl
# Twitter::API - OAuth desktop app example
#
use 5.14.1;
use warnings;
use Data::Dumper;
use Twitter::API;
# You can replace the consumer key/secret with your own. These credentials are
# for the Net::Twitter example app.
my $client = Twitter::API->new_with_traits(
traits => 'Enchilada',
# Net::Twitter example app credentials
map(tr/A-Za-z/N-ZA-Mn-za-m/r, qw/
pbafhzre_xrl i8g3WVYxFglyotakTYBD
pbafhzre_frperg 5e31eFZp0ACgOcUpX8ZiaPYt2bNlSYk5rTBZxKZ
/),
# To use your own:
# consumer_key => 'your-app-key',
# consumer_secret => 'your-app-secret',
);
# 1. First, we get a request token and secret:
my $request = $client->oauth_request_token;
# 2. We use the request token to generate an authorization URL:
my $auth_url = $client->oauth_authorization_url({
oauth_token => $request->{oauth_token},
});
# 3. Authorize the app in a web browser to get a verifier PIN:
print "
Authorize this application at: $auth_url
Then, enter the returned PIN number displayed in the browser: ";
# 4. Enter the PIN
my $pin = <STDIN>; # wait for input
chomp $pin;
say '';
# 5. Exchange the request token for an access token
my $access = $client->oauth_access_token({
token => $request->{oauth_token},
token_secret => $request->{oauth_token_secret},
verifier => $pin,
});
my ( $token, $secret ) = @{$access}{qw(oauth_token oauth_token_secret)};
# Now you have user credentials
say 'access_token.......: ', $token;
say 'access_token_secret: ', $secret;
my $status = $client->user_timeline({
count => 1,
-token => $token,
-token_secret => $secret,
});
say Dumper $status;
|
