use Socket;について熱く語るスレ

[0057 nobodyさん 02/03/26 11:44 ID:???]

my ($host, $port, $file) = ($uri =~ m!http://([^:/]+)(?::(\d+)?(.+)!);

$portにundefだか0だかが入るのを気にしなければ1行。