script eseguibile

[Jaymare]

ciao vorrei chiedervi se è fattibile questa cosa..
devo creare uno script eseguibile che vada a leggermi i valori da due pagine html (i valori nella pagina cambiano continuamente), sommarli e se il valore complessivo supera una certa soglia inviare una mail. Non so da dove iniziare.. qualcuno mi aiuta?

[Fatur]

#!/bin/sh
soglia=23432432
while [ true ]
do
  sleep 60 
  var1=`awk "quel che è per estrarre i dati"`
  var2=`awk "quel che è per estrarre i dati"`
  var3=$[$var1 + $var2]
  if [ $var3 -gt $soglia ]
  then
      mail -s "parapapa" indirizzo@domain.it
  fi
done

[Jaymare]

GRAZIE! ,sapresti aiutarmi anche per tradurlo in perl?

[Fatur]

#!/usr/bin/perl
$soglia=23432432;
while (1)
{
  sleep( 60 );

  $var1=(tiriamo fuori il valore);
  $var2=(tiriamo fuori il valore);
  $var3=$var1 + $var2;
  if ( $var3 >= $soglia )  
     system(" mail -s \"parapapa\" indirizzo@domain.it");
}
exit(0);

per le var dovrei sapere come sono i file... o cmq va bene anche awk come prima...

[Jaymare]

grazie ancora! beh i file sono pagine html che vengono create dinamicamente ogni 5 min e che esprimono un valore in termini di kb/s.. io dovrei sommare due valori per trovare il consumo di banda totale. Quello che devo prendere ad esempio è <TD ALIGN=left><SMALL>484.1 kb/s (23.1%) e sommarlo con un valore preso da un'altra pagina sempre .html

[Jaymare]

ma come faccio a fare in modo che venga preso esattamente quel valore (che è variabile) ???

[Fatur]

Originariamente inviato da Jaymare
grazie ancora! beh i file sono pagine html che vengono create dinamicamente ogni 5 min e che esprimono un valore in termini di kb/s.. io dovrei sommare due valori per trovare il consumo di banda totale. Quello che devo prendere ad esempio è <TD ALIGN=left><SMALL>484.1 kb/s (23.1%) e sommarlo con un valore preso da un'altra pagina sempre .html

open(CICCIO,"<ciccio.html");
while(<CICCIO>){
   $value="$1"  if /<TD ALIGN=left><SMALL>([0-9.]*) kb\/s/ ;
}
close(CICCIO);

echo $value;

forse manca qualche backslash...

[Jaymare]

#!/usr/bin/perl
$soglia=34567;
$file='/var/prova.html';
open(in, "<$file") or die "Non è possibile aprire il file";
while(<in> ){
$value="$1" if /<([0-9.]*)>/; #il valore da recuperare è del tipo: < 345.4 >
}
close(in);
if ($value>$soglia){
print="valore oltre la soglia\n"
} else {
print="valore sotto la soglia\n"
}

errore:
Can't modify print in scalar assignment at /root/JQ.pl line 11, near "}"
Execution of /root/JQ.pl aborted due to compilation errors.

[Jaymare]

So che le espressioni regolari tra () memorizzano il valore nella variabile $1 (come mi hai mostrato nell'esempio) ma se ce ne sono altre si possono salvare nella variabile $2 $3.. in modo da poter memorizzare più valori in più variabili in un sol colpo. Basta semplicemente..
..
$value="$1" if /<in([0-9.]*)>/;
$value="$2" if /<out([0-9.]*)>/;
.. per esempio?

forse non mi sono spiegato un gran che bene

[Jaymare]

..
$value="$1" if /<in([0-9.]*)>/;
$value="$2" if /<out([0-9.]*)>/;
..

scusa intendevo dire
$value="$1" if /<in([0-9.]*)>/;
$value2="$2" if /<out([0-9.]*)>/;