Sponsored Content
Top Forums Shell Programming and Scripting Perl: How to convert xxx@dom.ain.com to domaincom Post 302190524 by Juha on Wednesday 30th of April 2008 12:13:08 AM
Old 04-30-2008
Perl: How to convert xxx@dom.ain.com to domaincom

Hi,

Is there a way to convert xxx@dom.ain.com to domaincom, so to remove everything before and including @ and then to remove the dot from the rest of the line?

I know I can do:

Code:
$str = "xxx\@dom.ain.com";
print "String before: $str\n";
$str =~ s/.*?@//;
$str =~ s/\.//g; 
print "String after: $str\n";

Which outputs:
Code:
String before: xxx@dom.ain.com
String after: domaincom

But is there a way of combining the two operations into one?

Thanks!
 

8 More Discussions You Might Find Interesting

1. News, Links, Events and Announcements

Halloween IX: It Ain't Necessarily SCO

Check this out: http://www.opensource.org/halloween/halloween9.php (0 Replies)
Discussion started by: Neo
0 Replies

2. Shell Programming and Scripting

How to parse a XML file using PERL and XML::DOm

I need to know the way. I have got parsing down some nodes. But I was unable to get the child node perfectly. If you have code please send it. It will be very useful for me. (0 Replies)
Discussion started by: girigopal
0 Replies

3. AIX

Perl Module (XML:DOM) dependency

Hi All, I am facing dependency on AIX :confused:.I am trying to run an script which requires PERL MODULE (XML::DOM) to be installed. Please find the attached file which shows the error i am getting (cant locate XML/DOM.pm in @INC). Please let me know how to install PERL MODULE (XML::DOM) ... (3 Replies)
Discussion started by: srivatsa86
3 Replies

4. Shell Programming and Scripting

HELP on Perl array / sorting - trying to convert Korn Shell Script to Perl

Hi all, Not sure if this should be in the programming forum, but I believe it will get more response under the Shell Programming and Scripting FORUM. Am trying to write a customized df script in Perl and need some help with regards to using arrays and file handlers. At the moment am... (3 Replies)
Discussion started by: newbie_01
3 Replies

5. UNIX for Advanced & Expert Users

Perl XML::DOM: How to test if element exists?

Hi, I'm trying to write a script for some xml file handling, but I'm not getting too far with it. I've got the following xml content <?xml version="1.0" encoding="UTF-8"?> <Test xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" > <Operation name="OPER1"> <Action name="ACTION1">... (2 Replies)
Discussion started by: Juha
2 Replies

6. AIX

echo $varibla | mail -s "subject" "xxx@xxx.com" not ruuning as expected

Hi Folks, As per the subject, the following command is not working as expected. echo $variable | mail -s "subject" "xxx@xxx.com" Could anyone figure it out whats wrong with this. I am using AIX box. Regards, (2 Replies)
Discussion started by: gjarms
2 Replies

7. Red Hat

Gnome3 locksup on new Linux kernel 12.6.xxx & 12.5.xxx

Hi Forum Ive been having a problem with the kernal(s) for some strange reason it every time I try and access the date and time/calendar or system settings it locks up the whole laptop and nothing responds. :(. This doesn't happen 11.10.xxx kernel . Any help would be much appreciated and thank you... (1 Reply)
Discussion started by: ShinTec
1 Replies

8. Shell Programming and Scripting

Assigning DOM Object value to an array

Hi, I have the following code that makes use of a URL that I store in a variable then create a document object below to work on it. $dom = new DOMDocument; @$dom->loadHTML($html); $links = $dom->getElementsByTagName('a'); $links = $dom->getElementsByTagName('a'); ... (0 Replies)
Discussion started by: mojoman
0 Replies
NetSDS::Util::String(3pm)				User Contributed Perl Documentation				 NetSDS::Util::String(3pm)

NAME
NetSDS::Util::String - string prcessing routines SYNOPSIS
use NetSDS::Util::String qw(); # Read from standard input my $string = <STDIN>; # Encode string to internal structure $string = string_encode($tring); DESCRIPTION
"NetSDS::Util::String" module contains functions may be used to quickly solve string processing tasks like parsing, recoding, formatting. As in other NetSDS modules standard encoding is UTF-8. EXPORTED FUNCTIONS
str_encode($str[, $encoding]) - encode string to internal UTF-8 By default this function treat first argument as byte string in UTF-8 and return it's internal Unicode representation. In case of external character set isn't UTF-8 it should be added as second argument of function. # Convert UTF-8 byte string to internal Unicode representation $uni_string = str_encode($byte_string); # Convert KOI8-U byte string to internal $uni_string = str_encode($koi8_string, 'KOI8-U'); After "str_encode()" it's possible to process this string correctly including regular expressions. All characters will be understood as UTF-8 symbols instead of byte sequences. str_decode($str[, $encoding]) - decode internal UTF-8 to byte string By default this function treat first argument as string in internal UTF-8 and return it in byte string (external) representation. In case of external character set isn't UTF-8 it should be added as second argument of function. # Get UTF-8 byte string from internal Unicode representation $byte_string = str_decode($uni_string); # Convert to KOI8-U byte string from internal Unicode $koi8_string = str_encode($uni_string, 'KOI8-U'); It's recommended to use "str_encode()" when preparing data for communication with external systems (especially networking). str_recode($str, $FROM_ENC[, $TO_ENC]) - recode string Translate string between different encodings. If target encoding is not set UTF-8 used as default one. str_trim($str) - remove leading/trailing space characters $orig_str = " string with spaces "; $new_str = str_trim($orig_str); # Output: "string with spaces" print $new_str; str_trim_left($str) - removes leading whitespaces This function is similar to "str_trim()" except of it removes only leading space characters and leave trailing ones. str_trim_right($str) - removes trailing whitespaces This function is similar to "str_trim()" except of it removes only trailing space characters and leave leading ones. str_clean($str) - clean string from extra spaces Function is similar to "str_trim()" but also changes all spacing chains inside string to single spaces. str_camelize($strin) If pass undef - return undef. If pass '' - return ''. Examples: # returns 'getValue' str_camelize( 'get_value' ) # returns 'addUserAction' str_camelize( 'ADD_User_actION' ) str_decamelize(...) If pass undef - return undef. If pass '' - return ''. Examples: # returns 'get_value' str_decamelize( 'getValue' ) EXAMPLES
None yet BUGS
Unknown yet TODO
Implement examples and tests. SEE ALSO
Encode, perlunicode AUTHORS
Valentyn Solomko <pere@pere.org.ua> Michael Bochkaryov <misha@rattler.kiev.ua> perl v5.12.4 2011-08-27 NetSDS::Util::String(3pm)
All times are GMT -4. The time now is 09:28 AM.
Unix & Linux Forums Content Copyright 1993-2022. All Rights Reserved.
Privacy Policy