wie man seine bisherigen Tweets speichern kann,
kam bei mir danach die Anforderung automatisiert meine Täglich neuen Tweets hinzu zu fügen.
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.
