[bcn-pm] consulta
Agud Pique, Enric
eagud.q a tv3.cat
dll nov 11 11:46:11 PST 2013
Una consulta gent,
Faig un cat i un grep d'un fitxer buscant la paraula SUCCESS i despres la passo per mail.
Tal com ho he fet funciona, però vull saber si ho farieu d'una altra manera, el cat i grep els utilitzo en shell, però desconec si aquesta és la millor manera de fer-ho en perl, executo les funcions entre ' '...
En perl, les funcions cat i grep de shell també funcionen?
#!/usr/bin/perl -w
use Class::Date qw(date now);
my @missatge = `cat run_WRF_eur55km_12.log |grep SUCCESS`;
print "-----> @missatge\n";
$time=localtime(time());
open(MAIL,"|/usr/lib/sendmail -t");
print MAIL "to:meteo\@tv3.cat\n";
print MAIL "from:eagud.q\@tv3.cat\n";
print MAIL "Subject:simulacio WRF\n\n";
print MAIL "@missatge.\nIt was sent on:$time\n";
close(MAIL);
exit(0);
###################################################################################
Exemple:
Resultat
[sam a wrf logs]$ ./mail.pl
d01 2013-11-18_12:00:00 real_em: SUCCESS COMPLETE REAL_EM INIT
d01 2013-11-18_12:00:00 wrf: SUCCESS COMPLETE WRF
Gràcies avançades!
Enric
Més informació sobre la llista de correu Barcelona-pm