Login or Register to Ask a Question and Join Our Community

Sponsored Content
Full Discussion: Diamond operator in Until Statement (perl)
Top Forums Shell Programming and Scripting Diamond operator in Until Statement (perl) Post 302267322 by radoulov on Friday 12th of December 2008 06:29:00 AM
Old 12-12-2008
Another approach:

Code:
perl -ne'BEGIN { $Sep = "=" x 65 }
  /^ID   (\w+)/ and $Gene = $1;
  /^DE   RecName: Full=([^;]*)/ and $Name = $1;
  if (/^CC   -!- FUNCTION:/../CC   -!- SUBCELLULAR/) {
    $Func .= $1."\n   " if 
	  !/SUBCELLULAR/ && (/(FUNCTION:.*)/ || /CC(.*)/)
	}
  if (/^CC   -!- TISSUE SPECIFICITY:/../^CC   -!- SIMILARITY:/) {
    $Spec .= $1."\n   " if 
	  !/CC   -!- SIMILARITY:/ && (/(TISSUE SPECIFICITY:.*)/ || /CC(.*)/)
	}
  printf "$Sep\n\nGENE: %s\n\nNAME: %s\n\n%s\n%s\n\n", $Gene, $Name, 
    $Func, $Spec and ($Func, $Spec) = undef if eof
  '  Batch*

 

9 More Discussions You Might Find Interesting

1. Shell Programming and Scripting

scalar variable assignment in perl + { operator

When reading over some perl code in a software document, I came across an assignment statement like this $PATH = ${PROJECT}/......./.... In this particular form of scalar variable assignment, what does the curly braces operators do ? Also, what is the benefit in doing scalar assignment this... (3 Replies)
Discussion started by: JamesGoh
3 Replies

2. Shell Programming and Scripting

chomp like Perl operator in Bash

I am sure there should exist a chomp like Perl operator in Bash using which I can literally remove new line characters as show below: Any clue? (3 Replies)
Discussion started by: paragkalra
3 Replies

3. Shell Programming and Scripting

cannot properly employ "or" operator in an if statement (bash)

Hi, I have a variable, $sername, and I would like to display this variable only if it *does not* contain either of these two tags: *DTI*FA* or *DIFF*FA*. I think the syntax for my 'or' operator is off. The variable $sername is continuously changing in an outer loop (not shown), but at the... (4 Replies)
Discussion started by: goodbenito
4 Replies

4. Shell Programming and Scripting

Perl Diamond Operator

I know that when using 'while (<FILE>) {}', Perl reads only one line of the file at one time, and store it in '$_'. Can I change some parameters so that 'while (<>) {}' can read more than one lines, like 2 or 5 lines at one time? Thanks for the help! (1 Reply)
Discussion started by: zx1106
1 Replies

5. Shell Programming and Scripting

How to write If statement using && and operator in Unix

Hi What is the syntax for if statement using && and || operator? if && ] || here its giving me an error to this if statement any suggestion?? (2 Replies)
Discussion started by: Avi
2 Replies

6. UNIX for Dummies Questions & Answers

awk if statement / equals operator

Hi, I was hoping someone could explain this please :) I'm using bash, scientific linux... and I don't know what else you need to know. With awk '{ if( 0.3 == 0.1*3) print $1}' file.dat nothing will be printed since apparently the two numbers do not equate. (Using 0.3 != 0.1*3 is seen... (4 Replies)
Discussion started by: Golpette
4 Replies

7. Shell Programming and Scripting

awk diamond code golf (just for fun!)

Hey guys, This is purely just a little bit of fun with awk. I realize this this isn't that constructive so please remove if need be. Your goal: Create a one line awk script that generates a diamond shape of any size. Both the size of the diamond (measured by its middle line) and the... (7 Replies)
Discussion started by: pilnet101
7 Replies

8. Shell Programming and Scripting

Like operator in IF statement

how can i use like operator in IF statement. Below is correct format, please guide if ; then CT_ACT_FILE_NAME=`echo FINACLE' else CT_ACT_FILE_NAME=`echo not listed' fi ---------- Post updated at 04:58 PM ---------- Previous update was at 04:56 PM ---------- Please use CODE... (6 Replies)
Discussion started by: rizwan.shaukat
6 Replies

9. Shell Programming and Scripting

To print diamond asterisk pattern based on inputs

I have to print the number of stars that increases on each line from the minimum number until it reaches the maximum number, and then decreases until it goes back to the minimum number. After printing out the lines of stars, it should also print the total number of stars printed. I have tried... (13 Replies)
Discussion started by: rohit_shinez
13 Replies

LEARN ABOUT OSX

ppi::statement::null

PPI::Statement::Null(3) 				User Contributed Perl Documentation				   PPI::Statement::Null(3)

NAME

       PPI::Statement::Null - A useless null statement

SYNOPSIS

	 my $foo = 1;

	 ; # <-- Null statement

	 my $bar = 1;

INHERITANCE

	 PPI::Statement::Null
	 isa PPI::Statement
	     isa PPI::Node
		 isa PPI::Element

DESCRIPTION

       "PPI::Statement::Null" is a utility class designed to handle situations where PPI encounters a naked statement separator.

       Although strictly speaking, the semicolon is a statement separator and not a statement terminator, PPI considers a semicolon to be a
       statement terminator under most circumstances.

       In any case, the null statement has no purpose, and can be safely deleted with no ill effect.

METHODS

       "PPI::Statement::Null" has no additional methods beyond the default ones provided by PPI::Statement, PPI::Node and PPI::Element.

SUPPORT

       See the support section in the main module.

AUTHOR

       Adam Kennedy <adamk@cpan.org>

COPYRIGHT

       Copyright 2001 - 2011 Adam Kennedy.

       This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.

       The full text of the license can be found in the LICENSE file included with this module.

perl v5.16.2							    2011-02-25						   PPI::Statement::Null(3)
All times are GMT -4. The time now is 01:16 AM.
Unix & Linux Forums Content Copyright 1993-2022. All Rights Reserved.
Privacy Policy