Tempo di lettura: < 1 min

Ho appena rilasciato su CPAN un modulo Perl per interfacciarsi ai file .net del programma di simulazione di propagazione elettromagnetica Radio Mobile.

Attualmente il modulo fa un'unica cosa, legge un file .net creato da Radio Mobile e ne analizza tutte le informazioni creando un modello ad oggetti del file. Questo modello ad oggetti può essere usato, ad esempio, per inserire le informazioni in esso contenute in un database.

Per esempio, questo pezzo di codice,

[code lang="perl"] use RadioMobile;
my $rm = new RadioMobile();
$rm->file('net1.net');
$rm->parse;

my $header = $rm->header;
my $units = $rm->units;

foreach my $idxUnit (0..$header->unitCount-1) {
my $unit = $units->at($idxUnit);
printf("%s at lon %s and lat %s\n", $unit->name,
$unit->lon, $unit->lat);
}
[/code]

produce come risultato roba di questo genere

[code]

Unit  1 at lon 43.4223 and lat 13.4353
Unit  2 at lon 43.43242 and lat 13.4244
Unit  3 at lon 0 and lat 0
Unit  4 at lon 0 and lat 0
Unit  5 at lon 0 and lat 0
Unit  6 at lon 0 and lat 0
Unit  7 at lon 0 and lat 0
Unit  8 at lon 0 and lat 0
Unit  9 at lon 0 and lat 0
Unit 10 at lon 0 and lat 0
[/code]

Quanto prima, in una prossima versione, vedrò di realizzare la "magia" opposta ossia, da informazioni, caricate ad esempio da un database, andare a creare un file .net ex-novo, da dare poi in pasto a Radio Mobile.