#!/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:    fmilano@thunderbox.uwaterloo.ca#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";