Ir al contenido principal

Entradas

Mostrando entradas de marzo, 2014

Un pequeño paseo por la automatización de software

Introducing Lync 2010 Super Simple Auto Answer Video Kiosk with Full Screen winforms - How to interact with an application programmatically - Stack Overflow AutoIt - AutoItScript Using Overloaded Win32 API functions to interact with other applications - vbCity - The .NET Developer Community java - How to write a program that can interact with other programs - Stack Overflow Quick introduction to Windows API

user-list.pl - programa en Perl para leer un formato determinado y crear una lista de usuarios

use strict; use feature "switch"; open my $outfh, '>:encoding(utf8)', 'user-list.txt'; my %NOT_COLLECTED; my @UNCLASSIFIED_FILE; sub print_not_collected {   print $outfh "-----------------------------------------\n";   for (keys %NOT_COLLECTED) {     print $outfh $_ . ' ' . join(' ', keys %{+{map +($_ => undef), @{$NOT_COLLECTED{$_}}}}) . "\n";   }   print $outfh "-----------------------------------------\n";   print $outfh join "\n", @UNCLASSIFIED_FILE;   close($outfh);   exit(0); } use sigtrap 'handler' => \&print_not_collected, qw(INT QUIT); my @tmp_PIV; while(<user-pivot-*.txt>) {   my ($class) = /\d+/g;   open my $ph, "<:encoding(utf8)", $_;   push @tmp_PIV, \%{+{map {/(.*)/; $1=>$class} grep /.+/, <$ph>}}; } my %DUP; for my $i (0..$#tmp_PIV-1) {   for my $j ($i+1..$#tmp_PIV) {     for (keys %{$tmp_PIV[$i]}) {       $DUP{$_}{$tmp_PIV[$i]{$_}} ...

DB2 - Consultas de metadatos - Consultas recursivas

DB2 – consulta de metadatos Catalog Schema: Doc original / standard name: syscat à DB2 alias: ibm triggers select text from sysibm.sysTRIGGERS where tbname secuencias select * from sysibm.syssequences where owner stored procedure / function select * from SYSIBM.sysroutines where owner PK, unique constraint, FK, select * from SYSIBM.syskeycoluse where constname select * from SYSIBM.SYSRELS where RELNAME select * from SYSIBM.SYSFOREIGNKEYS where relname tables FROM SYSIBM.SYSTABLES   FROM SYSIBM.SYSCOLUMNS where tbname and tbcreator Dummy sysibm.sysdummy1 Consultas recursivas en DB2 (jerarquía jerárquicas hierarchy hierarchial recursive) /************************************************************************/ /************************************************************************/ /******************* COMPARE THE FOLLOWING 2 QUERIES   *******************/ /************************************************************...