Comments on: Average CEL Perl Script

By: Anna7

Anna7 — Mon, 04 Aug 2008 18:35:58 +0000

Good job. Interesting indeed.

By: RAJASHEKAR

RAJASHEKAR — Wed, 12 Sep 2007 06:22:47 +0000

please can u help me with programming in perl,
iam just a bigginner , please helpp me with some examples for bioinformatics using perl
awaiting ur reply
raj

By: Matt

Matt — Wed, 15 Aug 2007 15:41:36 +0000

In answer to ‘why heck Perl?’, because sometimes that is the only language available other than DOS bat files.

And given the choice, Perl wins.

Cheers,

Matt

By: GugaRedy

GugaRedy — Sat, 16 Jun 2007 21:11:35 +0000

Hi.
Very useful resource. THE BEST. I liked your site.

Thanks.

Sincerely,

By: johnny

johnny — Tue, 31 Oct 2006 04:48:53 +0000

hya,
lOl yah I sux at html, I’m a complete n00b I’ll confess. By the way why the heck Perl? (*suppressed shudders*). Anyway good luck with all that stuff.

By: Ryan Castillo

Ryan Castillo — Tue, 31 Oct 2006 02:40:26 +0000

Johnny - you’re a coding genius. Well as far as C++, C and Perl are concerned. But you’re html knowledge seems to be a bit off. You actually can’t include tabs in html. Just doesn’t work I’ve fooled with it. Thanks for the help bro!

By: johnny

johnny — Tue, 31 Oct 2006 01:42:24 +0000

OK I give up. If you want whitespace removed, run it through this “Leave a Reply” box, it does a great job! If you can’t read the above code due to lack of indents, I’ll be happy to send you a copy.

By: johnny

johnny — Tue, 31 Oct 2006 01:40:52 +0000

jye again,
Crud, that main() got all messed up, it makes no sense. OK, I’m gonna try main() again with no tabs, and no lesser than - greater than symbols (I guess it got interpreted as HTML???):

sub main {
# use the subs we’ve defined:
$str = ” Oh, woe is me! “;
print “Now str == ($str)…\n”;
$str = &rm_ws_head($str);
print “Now str == ($str)…\n”;
$str = &rm_ws_tail($str);
print “Now str == ($str)…\n”;
$str = &rm_ws_all($str);
print “Now str == ($str)…\n”;

print “Now gonna use splits to do it…\n”;

# do it brute force using splits:
$str = ” Oh, woe is me! “;
print “Now str == ($str)…\n”;
my @wrds = split(/\s/, $str);
my $newstr = “”;
foreach $w (@wrds) {
$newstr .= $w;
}
print “Now str == ($newstr)…\n”;
}

&main();

By: johnny

johnny — Tue, 31 Oct 2006 01:35:27 +0000

Uh…. I guess I shoulda used spaces instead of tabs. My formatting got ate. I’ll send you another copy of this babble if you need it.
johnny

By: johnny

johnny — Tue, 31 Oct 2006 01:34:15 +0000

hyr,
Dunno if this will help or not, this will take a string & chop the leading whitespace (tab, space, newline, etc.) off of it, returning the thus-beheaded string:

sub rm_ws_head {
my $str = shift;
$str =~ s/^\s+//;
return $str;
}

This will get rid of trailing whitespace:

sub rm_ws_tail {
my $str = shift;
$str =~ s/\s+$//;
return $str;
}

And this will get ‘em all:

sub rm_ws_all {
my $str = shift;
$str =~ s/\s+//g;
return $str;
}

Here’s code to test it:

sub main {
# use the subs we’ve defined:
$str = ” Oh, woe is me! “;
print “Now str == …\n”;
$str = &rm_ws_head($str);
print “Now str == …\n”;
$str = &rm_ws_tail($str);
print “Now str == …\n”;
$str = &rm_ws_all($str);
print “Now str == …\n”;

print “Now gonna use splits to do it…\n”;

# do it brute force using splits:
$str = ” Oh, woe is me! “;
print “Now str == …\n”;
my @wrds = split(/\s/, $str);
my $newstr = “”;
foreach $w (@wrds) {
$newstr .= $w;
}
print “Now str == …\n”;
}

&main();

Err… I also snuck a bit of array madness in there at the end, you can split your line on whitespaces if you want then just fish out whatever fields you like, I actually do this a lot in my Perl-ing. For instance, if you know each such line produces an array with 5 “wrds” in it, and you know you want the 3rd wrd, or $wrds[2], then that can be very nice rather than dealing over & over with the whole string.

Hope that makes some sort of sense & helps in some way. Take it easy & good luck with your Perl attacks.
johnny