Skip to content

Instantly share code, notes, and snippets.

View akuks's full-sized avatar

Ashutosh Kukreti akuks

View GitHub Profile
MojoForum Images
Upload image for Mojo
Mojo Auth Images
## App file
package API;
use Mojo::Base 'Mojolicious';
# Custom Packages
use API::Model::DB ;
use API::DBOperations;
use API::Common;
Customer_ID Customer Name DOB Gender City
950694369 xuguk 26/12/74 0:00 M Hyderabad
615706054 jefex 17/08/55 0:00 F Jaipur
835551935 wiyuv 09/04/54 0:00 F Hyderabad
419472292 rowap 14/06/87 0:00 M Bangalore
146624554 litof 24/06/89 0:00 F Chandigarh
506980793 cavov 24/09/07 0:00 M Kanpur
352864508 bikad 19/01/05 0:00 F Kanpur
695439548 tecoy 18/02/52 0:00 F Dehradun
280514777 tetim 17/02/04 0:00 F Mangalore
foreach my $sheet ( @{ $excel->{Worksheet} }) {
# skip Sheets if zero rows
next if ( $sheet->{MaxRow} == 0 );
foreach my $row ( $sheet->{MinRow} .. $sheet->{MaxRow} ) {
my $some_var = $sheet->{Cells} [YOUR_ROW] [YOUR_COL]->{Val};
}
}