your 'newline' character might be chr(13)
so a chop might do better for you or
my $newline = chr(13);
$line =~ s/$newline//;
...
HTH
JY
----- Original Message -----
From: "David Byrne" <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Sent: Wednesday, October 08, 2003 3:08 PM
Subject: newline...be gone
> Greetings,
>
> I have a question that probably easy to many...
>
> How can I get rid of the newline at the end of $line
> (which transfers to $remainder after splitting)?
>
> foreach $filename (@filelist) {
> open(INPUT,"$filename");
> foreach $line (<INPUT>) {
> chomp($line);
> my ($gene,$remainder) = split(/\t/,$line,2);
> chomp ($remainder);
> $genedex{$gene} .= "$remainder\t";
> }
> }
>
>
> I've tried substituting, chomping, but the newline
> remains. It's gotta be something obvious...
>
> Thank you very much,
> David
>
> __________________________________
> Do you Yahoo!?
> The New Yahoo! Shopping - with improved product search
> http://shopping.yahoo.com
> _______________________________________________
> Perl-Win32-Users mailing list
> [EMAIL PROTECTED]
> To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
_______________________________________________
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
