- #278 7.2 -9.4 h 2.3
- if($line =~ /^(.*) (.*) (.*) h (.*)$/)
- {
- print "\t\t<peer id=\"peer-$1\" coordinates=\"$2 $3 $4\" power=\"730000000.0\"\n";
- print "\t\tbw_in=\"13380000\" bw_out=\"1024000\" lat=\"5E-4\" />\n\n";
- }
+ next if ($line =~ /^#/);
+ # 278 7.2 -9.4 h 2.3
+ if($line =~ /^(\S*) (\S*) (\S*) h (\S*) *$/) {
+ print "\t\t<peer id=\"peer-$1\" coordinates=\"$2 $3 $4\" speed=\"730Mf\" bw_in=\"13.38MBps\" bw_out=\"1.024MBps\"/>\n";
+ next;
+ }
+ die "Parse error: $line\n";