comparison flexbar.pl @ 11:52c5e53aff28

Revised perl wrapper.

10:f0bdf862ba39

# Author: Johannes T. Roehr

use warnings;
use strict;

my $format  = pop @ARGV;
my $folder  = pop @ARGV;
my $id      = pop @ARGV;
my $outFile = pop @ARGV;

my $call = join " ", @ARGV;

system $call .' --target reads > '. $outFile and exit 1;


foreach(<reads*>){

	
	$fileType = $1         if /\.(\w+)$/;
	$fileType = $format    if /\.\w+fast\w$/;
	$fileType = 'tabular'  if $fileType eq 'lengthdist';
	
	s/_//g;
	
	my $name = "primary_". $id ."_". $_ ."_visible_". $fileType;
	
	rename $_, $name;
	rename $name, $folder;
}

11:52c5e53aff28

# Author: Johannes T. Roehr

use warnings;
use strict;


my ($outFile, $id, $folder, $format) = @ARGV[($#ARGV - 3) .. $#ARGV];

my $call = join " ", @ARGV[0..($#ARGV - 4)];

system $call .' --target reads > '. $outFile and exit 1;


foreach(<reads*>){

	
	$fileType = $1         if /\.(\w+)$/;
	$fileType = $format    if /\.\w+fast\w$/;
	$fileType = 'tabular'  if $fileType eq 'lengthdist';
	
	my $file = $_;
	
	s/_//g;
	
	my $name = "primary_". $id ."_". $_ ."_visible_". $fileType;
	
	rename $file, $name;
	rename $name, $folder;
}