Ich wolle also ein Script haben,
das einmal am Tag die eigenen Tweets aus twitter zieht und abspeichert.
Also habe ich das alte Script angepasst.
Ergebnis ist folgendes:

#!/usr/bin/perl

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

my $nt = Net::Twitter->new(
username => "TWITTERNAME",   #Durch Twitternick ersetzten
password => "TWITTERPASSWORT" #Durch Twitterpasswort ersetzen
);
my $pfad = "/pfad/zum/script/verzeichnis"; #Bitte durch eigenens Verzeichnis ersetze

#Ab hier nichts mehr ändern

open(LASTTWEET, "< $pfad/last_own_tweet.id") || die "Datei nicht gefunden\n";
my @IN = ;
my $lastid = $IN[0];
close(LASTTWEET);

eval {
my $statuses = $nt->user_timeline({ count => 150, since_id => $lastid});
#for my $status ( @$statuses ) {
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");
if( $status->{id} > $lastid)
{
$lastid = $status->{id};
}
}

open(LASTTWEET, ">$pfad/last_own_tweet.id");   # Datei zum Schreiben öffnen
print LASTTWEET "$lastid";  # Datei schreiben
close(LASTTWEET);

};
if ( my $err = $@ ) {
die $@ unless blessed $err && $err->isa('Net::Twitter::Error');

warn "HTTP Response Code: ", $err->code, "\n",
"HTTP Message......: ", $err->message, "\n",
"Twitter error.....: ", $err->error, "\n";
exit;
}
else { exit; }

In dem Script müssen am Anfang die Variablen einmal richtig gesetzten werden (wie Twitternick etc.).
Desweiteren muss die datei “last_own_tweet.id” im Scriptverzeichnis angelegt werden,
und mit der ID des Tweets befüllt, bei dem das ganze Beginnen soll.

Ich habe mir an nach dem Herrunterladen der alten Tweets durch das andere Script die ID des letzten Tweets eingefügt.

Danach das Script am besten per Cronjob einmal täglich ausführen, so z.b.

/pfad/zum/script/twitter.pl >> meinetweets.txt

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 :)

Wie schon in diesem (What we need is push) und diesem Post (Twitter Push Notifications aufs Iphone mit Prowl) erkennbar habe ich etwas übrig für das Iphone Programm Prowl.

Es öffnet gewisser Maßen die Push Schnittstelle für Jedermann sozusagen,
den es öffnet die Möglichkeit per Https Interface Push Notifications an das eigene I-Phone zu senden. Außerdem wird das Programm ständig um Funktionen und Möglichkeiten erweitert.

Auf dieses Programm will ich jetzt etwas näher eingehen und euch neue Funktionen vorstellen.
Neben dem Perl-Code in Twitter Push Notifications aufs Iphone mit Prowl [ der übrigens hier für bluehost angepasst wurde, was ich übrigens sehr begrüße, solange die Quelle genannt wird, was getan wurde :) ].

Neben diesem Twitterpush Pushe ich mir meine Jabber Nachrichten sofern ich nicht sonst irgendwo eingeloggt bin. Auf diesem Weg puschen auch meine ICQ und MSN Nachrichten. Wie dies genau funktioniert werde ich die Tage ebenfalls posten bzw. näher erläutern.

Doch hier möchte ich erstmal ein wenig auf die Vorraussetzungen für all die Scripte eingehen.
Quasi das was man vorher machen muss.

Zu erst ist natürlich die Software nötig :
“Prowl” diese ist im Appstore mit dem Iphone zu kaufen.
Soweit ich weiß kostet diese um die 2 Euro.
Dies sind die einzigen Kosten die Anfallen.
Hat man die Software gekauft und auf dem Phone installiert,
sollte man sich erstmal hier einen Account registrieren und diesen auch in der Software eingeben.
Ist das erledigt erhält man in der Webseite nach dem Einloggen einen API key, der das eigene Iphone oder den eigenen Ipod identifiziert.
Diesen Key brauchen die Scripte um Push-Notifications abzusetzen.

Damit wären auch schon sämtliche vorbereitenden Maßnahmen getroffen und es kann los gehen, die Scripte können benutzt werden.

Für alle die nicht die Möglichkeit haben mit einem eigenen Server Scirpte laufen zu lassen,
gibt es neuerdings einen Webservice mit Namen Prey Fetcher der Twitter Push für euch übernimmt.