Remove *parameter from Abaqus input file

abaqus_remove_parameter.pl

#!/usr/bin/env perl

use strict;
use warnings;

if (@ARGV != 1) {
  warn "$0 input_with_parameter.inp > output_without_parameter.inp\n";
  exit 1;
}


my $context = "";
my %symbols;

open my $fh, '<:utf8', $ARGV[0] or die $!;
while (<$fh>) {
  if (/^\*(\w+)/) {
    $context = $1;
  }

  s/\R$//;

  if ($context eq "parameter") {
    next unless /=/;

    s/^ +//;
    s/ +$//;

    my($lhs, $rhs) = split / *= */;
    while (my ($k, $v) = each %symbols) {
      $rhs =~ s/\b$k\b/$v/g;
    }

    my $value = eval $rhs;
    die "eval error: `$rhs`: $@\n" if $@;

    $symbols{$lhs} = $value;
  } else {
    s/<(\w+)>/$symbols{$1}/g;
    print $_, "\n";
  }
}
close $fh;

=pod
for my $k (sort keys %symbols) {
    print "** $k = $symbols{$k}\n";
}
=cut