Scripting – Page 8

June 4, 2014August 12, 2014Scripting

Perl: Declaring Hash Names Dynamically

For advanced Perl programmers, this may come handy anytime when you have to generate a hash with a dynamic naming convention for temporary processing purposes. [code language=”perl”] C:\>perl $a = "Test"; %{"$a"} = ( ‘TestKey’ => ‘TestValue’ ); print keys %{"$a"}; ^D TestKey C:\> [/code]

June 4, 2014August 12, 2014DataBase, Scripting

SQL Programming: Saving/Listing each row in a SQL SELECT query results set

While debugging various enterprise management software’s that ship with a data hosted on SQL database, systems engineers requires to run various SQL queries to get the underlying information. While debugging the results returned from the query, one need to be able to observer each row returned by the SQL query. Here is quick way to run your any DQL query and verify the results at each row. This will be essentially handy when you want to inspect the temporary data in your SQL program. [code language=”sql”] DECLARE @action_code INT DECLARE row_cursor CURSOR FOR SELECT ACTUALACTION_IDX FROM test_gunnalag OPEN row_cursor — […]

June 4, 2014August 12, 2014Scripting

Perl Code to Parse File Versions

In various automations,. systems engineers require to determine the version of file to perform a action based on the file version. Here is a excerpt code that checks for the version of a specified file. CODE#1 [code language=”perl”] #=============================================================================== # sub CheckFileVersion #=============================================================================== sub CheckFileVersion { if (-e "$File") { my $cmd = "filever \"$File\""; my $output = `$cmd`; my @lines = split(/ /, $output); my $ver = ($lines[7] eq ”) ? $lines[8] : $lines[7]; my @version = split(/\./, $ver); my $filever = $version[0]; if ($filever) { print "INFO: $File major version is $filever\n"; } else { print "ERROR: Failed […]