View Single Post
Old 25-12-2011, 16:30   #1
basileus_82
Member
 
Iscritto dal: Aug 2007
Messaggi: 64
[Perl] gestione eccezione

ciao a tutti

per gestire le eccezioni uso eval

vorrei che quando viene catturata l'eccezione, non venisse stampato nulla, ma solo si vedesse la messagebox

ora come ora mi da entrambi

ho provato anche
Codice:
die "$!"
al posto di
Codice:
return
ma nulla

il pezzo di codice di interesse è qui sotto

Codice:
---
eval { local $@; $workbook = $template->SaveAs($out); 1 } 
 or do {$mw -> messageBox(-icon =>'warning',-message=>"File aperto, chiudilo e ritenta",-type=>'ok'); return ; }; 
---
basileus_82 è offline   Rispondi citando il messaggio o parte di esso