blob: b0d9dc8e510ddf31351aa7a288e9589cda077352 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
|
#!/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 $_;
}
|
