Redirecting SQL query output to file

select * from TABLE_NAME INTO OUTFILE '/tmp/filename'

Creating new user in MySQL

1. Login to MySQL using root user

2. CREATE USER 'spn'@'localhost' IDENTIFIED BY 'spn';

3. GRANT ALL PRIVILEGES ON * . * TO 'spn'@'localhost';

4. FLUSH PRIVILEGES;

Connect TO MSSQL Server 2012 using PERL Script

# Connect to remote machine using IP Address

my $host     = 'xxx.xxx.xx.xxx';
my $database = 'database_name';
my $user     = 'username';
my $pass    = 'password';

# Connect to remote machine using Server Name

my $host     = 'ServerName';
my $database = 'database_name';
my $user     = 'username';
my $pass    = 'password';

my $dsn = "dbi:ODBC:Driver={SQL Server};Server=$host;Database=$database";
my $dbh = DBI->connect($dsn, $user, $auth, { RaiseError => 1 });

Privileges error while accessing DB through PERL script

Error occurred though PERL script while accessing MySQL database.

Error : 
DBI connect('database=DB_NAME','root',...) failed: Access denied for user 'root'@'localhost' (using password: NO) at a.pl line 16

Solution : 
grant all privileges on DB_NAME.* to 'root'@'localhost' identified by '';

How to find version of PERL mudules

PERL Script Name : find_module_version.pl

#!/usr/bin/perl

use CPAN;

printf("%-20s %10s %10s\n", "Module", "Installed", "CPAN");

foreach $a (@ARGV) {
  foreach $mod (CPAN::Shell->expand("Module", $a)){
    printf("%-20s %10s %10s %s\n",
      $mod->id,
      $mod->inst_version eq "undef" || !defined($mod->inst_version)
        ? "-" : $mod->inst_version,
      $mod->cpan_version eq "undef" || !defined($mod->cpan_version)
        ? "-" : $mod->cpan_version,
      $mod->uptodate ? "" : "*"
    );
  }
}


perl find_module_version.pl MODULE_NAME

How to calculate the DB Size of MYSQL

SELECT table_schema "Database Name"
     , SUM(data_length + index_length) / (1024 * 1024) "Database Size in MB"
FROM information_schema.TABLES
GROUP BY table_schema

Perl Special variables - Quick Reference

$_	The default or implicit variable.
@_	Subroutine parameters.
$a $b	sort comparison routine variables.
@ARGV	The command-line args.
Regular Expressions
$	Regexp parenthetical capture holders.
$&	Last successful match (degrades performance).
${^MATCH}	Similar to $& without performance penalty. Requires /p modifier.
$`	Prematch for last successful match string (degrades performance).
${^PREMATCH}	Similar to $` without performance penalty. Requires /p modifier.
$'	Postmatch for last successful match string (degrades performance).
${^POSTMATCH}	Similar to $' without performance penalty. Requires /p modifier.
$+	Last paren match.
$^N	Last closed paren match (last submatch).
@+	Offsets of ends of successful submatches in scope.
@-	Offsets of starts of successful submatches in scope.
%+	Like @+, but for named submatches.
%-	Like @-, but for named submatches.
$^R	Last regexp (?{code}) result.
${^RE_DEBUG_FLAGS}	Current value of regexp debugging flags. See use re 'debug';
${^RE_TRIE_MAXBUF}	Control memory allocations for RE optimizations for large alternations.
Encoding
${^ENCODING}	The object reference to the Encode object, used to convert the source code to Unicode.
${^OPEN}	Internal use: \0 separated Input / Output layer information.
${^UNICODE}	Read-only Unicode settings.
${^UTF8CACHE}	State of the internal UTF-8 offset caching code.
${^UTF8LOCALE}	Indicates whether UTF8 locale was detected at startup.
IO and Separators
$.	Current line number (or record number) of most recent filehandle.
$/	Input record separator.
$|	Output autoflush. 1=autoflush, 0=default. Applies to currently selected handle.
$,	Output field separator (lists)
$\	Output record separator.
$"	Output list separator. (interpolated lists)
$;	Subscript separator. (Use a real multidimensional array instead.)
Formats
$%	Page number for currently selected output channel.
$=	Current page length.
$-	Number of lines left on page.
$~	Format name.
$^	Name of top-of-page format.
$:	Format line break characters
$^L	Form feed (default "\f").
$^A	Format Accumulator
Status Reporting
$?	Child error. Status code of most recent system call or pipe.
$!	Operating System Error. (What just went 'bang'?)
%!	Error number hash
$^E	Extended Operating System Error (Extra error explanation).
$@	Eval error.
${^CHILD_ERROR_NATIVE}	Native status returned by the last pipe close, backtick (`` ) command, successful call to wait() or waitpid(), or from the system() operator.
ID's and Process Information
$$	Process ID
$<	Real user id of process.
$>	Effective user id of process.
$(	Real group id of process.
$)	Effective group id of process.
$0	Program name.
$^O	Operating System name.
Perl Status Info
$]	Old: Version and patch number of perl interpreter. Deprecated.
$^C	Current value of flag associated with -c switch.
$^D	Current value of debugging flags
$^F	Maximum system file descriptor.
$^I	Value of the -i (inplace edit) switch.
$^M	Emergency Memory pool.
$^P	Internal variable for debugging support.
$^R	Last regexp (?{code}) result.
$^S	Exceptions being caught. (eval)
$^T	Base time of program start.
$^V	Perl version.
$^W	Status of -w switch
${^WARNING_BITS}	Current set of warning checks enabled by use warnings;
$^X	Perl executable name.
${^GLOBAL_PHASE}	Current phase of the Perl interpreter.
$^H	Internal use only: Hook into Lexical Scoping.
%^H	Internaluse only: Useful to implement scoped pragmas.
${^TAINT}	Taint mode read-only flag.
${^WIN32_SLOPPY_STAT}	If true on Windows stat() won't try to open the file.
Command Line Args
ARGV	Filehandle iterates over files from command line (see also <>).
$ARGV	Name of current file when reading <>
@ARGV	List of command line args.
ARGVOUT	Output filehandle for -i switch
Miscellaneous
@F	Autosplit (-a mode) recipient.
@INC	List of library paths.
%INC	Keys are filenames, values are paths to modules included via use, require, or do.
%ENV	Hash containing current environment variables
%SIG	Signal handlers.
$[	Array and substr first element (Deprecated!).