Oracle FAQ | Your Portal to the Oracle Knowledge Grid |
![]() |
![]() |
Home -> Community -> Mailing Lists -> Oracle-L -> Re: Combined SGA size and Total Memory
On 06/23/2004 08:04:03 PM, Thomas Biju wrote:
> R3JhZW1lLA0KTm8sIEknbSBub3QgdGFsa2luZyBhYm91dCBpbmNyZWFzaW5nIHRoZSBzaXplIG9m
If someone needs it, here is a useful tool to decode messages like this:
#!/usr/bin/perl -w
use strict;
use Getopt::Long; use MIME::Base64; my ( $in, $out );
# Parse command line options
my $stat = GetOptions(
"i|input=s" => \$in, "o|output=s" => \$out, "h|help|?" => \&usage
if ( defined $in ) {
close(STDIN);
open( STDIN, "<", $in ) || die "Cannot open $in for reading:$!\n";
}
if ( defined $out ) {
close(STDOUT);
open( STDOUT, ">", $out ) || die "Cannot open $out for writing:$!\n";
}
# Move to the first empty line and start decoding after it. while (<STDIN>) { last if /^\s*$/; }
# Decode until the end of the file or the first empty line. while (<STDIN>) {
last if /^\s*$/;
printf( "%s", decode_base64($_) );
}
sub usage {
q( mimedecode - command line utility for decoding MIME encoded files. USAGE:mime -i <input file> -o <output file>);
exit(0);
}
-- Mladen Gogala Oracle DBA ---------------------------------------------------------------- Please see the official ORACLE-L FAQ: http://www.orafaq.com ---------------------------------------------------------------- To unsubscribe send email to: oracle-l-request_at_freelists.org put 'unsubscribe' in the subject line. -- Archives are at http://www.freelists.org/archives/oracle-l/ FAQ is at http://www.freelists.org/help/fom-serve/cache/1.html -----------------------------------------------------------------Received on Wed Jun 23 2004 - 19:33:59 CDT
![]() |
![]() |