Wenn ich groß bin will ich sein wie Google,
und alles speichern :P

Naja nicht ganz, aber manchmal ist es schon schön Dateien auf seinen eigenen Platten und nicht nur in der Cloud zu wissen.
Aus diesem Grund kam mir der Wunsch, meine Tweets nicht nur bei Twitter sondern auch selbst gespeichert zu wissen.

Ich zwitschere nun schon über ein Jahr vor mich hin,
und es ist spannend wie sehr man sich nur durch die einzelnden Tweets an bestimmte Situationen zurück erinnern kann.

Also Tweets auf der Platte abspeichern.
Bei der Suche nach einer Möglichkeit dies zu tun, bin ich auf eine schöne Perl-Bibliothek gestoßen: Net::Twitter
Installieren kann man dieses Libary in der cpan :

cpan #zum öffnen der cpan

install Net::Twitter #Installiert das Paket

#alternativ auch alles in einem mit:  cpan install net:twitter

damit währen die Vorraussetzungen geschaffen einigermaßen schön auf die Twitter API zu zugreifen.

Also nichts wie ran hier ist der Code der alle Eigenen Tweets ausgiebt um diese, alle eigenen Twitter Tweets abzuspeichern.
Die Variablen die gesetzt werden damit das ganze klappt erkläre ich gleich:

#!/usr/bin/perl

require Encode;
use Net::Twitter;
use strict;

my $nt = Net::Twitter->new(
username => "Twittername",
password => "Twitterpass"
);
my $mypage = "69"; #SEITENZAHL

#AB HIER NICHTS ÄNDERN !!
while($mypage >= 0)
{
eval {
my $statuses = $nt->user_timeline({ page => $mypage });
for (my $i=(@$statuses-1);$i >= 0;$i--){
my $status = @$statuses[$i];
print Encode::encode_utf8("$status->{created_at} $status->{time} < $status->{user}{screen_name}> $status->{text}\n");
}
};
sleep 2;
$mypage = $mypage-1;
}

In diesem Code müssen “Twittername” durch den Nick eures Twitteraccounts und “Twitterpass” durch euer Passwort ersetzt werden.
Außerdem müsst ihr den Wert der Variable mypage anpassen.
Er definiert die Anzahl an Seiten die Abgerufen werden, eine Seite enthält 20 Tweets.

Habt ihr also insgesammt 201 Tweets und wollt sie alle sichern so müsst ihr mypage auf 11 setzen.

Wünsche viel Spaß damit :)