Acceder Oracle OS Account

Hola, este es un mini-script en pl/sql que permite referenciar tu cuenta de tu OS a la bd de oracle para que asi ya no necesites loguearte en oracle, sino se logueara automaticamente apenas entres a tu linux.

------------------------------------------------
-- Creación de Usuarios OS Authentication (LINUX)
------------------------------------------------

-- Creando el usuario autentificado vi­a OS
CREATE USER ops$oracle IDENTIFIED EXTERNALLY
DEFAULT TABLESPACE USERS
TEMPORARY TABLESPACE TEMP;

-- Consultando a la BD
select username, password from dba_users order by username order by 1;

-- Dandole privilegios
GRANT CREATE SESSION TO ops$oracle

select osuser from v$session;
SELECT USER FROM DUAL;

-- Probando el user OS
sqlplus /

Manejo Fechas en Perl

:D este es mi primer post, bueno aqui muestro un codigo que hice para el manejo de fechas en si, para mostrar la fecha en formato 12 horas, esta hecho en perl(perl corre en cualquier plataforma), al archivo de este ejmemplo lo llamaremos fecha.pl, si eres usuario de linux usaremos el editor macho :) VIM
[diego@trujillo ejemplos]# vim fecha.pl
escribimos el siguiente codigo

#!/usr/bin/perl
use strict;
print "Feca actual: ". fechas()."\n";

sub fechas {
my $self = shift;

my $end_time = shift;

my $ampm = "AM";
my @strday = ("Domingo","Lunes","Martes","Miercoles","Jueves",
"Viernes","Sabado");

my @strmon = ("Enero","Febrero","Marzo","Abril","Mayo","Junio","Julio","Agosto",
"Setiembre","Octubre","Noviembre","Diciembre");

my ($second, $minuto, $hora, $day, $month, $year, $week, $dayd, $isd ) = (localtime($end_time));

$ampm = "PM" if ($hora > 11);

$hora = $hora - 12 if ($hora > 12);

$minuto = "0" . $minuto if (length($minuto) == 1);

$year = $year + 1900;
my $final_date=substr($strday[$week],0,3)." ".substr($strmon[$month],0,3)." ".$day." ".$year." "."at "."$hora:$minuto $ampm";
return($final_date);
}
1;
lo guardamos presionando dos veces la tecla esc y despues :wq con eso salva el archivo y sale de vim ahora ejecutamos.
[diego@trujillo ejemplos]# perl fecha.pl
listo espero, les sirva de algo :)

Bienvenida

Hola a todos y gracias por visitar mi blog, en este blog encontrar todo tipo de informacion relacionada a la informatica, espero la aprovechen :D