Raj at 12:19, 28 April 2010

2010-04-28T12:19:19Z

← Older revision		Revision as of 12:19, 28 April 2010
Line 63:		Line 63:
	# END		# END
	</source>		</source>
			[[Category: Bioinformatics]]

Raj: Created page with ' #! /usr/bin/perl -w # ************************************************************* # This Programme does the following in sequence # -> Uncompress the gz fi…'

2010-04-28T12:17:48Z

Created page with '<source lang=perl> #! /usr/bin/perl -w # ************************************************************* # This Programme does the following in sequence # -> Uncompress the gz fi…'

New page

<source lang=perl>
#! /usr/bin/perl -w

# *************************************************************
# This Programme does the following in sequence
# -> Uncompress the gz files in a folder
# Author : Rajkumar (itc@rajkumar.in)
# Release: APR 2010
# *************************************************************

# Libraries
use strict;
use Bio::Perl;
use Bio::SearchIO;

# At the top: Time Start
my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);

# Variables
my $path = "/home/raj/bio";
my $zdir = "$path/tobacco/data/BAC";

my ($i) = $_;
my (@files)= @_;

# Work with the temp file to pick only the top hits with one scaffold

opendir (DIR, "$zdir") or die $!;
@files = readdir(DIR);
close(DIR);

print "\n\tUncompressing..";

foreach my $file(@files) {
next if ($file eq "." or $file eq "..");
next if ($file !~ m/.gz/);

chdir $zdir;
`gzip -d $file`;

}

print " Done!\n";

# At the End: Time Calculation
my ($sec_,$min_,$hour_,$mday_,$mon_,$year_,$wday_,$yday_,$isdst_) = localtime(time);
my $days = $mday_-$mday;
my $hours = $hour_-$hour;
my $mins = $min_-$min;
my $secs = $sec_-$sec;
print "\n------------------------\nDuration: ";
if ($days>0) { print "$days days";}
if ($hours>0) { print ": $hours hours";}
if ($mins>0) { print ": $mins mins";}
if ($secs>0) { print ": $secs secs";}
print "\n------------------------\n";

# END
</source>

Uncompress BACs - Revision history

Raj at 12:19, 28 April 2010

Raj: Created page with ' #! /usr/bin/perl -w # ************************************************************* # This Programme does the following in sequence # -> Uncompress the gz fi…'