Reg Ex question


 
Thread Tools Search this Thread
Top Forums Shell Programming and Scripting Reg Ex question
# 8  
Old 12-02-2008
previous will only work if there is only 2 words inside quotes.

This one should work with:

Code:
$str = 'This "sentence is" a combination of "multiple words"';

while($str=~/"([^"]+)"/g) {push @quoted,$1;} # fetch quoted words
foreach(@quoted){
$word=$new=$_;
$new=~s/\s/+/g;  ##inserting '+'
$str=~s/$word/$new/;
}
@str1= split (/\s+/,$str);
$_ =~ s/\+/ /g foreach(@str1) ;

print "$_\n" foreach(@str1);

Login or Register to Ask a Question

Previous Thread | Next Thread

10 More Discussions You Might Find Interesting

1. Shell Programming and Scripting

REG Expression

Need your help in creating regular expression for particular set. let say I have given two dates 20130623 to 20140625. I need to create regular for the dates which fall in between above two dates. (4 Replies)
Discussion started by: gvkumar25
4 Replies

2. Windows & DOS: Issues & Discussions

Question regarding Reg entries

Since I cannot find a ffmpeg build that will automatically include a environment variable for the CMD ffmpeg command I'll probably have to do it myself. However I would like to do so by saving it inside a .reg file. For example if my path towards FFMPEG is: C:\RESOURCE\FFMPEG\ffmpeg.exe ... (5 Replies)
Discussion started by: pasc
5 Replies

3. Shell Programming and Scripting

Sorting - Reg.

Hi masters, I have one doubt, lets's say file1 has the following contents, 1 2.0 3.1 5.5 7 5.10 5.9 How to sort these contents to get the o/p like 1 2.0 3.1 5.5 5.9 5.10 7 (8 Replies)
Discussion started by: ecearund
8 Replies

4. Solaris

Reg. VXVM

Hi Guys, I have a doubt either to Reboot the server after Replacing the disk0. I have two disks under vxvm root mirrored and i had a problem with primary disk so i replace the disk0 failed primary disk and then mirrored. After mirroring is it reboot required ? (7 Replies)
Discussion started by: kurva
7 Replies

5. UNIX for Dummies Questions & Answers

Reg: MAILX

Hi all, I am trying to send a mail by using MAILX option to my YAHOO-Id. It is giving the following error. Can any one help me to find what is the problem? Do i need to get any kind of settings in my UNIX box for using MAILX? The bounce mail is as below: Message 1: From MAILER-DAEMON Tue... (2 Replies)
Discussion started by: Raamc
2 Replies

6. Shell Programming and Scripting

reg exp question

Hi, Should be a difference between ']]*' and ']+' ? I use them in bash with sed and grep. Thanks (1 Reply)
Discussion started by: ynir
1 Replies

7. Shell Programming and Scripting

Reg expression For

HI system.sysUpTime.0 : Timeticks: (1519411311) 175 days, 20:35:13.11 From the above output i need only 175days in a perl script.. Please Help (2 Replies)
Discussion started by: Harikrishna
2 Replies

8. Shell Programming and Scripting

need a help reg -d in shell

hi, I am using this to get previous month `date -d"1 month ago" "+%m"` But will it work for january?..will it return 12? Please advice. (2 Replies)
Discussion started by: vanathi
2 Replies

9. Shell Programming and Scripting

Reg: Gzip

Hi , I want gzip a folder te55 which has got 3 files test1.test2,test3 the name of the gzipped folder should be te55.gz with the 3 files as test1,test2,test3 itself... Is it possible... thanks in advance sam (5 Replies)
Discussion started by: sam99
5 Replies

10. Shell Programming and Scripting

reg files

Dear all, One of our jobs retrieves data from tables and writes it to files. This job was running for around 15 minutes for the past 8 months. Now, this job is runnig for 45-50 minutes. I checked with the DBA's and found no issues with database. The time taken by to job to write to the file is... (5 Replies)
Discussion started by: ranj@chn
5 Replies
Login or Register to Ask a Question
HTML::Microformats::Datatype::String(3pm)		User Contributed Perl Documentation		 HTML::Microformats::Datatype::String(3pm)

NAME
HTML::Microformats::Datatype::String - text in a particular language SYNOPSIS
my $string = HTML::Microformats::Datatype::String ->new('Bonjour', 'fr'); print "$string "; DESCRIPTION
Constructor "$str = HTML::Microformats::Datatype::String->new($text, [$lang])" Creates a new HTML::Microformats::Datatype::String object. Public Methods "$str->lang" Return the language code. "$str->to_string" Return a plain (scalar) string. Functions "$str = ms($text, [$element])" Construct a new HTML::Microformats::Datatype::String object from a scalar, plus XML::LibXML::Element. If $element is undef, then returns the plain (scalar) string itself. This function is exported by default. (Note: the name 'ms' originally stood for 'Magic String'.) "isms($str)" Returns true iff $str is blessed as a HTML::Microformats::Datatype::String object. This function is exported by default. "$c = concat($a, $b, [$reverse])" Concatenates two strings. If the language of string $b is null or the same as $a, then the resultant string has the same language as $a. Otherwise the result has no language. If $reverse is true, then the strings are concatenated with $b preceding $a. This function is not exported by default. Can also be used as a method: $c = $a->concat($b); "compare($a, $b)" Compares two strings alphabetically. Language is ignored. Return values are as per 'cmp' (see perlfunc). This function is not exported by default. Can also be used as a method: $a->compare($b); BUGS
Please report any bugs to <http://rt.cpan.org/>. SEE ALSO
HTML::Microformats, HTML::Microformats::Datatype. AUTHOR
Toby Inkster <tobyink@cpan.org>. COPYRIGHT
Copyright 2008-2011 Toby Inkster This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself. DISCLAIMER OF WARRANTIES
THIS PACKAGE IS PROVIDED "AS IS" AND WITHOUT ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED WARRANTIES OF MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE. perl v5.14.2 2011-12-06 HTML::Microformats::Datatype::String(3pm)