Solved

Opening and Printing out

Posted on 2000-02-16
5
144 Views
Last Modified: 2010-03-05
#!/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
0
Comment
Question by:tomatocans
  • 4
5 Comments
 

Author Comment

by:tomatocans
ID: 2529472
Sorry no point left
0
 

Author Comment

by:tomatocans
ID: 2529487
changed to usr/local/bin/perl got output for header to screen nothing else on screen
                 or in output file.
0
 

Author Comment

by:tomatocans
ID: 2529506
HELP
0
 
LVL 84

Accepted Solution

by:
ozo earned 0 total points
ID: 2529723
#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
 

Author Comment

by:tomatocans
ID: 2538626
Thanks
0

Featured Post

Free Tool: Postgres Monitoring System

A PHP and Perl based system to collect and display usage statistics from PostgreSQL databases.

One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Suggested Solutions

Title # Comments Views Activity
perl match and sort unique result 2 142
Perl efficient DB Call 8 93
Perl troubleshooting error. Base64 bootstrap parameter 5 72
Move Function in Perl Script 2 72
In the distant past (last year) I hacked together a little toy that would allow a couple of Manager types to query, preview, and extract data from a number of MongoDB instances, to their tool of choice: Excel (http://dilbert.com/strips/comic/2007-08…
Checking the Alert Log in AWS RDS Oracle can be a pain through their user interface.  I made a script to download the Alert Log, look for errors, and email me the trace files.  In this article I'll describe what I did and share my script.
Explain concepts important to validation of email addresses with regular expressions. Applies to most languages/tools that uses regular expressions. Consider email address RFCs: Look at HTML5 form input element (with type=email) regex pattern: T…

830 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question