मैं एक साधारण मरने की बजाय ब्लॉक को 'या' खंड के रूप में कैसे उपयोग करूं?

Question

मैं मरने के बजाय नेट :: एफ़टीपी पर्ल मॉड्यूल में किसी ऑपरेशन के परिणामों की जांच करना चाहता हूं।

आमतौर पर आप क्या करेंगे:

$ftp->put($my_file) 
    or die "Couldn't upload file"; 

लेकिन मैं कुछ करना चाहता हूँ किसी और के बजाय सिर्फ इस स्क्रिप्ट में मरने तो मैं करने की कोशिश की:

$ftp->put($my_file) 
    or { 
     log("Couldn't upload $my_file"); 
     return(-1); 
    } 

log("$my_file uploaded"); 

लेकिन पर्ल कह संकलन त्रुटियों की शिकायत:

syntax error at toto.pl line nnn, near "log" 

जो मेरे कोड खंड में दूसरा लॉग है।

किसी भी सुझाव की सराहना की।

चियर्स,

Answer 1

do है आप जो खोज रहे हैं:

यहाँ छोटा कोड स्निपेट है

unless($ftp->put($my_file)) { # OR if (!$ftp->put... 
     log("Couldn't upload $my_file"); 
     return(-1); 
} 

हैं:

$ftp->put($my_file) 
    or do { 
     log("Couldn't upload $my_file"); 
     return(-1); 
    }; 

log("$my_file uploaded"); 

लेकिन इस शायद बेहतर शैली है आप बस एक त्रुटि स्थिति वापस करना चाहते हैं, तो आप die और कॉलिंग func में eval का उपयोग कर सकते हैं।

use English qw<$EVAL_ERROR>; # Thus, $@ <-> $EVAL_ERROR 

eval { 
    put_a_file($ftp, $file_name); 
    handle_file_put(); 
}; 

if ($EVAL_ERROR) { 
    log($EVAL_ERROR); 
    handle_file_not_put(); 
} 

और फिर

sub put_a_file { 
    my ($ftp, $my_file) = @_; 
    $ftp->put($my_file) or die "Couldn't upload $my_file!"; 
    log("$my_file uploaded"); 

}

Answer 2

उपयोग है।

sub test { 
    my $val = shift; 
    if($val != 2) { 
     return undef; 
    } 
    return 1; 
} 

test(3) || do { 
      print "another value was sent"; 
}; 

Answer 3

फोन या {करना}; हमेशा मेरे सिर को चोट पहुंचाता है। क्या "या" वाक्यविन्यास (जिसे मैं एक लाइनर के लिए बहुत उपयोग कर रहा हूं) बनाम "अगर" (जिसे मैं बहु लाइनर के लिए पसंद करता हूं) का उपयोग करने का कोई अच्छा कारण है?

तो, क्या इन तरीकों में से किसी एक की प्राथमिकता में उपयोग करने या उपयोग करने का कोई कारण नहीं है?

foo() 
    or do { 
    log($error); 
    return($error); 
    }; 
log($success); 

if (!foo()) { 
    log($error); 
    return($error); 
} 
log($success); 

Answer 4

मुझे समझ में मुश्किल हो रही है कि इसे एक काम में क्यों लपेटा जाना चाहिए। क्या कोई कारण है कि यह पर्याप्त नहीं है?

my $ftp_ok = $ftp->put($my_file) 
    or log("Couldn't upload $my_file") and return -1; 

log("$my_file uploaded") if $ftp_ok; 

यह मानता है कि पुट फ़ंक्शन हमेशा सफलता पर अनिश्चित नहीं होता है।