Login or Register to Ask a Question and Join Our Community


UNIX for Advanced & Expert Users

Need help take out few text in perl

Login to Discuss or Reply to this Discussion in Our Community

 
Thread Tools Search this Thread
Top Forums UNIX for Advanced & Expert Users Need help take out few text in perl
# 1  
Old 04-23-2008
Need help take out few text in perl
I have perl program and I know that while sending an e-mail the following code returns "Remote (/opt/seasoft/db/nervecenter.nms00tst1):"
in an email, I need to take out the entire "opt/seasoft/db/nervecenter" and leave with "ms00tst1" only. How do I do it:

So the output would be "Remote (nms00tst1)"


$email_msg .= "Remote (".$server->[3]."):\n";


Thanks.,
# 2  
Old 04-23-2008
I'm not sure I understand your request, but here's a first attempt.

Code:
my $remote = $server->[3];
$remote =~ s%.*\.%%;  # Remove up to first dot
$email_msg .= "Remote ($remote):\n";

If you want to remove the n after the dot too, I'm sure you can figure that part out.
# 3  
Old 04-23-2008
$$server->[3] will return (/opt/seasoft/db/nervecenter.nms00tst1)
(This path is hardcoded)

But the email return the entire path (/opt/seasoft/db/nervecenter.nms00tst1)

I need to return only "Remote (nms00tst1)."

Thanks.
# 4  
Old 04-24-2008
And for some reason you didn't try the code I posted?

Code:
vnix$ perl -le '$server->[3] = "/opt/seasoft/db/nervecenter.nms00tst1";
> my $remote = $server->[3]; $remote =~ s%.*\.%%; $email_msg .= "Remote ($remote):\n";
> print $email_msg'
Remote (nms00tst1):
vnix$

Login or Register to Ask a Question

Previous Thread | Next Thread

10 More Discussions You Might Find Interesting

1. Shell Programming and Scripting

Perl text from web

perl -MLWP::Simple -le '$s=shift;$c=get("http://genetics.emory.edu/egl/tests/view.php?testid=4125/$s/");$c=~/meta content=(.*?)name=\"Genes\"/msg; print length($1),"\t$1"' "Test Description" >output.txt I am having trouble with this code: Can it be modified for the desired output? I attached... (3 Replies)
Discussion started by: cmccabe
3 Replies

2. Shell Programming and Scripting

TEXT to CSV using Perl

Hi Folks Need some help with this and my Perl isnt the hottest I also have text::csv installed on my perl install The large text with a few million entries is in a format below example text file Fig Leafs Cake No: 0000001 Author: King s. Record No: 995-34343-232-232... (5 Replies)
Discussion started by: messiah1
5 Replies

3. Shell Programming and Scripting

Text allignment using PERL

Hi Friends, For daily reports i make perl script like below. @dirlist = `cat out.txt |cut -d "|" -f1 >create.txt`; @dirlist1 = `cat out.txt|wc -l *e* >create2.txt`; open FILE, ">OUTPUT.txt"; @command = `cat out.txt |cut -d "|" -f1`; print FILE map{$_-2 ."\n"}@command; @dirlist2 =... (1 Reply)
Discussion started by: adaleru
1 Replies

4. Shell Programming and Scripting

Perl Text Manipulation

I'm in need of help for a project that I'm working on. I believe Perl would be the best way of handling the string manipulation, however, I've barely used perl, and I'm used to BASH scripting. Another note is, this project is in a Windows environment, so I can use Perl, but I do not have shell... (1 Reply)
Discussion started by: drewrockshard
1 Replies

5. Shell Programming and Scripting

Perl Text manipulation

Hello All, I have been working on a great script to remotely gather server info and store it in a .txt that can be imported to .xls I have been reading the hostnames that are in the /.shh/known_hosts file so I don't have to mess with passing a password - via ssh (not easy to do , by the... (1 Reply)
Discussion started by: dfezz1
1 Replies

6. Shell Programming and Scripting

Perl - Inserting text

Hey, I have 10 lines of text ... And I would like to Insert prefix for each line with static text. perl -pi -e 's/()/$1 TEST$./' data.txt Each line will have different static prefix, Code above works perfectly for 1st line ... I'm just not sure how I can run same command for 2nd line 3rd... (4 Replies)
Discussion started by: NDxiak
4 Replies

7. Shell Programming and Scripting

Perl: Instering Names in to Text.

Hello my friends, So I'm trying to insert some extra text in to text file/lines. w• Test-LinesXtra: INS ABC 123456 123456 w• Test-LinesXtra: INS DEF 123456 123456 w• TestLinesXtra: 123456 123456 w• TestLinesXtra: 123456 123456 I would like to insert text in in place... (6 Replies)
Discussion started by: NDxiak
6 Replies

8. Shell Programming and Scripting

PERL Text Munging

I have a file like this: host1,neighbor1 host3,neighbor4 host2,neighbor1 host2,neighbor3 host1,neighbor3 host3,neighbor1 host1,neighbor2 host3,neighbor2 I need some PERL magic that will generate output like this: host1,neighbor1,neighbor3,neighbor2 host2,neighbor1,neighbor3... (3 Replies)
Discussion started by: stateful
3 Replies

9. Shell Programming and Scripting

Text formatting in Perl.

Hiho, I've got a variable $sth = `du -sh /home/$whoami`; where $whoami is actually logged user. I want to have only the size of this directory eg. 2,7G. I know its lame, but anyway.. how to do it? (2 Replies)
Discussion started by: fenox
2 Replies

10. Shell Programming and Scripting

Perl text file

I've got a csv file called "passlist.txt" which looks like: firstname1,lastname1,checkin1,numberofbags1,destination1 firstname2,lastname2,checkin2,numberofbags2,destination2 firstname3,lastname3,checkin3,numberofbags3,destination3 " " " " ... (5 Replies)
Discussion started by: Sn33R
5 Replies
Login or Register to Ask a Question