Problem in perl program in printing all the entries Post: 302651843

Sponsored Content

Top Forums Shell Programming and Scripting Problem in perl program in printing all the entries Post 302651843 by pludi on Wednesday 6th of June 2012 08:59:10 AM

06-06-2012

Registered User

For readability, here's a formatted and numbered version:

Code:

  1 #!/usr/bin/perl
  2 $/ = "\n\n";
  3 open( DATA, 'mutationsonly.txt' );
  4
  5 # or die("Could not open mutationsonly file.");
  6 open( MYOUTPUT, ">newmutations.txt" );
  7
  8 # or die ("could not open newmutations file.");
  9 my @records = <DATA>;
 10 close(MYOUTPUT);
 11 close(DATA);
 12 foreach my $record (@records) {
 13     chomp;
 14     my $find = /^\*FIELD\*\sAV$/;
 15     if ( $record =~ m/ $find / ) {
 16         print "$record";
 17     }
 18 }

My guess is that in line 14 you're trying to assign a regular expression to a variable, and use that in the match below. To do that, you'd have to use the qr// construct, and it would be much more efficient to do that outside the loop, instead of each time again.

Other than that, you can probably do the same thing with a simple grep {}, eg

Code:

#!/usr/bin/perl
#$/ = "\n\n";
open( DATA, 'mutationsonly.txt' );

# or die("Could not open mutationsonly file.");
open( MYOUTPUT, ">newmutations.txt" );

# or die ("could not open newmutations file.");
my @records = <DATA>;
close(MYOUTPUT);
close(DATA);
print grep { /^\*FIELD\*\sAV$/ } @records;

pludi

View Public Profile for pludi

Find all posts by pludi

10 More Discussions You Might Find Interesting

1. Shell Programming and Scripting

Perl printing error

Hi Scripting Gurus, I am new bee in perl, and trying to write a script which must print the free disk space availability of C and E drives. Please advice. Here is the script snippet and expected output: #!/usr/bin/perl use CGI qw/:html3 :standard/; $spaceuselog =...

2. Shell Programming and Scripting

Problem using mailx instead of mail in perl program

I have a perl program that uses the mail program to send emails. It works fine but because I want to change the return address on the emails to be different I need to use mailx with the "-r" option. the problem is when I change this line to use mailx I no longer recieve "any" emails. This works...

3. Shell Programming and Scripting

[Perl] Printing - Scalars

Hey Guys, I have some weird problem with printing scalars ... When I'm executing script both are printing in terminal ... But only one is printed to the file ? I don't know whats going on .. :) Btw .. I'm noobie :) took me lots of time to put this simple script together :) Thank you...

4. Shell Programming and Scripting

Printing between 2 matches with Perl

Can we please modify this perl one-liner to print lines between pattern1 and pattern2 in a file? Currently it prints lines till pattern2.

5. Homework & Coursework Questions

Calling compiled C program with Perl program

Long story short: I'm working inside of a Unix SSH under a bash shell. I have to code a C program that generates a random number. Then I have to call the compiled C program with a Perl program to run the C program 20 times and put all the generated random #s into a text file, then print that text...

6. Shell Programming and Scripting

help with perl database printing

Hey guys i am using perl and trying to pull a list of books from a database and then populate the list in a separate TT2 file. When the list is generated there should be 39 book names. When I do the foreach statement in my tt2 below, the first statement gives me 39 Array(random number) and the...

7. Shell Programming and Scripting

Need help in Perl Script for printing next line

I got multiple of documents in which i have to extract a line coming after a ID..The scenario is Customer ID: none VT : 002/89 Customer ID: Yes VT: 001/89 Customer ID: none VT: 006/85 Customer ID: Yes VT: 003/56 I have to extract the id which is coming after YES..The output...

8. Shell Programming and Scripting

Creating Printing Program in bash

HI I am trying to create a bash script to print whatever i type in It has to have these below to define the size of the label and what size to print the text N q609 A100,10,0,5,2,2,N," " P1 It has to be sent to below > /dev/usblp0 So what it has to be is Written...

9. Shell Programming and Scripting

count number of entries perl program or Unix script

Hi I have a file with number of entries name 1 123 name 1 345 name 1 65346 name2 3243 name2 24234 name 2 234234 so on ......... how to count total number of entries for name 1 and name2...and so on Please guide.

10. Shell Programming and Scripting

Perl program get a response before the program quits

I created a program, so a kid can practice there math on it. It dispenses varies math problems and the kid must input an answer. I also want it to grade the work they have done, but I can't find the best place for it to print out the grade. I have: if ( $response =~ m/^/ ) { $user_wants_to_quit...

LEARN ABOUT SUNOS

gnome-open

gnome-open(1)							   User Commands						     gnome-open(1)

NAME

       gnome-open - open a file using the appropriate application

SYNOPSIS

       gnome-open [-h] filename

DESCRIPTION

       gnome-open opens a file from the command line by launching the appropriate application that is associated with the file mime type.

OPTIONS

       The following options are supported:

       -h	       Display usage and help information.

OPERANDS

       The following operands are supported:

       filename        Specifies the name of the file to open.

EXAMPLES

       Example 1: Opening a Text File in the Home Directory

       example% gnome-open README.txt

ENVIRONMENT VARIABLES

       See environ(5) for descriptions of the following environment variables: NLSPATH.

EXIT STATUS

       The exit value 0 is returned regardless of success or failure.

FILES

       The following files are used by this application:

       /usr/bin/gnome-open     Executable to open a file using the appropriate application

ATTRIBUTES

       See attributes(5) for descriptions of the following attributes:

       +-----------------------------+-----------------------------+
       |      ATTRIBUTE TYPE	     |	    ATTRIBUTE VALUE	   |
       +-----------------------------+-----------------------------+
       |Availability		     |SUNWgnome-libs		   |
       +-----------------------------+-----------------------------+
       |Interface stability	     |External			   |
       +-----------------------------+-----------------------------+

SEE ALSO

       Latest version of the GNOME Desktop User Guide for your platform.

NOTES

       Written by Stephen Browne, Sun Microsystems Inc., 2004.

SunOS 5.10							    6 Sep 2004							     gnome-open(1)

10 More Discussions You Might Find Interesting

1. Shell Programming and Scripting

Perl printing error

Discussion started by: ccsaviour

2. Shell Programming and Scripting

Problem using mailx instead of mail in perl program

Discussion started by: kieranfoley

3. Shell Programming and Scripting

[Perl] Printing - Scalars

Discussion started by: NDxiak

4. Shell Programming and Scripting

Printing between 2 matches with Perl

Discussion started by: anand_bh