Parse an IP Address: Difference between revisions

Parse an IP Address (view source)

10 bytes added , 5 years ago

→‎{{header|Perl 6}}: Fix issue with arrays-in-arrays causing spaces in output on modern Perl 6.

Anonymous user

Revision as of 12:33, 9 July 2018 (view source) rosettacode>Cloudius (→‎{{header\|Scala}}) ← Older edit		Revision as of 19:42, 3 September 2018 (view source) rosettacode>Jmaslak (→‎{{header\|Perl 6}}: Fix issue with arrays-in-arrays causing spaces in output on modern Perl 6.) Newer edit →
Line 1,466: { @by16 = @$<h16> } \| [ (<h16>) +% ':']? '::' (<h16>) +% ':' <?{ @$0 + @$1 <=≤ 8 }> { @by16 = \|@$0, \|('0' xx 8 - (@$0 + @$1)), \|@$1 } \| '::ffff:' <IPv4> { @by16 = \|('0' xx 5), 'ffff', \|(by8to16 @by8) } } token d8 { (\d+) <?{ $0 < 256 }> } token d16 { (\d+) <?{ $0 < 65536 }> } token h16 { (<:hexdigit>+) <?{ @$0 <=≤ 4 }> } token port { Line 1,521: say $addr; if @by16 { say " IPv6: ", @by16».map({:16(~$_)})».fmt("%04x").join; say " Port: ", $port if $port; }