#!/usr/bin/perl -w# SIMDATA extracts index vector from Simulink "MaskVariables" field## SIMDATA STRING## Author:  Federico Milano# Date:    08-Aug-2003# Version: 1.0.0##E-mail:    fmilano@thunderbox.uwaterloo.ca#Web-site:  http://thunderbox.uwaterloo.ca/~fmilano$_ = $ARGV[0];$_ =~ s/x/:/g;$_ =~ s/p//g;$_ =~ s/_/ /g;$_ =~ s/q=@([0-9]*);/ /g;$_ =~ s/(in|out)=@([0-9]*);/ 1 /g;print "[$_]";