comparison multijoin @ 5:20344ce0c811 draft

planemo upload for repository https://github.com/bgruening/galaxytools/tree/master/tools/text_processing/text_processing commit b9d202134c3c6d0e5c398c3ae75e410067fcfc52

4:288462ec2630

use warnings;
use Getopt::Long qw(:config no_ignore_case);
use Data::Dumper;
use Carp;
use File::Basename;
use Sort::Key::Natural qw(natsort);

my $version = "0.1.1";
my $field_sep = "\t";
my $key_column;
my @values_columns;

		or die "Output error: can't write output line: $!\n";
}

sub print_combined_data()
{
	my @keys = natsort keys %data ;

	foreach my $key ( @keys ) {
		my @outputs;

		foreach my $file (@input_files) {

 -f X
 --filler X     Fill missing values with X.
                (Default: '$filler').

 --labels       When printning output headers with '-h', instead of using the file name,
                use specific labels.
		Each file name must be followed by a name.

		example (without labels):
		 \$ multijoin -h -k 1 -v 2 A.TXT B.TXT C.TXT

5:20344ce0c811

use warnings;
use Getopt::Long qw(:config no_ignore_case);
use Data::Dumper;
use Carp;
use File::Basename;

my $version = "0.1.1";
my $field_sep = "\t";
my $key_column;
my @values_columns;

		or die "Output error: can't write output line: $!\n";
}

sub print_combined_data()
{
	my @keys = sort keys %data ;

	foreach my $key ( @keys ) {
		my @outputs;

		foreach my $file (@input_files) {

 -f X
 --filler X     Fill missing values with X.
                (Default: '$filler').

 --labels       When printing output headers with '-h', instead of using the file name,
                use specific labels.
		Each file name must be followed by a name.

		example (without labels):
		 \$ multijoin -h -k 1 -v 2 A.TXT B.TXT C.TXT