2001-05-19 -+- Roger Shultes -+- morphus2001@hotmail.com -+- i am tryin to learn perl and was woundering if there was a text book and work book out on the market??
also i live in tampa fl and was wondering if there was a school near by that i could learn from?
tryin Roger Shultes 2002-04-04 -+- negi -+- negi009@yahoo.com -+- I am parsing the Blast output file but getting the following error. My data is something like that

A60054 1 MAQALLVPPGPESFRLFTRESLAAIEKRAAEEKAKKPKKEQDIDDENKPKPNSDLEAGKN 60
NP_037251 1 MAQALLVPPGPESFRLFTRESLAAIEKRAAEEKAKKPKKEQDIDDENKPKPNSDLEAGKN 60
AAD17315 1 MEPPLHIPPGPDSLRFFTRESFQAIEKRIAEEKAKKPKQDRRDDDENGPKPNRDLEAGKS 62
\ \
| |
P D
I48107 1 MARSVLVPPGPDSFRFFTRESLAAIEQRIAEEKAKRPKQERKDDDENGPKPNSDLEAGKS 61
\
|
E

I want to remove the backslash \ and | from this data. I am unable to do so. Please let me know how to do this.

regards
negi 2002-04-04 -+- guido socher -+- -+- This is a reply to the previous talkback:

Use
perl -i.bak -pe 's/[\\\|]//g' yourfile.txt 2002-04-26 -+- eva -+- flipdaclip@gmx.net -+- hi there, thanks for the help i got thru this page. :-)
got one more question tho. how do i get linebreaks in formulars (just like


this one) preserved? im having the text read into a database by perl, and it appears without breaks in html once its read out of the database.

thank you.
greets,
eva




2002-06-03 -+- manish kr pankaj -+- mkpankaj@iitk.ac.in -+- i want to know how can i make a function which can accept a string but display
only the word not the spaces befor , after or inbetween the given sting
for eg:---- my name is manish kr pankaj
it must display mynameismanishkrpankaj -+- 203.200.95.130 = Mozilla/4.72 [en] (X11; U; Linux 2.2.14-6.1.1 i686) 2002-09-12 -+- Anthony Bayot -+- salcedo32000@yahoo.com -+- it so great. it was easy to visit your website in order to conduct an information about the perl language specially on the latest development of it. -+- 210.14.21.106 = Mozilla/4.0 (compatible; MSIE 5.0; Windows 98; DigExt) 2004-04-01 -+- Hung Phan -+- hung.phan@sun.com -+- Hi,

Can you help to coorect my program, I would like to create a
perl update program, but I am unable to find the correct
syntax.

1) I have the test.txt file:
Eample:

HUNG|SEAN1|HUNGPHAN|PJAN
LINDA|EDWIN|ALANA|JIM
ALLEN|JOHN|MARY|JAMES
ALAN|ALAN1|ALAN2|LUCY
ALAN2|JUNG|HUNG3|LUCKY


2) I got the read and search .cgi can read this file. and also
search for the string I would like to searh.


Example:

I search for string LINDA, it will find and display to the brower.
It is no proble,.

3) After I found the string on that line, I would like to replace
the string, I wrote a program would like to update, but I would like
to removed the session ask the input file name.

and I would like to keep the same file name test.txt. Instead of
create a new file name to extension .stp. How I can do that, please
help, below is my update.pl program:


#!/usr/bin/perl
#
#

if ($ARGV[0]){
$file_name= $ARGV[0]
}

else
{
print "Enter the name of the file to strip of spaces: ";
$file_name = <STDIN>;
chomp($file_name);

# new add today

print "Enter the old_string: ";
$old_string = <STDIN>;
chomp($old_string);

print "Enter the new_string: ";
$new_string = <STDIN>;
chomp($new_string);
}

open (IN, $file_name) || die "Can't open file for input!";
$_ = $file_name;

if(s/\..*/\.stp/)
{
$file_name = $_;
open(OUT, "> $file_name");
}
else
{
open(OUT, "> $file_name.stp");
}

# This seesion will be searcg/replace the string.

while(<IN>)
{
chomp;
#s/ //g;
s/$old_string/$new_string/g;
print OUT "$_\n";
}



I am ver appreciate your help.
Hung -+- 192.18.42.10 = Mozilla/4.79C-CCK-MCD [en] (X11; U; SunOS 5.9 sun4u) 2006-10-17 -+- Fitzek -+- -+- I couldn't execute the perl programm, i followed the decsribtion on the page but it didn't work.

Can you please help me?
-+- 62.246.102.223 = Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1) 2006-10-17 -+- Fitzek -+- -+- I couldn't execute the perl programm, i followed the decsribtion on the page but it didn't work.

Can you please help me?
-+- 62.246.102.223 = Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1)