Search This Blog

2011-08-28

A class template in Perl

use strict ; use warnings ; 
package ClassTemplate ; 
my $VERSION='0.2.0' ; 
 
use lib '.' ; use Exporter; 
my @ISA = qw(AutoLoader Exporter);
my @EXPORT = qw();
 
 
BEGIN {     
    #add the module dir in the INC
    $0 =~ m/^(.*)(\\|\/)(.*)\.([a-z]*)/; 
    push ( @INC , $1) ;     
    #debug print join ( ' ' , @INC ) ; 
 
} #eof BEGIN
 
use Logger ;  
 
 
### START setting package vars
our ( $confHolder , $objLogger , )= () ; 
 
### STOP setting package vars 
 
# ===============================================================
# START OO
 
# -----------------------------------------------------------------------------
# the constructor 
# source:http://www.netalive.org/tinkering/serious-perl/#oop_constructors
# -----------------------------------------------------------------------------
sub new {
    
    my $class = shift ;        # Class name is in the first parameter
    $confHolder = ${ shift @_ } if ( @_ )  ; 
    
    my $self = { };  # Anonymous hash reference holds instance attributes
    
    bless($self, $class);          # Say: $self is a $class
        $self->Initialize() ;    
    return $self;
} #eof const 
 
 
# -----------------------------------------------------------------------------
# perldoc autoloader 
# -----------------------------------------------------------------------------
sub AUTOLOAD {
 
    my $self = shift ; 
    no strict 'refs'; 
    my $name = our $AUTOLOAD;
    *$AUTOLOAD = sub { 
    my $msg = "BOOM! BOOM! BOOM! \n RunTime Error !!!\nUndefined Function $name(@_)\n" ;
    print "$self , $msg";
    };
    goto &$AUTOLOAD;    # Restart the new routine.
}    #eof sub AUTOLOAD
 
 
# -----------------------------------------------------------------------------
# return a field's value
# -----------------------------------------------------------------------------
    sub get    {
    
        my $self = shift;
        my $name = shift;
        return $self->{$name};
    } #eof sub get 
 
 
# -----------------------------------------------------------------------------
# set a field's value 
# -----------------------------------------------------------------------------
    sub set    {
    
        my $self = shift;
        my $name = shift;
        my $value = shift;
        $self->{$name}=$value;
    } #eof sub set 
 
 
# -----------------------------------------------------------------------------
# return the fields of this obj instance  
# -----------------------------------------------------------------------------
    sub dumpFields        {
        my $self = shift ; 
        my $strFields = () ; 
        foreach my $key (keys %$self)        {
            $strFields .= "$key = $self->{$key}\n";
        }
        
        return $strFields ; 
    } #eof sub dumpFields 
 
 
# -----------------------------------------------------------------------------
# wrap any logic here on clean up for this class 
# -----------------------------------------------------------------------------
sub  RunBeforeExit {
    print "RunBeforeExit.\n";
}
 
 
# -----------------------------------------------------------------------------
# called automatically by perl's garbage collector use to know when 
# -----------------------------------------------------------------------------
sub DESTROY {
    my $self = shift;
    #debug print "the DESTRUCTOR is called  \n" ; 
    $self->RunBeforeExit() ; 
    return ; 
} #eof sub DESTROY
 
 
 
# -----------------------------------------------------------------------------
# Initialize the object with the minimum data it will need to operate 
# -----------------------------------------------------------------------------
sub Initialize {
 
    my $self = shift ; 
    
    $objLogger = new Logger (\$confHolder) ; 
 
} #eof sub Initialize
 
 
# STOP OO
# =============================================================================
 
 
1 ; 
 
__END__
 
 
 
=head1 NAME
 
ClassTemplate
 
=head1 SYNOPSIS
 
use ClassTemplate; 
  
=head1 DESCRIPTION
 
A template like class for starting new classes in the morphus project 
 
=head2 EXPORT
 
 
=head1 SEE ALSO
 
perldoc perlvars
 
No mailing list for this module
 
 
=head1 AUTHOR
 
yordan.georgiev@gmail.com
 
=head1 COPYRIGHT AND LICENSE
 
Copyright (C) 2011 Yordan Georgiev
 
This library is free software; you can redistribute it and/or modify
it under the same terms as Perl itself, either Perl version 5.8.1 or,
at your option, any later version of Perl 5 you may have available.
 
VersionHistory: 
0.2.0 --- ysg --- Added RunBeforeExit
0.0.1 --- ysg --- Initial creation from Template class 
 
=cut
 

The control flow technique for programming

The problem: 
Programs grow larger .. The more code is added the harder the development , requirements tracking etc
The solution: 
Write human readable pseudo code instructions into a spreadsheet , so that each "Control flow point" is a row in the spreadsheet. Add the row in the code as logging entries. Thus after each run of the program by filtering the entries from the log the real control flow is revealed. The - human readability is helping also customers and specifications providers to understand what actually the programmer is writing and add / update / correct existing specifications. By sending back and forth the Control Flow the actual process of requirements gathering , specs creation is shortened and the whole development process improved.
It is important that the Control Flow points are chosen ,so that each Control Flow Point must be tested and verified ( not only by the existence of the log entry ). By searching recursively in the source code for the Control Flow point description the developer could jump straight into the actual part of the source code to be worked on ...


2011-08-21

use strict ; use warnings ; 
package ClassTemplate ; 
my $VERSION='0.1.0' ; 
 
use lib '.' ; use Exporter; 
my @ISA = qw(AutoLoader Exporter);
my @EXPORT = qw();
 
 
BEGIN {     
    #add the module dir in the INC
    $0 =~ m/^(.*)(\\|\/)(.*)\.([a-z]*)/; 
    push ( @INC , $1) ;     
    #debug print join ( ' ' , @INC ) ; 
 
} #eof BEGIN
 
use Logger ;  
 
 
### START setting package vars
our ( $confHolder , $objLogger , )= () ; 
 
### STOP setting package vars 
 
# ===============================================================
# START OO
 
# -----------------------------------------------------------------------------
# the constructor 
# source:http://www.netalive.org/tinkering/serious-perl/#oop_constructors
# -----------------------------------------------------------------------------
sub new {
    
    my $class = shift ;        # Class name is in the first parameter
    $confHolder = ${ shift @_ } if ( @_ )  ; 
    
    my $self = { };  # Anonymous hash reference holds instance attributes
    
    bless($self, $class);          # Say: $self is a $class
        $self->Initialize() ;    
    return $self;
} #eof const 
 
 
# -----------------------------------------------------------------------------
# perldoc autoloader 
# -----------------------------------------------------------------------------
sub AUTOLOAD {
 
    my $self = shift ; 
    no strict 'refs'; 
    my $name = our $AUTOLOAD;
    *$AUTOLOAD = sub { 
    my $msg = "BOOM! BOOM! BOOM! \n RunTime Error !!!\nUndefined Function $name(@_)\n" ;
    print "$self , $msg";
    };
    goto &$AUTOLOAD;    # Restart the new routine.
}    #eof sub AUTOLOAD
 
 
# -----------------------------------------------------------------------------
# return a field's value
# -----------------------------------------------------------------------------
    sub get    {
    
        my $self = shift;
        my $name = shift;
        return $self->{$name};
    } #eof sub get 
 
 
# -----------------------------------------------------------------------------
# set a field's value 
# -----------------------------------------------------------------------------
    sub set    {
    
        my $self = shift;
        my $name = shift;
        my $value = shift;
        $self->{$name}=$value;
    } #eof sub set 
 
 
# -----------------------------------------------------------------------------
# return the fields of this obj instance  
# -----------------------------------------------------------------------------
    sub dumpFields        {
        my $self = shift ; 
        my $strFields = () ; 
        foreach my $key (keys %$self)        {
            $strFields .= "$key = $self->{$key}\n";
        }
        
        return $strFields ; 
    } #eof sub dumpFields 
 
 
 
# -----------------------------------------------------------------------------
# called automatically by perl's garbage collector use to know when 
# -----------------------------------------------------------------------------
sub DESTROY {
    my $self = shift;
    #debug print "the DESTRUCTOR is called  \n" ; 
    return ; 
} #eof sub DESTROY
 
 
# -----------------------------------------------------------------------------
# Initialize the object with the minimum data it will need to operate 
# -----------------------------------------------------------------------------
sub Initialize {
 
    my $self = shift ; 
    
    $objLogger = new Logger (\$confHolder) ; 
 
} #eof sub Initialize
 
 
# STOP OO
# =============================================================================
 
 
1 ; 
 
__END__
 
 
 
=head1 NAME
 
ClassTemplate
 
=head1 SYNOPSIS
 
use ClassTemplate; 
  
=head1 DESCRIPTION
 
This class provides handy method for object's handling
 
 
=head2 EXPORT
 
 
=head1 SEE ALSO
 
perldoc perlvars
 
No mailing list for this module
 
 
=head1 AUTHOR
 
yordan.georgiev@gmail.com
 
=head1 COPYRIGHT AND LICENSE
 
Copyright (C) 2011 Yordan Georgiev
 
This library is free software; you can redistribute it and/or modify
it under the same terms as Perl itself, either Perl version 5.8.1 or,
at your option, any later version of Perl 5 you may have available.
 
VersionHistory: 
0.0.1 --- ysg --- Initial creation from Template class 
 
=cut
 

2011-08-19

my favorite unix command

find /path/to/files -name '*.ext' -exec echo command to file {} \;

2011-08-17

how-to bublesort in OO perl

#source:http://blob.perl.org/tpc/1998/Perl_Language_and_Modules/Efficient%20Perl/handout.html
sub bubblesort {
 
    my $self = shift ; 
    my ( $array ) = @_;
 
    use integer;        # More speed.
 
    print "\@_ is @_ \n" ; 
    print "\$array is $array \n" ; 
    print "\$#$array is $#$array \n" ; 
    
    my $lastj   = $#$array or return $array ; # 0 or 1 element array is sorted already just returned
    my $firstj  = 1;
 
    my ( $i, $j, $keepj, $big );
 
    # return $array  if $firstj > $lastj;     # 0 or 1 element array is sorted.
 
    while ( $firstj ) {
        # Run from
        # ( $firstj - 1, $firstj ) .. ( $lastj - 1 , $lastj ),
        # swapping when out of order.
        for ( $j = $firstj, $i = $j - 1,
              $keepj = $lastj, $firstj = 0;
          $j <= $keepj;
          $i = $j++ ) {
        next unless $array->[ $i ] gt $array->[ $j ];
 
        # Remember where we started if this is the first swap
        # (but do not try to compare with the predecessor of 0)
        $firstj = $firstj || $i || $j;
 
        # Something to swap, try for a run of swaps.
        # Remove the element that must swap up.
        $big = splice @$array, $i, 1;
 
        # Use $j < $keepj instead of $j <= $keepj
        # because the array is one shorter right now.
        # We already tested the $j entry that has been
        # shifted to $j-1.
        ++$j while $j < $keepj && $array->[ $j ] lt $big;
 
        # Put back the removed element in its new place.
        splice @$array, $j, 0, $big;
 
        # fix $j for the splice, and revalidate $i.
        $i = $j++;
        $lastj = $i;
        }
    }
    
    return $array ; 
} #eof sub 

2011-08-14

why am I optimist for the future of IT



I remember the September of 2001. I bought my first HP laptop for school with the money I have earned from working at the bar. It's prise was probably some 1200 euros in current prices ... It had Windows XP , it was slow and heavy, but at this time I was the only one in the class having laptop, back than it was more of a business person accessory ... It was a big investment back  than ...

Today we bought a laptop for the kids - for home work, net and CD games ... It has 10 times more RAM , some 10 times more storage ,  the processor is probably at least 5 times faster ( One should not stare at the processor speed only ... ) Anyway a laptop with much better performance for 1/5 of the price .... Compare again Win7 and Windows XP and the level of the software one could get nowadays ...

I mean with the price of computing decreasing with such speed ... there will be more and more people affording the digital age ...

2011-08-06

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) code generation (6) Informatica (5) bash (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) 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) logging (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.