#!/bin/sh
#
# sign-stats.sh - make sign statistics
#
# Developed by Ondrej Jombik <nepto@platon.sk>
# Copyright (c) 2003 Platon SDG, http://platon.sk/
# Licensed under terms of GNU General Public License.
# All rights reserved.
#
# Changelog:
# 15/07/2003 - created
#
# $Platon: scripts/shell/zoznamka-fun/sign-stats.sh,v 1.1 2003/07/15 19:56:04 nepto Exp $
#
# [1] URL
#
# http://zoznamka.azet.sk/viac.phtml?&c_inz=245437&cast=2
#
# [2] Text
#
# Moje znamenie vo zverokruhu je: panna (23.8.-22.9.),
# ale bohuzial len v zverokruhu
# Vierovyznanie:
# verim v buducnost a v to ze aj tak raz pride nieco co ma naozaj
#
# [3] Usage
#
# ./sign-stats.sh ID | sort | uniq -c | sort -r > 2003-07-15.sign-stats.txt
#
if [ $# -lt 1 ]; then
echo "Usage: $0 ids_file";
exit 1;
fi
if [ -r "$1" ]; then
ids=`cat $1`;
else
ids="$1";
fi
for id in $ids; do
lynx -dump "http://zoznamka.azet.sk/viac.phtml?&c_inz=$id&cast=2" \
| perl -we 'while(<>){if(/Moje znamenie vo zverokruhu je:[^\w]*(.*)$/){print "$1\n";}}';
done
Platon Group <platon@platon.sk> http://platon.sk/
|