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;
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 =... (4 Replies)
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... (1 Reply)
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... (3 Replies)
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... (1 Reply)
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... (1 Reply)
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... (7 Replies)
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... (12 Replies)
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. (1 Reply)
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... (1 Reply)
Discussion started by: germany1517
1 Replies
LEARN ABOUT DEBIAN
xcalpr
XCALPR(1) General Commands Manual XCALPR(1)NAME
xcalpr - print xcal calendar entries
SYNTAX
xcalpr [ -c ][ -x ][ -f file ][ -d dir ][ -u user ][ date-spec ]
DESCRIPTION
Xcalpr prints the contents of the xcal files. It is intended to be used in situations when you have no access to an X screen. It can also
be used to generate entries for the standard UNIX calendar program.
With no arguments, it prints any entries that exist for the next seven days. The program also reads the contents of the seven daily files
and prints them at the appropriate point in the output stream. Each line in the output is preceded by the day of the week, the day of the
month, the month and the year.
Xcalpr can be given a date specification to select months and years. If the date spec consists of just a year number, then all the data
for that year is printed. For example:
xcalpr 1994
will print all the data for 1994. Several years can be specified.
If you give the name of a month, then the data for that month in the current year will be printed. If the month is in the past, then the
data for that month next year will be printed. For example, if
xcalpr oct jan
is typed in August, xcalpr will print October in the current year and January next year.
You can select a particular year by adding the number after any months that you need printing:
xcalpr oct nov 1994
will print October and November in 1994.
There are a couple of special `month' names. The name rest will print the data for the rest of the month, starting tomorrow. The rest
argument is not recognised if you give a year as a parameter. If tomorrow happens to be the first day of the next month, then all the data
for next month will be printed. The name next prints all the data for next month.
OPTIONS
The -c option causes xcalpr to output lines suitable for input to the standard UNIX calendar program.
The -d switch is followed by a directory name and specifies an alterative location for your Calendar directory. Your home directory is
prepended if the name doesn't start with a slash or a dot.
The -f option is followed by a file name and xcalpr will write it's output to that file, rather than standard output.
The -u option is followed by a user name and dumps their calendar files rather than yours.
The -x option makes xcalev operate with Calendar files that are compatible with the xcalendar program.
FILES
$HOME/Calendar/*
xc<dd><Mon><Year> A data file is day, Month in three letter format and the year.
xy<Year> A year directory.
xw<Day> A data file for the weekly code, one per day.
SEE ALSO xcal(1), xcalev(1), xcal_cal(1)AUTHOR
Copyright 1993 by Peter Collinson, Hillside Systems All rights reserved.
This product includes software developed by the University of California, Berkeley and its contributors.
X Version 11 R5 October 1993 XCALPR(1)