Skip to content

Latest commit

 

History

History
30 lines (26 loc) · 797 Bytes

PerlCode.md

File metadata and controls

30 lines (26 loc) · 797 Bytes
Raw

From the old parser-openedit.pl

select one:

if($ARGV[2] eq "a") { print "$=" foreach @arr; } elsif($ARGV[2] eq "b") { print "$=$\n" foreach @arr; } elsif($ARGV[2] eq "d") { print substr($, 1) . "=". substr($_ , 1) . "\n" foreach @arr; } #ToDo: test this ???? elsif($ARGV[2] eq "t") { print substr($, 5). "={" . substr($, 5) ."}\n" foreach @arr; } elsif($ARGV[2] eq "tli") { print "

  • {Def." . substr($, 5) .".sec}
    • " foreach @arr; }

    elsif($ARGV[2] eq "tbase") { print substr($_, 0, -7) .".=[G/Z/Base]" foreach @arr; }

    elsif($ARGV[2] eq "x") { print "$=" . substr($, 0, -5)."\n" foreach @arr; }

    else { print "$_=" foreach @arr;