Changeset 4 for twttmixi/trunk/twttmixi.pl
- Timestamp:
- 2007/09/02 18:37:17 (1 年 ago)
- Files:
-
- twttmixi/trunk/twttmixi.pl (modified) (3 diffs)
Legend:
- Unmodified
- Added
- Removed
- Modified
- Copied
- Moved
twttmixi/trunk/twttmixi.pl
r1 r4 1 1 #!/usr/bin/perl 2 2 $|++; 3 use lib './lib'; 3 4 my $MYDIR; 5 BEGIN { 6 $MYDIR = $0 =~ m!(.*[/\\])! ? $1 : './'; 7 } 8 9 use lib "${MYDIR}lib"; 4 10 use strict; 5 11 use warnings; … … 22 28 sub getEntryTitle { 23 29 <<PERLHEREDOC; 24 [twitter] º£Æ ü€ÎÒì€30 [twitter] º£ÆEÎÒE 25 31 PERLHEREDOC 26 32 } … … 54 60 my $NET_TIMEOUT = 30; 55 61 my $TWITTER_API = "http://twitter.com/statuses/user_timeline/$TWITTER_USERNAME.xml"; 56 my $CACHE_FILENAME = "$ 0.cache";62 my $CACHE_FILENAME = "${MYDIR}.cache"; 57 63 58 64 ### Print message
