view TL1/toasm.pl @ 117:f8f44153f8c1

add TL1 source
author Shinji KONO <kono@ie.u-ryukyu.ac.jp>
date Fri, 04 Jan 2019 07:39:19 +0900
parents
children 8f2154d95a04
line wrap: on
line source

#!/usr/bin/perl

while(<>) {
    s/\r\n$//;
    s/^\d+ //;
    print $_,"\n" 
}