Re: Parsing Sequence Records

You might also consider using the three argument form of open:

open(my $in, '<', "/Users/Desktop/Pipelines/fungi.1.aa.hypothetical.fa
+a");
open(my $out, '>', "Users/Desktop/Pipelines/fungi.1.aa.hypothetical50.
+faa");
[download]

*My* tenacity goes to eleven...

Comment on Re: Parsing Sequence Records Download Code

Replies are listed 'Best First'.
Re^2: Parsing Sequence Records by Laurent_R (Canon) on May 07, 2014 at 21:56 UTC
I definitely agree with the three-argument syntax you are suggesting, but I think that MidLifeXis's comment was even more important: checking whether the file could be open. I would therefore suggest this possible syntax: `my $input_file = "/Users/Desktop/Pipelines/fungi.1.aa.hypothetical.faa +"); my $output_file = "Users/Desktop/Pipelines/fungi.1.aa.hypothetical50.f +aa"); open my $in, '<', $input_file or die "could not open $input_file $!"; open my $out, '>', $output_file or die "could not open $output_file $! +";` [download]	[reply] [d/l]
Re^3: Parsing Sequence Records by thezip (Vicar) on May 07, 2014 at 22:29 UTC
I always use autodie, so its a moot point for me... :-) My tenacity goes to eleven...	[reply]
Re^2: Parsing Sequence Records by lomSpace (Scribe) on May 09, 2014 at 12:33 UTC
thezip: That was simple enough. One of my Duhh moments. Thanks!	[reply]