You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
tdebase/konsole/doc/VT100/t.pl

18 lines
331 B

#!/usr/bin/perl
# This script is here only as a pattern for maintainance works.
# It has changing contents and is of no use to anyone but me.
$source = "Table.Codes";
open(CODES, $source) || die "cannot open file '" . $source . "'.";
while (<CODES>)
{
if (/^attr/)
{
s/VT100/VT100 ANSI/ if (!/DEC/);
}
print $_;
}