panhaema

Birkaç gün önce #fazlamesai'de... (server: irc.freenode.com)

(22:49:48) darkhunter^: güzel olmuş
(22:50:00) conan^: gerci forumlarina post etmistim :) [http://www.last.fm/forum/21716/_/84721/1#f2244510]
(22:50:16) conan^: #!/bin/sh
(22:50:16) conan^: echo "$1 last.fm'de dinliyor: `wget -qO - http://ws.audioscrobbler.com/1.0/user/$1/recenttracks.txt | cut -d "," -f 2 | head -1`"
(22:50:22) conan^: basit :)
(22:50:43) darkhunter^: yalnız just listen a dinliyor dese diğerlerine şu kadar süre önce dinledi dese nasıl olur?
(22:50:58) darkhunter^: script uzar tabi :D
(22:51:01) conan^: open source script iste :)
(22:51:04) conan^: al uuras
(22:51:13) conan^: basit bi shell script ile yazdim :)
(22:51:16) darkhunter^: ehuhehehe
(22:51:22) conan^: yanliz degistirirsen bana para odemek zorundasin!
(22:51:22) conan^: :P

Yukarıdaki script'in çektiği verideki rakamların, ne olduklarını anlamaya çalışırken conan^ az önce jabber'a uğradı:

(21:58:39) conan^: bu unix epoch iste
(21:58:44) conan^: bu sayilar var ya
(21:58:57) conan^: 1162747317 1162746995 filan
(21:59:00) darkhunter: evet
(21:59:09) conan^: unix epoch'dan beri olan saniyelerin sayisi
(21:59:20) conan^: unix epoch da bu demin verdigim zaman (000000 UTC Jan 1 1970)
(21:59:27) conan^: referans olsun diye
(21:59:35) darkhunter: hımm anladım
(21:59:36) conan^: insanlik icin epoch isanin dogdugu yildir
(21:59:49) conan^: unix icin ise benim dogdugum yil
(21:59:50) conan^: MUAHHAHAHA
(22:00:01) conan^: pardon ben 74luydum :)


Sonuç olarak:

#!/bin/sh

if [[ "$1" = "" ]] ; then
	echo -e "\E[28;1mUsage: ./lastfm.sh [username]"
	exit
fi

echo -e "\E[22;1m$1's recent tracks:"
wget -qO - http://ws.audioscrobbler.com/1.0/user/$1/recenttracks.txt > lasttxt
COUNT=$(cat lasttxt | wc -l)

if [[ "$COUNT" = "0" ]] ; then 
	echo -e "\E[31;1mSorry!"
	exit 
fi

COUNTER=0
         while [  $COUNTER -lt $COUNT ]; do
             let COUNTER=COUNTER+1 
	     EPOCH=$(cat lasttxt | cut -d "," -f 1 |  sed -n $COUNTER'p') 
	     DATE=$(perl -e "print scalar(localtime($EPOCH))")
	     INF=$(cat lasttxt | cut -d "," -f 2 | sed -n $COUNTER'p')
	     echo -e '\E[31;1m'$INF '\E[34;1m'$DATE '\E[30;1m'$EPOCH		
         done
rm lasttxt

Güncelleme:
conan^ yazdığım kodu perl kullanarak yeniden yazdı:

#!/usr/bin/perl

if ($#ARGV == 0) {
        $lastfmuser=$ARGV[0];
        } else {
        $lastfmuser = "econan";
        }

my $url = "http://ws.audioscrobbler.com/1.0/user/$lastfmuser/recenttracks.txt";

use LWP::Simple ;

my $sarkilar = get $url;
die "Couldn't get $url" unless defined $sarkilar;

@satirlar = split (/\n/, $sarkilar);
foreach $satir (@satirlar){
        @veriler = split (/,/, $satir);
        print localtime($veriler[0]). "-" . $veriler[1] . "\n";
}

Bu scriptleri kullanmayı planlıyorsanız, last.fm zaman diliminizin ve yerel saat ayarlarınızın uyumunu kontrol edin.

Benim lastfm kodum burada. conan^'ın kodu da burada.

Eh bu kadar lastfm dedik, bu benim lastfm sayfam. conan^'da burada ikamet etmekte :)