Vizible’s Blog

Perl – Simple Twitter status

Posted in perl, Programming by wearetherock on July 25, 2009

Code
=====================================

use LWP::Simple;
my $mytwitt = "http://twitter.com/wearetherock";
my $page = get($mytwitt);
my @content = $page =~ /<span class="entry-content">(.+?)<\/span>/g;
my @date = $page =~/<span class="published">(.+?)<\/span>/g;
for ($i = 0; $i< $#date ; $i++){
        print "$date[$i] : $content[$i] \n";

}

~

Output
=====================================
about 2 hours ago : sleep all day
10:18 PM Jul 21st : ใช้แบบนี้เลย mjd-perl-ref+@plover.com
10:15 PM Jul 21st : เริ่มงงแล้ว
2:44 AM Jul 21st : เน็ตช้า
1:52 AM Jul 18th : i will switch to ubuntu now
10:53 PM Jul 17th : a snake and rose
8:54 AM Jul 17th : เน็ตช้ามาก
12:19 PM Jul 16th : ตื่นสายแหงๆ
12:19 PM Jul 16th : นอนดีกว่า
11:13 AM Jul 16th : too many dependency, try again tomorrow
8:17 AM Jul 16th : compile wiiusecpp
6:17 AM Jul 15th : where to find wiimote api reference
5:09 AM Jul 15th : ทำงานไม่เสร็จ
8:09 AM Jul 13th : ดูคอน concert michael
6:59 AM Jul 13th : ไม่ยอม fullscreen เซ็ง
4:39 AM Jul 12th : ทำไมต้องใส่หมูก่อนใส่ไข่
4:17 AM Jul 12th : h1n1 ตายแบบก้าวกระโดด มากที่สุดในเอเชีย
4:16 AM Jul 12th : @xkapong ไม่ใช่ทั้งวัน ทั้งสองวันต่างหาก อิอิ
3:10 AM Jul 12th : scale script for any size screen
~

Advertisements
Tagged with: ,

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s

%d bloggers like this: