fork download
copy 
  1. my $config_line = "joins=b:1(2, 3, 4);c:5(6, 7, 8);d:9(10, 11, 12)";
  2.  
  3. my ($name, $value) = split (/=/, $config_line);
  4. if ($name eq "joins")
  5. {
  6.     my @joins;
  7.  
  8.     foreach (split (';', $value))
  9.     {
  10.         push (@joins, {"server" => $1, "port" => $2, "channels" => @{split (', ', $3)}}) if (/(.+):(\d+)\((.+)\)/i);
  11.     }
  12.     $config{"joins"} = \@joins;
  13. }
  14.  
  15. my @joins = @{$config{"joins"}};
  16.  
  17. print $_->{"server"}."\n" foreach @joins;
  18.  
  19.  
Success #stdin #stdout 0s 4552KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
b
c
d
https://ideone.com/xpN6Y5
language:
Perl (perl 5.28.1)
created:
11 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!