Beefy Boxes and Bandwidth Generously Provided by pair Networks DiBona
Perl-Sensitive Sunglasses
 
PerlMonks  

Re: Regular expression

by Samy_rio (Vicar)
on Aug 27, 2007 at 09:33 UTC ( #635256=note: print w/ replies, xml ) Need Help??

Help for this page

Select Code to Download


  1. or download this
    use strict;
    use warnings;
    ...
    Output:
    -------
    "Transcription factor",promoter,DNA,"Transcription factor",promoter,DN
    +A.
    
  2. or download this
    $str =~ s/((?:(?!\").)*)(\"[^\"]+\")((?:(?!\").)*)/
    my $fi = $1;my $se = $2; my $th = $3;
    $fi =~ s| |\,|g;$th =~ s| |\,|g;
    "$fi$se$th"/egs;
    

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://635256]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others musing on the Monastery: (11)
As of 2014-04-23 10:54 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    April first is:







    Results (541 votes), past polls