Thanks to all for very helpful analysis and suggestions. It is now working
fine.
perdeep
Hartwell Center for Bioinformatics and Biotechnology
St. Jude Children's Research Hospital
Memphis, TN 38105
___
Perl-Unix-Users mailing list
[EMAIL PROTECTED]
T
rdeep;
[EMAIL PROTECTED]
Subject: RE: [Perl-unix-users] Perl help
|
| while (my $line = ) {
|chop($line);
|if ($line =~ /^$/) {
< "/^$/" as
special
characters they would be starting with and ending with respectively - if
they are not being used as special characters ,
|
| while (my $line = ) {
|chop($line);
|if ($line =~ /^$/) {
< "/^$/" as
special
characters they would be starting with and ending with respectively - if
they are not being used as special characters , then you may need to
escape>>
That pattern is to skip blank lines ??
-Original Message-
From: Mehta, Perdeep [mailto:[EMAIL PROTECTED]]
Sent: Monday, September 30, 2002 10:09 PM
To: [EMAIL PROTECTED]
Subject: RE: [Perl-unix-users] Perl help
No! this did not change the behavior.
perdeep
-Original Message-
From: Trevor Joerges [mailto:[EMAIL
up
is matching your regex.
Good Luck,
Bryan
-Original Message-
From: Mehta, Perdeep [mailto:[EMAIL PROTECTED]]
Sent: Monday, September 30, 2002 5:09 PM
To: [EMAIL PROTECTED]
Subject: RE: [Perl-unix-users] Perl help
No! this did not change the behavior.
perdeep
-Original Me
I've several of those in the file that have only keys but no values.
This
could be problematic. Is there a way, I can flag these while filling the
hash up?
Thanks,
perdeep
-Original Message-
> use strict;
> use warnings;
>
> my %defln = ();
>
> while (my $line = ) {
>chop(
PM
To: 'Mehta, Perdeep'
Subject: RE: [Perl-unix-users] Perl help
I think the input file which u read passes some line which does not have
$words[0] value
pls have a look at ur input file
-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED]]On Behalf Of
Mehta, Perde
No! this did not change the behavior.
perdeep
-Original Message-
From: Trevor Joerges [mailto:[EMAIL PROTECTED]]
Sent: Monday, September 30, 2002 3:55 PM
To: Mehta, Perdeep; [EMAIL PROTECTED]
Subject: Re: [Perl-unix-users] Perl help
Your printing to a filehandle OUT. What do you need
erges
SendMIME Software
www.sendmime.com
- Original Message -
From: "Mehta, Perdeep" <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Sent: Monday, September 30, 2002 4:30 PM
Subject: [Perl-unix-users] Perl help
| Hi All,
|
| I would appreciate any help on the following code.
|
| He
Hi All,
I would appreciate any help on the following code.
Here I fill the defln hash with the appropriate keys and values:
use strict;
use warnings;
my %defln = ();
while (my $line = ) {
chop($line);
if ($line =~ /^$/) {
next;
}
else {
my
http://www.hartwellcenter.org
-Original Message-
From: $Bill Luebkert [mailto:[EMAIL PROTECTED]]
Sent: Wednesday, May 01, 2002 8:04 PM
To: Mehta, Perdeep
Cc: '[EMAIL PROTECTED]'
Subject: Re: [Perl-unix-users] perl help
Mehta, Perdeep wrote:
> Hi All,
>
> I'm beginner to pattern match
Mehta, Perdeep wrote:
> Hi All,
>
> I'm beginner to pattern matching in Perl and was writing a code to parse a
> string. I tried pretty hard to extract the words that are of interest from a
> string but had no luck.
>
> Here is all-in-one-line string that I want to parse:
> $string = "biologica
>Here is all-in-one-line string that I want to parse:
>$string = "biological process|mitosis|IEA|GO:0007067|MGD|na|biological
>process|cell cycle|IEA|GO:0007049|MGD|na|cellular
>component|intracellular|IEA|GO:0005622|MGD|na|molecular function|protein
>tyrosine phosphatase|IEA|GO:0004725|MGD|na|bi
Hi All,
I'm beginner to pattern matching in Perl and was writing a code to parse a
string. I tried pretty hard to extract the words that are of interest from a
string but had no luck.
Here is all-in-one-line string that I want to parse:
$string = "biological process|mitosis|IEA|GO:0007067|MGD|na
Johnno wrote:
> I have a data field listed below.
>
> "data1","data2","data3","data4","data5","data6","data7 ","data8"
>
> open (data,"data.txt") || die;
> while () {
>
> this is where I run into problems...
>
> I am wanting do the following..
>
> split up the data after every , and then rem
I have a data field listed below.
"data1","data2","data3","data4","data5","data6","data7 ","data8"
open (data,"data.txt") || die;
while () {
this is where I run into problems...
I am wanting do the following..
split up the data after every , and then remove the " and store it as
$data[1] = da
16 matches
Mail list logo
