http://www.perlmonks.org?node_id=1169177


in reply to Socket SMTP email inappropriate i/o control operation

Unrelated to your question but ($x, $x, $x, $x, $here) = gethostbyname($null); can be written (undef, undef, undef, undef, $here) = gethostbyname($null);.

Replies are listed 'Best First'.
Re^2: Socket SMTP email inappropriate i/o control operation
by $h4X4_|=73}{ (Monk) on Aug 05, 2016 at 15:00 UTC

    yes and it can also be written like this.
    ($here) = (gethostbyname($null))[4];

[reply]
[d/l]
      Parentheses on the LHS not needed. (And around $null either.) 
      $here = (gethostbyname $null)[4];

      [download]

      ($q=q:Sq=~/;[c](.)(.)/;chr(-||-|5+lengthSq)`"S|oS2"`map{chr |+ord
}map{substrSq`S_+|`|}3E|-|`7**2-3:)=~y+S|`+$1,++print+eval$q,q,a,

      [download]
[reply]
[d/l]
[select]

In Section Seekers of Perl Wisdom