30分スクリプト for wassr reader

ちょっとした現実逃避の30分コーディング。

参照はwassr API 仕様書

#!/bin/sh
#  $Id: wassr,v 1.1 2011/03/04 01:27:05 yaemon Exp $
#
for i in 1 2 3 4 5 6 7 8 ; do
 wget   -q --user=UserID --password="PassPhrase"  -O - \
 'http://api.wassr.jp/statuses/friends_timeline.json?page='"$i" | \
 json_xs -f json -t yaml 2> /dev/null
done |  \
egrep -v '~$' | \
egrep -v '^  (id|rid|link|text|user):' | \
grep -v '^    ' | \
egrep -v '^---$' | \
less

---

#!/bin/sh
#  $Id: wassr,v 1.2 2011/03/04 01:39:12 yaemon Exp $
#
# for i in 1 2 3 4 5 6 7 8 ; do
for i in 1 2 ; do
 wget   -q --user=UserID --password="PassPhrase"  -O - \
 'http://api.wassr.jp/statuses/friends_timeline.json?page='"$i" | \
 json_xs -f json -t yaml 2> /dev/null
done |  \
egrep -v '~$' | \
egrep -v '^  (id|rid|link|text|user):' | \
grep -v '^    ' | \
egrep -v '^---$' | \
perl -MDateTime -e '{while ( my $line =  )
{
if ( $line =~ s/^  epoch: // )
 {
 chomp( $line );
 my $d =  DateTime->from_epoch(epoch => $line); 
 $d->set_time_zone( "Japan") ; 
 print "\n" , $d->hms() , "\n";
}
else
 {
 print $line;
}} }' | \
less

どうせ perl 使うなら、(e)grep 行もすべて perl に任せて、ついでに記事ごとのフォーマットもすべし ?

うん、もちろん。朝の30分の頭の体操としてはここで打ちきるというだけの話。

そして、トイ・スクリプトがテストをしてデータを見ながら、どうやってきちんとしたプログラムになっていくのかという過程を公開してみたい て稚気です。