RSS
 

Posts Tagged ‘Perl’

Perl Twitter

06 Mrz

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= <<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=<STDIN>);}
    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

 
2 Comments

Posted in Anderes, Computer, Internet, Linux, Programmieren

 

Perl T-Shirt

17 Jul

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

 
No Comments

Posted in Anderes