#!/bin/sh
wget -qO - http://www.lastfm.com.tr/music/+free/ > lasttxt
cat lasttxt | grep "http://freedownloads.last.fm/download" | cut -d'"' -f4 > lastlist; rm lasttxt
wget -nc -c -i lastlist; rm lastlist

Şiddetle incelenesi ve feyz alınası bir şey!

Şu saatte bütün günün işini bitirebilme yetisi aynı zamanda ahahahaaa...

/* Emits a 7-Hz tone for 10 seconds.
True story: 7 Hz is the resonant
frequency of a chicken's skull cavity.
This was determined empirically in
Australia, where a new factory
generating 7-Hz tones was located too
close to a chicken ranch: When the
factory started up, all the chickens
died.
Your PC may not be able to emit a 7-Hz tone. */

FZ'nin hatırlattığı "tavuk katili kod"un beep ile gerçellenmesi: [1]

$ beep -f 7 -l 10000

İzlenimler: Muhabbet kuşu pek etkilenmiş görünmüyor. Ama ilginçtir, lepistesler rahatsız oldular sanki. Duyabildiklerini bilmiyordum doğrusu...

Sinopsis: İnsan beyninin, o anki aktivitesine göre, çeşitli beyin-dalgaları yaydığı bilinir. 7 hz Alpha ve Theta arasında bir yerde (aslında tam ortada, iki dalga aralığı için de referans teşkil ediyor). Theta dalgaları (3.5/4-7 hz), genellikle kreatif aktiviteleri temsil ediyor. Öğrenme, hafızanın kullanımı yada üretkenlik gibi. Alpha dalgalarının da (7 -12 hz/8-13 hz) tamamen farklı bir ruh halini temsil ettiğini söylemek güç. Theta benzeri bir odaklanma ve iç huzurun temsili söz konusu. Hatta yarı-meditatif bir hal...

Şimdi, insan beyni için meditasyon halini işaret eden 7 hz'in, tavukları katletmesi (eğer Avusturalya'daki tavuklarda, diğer akrabalarından farklı olarak, bir modifikasyon yoksa) ilginç değil mi?

Hele ki bazı "zen hali arayan topluluklar"ın bir araya geldiklerinde özellikle 7hz değerinde sesler üreten müzik aletleriyle meditasyon yapmaları (bu frekansın pozitif etkisi olduğuna inanıyorlar), gerçekten tavuklar açısından kaygılanmama yol açabilirdi...

-di çünkü 7 hz'in tavukları katletmek için tek başına bir yeterliliği yok. Tabi beraberinde zehirli gaz verirseniz bilemem...

-di çünkü, bu tür hayvanların popülasyonları endüstriyel çiftliklerde kontrol altında tutuluyor, eceliyle ölenler popülasyonun çok küçük bir kesimini oluşturuyor. Doğal yaşayamamaları nedeniyle oluşan stresi azaltabilmek için kimyasallar veriliyor. WWF gibi oluşumlar, yok olma tehdidi altında olmadıkları için, bu türlerle ilgilenmiyor. Dolayısıyla ben de bu "şeylere" canlı muamelesi yapmakla, yapmamak arasında kalıyorum...

Galiba, artık bu organizmalara "hayvan" gözüyle de bakmıyoruz. Bir üretim/tüketim metası oldular. Gıda sektörü gibi, "ne olsa yemeye çalışan" bir sektörü beslemek zor iş. Ama diğer taraftan, bunu insanlığa olan saygımızı sürdürebileceğimiz bir biçimde yapmamız en makulu olsa gerek. Böylece vicdanınız daha rahat olur, bakarsınız meditasyona da gerek kalmaz. Çünkü, bir insanın yeryüzünde onuruyla yaşaması, sahip olabileceği en relax karmayı ihtiva eder.

Not: Bu da Tibet keşişlerinin eğitilmeye değer öğrenci bulmak için kullandığı bir kod. Tahammül edebilenler, başarılı sayılıyorlar:

$ beep -f 6765 -l 10000

Not 2: Konuyla ilgili bir adres.

[1] http://everything2.com/index.pl?node_id=1073503&lastnode_id=0

© Emre "conan" Sağlam

#!/bin/bash

# Usage:
# speedy.sh <filename> [<filesize>]

clear
OLDFILESIZE=`ls -al "$1" | awk '{print \$5}'`
sleep 2
while true; do
 FILESIZE=`ls -al "$1" | awk '{print \$5}'`
 let "DIFF = $FILESIZE - $OLDFILESIZE"
 let "SPEED = $DIFF / 2 / 1024"
  if [ $2 ]
        then
         let "ETA = (($2*1024*1024) - $FILESIZE )*2 / $DIFF"
         let "ETAM = $ETA/60"
         echo "Filesize: $2MB | Downloaded: $FILESIZE bytes"
         echo "$1 download speed = $SPEED Kb/s  | ETA: $ETA s - $ETAM m"
	 echo -n "Press any key to exit" 
	 if read -t 3 response 
           then exit 
	 fi
  else
    echo "Downloaded: $FILESIZE bytes"
    echo "$1 download speed = $SPEED Kb/s"
    echo -n "Press any key to exit" 
    if read -t 3 response 
      then exit 
    fi
  fi
    let "OLDFILESIZE = $FILESIZE"
   sleep 2
 clear
done

#!/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 :)