Join lines that match an string

ranrodrig has asked for the wisdom of the Perl Monks concerning the following question:

Replies are listed 'Best First'.
Re: Join lines that match an string by kennethk (Abbot) on Jul 12, 2010 at 21:39 UTC
Please read How do I post a question effectively?. What have you tried? What didn't work? Why do you want/need a one-liner? What does sample input look like? What does expected output look like? Demonstrated effort is appreciated around here. `perl -e 'while(<>){chomp; last if /p_agrs/;print if /remotely/}' < input.txt` might do what you intend. But it might not. If it doesn't meet spec, please post again with greater specificity.	[reply] [d/l]
Re^2: Join lines that match an string by ranrodrig (Novice) on Jul 12, 2010 at 22:08 UTC
Sorry for not posting an example, but here it is, so what I need to do is join in one line all the lines that match "remotely" on it (include it) and stop where it's an "p_agrs" match, does this make sense? `EV = 0x10eb250 (class, event_handle: 3503519, mc_ueid: 1278629168) 20100708 224608.259843 RULES: IMC110203I: #3503519: $EV.m c_host 20100708 224608.260757 RULES: IMC110801I: #3503519: Rule e execution starting with . . . msg='script to be execute remotely: exists("TRUSTEDALARM"); Local Id: Rem_010965WAP_18504'; . . . p_agrs` [download]	[reply] [d/l]
Re^3: Join lines that match an string by ww (Archbishop) on Jul 12, 2010 at 22:12 UTC
"...does this make sense?" Better, but without more sample data (including examples of non-desired matches) requested above, not enough.	[reply]
Re^3: Join lines that match an string by kennethk (Abbot) on Jul 12, 2010 at 23:09 UTC
You have given an input, but no output. Without that, how can we know if our code outputs to spec? If you run my code above against your input file, do you get what you expect?	[reply]
Re^4: Join lines that match an string by Anonymous Monk on Jul 12, 2010 at 23:50 UTC
Re^5: Join lines that match an string by kennethk (Abbot) on Jul 13, 2010 at 00:25 UTC
Re^5: Join lines that match an string by linuxer (Curate) on Jul 13, 2010 at 08:52 UTC
Some notes below your chosen depth have not been shown here
Re: Join lines that match an string by linuxer (Curate) on Jul 12, 2010 at 21:33 UTC
Can you please provide some sample input data, a definition of your "remotely" criterion to match lines, and a sample output data? ~~And what is "p_agrs"?~~ edits: fixed typo: `s/an s/a s/` striked the "p_agrs" question. kennethk's answer clarified that.	[reply] [d/l]
Re: Join lines that match an string by ambrus (Abbot) on Jul 13, 2010 at 09:51 UTC
If you don't mind words running together where you join the lines, try this command: `echo -e 'g/\<remotely\>/.,/\<p_args\>/j\nwq' \| ed -sl filename` [download] Example input and output follow. Read more... (2 kB) If you do mind the words running together, you may need a two-pass solution, eg. `for t in 's/$/ /' j; do echo -e 'g/\<remotely\>/.,/\<p_args\>/'"$t"'\n +wq' \| ed -sl filename` [download] (Update: added double quotes in the above.) (Update: a bit better than the above would be `g='g/\<remotely\>/.,/\<p_args\>/'; echo -e "${g}s/\$/ /\n${g}j\nwq" \| +ed -sl filename` [download] ) or some other method, such as `ex -c $'g/\<remotely\>/.,/\<p_args\>/j\nwq' filename` [download] Update: uh, I see only now that your terminator is "`p_agrs`", whereas I thought it was "`p_args`". I might replace them later in this node, but for now, you'll have to do the replacement yourself. Update: did someone mention `perl -wpe 'if (/\bremotely\b/.../\bp_args\b/) { chomp }'` above? They probably didn't only because they interpreted your question differently. See Re^2: Joining two files on common field for a list of nodes where unix textutils is suggested to merge files.	[reply] [d/l] [select]
Re^2: Join lines that match an string by ranrodrig (Novice) on Jul 13, 2010 at 17:02 UTC
Kennethk, Linuxer, Ambrus, thanks a lot for your help, Linuxer you got the idea perfectly, many times is very dificult to explain yourself in words and you did it. The best solution is what Ambrus wrote `perl -wpe 'if (/\bremotely\b/.../\bp_args\b/) { chomp }'` The only problem with this is that it joins the line that is after "p_args" but I can deal with that (perl -e "s/\';host=/\';\host=\n/g" -p data00 > data01. Thanks a lot again for your help, tips and advice	[reply] [d/l]
Re^3: Join lines that match an string by ambrus (Abbot) on Jul 13, 2010 at 17:35 UTC
Right, unlike the other solutions, that one joins the line with the terminator and the next one. You could write `perl -wpe 'if ((/\bremotely\b/.../\bp_args\b/) !~ /^$\|E0/) { chomp }' +a` [download] but that's a bit ugly, or decide that the flip-flop shortcut isn't appropriate in such case and track the flag by hand, such as `perl -wpe 'if (($_f \|\|= /\bremotely\b/) &&= !/\bp_args\b/) { chomp }' +a` [download]	[reply] [d/l] [select]
Re^4: Join lines that match an string by ranrodrig (Novice) on Jul 13, 2010 at 20:00 UTC
Re^5: Join lines that match an string by ambrus (Abbot) on Jul 13, 2010 at 20:08 UTC
Re^3: Join lines that match an string by linuxer (Curate) on Jul 13, 2010 at 17:21 UTC
But I still have the feeling I didn't get the whole idea correctly; especially when I see ambrus' solution. If you want to keep the linebreak in the "p_agrs" line, then tell perl not to chomp it. Example: `perl -wpe 'if ( m/\bremotely\b/ ... m/\bp_agrs\b/ ) { chomp unless m/\bp_agrs\b/ }'`	[reply] [d/l]