Search This Blog

2013-12-23

how-to get disk space usage with perl regardless of the OS

use strict ; use warnings ;
use Filesys::DfPortable ;
use Sys::Filesystem ();
 
 
my $fs            = Sys::Filesystem->new();
my @filesystems   = $fs->filesystems();
my %hs            = () ;  # the sorted hash
my %hns           = () ;   # the non-sorted hash
 
 
for my $filesystem ( @filesystems ) {
   my $mount = $fs->mount_point($filesystem) ;
   my $ref = dfportable("$mount", (1024*1024)); # Display output in 1MB blocks
   if(defined($ref)) {
      $hns {$mount} = $ref->{per} . '*' . $ref->{bused} . '*' . $ref->{blocks}
                     . '*' . $ref->{bavail} . '*' . $ref->{bfree} ;
      $hs {$mount} = $ref->{per};
   } #eof if
 } #eof for
 
 
printf "%-15s %10s %10s %10s %10s %10s \n" , "Mount " , "Usage in % "
       , "Used MB " , "Total MB " , "Available MB " , "Free MB " ;
print '========================================================================' . "\n" ;
 
foreach my $key (reverse sort { ($hs{$a} <=> $hs{$b}) } keys %hs) {
    printf "%-15s %10d %10d %10d %10d %10d \n" , "$key" , split ('\*' , $hns{$key});
}
 
 
1 ;
 
__END__
 
=cut
Purpose:
OS independant mount points space usage
 
License: Free BSD
 
Requirements:
perl -MCPAN -e "install Filesys::DfPortable"
perl -MCPAN -e "install Sys::Filesystem"
 
VersionHistory:
1.0.0 -- 2013-12-23 15:28:07 -- ysg -- Initial creation with sorting
=pod

2013-12-18

how-to list the informatica workflows , sessions with their source file and source dir settings from repo with sql

SELECT
  F.SUBJ_NAME       AS FOLDER_NAME
, WF.TASK_ID        AS WORKFLOW_ID 
, WF.TASK_NAME      AS WORKFLOW_NAME
, SE.INSTANCE_NAME  AS SESSION_NAME
 
--, TSK.TASK_NAME
, OPB_SESS_FILE_VALS.DIR_NAME AS DIR_NAME 
, OPB_SESS_FILE_VALS.FILE_NAME AS FILE_NAME
 
FROM 
OPB_SUBJECT F,
OPB_TASK WF , 
 
(SELECT 
    WORKFLOW_ID,
    INSTANCE_ID,
    TASK_ID,
    TASK_TYPE,
    INSTANCE_NAME,
    MAX(VERSION_NUMBER) FROM OPB_TASK_INST SESS 
    WHERE SESS.TASK_TYPE=68  GROUP BY
    WORKFLOW_ID,INSTANCE_ID,TASK_ID,TASK_TYPE,INSTANCE_NAME) SE,
    (SELECT SESSION_ID,MAPPING_ID,MAX(VERSION_NUMBER) FROM OPB_SESSION GROUP BY SESSION_ID,MAPPING_ID) S
 
LEFT JOIN OPB_TASK TSK ON ( TSK.TASK_ID = S.SESSION_ID )
LEFT JOIN OPB_SESS_FILE_VALS ON ( OPB_SESS_FILE_VALS.SESSION_ID  = S.SESSION_ID )  
 
WHERE 1=1
AND WF.IS_VISIBLE = 1
AND WF.SUBJECT_ID = F.SUBJ_ID
AND SE.WORKFLOW_ID = WF.TASK_ID
AND WF.TASK_TYPE = 71
AND SE.TASK_ID = S.SESSION_ID
AND OPB_SESS_FILE_VALS.SESSION_ID=TSK.TASK_ID
AND TSK.TASK_TYPE=68
 
-- AND F.SUBJ_NAME='MANKELI'
 
ORDER BY FOLDER_NAME , WORKFLOW_NAME , SESSION_NAME
;
 
/*
SELECT  CASE WHEN ROWNUM = 1 THEN '   ' ELSE ' , ' END 
|| TABLE_NAME || '.' || COLUMN_NAME FROM ALL_TAB_COLUMNS 
WHERE 1=1
AND TABLE_NAME = 'REP_SESS_CONFIG_PARM'
;
*/

how-to list the informatica sessions with the Verbose Data option on from repo with sql query

SELECT
      F.SUBJ_NAME       AS FOLDER_NAME
   ,  WF.TASK_ID        AS WORKFLOW_ID
   ,  WF.TASK_NAME      AS WORKFLOW_NAME
   ,  SE.INSTANCE_NAME  AS SESSION_NAME
   ,  TSK.TASK_NAME
   ,  decode (attr_value,
                0,'None',
                1,'Terse',
                2,'Normal',
                3,'Verbose Initialisation',
                4,'Verbose Data','') TRACING_LEVEL FROM  OPB_SUBJECT F, OPB_TASK WF ,
(SELECT
    WORKFLOW_ID,
    INSTANCE_ID,
    TASK_ID,
    TASK_TYPE,
    INSTANCE_NAME,
    MAX(VERSION_NUMBER) FROM OPB_TASK_INST SESS
    WHERE SESS.TASK_TYPE=68  GROUP BY
    WORKFLOW_ID,INSTANCE_ID,TASK_ID,TASK_TYPE,INSTANCE_NAME) SE,
    (SELECT SESSION_ID,MAPPING_ID,MAX(VERSION_NUMBER) FROM OPB_SESSION GROUP BY SESSION_ID,MAPPING_ID) S
LEFT JOIN OPB_TASK TSK ON ( TSK.TASK_ID = S.SESSION_ID )
LEFT JOIN REP_SESS_CONFIG_PARM CFG ON ( CFG.SESSION_ID = S.SESSION_ID )   WHERE 1=1
AND WF.IS_VISIBLE = 1
AND WF.SUBJECT_ID = F.SUBJ_ID
AND SE.WORKFLOW_ID = WF.TASK_ID
AND WF.TASK_TYPE = 71
AND SE.TASK_ID = S.SESSION_ID
AND CFG.SESSION_ID=TSK.TASK_ID
AND TSK.TASK_TYPE=68
AND ATTR_ID=204
AND ATTR_TYPE=6
AND attr_value = 4
-- AND F.SUBJ_NAME='MANKELI'
ORDER BY FOLDER_NAME , WORKFLOW_NAME , SESSION_NAME

2013-12-16

list the tables groomed lately on netezza with nzsql

# which tables have been groomed lately 
for db in `nzsql -d SYSTEM -qAtXm -c "\l" |perl -nle 'm/^(.*?)\|(.*)/g;print $1'`; do echo $db ; nzsql -q -F "|" -d "$db" -c "SELECT TABLENAME, MODE, START_TIME,COMPLETE_TIME,RECOVERED_EXTENTS , PURGED_RECORDS , PROCESSED_RECORDS FROM _V_GROOM_HISTORY LIMIT 100;" ; done ;

2013-12-11

how-to list all the database sizes in netezza with nzsql

SELECT 'ALL' AS DatabaseName
 , SUM ( UsedSpace_GB ) AS DatabaseName
 , SUM ( AllocatedSpace_GB ) AS UsedSpace_GB
 , current_timestamp as CurrentTime
 FROM (
      SELECT ORX.database::nvarchar(64) AS DatabaseName ,
      case when sum(SOD.used_bytes) is null then 0 else SUM(SOD.used_bytes)/1073741824 end AS UsedSpace_GB,
      case when sum(SOD.allocated_bytes) is null then 0 else SUM(SOD.allocated_bytes)/1073741824 end AS AllocatedSpace_GB,
      current_timestamp as CurrentTime
      FROM _V_SYS_OBJECT_DSLICE_INFO SOD INNER JOIN _V_OBJ_RELATION_XDB ORX ON ORX.objid = SOD.tblid
      GROUP BY CurrentTime, DatabaseName
) AS ALL_DB_SIZES
UNION ALL
      SELECT ORX.database::nvarchar(64) AS DatabaseName ,
      case when sum(SOD.used_bytes) is null then 0 else SUM(SOD.used_bytes)/1073741824 end AS UsedSpace_GB,
      case when sum(SOD.allocated_bytes) is null then 0 else SUM(SOD.allocated_bytes)/1073741824 end AS AllocatedSpace_GB,
      current_timestamp as CurrentTime
      FROM _V_SYS_OBJECT_DSLICE_INFO SOD INNER JOIN _V_OBJ_RELATION_XDB ORX ON ORX.objid = SOD.tblid
      GROUP BY CurrentTime, DatabaseName
      ORDER BY UsedSpace_GB DESC
;

Labels

perl (41) Cheat Sheet (25) how-to (24) sql server 2008 (13) windows (13) linux (12) oracle (12) sql (12) Unix (11) cmd windows batch (10) mssql (10) cmd (9) script (9) textpad (9) netezza (8) sql server 2005 (8) cygwin (7) meta data mssql (7) metadata (7) bash (6) code generation (6) Informatica (5) cheatsheet (5) energy (5) tsql (5) utilities (5) excel (4) future (4) generic (4) html (4) perl modules (4) programs (4) settings (4) sh (4) shortcuts (4) поуки (4) принципи (4) Focus Fusion (3) Solaris (3) cool programs (3) development (3) economy (3) example (3) freeware (3) fusion (3) git cheat sheet (3) logging (3) morphus (3) mssql 2005 (3) nuclear (3) nz (3) parse (3) python (3) sftp (3) sofware development (3) source (3) sqlplus (3) table (3) vim (3) .Net (2) C# (2) China (2) GUI (2) Google (2) GoogleCL (2) Solaris Unix (2) ascii (2) awk (2) batch (2) cas (2) chrome extensions (2) code2html (2) columns (2) configuration (2) conversion (2) duplicates (2) excel shortcuts (2) export (2) file (2) free programs (2) informatica sql repository (2) mssql 2008 (2) mysql (2) next big future (2) nsis (2) nz netezza cheat sheet (2) nzsql (2) ora (2) prediction (2) publish (2) release management (2) report (2) security (2) single-click (2) sqlserver 2005 (2) sqlserver 2008 (2) src (2) ssh (2) template (2) tools (2) vba (2) video (2) xlt (2) xml (2) youtube videos (2) *nix (1) .vimrc (1) .virmrc vim settings configs (1) BSD license (1) Bulgaria (1) Dallas (1) Database role (1) Dense plasma focus (1) Deployment (1) ERP (1) ExcelToHtml (1) GD (1) GDP (1) HP-UX (1) Hosting (1) INC (1) IT general (1) ITIL management bullshit-management (1) IZarc (1) Java Web Start (1) JavaScript anchor html jquery (1) Khan Academy (1) LINUX UNIX BASH AND CYGWIN TIPS AND TRICKS (1) Linux Unix rpm cpio build install configure (1) Linux git source build .configure make (1) ListBox (1) MIT HYDROGEN VIRUS (1) OO (1) Obama (1) PowerShell (1) Run-time (1) SDL (1) SIWA (1) SOX (1) Scala (1) Services (1) Stacks (1) SubSonic (1) TED (1) abstractions (1) ansible hosts linux bash (1) ansible linux deployment how-to (1) ansible yum pip python (1) apache (1) apache 2.2 (1) application life cycle (1) architecture (1) archive (1) arguments (1) avatar (1) backup (1) bash Linux open-ssh ssh ssh_server ssh_client public-private key authentication (1) bash perl search and replace (1) bash stub (1) bin (1) biofuels (1) biology (1) books (1) browser (1) bubblesort (1) bugs (1) build (1) byte (1) cas_sql_dev (1) chennai (1) chrome (1) class (1) claut (1) cmdow (1) code generation sqlserver (1) command (1) command line (1) conf (1) confluence (1) console (1) convert (1) cool programs windows free freeware (1) copy-paste (1) csv (1) ctags (1) current local time (1) cygwin X11 port-forwarding mintty xclock Linux Unix X (1) cygwin bash how-to tips_n_tricks (1) cygwin conf how-to (1) data (1) data types (1) db2 cheat sheet (1) db2 starter ibm bash Linux (1) debt (1) diagram (1) dictionaries (1) digital (1) disk (1) disk space (1) documentation (1) dos (1) dubai (1) e-cars (1) electric cars (1) electricity (1) emulate (1) errors (1) exponents (1) export workflow (1) extract (1) fast export (1) fexp (1) file extension (1) file permissions (1) findtag (1) firewall (1) for loop (1) freaky (1) functions (1) fusion research (1) german (1) git gitlab issues handling system (1) google cli (1) google code (1) google command line interface (1) gpg (1) ha (1) head (1) helsinki (1) history (1) hop or flop (1) host-independant (1) how-to Windows cmd time date datetime (1) ibm db2 cognos installation example db deployment provisioning (1) ideas (1) image (1) informatica oracle sql (1) informatica repo sql workflows sessions file source dir (1) informatica source files etl (1) install (1) it management best practices (1) java (1) jump to (1) keyboard shortcuts (1) ksh (1) level (1) linkedin (1) linux bash ansible hosts (1) linux bash commands (1) linux bash how-to shell expansion (1) linux bash shell grep xargs (1) linux bash tips and t ricks (1) linux bash unix cygwin cheatsheet (1) linux bash user accounts password (1) linux bash xargs space (1) linux cheat sheet (1) linux cheat-sheet (1) linux cheatsheet cheat-sheet revised how-to (1) linux how-to non-root vim (1) linux ssh hosts parallel subshell bash oneliner (1) london (1) make (1) me (1) metacolumn (1) metadata functions (1) metaphonre (1) method (1) model (1) movie (1) multithreaded (1) mysql cheat sheet (1) mysql how-to table datatypes (1) n900 (1) nano (1) neteza (1) netezza bash linux nps (1) netezza nps (1) netezza nps nzsql (1) netezza nz Linux bash (1) netezza nz bash linux (1) netezza nz nzsql sql (1) netezza nzsql database db sizes (1) non-password (1) nord pol (1) nps backup nzsql schema (1) number formatting (1) nz db size (1) nz table count rows (1) nzsql date timestamp compare bigint to_date to_char now (1) on-lier (1) one-liners (1) one-to-many (1) oneliners (1) open (1) open source (1) openrowset (1) oracle PL/SQL (1) oracle Perl perl (1) oracle installation usability (1) oracle number formatting format-model ora-sql oracle (1) oracle templates create table (1) oracle trigger generic autoincrement (1) oracle vbox virtual box cheat sheet (1) oracle virtual box cheat sheet (1) outlook (1) parser (1) password (1) paths (1) perl @INC compile-time run-time (1) perl disk usage administration Linux Unix (1) perl modules configuration management (1) permissions (1) php (1) picasa (1) platform (1) postgreSQL how-to (1) powerShell cmd cygwin mintty.exe terminal (1) ppm (1) predictions (1) prices (1) principles (1) productivity (1) project (1) prompt (1) proxy account (1) public private key (1) publishing (1) putty (1) qt (1) read file (1) registry (1) relationship (1) repository (1) rm (1) scp (1) scripts (1) scsi (1) search and replace (1) sed (1) sendEmail (1) sh stub (1) shortcuts Windows sql developer Oracle (1) sidebar (1) silicon (1) smtp (1) software procurement (1) sofware (1) sort (1) sql script (1) sql_dev (1) sqlcmd (1) sqlite (1) sqlite3 (1) sshd (1) sshd cygwin (1) stackoverflow (1) stored procedure (1) stub (1) stupidity (1) subroutines (1) svn (1) sysinternals (1) tail (1) tar (1) temp table (1) templates (1) teradata (1) terminal (1) test (1) testing (1) theory (1) thorium (1) time (1) tip (1) title (1) tmux .tmux.conf configuration (1) tmux efficiency bash (1) tool (1) ui code prototyping tips and tricks (1) umask Linux Unix bash file permissions chmod (1) url (1) urls (1) user (1) utility (1) utils (1) vb (1) vim perl regex bash search for string (1) vim recursively hacks (1) vim starter (1) vim-cheat-sheet vim cheat-sheet (1) vimeo (1) visual stuio (1) warsaw (1) wiki (1) wikipedia (1) window (1) windows 7 (1) windows 8 (1) windows programs (1) windows reinstall (1) windows utility batch perl space Windows::Clipboard (1) wisdoms (1) workflow (1) worth-reading (1) wrapper (1) xp_cmdshell (1) xslt (1) youtube (1)

Blog Archive

Translate with Google Translate

My Blog List

VideoBar

This content is not yet available over encrypted connections.