Search This Blog

2014-08-28

how-to modify perl @INC relatively to the executing script during compile time

#!/usr/bin/perl -wT
package isg_pub::load ;
   use strict ; use warnings ; use diagnostics;
 
   $|++;
 
   require Exporter ;
   our @ISA = qw(Exporter);
   our %EXPORT_TAGS = ( 'all' => [ qw() ] );
   our @EXPORT_OK = ( @{ $EXPORT_TAGS{'all'} } );
   our @EXPORT = qw() ;
   our $AUTOLOAD =();
 
   use utf8 ;
   use Carp ;
   use Cwd qw ( abs_path ) ;
 
   foreach (sort keys %ENV) {
      print "$_  =  $ENV{$_}\n";
   }
 
   BEGIN {
      $ENV{'PERL5LIB'} = '' ;
      my $my_inc_path = abs_path( $0 );
 
      $my_inc_path =~ m/^(.*)(\\|\/)(.*?)(\\|\/)(.*)/;
      $my_inc_path = $1;
      push ( @INC , "$my_inc_path" ) ;
      push ( @INC , "$my_inc_path/lib" ) ;
      $ENV{'PERL5LIB'} .= "$my_inc_path" ;
      $ENV{'PERL5LIB'} .= ":$my_inc_path" ;
   }
# ... some code ...
1;
 
__END__

how-to check that perl modules are installed

      use strict ; use warnings ; 
      use 5.10.0 ; 
      use ExtUtils::Installed;
 
      #  quick and dirty check for prerequisites perl modules:
      #  courtesy of:http://stackoverflow.com/a/9340304/65706
      #  if you have a calling bash script call by :
      #  perl "/path/to/isg_pub_preq_cheker.pl"
      #  export ret=$?
      #  test $ret -ne 0 && doExit 1 "[FATAL] perl modules not found!!!"
 
 
      # check that all the required modules are installed
      my ( $ret , $msg ) = doCheckRequiredModules();
 
      unless ( $ret == 0 ) {
         print "$msg" ; 
         # give some time for the user to react
         print "printing all installed modules :" ; 
         my $c = 9 ; 
         for ( my $i=0;$i<=$c;$i++){
            print ( ( $c-$i) . '.') ;  
            sleep 1 ; 
         }
         print "\n" ; 
         doListAllInstalledModules();  
         print "\n" ; 
      }
 
      exit(0);
 
      sub doListAllInstalledModules {
         my $instmod = ExtUtils::Installed->new();
          foreach my $module ($instmod->modules()) {
            my $version = $instmod->version($module) || "???"; 
             print "found module:$module -- v$version\n"; 
            }
 
      }
      #eof sub
 
      sub doCheckRequiredModules {
 
         my @modules = qw(
            Test::More
            Test::Deep
            CPAN::SQLite
            File::Copy::Recursive
            HTML::TreeBuilder
            HTML::TreeBuilder::XPath
            HTML::TableExtract
            HTML::ElementTable
            Spreadsheet::XLSX
            IO::HTML
            Regexp::Common
            Test::More
            Spiffy
            Filter::Util::Call
            Algorithm::Diff
            Text::Diff
            Test::Base
            Test::CPAN::Meta::YAML
            Test::YAML::Valid  
            Test::YAML::Meta
            Test::YAML
            YAML::Any
            Data::Printer
            LWP
            Text::Template
            HTML::Template
            Module::Signature
            Taint
            ExtUtils::Installed
         );
 
         for(@modules) {
             eval "use $_";
             if ($@) {
 
               my $msg = "\n\n\n [FATAL] did not found the following perl module: $_ " ; 
               $msg .= "\n you must install it in the shell by running the following commands:" ; 
               # if the user knows already the difference between the running the cmd 
               # with sudo or he / she probably knows already how-to install perl modules
               $msg .= "\n" . 'as a start configure the cpan to install dependancies first' . "\n" ; 
               $msg .= "\n" . 'perl -MCPAN -e \'my $c = "CPAN::HandleConfig"; $c->load(doit => 1, autoconfig => 1); $c->edit(prerequisites_policy => "follow"); $c->edit(build_requires_install_policy => "yes"); $c->commit\'' . "\n" ; 
               $msg .= "\n" . 'than install by :' . "\n" ; 
               $msg .= "\n sudo perl -MCPAN -e 'install $_'\n\n\n" ; 
               $msg .= "\n if you seem to be stuck in circular reference kind of loop try even :\n" ; 
               $msg .= "\n sudo perl -MCPAN -e 'CPAN::Shell->force(qw( install $_));'\n" ; 
               $msg .= "\n sudo perl -MCPAN -e 'CPAN::Shell->force(qw( install $_));'\n" ; 
               $msg .= "\n You may end-up now with Ctrl + C \n\n\n" ; 
 
               return ( 1, "$msg")  if $@;
             } else {
                 say "[INFO ] == ok == check for prerequisite perl module : $_";
             }
         }
         #eof foreach module
 
 
 
         return ( 0 , "all required modules found" ) ;   
      }
      #eof sub

2014-08-15

umask back to basics

for bit in {0..7} ; do umask 000$bit; touch 000$bit ; echo on umask set to `umask` `umask -S` `stat -c "%A %n" 000$bit`; done | column -t
on  umask  set  to  0000  u=rwx,g=rwx,o=rwx  -rw-rw-rw-  0000
on  umask  set  to  0001  u=rwx,g=rwx,o=rw   -rw-rw-rw-  0001
on  umask  set  to  0002  u=rwx,g=rwx,o=rx   -rw-rw-r--  0002
on  umask  set  to  0003  u=rwx,g=rwx,o=r    -rw-rw-r--  0003
on  umask  set  to  0004  u=rwx,g=rwx,o=wx   -rw-rw--w-  0004
on  umask  set  to  0005  u=rwx,g=rwx,o=w    -rw-rw--w-  0005
on  umask  set  to  0006  u=rwx,g=rwx,o=x    -rw-rw----  0006
on  umask  set  to  0007  u=rwx,g=rwx,o=     -rw-rw----  0007

Labels

perl (41) Cheat Sheet (25) how-to (24) windows (14) sql server 2008 (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) linux cheat sheet (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) aws cheat sheet cli (1) aws cli (1) aws cli amazon cheat sheet (1) aws elb (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) isg-pub issue-tracker architecture (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 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) openssl (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) vbox virtual box cheat sheet (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.