Some special characters need to be escaped in patterns. I did that here with the parens in scalar str:
Code:
#!/usr/bin/perl
# //Suppose if this is my input string
use warnings;
$str='Here we show that a virus-encoded transcription factor, viral mRNA, cellular RNA-binding protein heterodimer G3BP/Caprin-1 \(p137\), translation initiation factors eIF4E and eIF4G, and ribosomal proteins are concentrated in the same subdomains of cytoplasmic DNA factories';
open(FH,"sample.txt");
while(<FH>)
{
if($_=~/$str/)
# if($_=~ m|$str|)
{
print "matched\n";
}
else
{
print "not match\n";
}
}
close FH;
Producing (with your data):
Code:
% ./p1
matched
not match
not match
not match
The commented if is how I often code conditional matching statements ... cheers, drl
Hi,
I have to identify sentences from this text.
If i split these statements by this way:
@sentence= split(/\.\W*/,$text);
I will get these following things also in the output along with proper sentences.
Biol Reprod.
2002 Mar;66(3):785-95.
Egydio de Carvalho C, Tanaka H,... (2 Replies)
Hi,
I have sentences like this:
$sent=
Protein modeling studies reveal that the RG-rich region is part of a three to four strand antiparallel beta-sheet, which in other RNA binding protein functions as a platform for nucleic acid interactions.
Heterogeneous nuclear ribonucleoparticle... (19 Replies)
I havet two books, one in Swedish, the other in English.
Two text files. I want to combine them into one, with each sentence having it's translation next to it.
------------
Text file one.
Example sentence in English. Example 2 sentence 2 in English 2.
--------------
Text file two.
... (2 Replies)
Hi,
I have few sentences here.
$a1="Division of Hematology-Oncology, and Stem cell transplantation, Schneider Childrens Hospital, Albert Einstein College of Medicine, New Hyde Park, New York. ";
$a2="Department of Cell Biology and Anatomy, College of Medicine, National Cheng Kung... (3 Replies)
hi,
I want to compile a program in C. It have a multiple calls to teradata. I have no idea how to compile in Aix.
The compiler that I should be use is cc.
I tried
cc -G -KPIC tdsfbd0358.c this generates a tdsfbd0358.i and after I have no Idea what I have to make, a link? how?... (3 Replies)
I am trying to print out sentences that meets a regular expression in awk (I’m open to using other tools, too).
I got the regular expression I want to use, "(\+ \{4\})" from user ripat in a grep forum. Unfortunately with grep I couldn't print only the sentence.
While searching for awk... (8 Replies)
Hello all
I am doing a Makefile but I can't return the value of $var to use it in conditional sentences:
#!/bin/sh
GO=$(shell) go
GOPATH=$(GO) env GOPATH
make:
@$(GOPATH)
@if ; then mkdir -p "$(GOPATH)/bin" ; fi
When I type "make", @$GOPATH returns /home/icvallejo/go... (5 Replies)
Discussion started by: icvallejo
5 Replies
LEARN ABOUT DEBIAN
text::lorem
Text::Lorem(3pm) User Contributed Perl Documentation Text::Lorem(3pm)NAME
Text::Lorem - Generate random Latin looking text
SYNOPSIS
use Text::Lorem;
my $text = Text::Lorem->new();
# Generate a string of text with 5 words
$words = $text->words(5);
# Generate a string of text with 2 sentences
$sentences = $text->sentences(2);
# Generate 3 paragraphs
$paragraphs = $text->paragraphs(3);
DESCRIPTION
Often when developing a website or other application it's important to have placeholders for content. This module generates prescribed
amounts of fake Latin text.
CONSTRUCTOR
"new()"
The default constructor, "new()" takes no arguments and returns a Text::Lorem object.
METHODS
"words( INTEGER )"
Returns INTEGER fake Latin words.
"sentences( INTEGER )"
Returns INTEGER sentences in fake Latin.
"paragraphs( INTEGER )"
Returns INTEGER paragraphs of fake Latin text.
THANKS
Thanks to the guys who pushed me off the cliff called comfort and into the scary world of Perl: James Duncan, Leon Brocard.
AUTHOR
Adeola Awoyemi (adeola@fotango.com)
SEE ALSO
L<WWW::Lipsum> and L<http://lipsum.com/>
COPYRIGHT
Copyright 2003 Fotango Ltd. All rights reserved. <http://opensource.fotango.com/> This software is released under the same license as Perl
itself.
perl v5.10.1 2011-01-05 Text::Lorem(3pm)