Perl Twitter

j-zero — Fri, 06 Mar 2009 15:45:52 +0000

Mahlzeit!

Ich bin nun auch unter die Twitterer gegangen, nach dem ich ja den Blogkram auch schon mit gemacht habe. Nach kurzer Zeit habe ich ein Tool gesucht, mit dem ich aus der Kommandozeile unter Linux einen Tweet absetzen kann, habe aber erstmal nix gefunden. Also habe ich mal geschaut, ob es ein Perl Modul gibt. Und ja(!), es gibt eins, und zwar: “Net::Twitter” – wär hätte das gedacht! Ihr könnt das einfach mittels “perl -MCPAN -e “install Net::Twitter” installieren.

Hier ist mein kleines Script, welches aus der Konsole Tweets sendet, viel Spaß damit.

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

#!/usr/bin/perl
use Getopt::Std;
use Term::ReadKey;
use Net::Twitter;
getopt('upt',\%opts);
$usage= < commandline twitter 0.1b - www.j-zero.de
Usage: twitter_cmd -u username [-t tweet] [-p password]
USAGE
sub gp{
print "password: ";
ReadMode 2;
chomp($l = ReadLine(0));
ReadMode 0;
print "\n";
return $l;
}
if(!$opts{u}){print $usage;exit 1;}
else{$u=$opts{u};}

if(!$opts{t}){print "tweet: ";chomp($t=);}
else{$t=$opts{t};}

if(!$opts{p}){$p=&gp;}
else{$p=$opts{p};}
$s=Net::Twitter->new({username=>"$u",password=>"$p" });
$s->update({status=>"$t"});
exit 0;

j-zero

Perl T-Shirt

j-zero — Tue, 17 Jul 2007 17:14:08 +0000

Mahlzeit.
Während ich Einladungskarten drucke, dachte ich, ich könne mir mal ‘n witziges Perl-Shirt gestalten. Ich kam auf folgendes:

1
2
3
4

#!/usr/bin/perl
$t='got perl?';
$t=~s/(\w+)t\s(\w+)\?/$2 $1d\!/;
print $t;

Ich überlege jedoch noch wie das Design aussehen soll. Wer ‘ne Idee hat, schreibt ‘nen Kommentar.

ciao
j-zero

j-zero » j-zero.de

Perl Twitter

Perl T-Shirt