Skip to content

Instantly share code, notes, and snippets.

@mizlan

mizlan/parse_mega_asr.pl

Last active July 23, 2021 05:00
Show Gist options

  • Select an option

    Learn more about clone URLs
  • Save mizlan/bc073574945a18f955b205ae790814b9 to your computer and use it in GitHub Desktop.

Select an option

Learn more about clone URLs
Save mizlan/bc073574945a18f955b205ae790814b9 to your computer and use it in GitHub Desktop.
Download ZIP

Revisions

  1. mizlan revised this gist Jul 23, 2021. 1 changed file with 1 addition and 1 deletion.
    2 changes: 1 addition & 1 deletion parse_mega_asr.pl
    View file
    Original file line number Diff line number Diff line change
    @@ -5,7 +5,7 @@
    my %names;

    while (<>) {
    my ($node_number, $node_name, $seq) = /^(\d+)\.\s+([^:]+):\s+(.+)$/ or next;
    my ($node_number, $node_name, $seq) = /^(\d+)\.\s+([^:]+):\s*(.+)$/ or next;
    printf "appending %s to %s (node %s)\n", $seq, $node_name, $node_number;
    $sequences{$node_number} .= $seq;
    $names{$node_number} = $node_name;
  2. mizlan created this gist Jul 22, 2021.
    18 changes: 18 additions & 0 deletions parse_mega_asr.pl
    View file
    Original file line number Diff line number Diff line change
    @@ -0,0 +1,18 @@
    use strict;
    use warnings;

    my %sequences;
    my %names;

    while (<>) {
    my ($node_number, $node_name, $seq) = /^(\d+)\.\s+([^:]+):\s+(.+)$/ or next;
    printf "appending %s to %s (node %s)\n", $seq, $node_name, $node_number;
    $sequences{$node_number} .= $seq;
    $names{$node_number} = $node_name;
    }

    for my $node_number (sort { $a <=> $b } keys %sequences) {
    # strip -'s
    $sequences{$node_number} =~ s/-//g;
    printf "%s. %s: %s\n", $node_number, $names{$node_number}, $sequences{$node_number};
    }