• Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 246
  • Last Modified:

perl question

Hello, I have below a script from a previous question-- I need to open an output file to put the results into. I want the outfile file to have the header "Chain A :" at the start of the results eg. ChainA :1,2,5,7,6,9 etc..... can anyone help?

#!/usr/bin/perl
                                                                                           
use strict;
use warnings;
                                                                                           
$_ = '---bbbb--bbbb';
                                                                                           
my @pos;
while (/\G.*?-/g) {
  push @pos, pos;
}
                                                                                           
print join ', ', @pos;
print "\n";
0
paulieomeara
Asked:
paulieomeara
1 Solution
 
leflonCommented:
Hi paulieomeara,

you can

open(OUTFILE,">test.out") || die "can not open test.out";
print OUTFILE "Chain !: ".join(',',@pos);

hth
leflon
0
 
paulieomearaAuthor Commented:
Thanks Lefton...don't know why it didn't work for me before but hey...all good!
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

Join & Write a Comment

Featured Post

Introducing Cloud Class® training courses

Tech changes fast. You can learn faster. That’s why we’re bringing professional training courses to Experts Exchange. With a subscription, you can access all the Cloud Class® courses to expand your education, prep for certifications, and get top-notch instructions.

Tackle projects and never again get stuck behind a technical roadblock.
Join Now