[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