12-04-2003
ok, got your meaning now.
try it
s/\(^.*\~\) *$/\1/
10 More Discussions You Might Find Interesting
1. Shell Programming and Scripting
Is it possible to combine a regular expression with a aritmetical expression? For example, taking a 8-numbers caracter sequece and casting each output of a grep, comparing to a constant.
THX! (2 Replies)
Discussion started by: Z0mby
2 Replies
2. Programming
What does the regular expression +~).*'] mean while using it with regexec.When the string "RCHNUSNT35C~rs07/ASM-RS07" is used with the regular expression +~).*'] regexec gives an error. I know what regexec does,but i do not understand what this expression means wrt to this string...
any help... (2 Replies)
Discussion started by: anupamar
2 Replies
3. Linux
Regular expression to extract "y" from "abc/x.y.z" (2 Replies)
Discussion started by: rag84dec
2 Replies
4. UNIX for Dummies Questions & Answers
I currently list and sort all the files in a directory which begin with an Upper Case C and end with the extension '#finished#'.
Here is the command I use:
ls -tr $currentDir/*.#finished#
what i need to do now is list all the files in a directory that begin with upper case C and end... (3 Replies)
Discussion started by: rkgudde
3 Replies
5. Shell Programming and Scripting
CA_RELEASE has a value of 6. I need to check if that this is a numeric value. if not error.
source $CA_VERSION_DATA
if * ]
then
echo "CA_RELESE $CA_RELEASE is invalid"
exit -1
fi
+ source /etc/ncgl/ca_version_data
++ CA_PRODUCT_ID=samxts
++ CA_RELEASE=6
++ CA_WEEK_NO=7
++... (3 Replies)
Discussion started by: ketkee1985
3 Replies
6. Programming
Hi all,
How am I read a file, find the match regular expression and overwrite to the same files.
open DESTINATION_FILE, "<tmptravl.dat" or die "tmptravl.dat";
open NEW_DESTINATION_FILE, ">new_tmptravl.dat" or die "new_tmptravl.dat";
while (<DESTINATION_FILE>)
{
# print... (1 Reply)
Discussion started by: jessy83
1 Replies
7. UNIX for Advanced & Expert Users
Hello All,
I'm trying to extract the lines between two consecutive elements of an array from a file.
My array looks like:
problem_arr=(PRS111 PRS213 PRS234)
j=0
while } ]
do
k=`expr $j + 1`
sed -n "/${problem_arr}/,/${problem_arr}/p" problemid.txt
---some operation goes... (11 Replies)
Discussion started by: InduInduIndu
11 Replies
8. UNIX for Dummies Questions & Answers
Hi,
I am quite knew to scripting and I am trying to get a regular expression to work to check that a user enters a valid version number such as 1 or 1.1 or 12.3 etc. I dont seem to be able to get it to work as it picks up versions such as 1.......2. I only want it to work with a single dot.... (12 Replies)
Discussion started by: frodo61
12 Replies
9. Shell Programming and Scripting
Can someone please explain me what does this mean?
^{1,50}$ (1 Reply)
Discussion started by: Anupam_Halder
1 Replies
10. Shell Programming and Scripting
I would like to extract "JDBC Thin Client" from (PROGRAM=JDBC Thin Client); and "C:\Python26\python.exe" from (PROGRAM=C:\Python26\python.exe); "txm_v_awsrf_db.pr" from (PROGRAM=txm_v_awsrf_db.pr).
if input line like "(PROGRAM=)", it return unknown.
Would you help suggest a regular... (4 Replies)
Discussion started by: cstsang
4 Replies
LEARN ABOUT DEBIAN
bio::mage::association
MAGE::Association(3pm) User Contributed Perl Documentation MAGE::Association(3pm)
Bio::MAGE::Association
SYNOPSIS
use Bio::MAGE::Association qw(:CARD);
# creating an empty instance
my $association = Bio::MAGE::Association->new();
# populating the instance in the constructor
my $association = Bio::MAGE::Association->new(self=>$assoc_end1,
other=>$assoc_end2);
# setting and retrieving the association ends
my $self_end = $association->self();
$association->self($value);
my $other_end = $association->other();
$association->other($value);
DESCRIPTION
This class holds the two association ends for each UML association. "self" is the end nearest the class of interest, while "other" is the
end furthest away. The ends are of type "Bio::MAGE::Association::End".
CARDINALITY
Associations in UML have a "cardinality" that determines how many objects can be associated. In the "Bio::MAGE::Association" modulte,
"cardinality" has two primary dimensions: optional or required, and single or list. So there are four combinations of the two dimensions:
o 0..1
This is an optional single association, meaning it can have one object associated, but it is optional.
o 1
This is a required single association, meaning it must have exactly one object associated.
o 0..N
This is an optional list association, meaning it can have many objects associated.
o 1..N
This is an required list association, meaning it must have at least one object, but it may have many.
There are four constants defined in this module for handling the cardinalities, and they can be imported into an application using the CARD
import tag:
use Bio::MAGE::Association qw(:CARD);
The four constants are: CARD_0_OR_1, CARD_1, CARD_0_TO_N, and CARD_1_TO_N.
Bio::MAGE::Association::End
SYNOPSIS
use Bio::MAGE::Association qw(:CARD);
# creating an empty instance
my $assoc_end = Bio::MAGE::Association::End->new();
# populating the instance in the constructor
my $assoc_end = Bio::MAGE::Association::End->new(
name=>$name,
is_ref=>$bool,
cardinality=>CARD_0_TO_N,
class_name=>$class_name,
documentation=>$doc_string,
rank=>$rank,
ordered=>$bool,
);
# setting and retrieving object attributes
my $name = $assoc_end->name();
$assoc_end->name($value);
my $is_ref = $assoc_end->is_ref();
$assoc_end->is_ref($value);
my $cardinality = $assoc_end->cardinality();
$assoc_end->cardinality($value);
my $class_name = $assoc_end->class_name();
$assoc_end->class_name($value);
my $documentation = $assoc_end->documentation();
$assoc_end->documentation($value);
my $rank = $assoc_end->rank();
$assoc_end->rank($value);
my $ordered = $assoc_end->ordered();
$assoc_end->ordered($value);
#
# Utility methods
#
# does this end of list cardinality (0..N or 1..N)
my $bool = $assoc_end->is_list();
DESCRIPTION
This class stores the information in a single UML association end.
perl v5.10.1 2007-05-14 MAGE::Association(3pm)