strip.pl

oracle引用库

#!/usr/bin/perl -w

open(IN,$ARGV[0] );
while ( <IN> ) {
  s/std:://g;
  print $_;
}