X-Git-Url: http://info.iut-bm.univ-fcomte.fr/pub/gitweb/simgrid.git/blobdiff_plain/ba9a4cfeba4eb00e84cd17603fc9654e81445655..HEAD:/examples/platforms/syscoord/generate_peer_platform.pl diff --git a/examples/platforms/syscoord/generate_peer_platform.pl b/examples/platforms/syscoord/generate_peer_platform.pl index 9e4c6a3568..d5eccd1866 100755 --- a/examples/platforms/syscoord/generate_peer_platform.pl +++ b/examples/platforms/syscoord/generate_peer_platform.pl @@ -1,6 +1,6 @@ #!/usr/bin/env perl -# Copyright (c) 2011, 2014, 2016. The SimGrid Team. +# Copyright (c) 2011-2023. The SimGrid Team. # All rights reserved. # This program is free software; you can redistribute it and/or modify it @@ -10,15 +10,11 @@ use strict; use warnings; print "\n"; -print "\n"; +print "\n"; print "\n\n"; print "\n\n"; -print "\t\n"; -print "\t\t\n"; -print "\t\n\n"; - print "\t\n"; my $line; @@ -27,12 +23,12 @@ open INPUT, $ARGV[0] or die "Unable to open $ARGV[1]: $!\n"; while(defined($line=)) { next if ($line =~ /^#/); - # 278 7.2 -9.4 h 2.3 - if($line =~ /^(.*) (.*) (.*) h (.*)$/) { - print "\t\t\n"; + # 278 7.2 -9.4 h 2.3 + if($line =~ /^(\S*) (\S*) (\S*) h (\S*) *$/) { + print "\t\t\n"; next; } die "Parse error: $line\n"; -} +} print "\t\n"; print "\n";