PerlTemplate - Revision history

Raj at 09:08, 6 August 2013

2013-08-06T09:08:22Z

← Older revision		Revision as of 09:08, 6 August 2013
Line 1:		Line 1:
	[[Category:flax_repeats]]		[[:Category:flax_repeats]]
	[[Category:script]]		[[:Category:script]]

Raj at 17:50, 7 June 2011

2011-06-07T17:50:37Z

← Older revision		Revision as of 17:50, 7 June 2011
Line 1:		Line 1:
			[[Category:flax_repeats]]
			[[Category:script]]


	<source line>		<source line>
	#! /usr/bin/perl -w		#! /usr/bin/perl -w

Raj at 17:50, 7 June 2011

2011-06-07T17:50:04Z

← Older revision		Revision as of 17:50, 7 June 2011
Line 1:		Line 1:
	<source ~~lang=perl~~>		<source line>
	#! /usr/bin/perl -w		#! /usr/bin/perl -w
	# *************************************************************		# *************************************************************

Raj at 18:48, 3 January 2010

2010-01-03T18:48:15Z

← Older revision		Revision as of 18:48, 3 January 2010
Line 70:		Line 70:

	</source>		</source>
			[[Category:Bioinformatics]]

Raj at 17:11, 26 December 2009

2009-12-26T17:11:37Z

← Older revision		Revision as of 17:11, 26 December 2009
Line 1:		Line 1:
	<~~pre~~>		<source lang=perl>
	#! /usr/bin/perl -w		#! /usr/bin/perl -w
	# *************************************************************		# *************************************************************
Line 69:		Line 69:
	# END		# END

	</~~pre~~>		</source>

Raj at 02:09, 27 August 2008

2008-08-27T02:09:29Z

← Older revision		Revision as of 02:09, 27 August 2008
Line 1:		Line 1:
	<~~perl~~>		<pre>
	#! /usr/bin/perl -w		#! /usr/bin/perl -w
	# *************************************************************		# *************************************************************
Line 69:		Line 69:
	# END		# END

	</~~perl~~>		</pre>

Raj at 03:37, 23 August 2008

2008-08-23T03:37:36Z

← Older revision		Revision as of 03:37, 23 August 2008
Line 1:		Line 1:
	<~~pre~~>		<perl>
	#! /usr/bin/perl -w		#! /usr/bin/perl -w
	# *************************************************************		# *************************************************************
Line 69:		Line 69:
	# END		# END

	</~~pre~~>		</perl>

Raj: New page:

 #! /usr/bin/perl -w # ************************************************************* # This Programme does the following in sequence # ->  # -> # Author: Rajkumar (itc@rajkumar.in)  #...

2008-08-23T02:51:57Z

New page: <pre> #! /usr/bin/perl -w # ************************************************************* # This Programme does the following in sequence # -> # -> # Author: Rajkumar (itc@rajkumar.in) #...

New page

<pre>
#! /usr/bin/perl -w
# *************************************************************
# This Programme does the following in sequence
# ->
# ->
# Author: Rajkumar (itc@rajkumar.in)

# *************************************************************

# Libraries
use strict;
use DBI;

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

# Variables
my $path = "";
my @file = @_;

# Connecting to the database
my $dbh = DBI->connect('DBI:mysql:database:host', 'usr', 'pwd') or die $!;

# Reading a file line by line

foreach my $line (split ("\n", `cat $path/file`))
{

}

# Open a dir
opendir (DIR, "$path") or die $!;
@files = readdir(DIR);
close(DIR);

foreach my $file(@files) {
next if ($file eq "." or $file eq "..");

print $file."\n";
}

# Parse CSV
open(CSV_FILE, "parse_me.csv") or die "unable to open file 'CSV_FILE': $!\n";
<CSV_FILE>; # skip header line
while (<CSV_FILE>){
($column1, $column2, $column3, $column4) = split(/\t+/, $_);
}

# Open a file
open (GFF, ">>".$file.".gff");
print GFF $gffout;
close GFF;

# 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

</pre>