Sponsored Content
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
RDF::Redland::Statement(3pm)				User Contributed Perl Documentation			      RDF::Redland::Statement(3pm)

NAME
RDF::Redland::Statement - Redland RDF Statement Class SYNOPSIS
use RDF::Redland; my $statement1=new RDF::Redland::Statement($statement); my $statement2=new RDF::Redland::Statement($subject,$predicate,$object); ... if($statement->subject->equals($node)) { ... } DESCRIPTION
Manipulate RDF statements which comprise three RDF::Redland::Node objects. Also used for partial statements which can have empty parts and are used for matching statements in statement queries of the model - see the RDF::Redland::Model. CONSTRUCTORS
new NODE NODE NODE|STATEMENT Create a new statement from nodes or copy an existing statement. If three NODEs are given, make a new statement from them. Each Node can be a Redland::RDF:Node, a Redland::RDF::URI, a perl URI or a string literal. Otherwise STATEMENT must be an existing statement to copy. clone Copy a RDF::Redland::Statement. METHODS
subject [SUBJECT] Get/set the statement subject. When a RDF::Redland::Node SUBJECT is given, sets the subject of the statement, otherwise returns a reference to the statement RDF::Redland::Node subject. predicate [PREDICATE] Get/set the statement predicate. When RDF::Redland::Node PREDICATE is given, sets the predicate of the statement, otherwise returns a reference to the statement RDF::Redland::Node predicate. object [OBJECT] Get/set the statement object. When RDF::Redland::Node OBJECT is given, sets the object of the statement, otherwise returns a reference to the statement RDF::Redland::Node object. as_string Return the statement formatted as a string (UTF-8 encoded). equals STATEMENT Return non zero if this statement is equal to STATEMENT OLD METHODS
new_from_nodes SUBJECT PREDICATE OBJECT Create a new RDF::Redland::Statement with the given RDF::Redland::Node objects as parts (or undef when empty for a partial statement). Use instead: $a=new RDF::Redland::Statement($subject, $predicate, $object); new_from_statement STATEMENT Create a new RDF::Redland::Statement object from RDF::Redland::Statement STATEMENT (copy constructor). Use instead: $s=$old_statement->clone; SEE ALSO
RDF::Redland::Node AUTHOR
Dave Beckett - http://www.dajobe.org/ perl v5.14.2 2011-02-04 RDF::Redland::Statement(3pm)
All times are GMT -4. The time now is 09:42 PM.
Unix & Linux Forums Content Copyright 1993-2022. All Rights Reserved.
Privacy Policy