genusOS/src/rep.pl

6 lines
76 B
Perl

while(<>) {
s/\buint(..?)_t\b/u\1/g;
s/\bint(..?)_t\b/i\1/g;
print;
}