ラベルつきBASICリストを行番号になおす

ennum.pl

#!/usr/bin/env perl
# Usage: cat program.lbas | perl ennum.pl > program.bas
# Example:
# `@loop
# PRINT "nya-n"
# GOTO @loop

use strict;
use warnings;
use utf8;

my $start = 10;
my $step = 10;

my %labels;
my $lineno = $start;
my @lines;
while (my $line = <>) {
    chomp $line;
    $line =~ s/^\d+\s+//;
    next if $line eq '' || $line eq "'" || uc($line) eq "REM";
    if ($line =~ m/^'\@([-_a-zA-Z0-9]+)/) {
        $labels{$1} = $lineno;
        next;
    }
    push @lines, $line;
    $lineno += $step;
}

$lineno = $start;
for my $line (@lines) {
    if ($line !~ m/^('|[rR][eE][mM])/) {
        $line =~ s!([^"]*)("[^"]*")?!$1 =~ s/\@([-_a-zA-Z0-9]+)/$labels{$1}/gr . ($2 || '')!ge;
        # $line =~ s/\@([-_a-zA-Z0-9]+)/$labels{$1}/g if $line !~ m/^'\@/;
    }
    print "$lineno $line\n";
    $lineno += $step;
}