sim2sim

电力系统的psat

#!/usr/bin/perl -w
# SIM2SIM adjust PSAT Simulink 5 model for use in older Simulink x
#
# SIM2SIM FILEINPUT FILEOUTPUT VERSION
#
# Author:  Federico Milano
# Date:    07-Aug-2003
# Version: 1.0.0
#
#E-mail:    [e-mail]
#Web-site:  http://thunderbox.uwaterloo.ca/~fmilano


# -----------------------------------------------------------------------
# open input and output files
# -----------------------------------------------------------------------
open(IN,$ARGV[0]) || die "cannot open $ARGV[0]: $!\n";
open(OUT,">$ARGV[1]") || die "cannot open $ARGV[1]: $!\n";

# -----------------------------------------------------------------------
# scan file
# -----------------------------------------------------------------------
while (<IN>) {
    $_ =~ s/fm_lib/fm_lib_$ARGV[2]/;
    print OUT "$_";
}

# -----------------------------------------------------------------------
# close input and output files
# -----------------------------------------------------------------------
close(IN) || die "cannot close $ARGV[0]: $!\n";
close(OUT) || die "cannot close $ARGV[1]: $!\n";