simdata

来自「电力系统的psat」· 代码 · 共 20 行

#!/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:    [e-mail]
#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 "[$_]";