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

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

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 ;

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

main source for inspiration and the code

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

;