cleanupDV.pl 228 Bytes
Newer Older
Thanassis Tsiodras's avatar
Thanassis Tsiodras committed
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
#!/usr/bin/perl -w
use strict;

if (scalar @ARGV != 1) {
    die "Usage: $0 deploymentView.aadl\n";
}

$/=undef;

my $allText = <>;

my $anchor = "-- copied aadl libraries";

$allText =~ s/$anchor.*$//s;
print $allText.$anchor;