|
Linux's Witness Ministry
|
#!/usr/bin/perl -w
#ex-io.pl
while (<STDIN>) {
s/^(.*MB)( *\d*)( *\d* *)\((\d*)\)/sprintf("$1 %d6 %d6 (%d7)", ($2 + 1000000), ($3 + 1000000), ($4 + 953421) )/e;
print $_;
}
| Return to Program Examples |
| This page was created with only free, open-source, publicly licensed software. This page was designed to be viewed with any browser on any system. |
| Chris X. Edwards ~ January 2003 |