Perl-Script, wer kann helfen?

[EatNoFish]

Ich sollte ein kurzes Perlscript haben, das mir für genau 50 Punkte zufällige Koordinaten (pseudozufällig reicht mir völlig) mit x- und y-Werten zw. 0 und 100 erstellt und diese in ein Textfile speichert. Das Textfile sollte ungefähr so aussehen:

   8.4713801e+00 ;  5.3828506e+01
   7.8485088e+01 ;  9.5707562e+01
   9.8876259e+01 ;  5.6999314e+01
   1.3291438e+01 ;  8.7471140e+01
   8.9201204e+01 ;  2.7446580e+01
   4.6412418e+00 ;  9.4667586e+01
   5.3504061e+00 ;  7.8122316e+01
   2.4275287e+01 ;  1.7706801e+00
   9.4748932e+01 ;  5.9820763e+01
   4.5299805e+01 ;  7.5637914e+00

Mein Problem ist, dass ich mich damit nicht auskenne und erst lange Basiskenntnisse aneigenen müsste. Ich glaube jedoch, dass dieses Script für einen "Perler" eine kurze Sache ist. Vermutlich macht man eine while-Schleife, die genau 50mal wiederholt wird und bei jedem Durchlauf die Koordinaten für einen Punkt generiert und in eine Liste abspeichert. Nur leider kann ich das so nicht in Perl umsetzen. Wer ist so lieb? Danke.

 

[RRA^StArFiRe]

#!/usr/bin/perl

$lower=0; 
$upper=99; 
open(file, ">test.txt");
 for ($i = 0; $i < 50; ++$i)
{
  $random = float(rand( $upper-$lower+1 ) ) + $lower; 
  print file $random," ;";  
  $random = float(rand( $upper-$lower+1 ) ) + $lower;
  print file " ",$random,"\n"; 
 }
close (file);

versuchs ma damit. aber kein plan ob der das ';' so annimmt, evtl musste ein // oder so davormachen.
das lower kannste auch rausschmeissen wennde willst, aber damit kannst dann auch leichter negative werte erstellen.
und könnt sein dass man das nicht so einfach zu nem float casten kann, oder ob das unnötig ist, weils schon n float ist.
naja musst ausprobiern, hab lange nix mehr mit perl gemacht und nix zum testen hier.

 

[EatNoFish]

Herr Starfire, sie waren mir eine grosse Hilfe. Vielen Dank! Funktioniert genau, wie es sollte. Ich habe nach einem ersten Test die beiden "float" rausgenommen, und es funktionierte auf Anhieb. Very nice!