Re: [Internauta] rebo paquets de noticies

Mon, 07 Mar 2005 15:25:17 -0800 

El dilluns  7/03/05, a les 11:06 (+0100), Josep Payo va escriure:
> 
> (1) Estaria b� rascar un script que fes una web amb un ranking de 
> missatges amb m�s peus repetits :)

Et refereixes a un script com aquest?

#!/bin/bash

FITXERTXT="$HOME/tmp/ranking.txt"
FITXERHTM="$HOME/tmp/ranking.html"

touch $FITXERTXT $FITXERHTM

while read line; do
        missatge="$missatge"$'\n'"$line"
done

llistaire=`echo "$missatge" | grep -m 1 "^From:" | cut -c 7-`
num_peus=`echo "$missatge" | grep "llista de correu de l'Internauta$" | wc -l`

llistaire=${llistaire/=?*?= /}
llistaire=${llistaire/</&lt;}
llistaire=${llistaire/>/&gt;}

record_personal=0`grep -m 1 "$llistaire" $FITXERTXT | cut -f 1`

[ $num_peus -lt 1 ] && exit
[ $num_peus -lt $record_personal ] && exit

ranking=`<$FITXERTXT`

ranking=`echo "$ranking" | grep -v "$llistaire"`

echo "$ranking" | grep -v '^$' > $FITXERTXT
echo "$num_peus$'\t'$llistaire" >> $FITXERTXT

cat > $FITXERHTM <<EOF
<html>
<head><title>Ranking de peus acumulats</title></head>
<body>
<h1>Classificaci&oacute; general</h1>
<p><i>N.B.:</i> La classificaci&oacute; &eacute;s provisional, a l'espera dels
  resultats del control <i>antidoping</i>.</p>
<pre>

Peus    Llistaire

`sort -n -r $FITXERTXT`

</pre>
<p>&Uacute;ltima actualitzaci&oacute;: `date`</p>
</body>

EOF

-- 
hrnzt

_______________________________________________
llista de correu de l'Internauta
[email protected]
http://zeus.internauta.net/mailman/listinfo/internauta

Respondre per correu electrònic a