Search This Blog

2011-07-10

How-to clear the screen in cygwin on windows

Do not bother with the default cmd.exe terminal started by default when you start bash ...
Use puttycfg
  1. download the puttycfg , unzip to C:\temp\something
  2. Find out where cygwin1.dll is installed cygcheck -sd >list.txt
  3. Open the list.txt ( it is quite big ) : notepad list.txt 
  4. Copy all the files from   C:\temp\something  to the dir where the cygwin1.dll is located 
  5. Start the putty.exe 
  6. In the GUI , check that Session on the Left is selected , click on Cygterm option , for hostName type - , leave port number 22
  7. Click on open 
  8. Run the clear command ... Now you have much better terminal ...  

how-to parse excel file with perl with Spreadsheet::ParseExcel module



package Excel2003Handler ; 
my $VERSION='0.0.3' ; 
require Exporter;
 
use strict ; use warnings  ; use Carp qw(cluck);
use lib '.' ; use Spreadsheet::ParseExcel;
 
 
BEGIN {     
 
$0 =~ m/^(.*)(\\|\/)(.*)\.([a-z]*)/; 
push ( @INC , $1) ; 
}
 
use Logger ; use FileHandler ; 
 
my @ISA = qw(AutoLoader Exporter);
my @EXPORT = qw(DumpExcel ParseExcel GetValue);
 
 
our ( $confHolder , $FileInputExcel , $objLogger , $objFileHandler ) = () ; 
our ( $DelimiterCsv , $MsgAction ) = () ;  
 
 
 
sub Initialize {
my $self = shift ; 
my $FlagSuccess = 0 ; 
$objLogger = new Logger (\$confHolder) ; 
$objFileHandler = new FileHandler ( \$confHolder ) ; 
$FileInputExcel = $confHolder->{'FileExcelInput'} ; 
 
unless( -f $FileInputExcel ) { 
$MsgAction = "Cannot find the Excel file $FileInputExcel , exiting !!! \n" ;                 
return 1 ; 
}
 
$DelimiterCsv ="\t" ; 
$FlagSuccess = 1 ; 
return $FlagSuccess; 
 
} #eof sub Initialize
 
 
 
# =============================================================================
# START OO
 
 
 
 
#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 
 
 
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.
}    
 
 
sub get    {
my $self = shift;
my $name = shift;
return $self->{$name};
} #eof sub get 
 
 
sub set    {
my $self = shift;
my $name = shift;
my $value = shift;
$self->{$name}=$value;
} #eof sub set 
 
 
sub DESTROY {
 
my $self = shift;
#debug print "the DESTRUCTOR is called  \n" ; 
return ; 
} 
 
 
# STOP OO
# =============================================================================
 
sub ExcelToCsv { 
 
my $self = shift ; 
 
$FileInputExcel =~ m/^(.*)(\\|\/)(.*)\.([a-z]*)/; 
my $DirOutput = $1 ; 
 
#Delete first the old csv files 
my ($RefFilesAndDirs , $RefDirsToProcess , $RefFilesToProcess ) = 
$objFileHandler->ReadDirRecursivelyReturnArrays ( $DirOutput , '.csv') ; 
my @FilesToProcess = @$RefFilesToProcess ; 
 
foreach my $FileToProcess ( @FilesToProcess ) { 
unlink ( $FileToProcess ) ; 
}
 
 
my ( $RefWorkSheets , $RefWorkSheetNames ) = $self->ParseExcel () ; 
 
my @WorkSheetNames = @$RefWorkSheetNames ; 
my @RefWorkSheets = @$RefWorkSheets ; 
 
foreach my $WorkSheetRef ( @RefWorkSheets ) { 
my @Rows = @$WorkSheetRef ; 
my $StrToPrint = () ; 
my $WorkSheetName = shift ( @WorkSheetNames ) ; 
my $FileCsvToPrint = "$DirOutput/$WorkSheetName" . '.csv' ; 
 
foreach my $RowRef ( @Rows ) {
my @Cols = @$RowRef ; 
# from the first till the last number of the array 
for ( 0 .. $#Cols )    {
my $token = "$Cols[$_]" ; 
$StrToPrint .= "$DelimiterCsv" . "$token" if $_ ; 
$StrToPrint .= "$token" unless $_ ;     #the elemen
} #eof for
$StrToPrint .= "\n" ; 
} #eof foreach my $RowRef 
$objFileHandler->PrintToFile($FileCsvToPrint , $StrToPrint ) 
if ( defined ( $StrToPrint));
} #eof foreach foreach my $WorkSheetRef
 
 
} #eof sub 
 
 
# --- foreach worksheet create worksheet refs into array 
# --- foreach row in worksheet create refs into array 
# --- foreach column in row create refs into array 
# --- add col refs , to row refs array , to worksheets refs array
# --- return the whole thingy
sub ParseExcel {
 
my $self = shift ; 
 
#old my $strTemplate = shift ; 
#old my $FileToPrintTemplated = shift ; 
 
my $FileInputExcel = $confHolder->{'FileExcelInput'} ; 
 
unless ( defined ( $FileInputExcel) or  -f $FileInputExcel ) { 
$objLogger->LogInfoErrorMsg ( " Cannot parse Excel 2003 - No file to read !!! " ) ; 
$objLogger->LogInfoErrorMsg ( " EXIT 1" ) ; 
exit(1) ; 
}
 
my $parser   = Spreadsheet::ParseExcel->new();
my $Workbook = $parser->Parse("$FileInputExcel");
 
 
if ( !defined $Workbook ) {
print STDERR "cannot parse \$FileInputExcel $FileInputExcel $! $parser->error()" ; 
die $parser->error(), ".\n";
}
 
 
my @RefWorkSheets = () ; 
my @WorkSheetNames = () ; 
 
foreach my $worksheet (@{$Workbook->{Worksheet}}) {
my $WorkSheetRef = () ; 
my $WorkSheetName = $worksheet->{'Name'} ; 
push ( @WorkSheetNames , $WorkSheetName ) ; 
my ( $ColMin , $ColMax , $RowMin , $RowMax ) ; 
$ColMin = $worksheet->{MinCol} ; 
$ColMax = $worksheet->{MaxCol} ; 
 
$RowMin = $worksheet->{MinRow} ; 
$RowMax= $worksheet->{MaxRow} ; 
#the first row are the column headers 
my $MinRowWithData= $RowMin +1 ;
 
$objLogger->LogDebugMsg ( "\$ColMin is $ColMin") ; 
$objLogger->LogDebugMsg ( "\$ColMax is $ColMax") ; 
$objLogger->LogDebugMsg ( "\$RowMin is $RowMin") ; 
$objLogger->LogDebugMsg ( "\$RowMax is $RowMax") ; 
 
my @RowRefs = () ; 
 
for my $row ( $MinRowWithData .. $RowMax) {
my $RowRef = () ;                 
my @Row = () ; 
for my $col ( $ColMin .. $ColMax ) {
# get the cell obj not it's value
my $cell = $worksheet->{Cells}[$row][$col]  ; 
#deprec next unless $cell;
 
$objLogger->LogDebugMsg ( " Row, Col    = ($row, $col)");
 
# if the cell as a value it is defined 
if ( $cell ) {
$cell->Value() ;
push ( @Row , $cell->Value () ) ; 
#debug $objLogger->LogDebugMsg ( " Value = $cell->Value() ");                #The Value
}
else {
push ( @Row , undef ) ; 
}
} #eof for col 
 
push ( @RowRefs , \@Row ) ; 
} #eof row
 
push ( @RefWorkSheets , \@RowRefs ) ; 
} #eof worksheet
return ( \@RefWorkSheets , \@WorkSheetNames ) ; 
} #eof sub
 
 
sub GetValue {
 
my $self = shift ; 
my $RefWorkSheets = shift ; 
my @RefWorkSheets = @$RefWorkSheets ; 
 
my $WorkSheetNumber = shift ; 
my $RowNumber = shift ; 
my $ColNumber = shift ; 
 
 
my $RefRows = $RefWorkSheets [$WorkSheetNumber ] ;
return undef unless ( $RefRows ) ; 
 
my @Rows = @$RefRows ; 
my $RefCols = $Rows[ $RowNumber ] ; 
 
return undef unless ( $RefCols ) ; 
 
my @Cols = @$RefCols ; 
my $ValueToReturn = $Cols [$ColNumber ] ; 
 
 
} #eof sub GetValue 
 
 
sub DumpExcel { 
 
my $self = shift ; 
 
my $RefWorkSheets = $self->ParseExcel () ; 
my @RefWorkSheets = @$RefWorkSheets ; 
 
foreach my $WorkSheetRef ( @RefWorkSheets ) { 
my @Rows = @$WorkSheetRef ; 
foreach my $RowRef ( @Rows ) {
my @Cols = @$RowRef ; 
foreach my $Col ( @Cols) {
$objLogger->LogDebugMsg ( "\$Col is $Col " ); 
}
} #eof foreach my $RowRef 
 
} #eof foreach foreach my $WorkSheetRef
 
 
} #eof sub DumpExcel 
 
 
 
 
1;
 
__END__
 
 
=head1 NAME
 
Excel2003Handler
 
=head1 SYNOPSIS
 
use Excel2003Handler  ; 
 
=head1 DESCRIPTION
 
Provide a simple interface for handling Excel 2003 and print to csv files, a wrapper build around the Spreadsheet::ParseExcel module. This module has external dependancies on the modules of the morphus tool - google code morhpus
 
=head2 EXPORT
 
 
=head1 SEE ALSO
 
perldoc perlvars
 
. No mailing list for this module
 
 
=head1 AUTHOR
 
FirstName.LastName@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.3 --- ysg --- Fixing bug with first char being a \t
0.0.2 --- ysg --- Refactoring. Tested. Works. Added documentation
0.0.1 --- ysg --- Initial version -  OO methods + Initialize , ParseExcel , GetValue , DumpExcel
 
=cut
 

Just how good the 3D printing can get ?

The sky is the limit ...


2011-07-08

how-to convert my dos files into unix files with cygwin windows

for file in `ls -1` ; do perl -pi -e 's/\r\n/\n/g' $file;done;

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) git cheat sheet (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) 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) architecture (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) IDEA (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 input output (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) 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) scala ScalaFmt (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) smells (1) smtp (1) software development (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) system design (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