Update bin/parse_asn1.pl for argv

dbcls · Aug 20, 2024 · b6dd8ae · b6dd8ae
1 parent e927f37
commit b6dd8ae
Showing 1 changed file with 23 additions and 3 deletions.
diff --git a/bin/parse_asn1.pl b/bin/parse_asn1.pl
@@ -10,6 +10,11 @@
 my %OPT;
 getopts('', \%OPT);
 
+my $INPUT_FILE;
+if (@ARGV) {
+    $INPUT_FILE = $ARGV[0];
+}
+
 my $summary = "";
 my $reading = 0;
 while (<>) {
@@ -33,19 +38,34 @@
 }
 
 if ($summary) {
+    my $out = "";
+    my $src = "";
+
     if ($summary =~ /",$/) {
         $summary =~ s/",$//;
         if ($summary =~ /(.*)\[(.*)\]/) {
             my ($text, $comment) = ($1, $2);
             if ($text =~ / $/) {
                 $text =~ s/ $//;
             }
-            print "$text\n";
-            print STDERR "$comment\n";
+            $out = "$text\n";
+            $src = "$comment\n";
         } else {
-            print "$summary\n";
+            $out = "$summary\n";
         }
     } else {
         die $summary;
     }
+
+    if ($INPUT_FILE) {
+        open(OUT, ">${INPUT_FILE}.en") or die;
+        print OUT $out;
+        close(OUT);
+        open(SRC, ">${INPUT_FILE}.src") or die;
+        print SRC $src;
+        close(SRC);
+    } else {
+        print $out;
+        print STDERR $src;
+    }
 }