perl dancer 基础7

MVC
   +------------------------+ 
   |                        V 
+------+    +----+    +----------+     +-----+     +--+
|client|<---|view|<---|controller|<--->|model|<--->|DB|
+------+    +----+    +----------+     +-----+     +--+

get '/check_backup' => sub{
	template 'check_class/check_database_backup';
};
post '/check_backup' => sub{
	my $mail_addr = param("email_addr");
	my @mail_list = split /\n/,$mail_addr;
	my $tmp_resault = '';
	foreach(@mail_list){
		$_ =~ s/(^\s+|\s+$)//g;
		chomp($_);
		next if ($_ eq '');
		unless  (  $_ =~ /\@163.com/ ){
		$tmp_resault .= "error receiver! pleaes retype!!!";
		last;
		}
		$tmp_resault .=`/home/dancer/bin/D_check_backup_for_db.pl  -p /home/dancer/bin/.passfile/abc_pass `;
	}
	return  '<pre>'.$tmp_resault.'</pre>';
	
};