#!/usr/bin/perl
use strict;
use warnings;
use Pod::Usage;
use Getopt::Long;
use File::Basename;
sub header () {
print << "EOF";
Sigenae/Genotoul miRNA pipeline
EOF
}
sub footer () {
print << "EOF";
EOF
}
# ------------------------
# main
main : {
# options hash table
my %h_options;
Getopt::Long::Configure( "no_ignorecase" );
Getopt::Long::Configure( "bundling" );
# retrieve all options
GetOptions (\%h_options,
'h|help'
) or pod2usage( -verbose => 1 , noperldoc => 1) ;
# help
pod2usage( -verbose => 1 , noperldoc => 1) if (exists $h_options{'h'});
# test ARGV parameters
pod2usage( -verbose => 2 , noperldoc => 1) if (@ARGV != 1);
header();
my $cmp = 0;
my @a_header;
open (MAT, $ARGV[0]) or die "Can't open file $ARGV[0] : $!";
while (my $line=) {
chomp $line;
$cmp++;
my @a_line = split('\t', $line);
if($line =~ /^#/) {
print "
\n";
foreach my $l (@a_line) {
print "\t
$l
\n";
push(@a_header, $l);
}
print "
\n";
print "\n";
}
else {
print "
\n";
foreach my $l (@a_line) {
print "\t
$l
\n";
}
print "
\n";
}
last if($cmp > 10000);
}
close MAT;
print "\n\n
\n";
foreach my $l (@a_header) {
print "\t
\n";
}
print "
\n\n";
footer();
}
=pod
=head1 NAME
matrix2html.pl - Build html report from tab separated file
=head1 DESCRIPTION
Build html report using jquery dataTables.
Input tab separated file sample:
#col1 col2 col3[...]
val1 val2 val3[...]
[...]
Warning:
- First line must be start by #
- Only the first 10000 lines of the input file will be used
=head1 SYNOPSIS
matrix2html.pl FILE.CSV > FILE.HTML
=head1 OPTIONS
-h,--help
=cut