[Image of Linux]
Linux's Witness Ministry
The Personal Web Pages of Chris X. Edwards

ex-fancyregexp.pl
-------------------------- 
#!/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