Re: remove specific data from a line

I think you want:

$line =~ s/^myword \S+//; # strip myword, a space, and any stretch of 
+non-spaces
[download]

Update: After seeing your clarification, I see that you could have spaces in the comma-separated list. So you'd want:

$line =~ s/^              #strip, from the beginning of the string,
           myword\s+      #myword, followed by whitespace
           \S+            #followed by non-whitespace
           (?:,\s*\S+)*   #followed by any number of comma, optional w
+hitespace, non-whitespace
          //x;          # update: two slashes are needed here
[download]

Caution: Contents may have been coded under pressure.

Comment on Re: remove specific data from a line Select or Download Code

Replies are listed 'Best First'.
Re^2: remove specific data from a line by Anonymous Monk on Feb 03, 2006 at 09:54 UTC
This one nearly work but not handle this line `abcefgh qwerty, asdfg yuio jklh` [download] It print out `asdfg yuio jklh` [download] I had to add extra slash to your code like this `$line =~ s/^abc\w+\s+\S+(?:,\s\S+)//x;` [download] otherwise got errors. I hope this was what you mean. I try to change your code to handle last line which don't leave just `yuio jklh`. How do I fix this ? Thank you for answer so far , it show me how much flexible Perl is	[reply] [d/l] [select]
Re^3: remove specific data from a line by Roy Johnson (Monsignor) on Feb 03, 2006 at 18:29 UTC
I forgot to substitute the first word back in. `$line =~ s/^(abc)\w+\s+\S+(?:,\s\S+)/$1/x;` [download] should give you what you want. You were right about the missing slash. Caution: Contents may have been coded under pressure.	[reply] [d/l]