Navigation

Changeset 4

Timestamp:

2007/09/02 18:37:17 (1 年 ago)

Author:

piroli

Message:

スクリプトの実行パスを取得するよう修正

Files:

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