क्या आप पर्ल में एक सरणी होने के लिए या तो स्केलर या सरणी को रेफरी कर सकते हैं?

मैंने अभी इसका परीक्षण किया है:

  #! / usr / bin / perl -w
सख्त उपयोग करें;

सब टेस्टिट {

 मेरा @ret = ();
 अगर (शिफ्ट) {
   पुश @ रेट, 1;
   पुश @ रेट, 2;
   पुश @ रेट, 3;
}अन्य{
  पुश @ret, "अकेला";
}

वापसी \ @ret;
}

मेरे $ आर (@ {testit (1)} foreach() {
  प्रिंट $ आर। "test1 \ n";
}
मेरा $ आर (@ {testit ()} foreach ({
   प्रिंट $ आर। "test2 \ n";
}
 

और ऐसा लगता है कि यह ठीक काम करता है, इसलिए मुझे लगता है कि सेवा से लौटने के परिणाम के साथ इसका कुछ संबंध है? यदि आपके पास लौटने वाली सेवा पर कोई नियंत्रण नहीं है तो यह क्रैक करने के लिए कठिन हो सकता है

मुझे यकीन नहीं है कि इससे कोई अन्य तरीका है:

  $ result = [$ परिणाम] अगर रेफरी ($ परिणाम) ne 'ARRAY';
प्रत्येक के लिए .....
 

ठीक है अगर आप नहीं कर सकते ...

for my $result ( ref $results eq 'ARRAY' ? @$results : $results ) {
    # Process result
}

या यह...

for my $result ( ! ref $results ? $results : @$results ) {
    # Process result
}

तो आपको इस तरह कुछ बालों वाली डरावनी कोशिश करनी पड़ सकती है!

for my $result ( eval { @$results }, eval $results ) {
    # Process result
}

और उस खतरनाक स्ट्रिंग से बचने के लिए यह वास्तव में बदसूरत हो जाता है !!

for my $result ( eval { $results->[0] } || $results, eval { @$results[1 .. $#{ $results }] } ) {
    # Process result
}

पुनश्च। मेरी प्राथमिकता इसे उप-कॉल कॉल_to_service() उदाहरण में रीटमन द्वारा दिया गया है।

मैं लूप के अंदर कोड फिर से कारक करूँगा और फिर करता हूं

if( ref $results eq 'ARRAY' ){
    my_sub($result) for my $result (@$results);
}else{
    my_sub($results);
}

बेशक मैं केवल तभी ऐसा करूंगा यदि लूप में कोड गैर-तुच्छ था।

एक और समाधान कॉल को सर्वर पर लपेटना होगा और अपने जीवन के बाकी हिस्सों को सरल बनाने के लिए हमेशा एक सरणी वापस कर देना होगा:

sub call_to_service
{
    my $returnValue = service::call();

    if (ref($returnValue) eq "ARRAY")
    {
        return($returnValue);
    }
    else
    {
       return( [$returnValue] );
    }
}

फिर आप हमेशा यह जान सकते हैं कि आप एक सरणी का संदर्भ वापस ले लेंगे, भले ही यह केवल एक आइटम था।

foreach my $item (@{call_to_service()})
{
  ...
}