Opening and Printing out

#!/usr/bin/perl

                 open(IN,"</home/tmclaugh/list/text.txt") || die "cannot open file>:!";
                 open(OUT,">/home/tmclaugh/list/zinger1.txt") || die "Cannot open file>:!";

                 $/='ACCESSION NUMBER             : ';
                 printf("%20s %20s %s\n",
                      "Accession Number",
                      "Word in Narrative",
                      "Sequence");
                 while(<IN>){
                      my ($an)= /(\d+)/g;
                      my @words;
                      ($_)=/NARRATIVE\s+:(.+)\n\w+\s+:/gs;
                      @words=/(\w+)(?!\n\w+\s:)/gs;
                      my $i=0;
                      for my $word (@words){
                      $i++;
                      printf("%20s %20s %d\n",
                      $an,$word,$i);
                      }
                 }
                 close(IN);
                 close(OUT);


                 will not open or print to OUT can someone help
tomatocansAsked:
Who is Participating?
 
ozoConnect With a Mentor Commented:
#you probably want
die "cannot open file>:$!";
#to tell you the reason for a failure

#if you want to print to OUT, you can say
printf OUT ("%20s %20s %s\n",
           "Accession Number",
           "Word in Narrative",
           "Sequence");

#what's in /home/tmclaugh/list/text.txt?
#are you sure the /NARRATIVE\s+:(.+)\n\w+\s+:/gs matches anything?
0
 
tomatocansAuthor Commented:
Sorry no point left
0
 
tomatocansAuthor Commented:
changed to usr/local/bin/perl got output for header to screen nothing else on screen
                 or in output file.
0
 
tomatocansAuthor Commented:
HELP
0
 
tomatocansAuthor Commented:
Thanks
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.

All Courses

From novice to tech pro — start learning today.