jdittmarCodeSnippets’s gists

jdittmarCodeSnippets / gist:5541906

Last active December 17, 2015 03:19

JavaScript: isNumeric

	// http://stackoverflow.com/questions/18082/validate-numbers-in-javascript-isnumeric
	function isNumeric(n) { return !isNaN(parseFloat(n)) && isFinite(n); }

jdittmarCodeSnippets / gist:5357937

Created April 10, 2013 20:00

Perl: trimErroneousCharactersAtEnds

	#################################################################
	# subroutine to trim off the white space, carriage returns, pipes, and commas from both ends of each string or array
	sub trimErroneousCharactersAtEnds {
	my $guy = shift;
	return if !defined $guy;
	my $type = (ref(\$guy) eq 'REF') ? ref($guy) : ref(\$guy);
	if ( $type eq 'ARRAY') { # Reference to an array
	foreach(@{$guy}) { #for each element in @{$guy}
	s/\s+$//g;
	s/,+$//g;

jdittmarCodeSnippets / gist:5357930

Created April 10, 2013 20:00

Perl: lineBreakCheck

	# line_break_check receives a file handle as its input and returns the new line character used in the file handle
	sub line_break_check{
	my $file = shift;
	local $/ = \1000; # read first 1000 bytes
	local $_ = <$file>; # read
	my ($newline) = /(\015\012?)/ ? $1 : "\012"; # Default to unix.
	seek $file,0,0; # rewind to start of file
	return $newline;
	}

jdittmarCodeSnippets / gist:5357927

Created April 10, 2013 19:59

Perl: prettyPrintNumber

	# formats floating point numbers so they print nicely
	sub prettyPrintNumber{
	my $number = shift;
	if(!$number){return "0.00";}
	$number = ($number < 0.001) ? sprintf('%.2e',$number) : sprintf("%.3f",$number);
	return $number;
	}

jdittmarCodeSnippets / gist:5357923

Last active May 6, 2019 15:47

Perl: isNumeric

	# returns true if the value passed to it is numeric, false otherwise
	sub isNumeric{
	no warnings;
	use warnings FATAL => 'numeric';
	return 0 if(!defined $_[0] \|\| $_[0] eq '' );
	return defined eval { $_[ 0] == 0 };
	}

jdittmarCodeSnippets / reg ex for matching yeast ORFs

Last active April 7, 2016 01:10

RegEx: ORF

'^[Y|y][A-Pa-p][L|R|l|r][0-9]{3}[W|w|C|c](?:-[A-Za-z])?$'

jdittmarCodeSnippets / gist:5330285

Created April 7, 2013 12:21

mysql: table exists

	sub does_table_exist {
	# check wether tables exists in the database
	my ($dbHandle, $tablename) = @_;
	eval { $dbHandle->do("select count(*) from $tablename where 1=0") };
	if ($dbHandle->err) {
	# Table does not exist
	#print "Table $tablename does not exist.\n";
	return 0;
	}
	else {