Re: Out-commenting and formating challenge

If you consider posting a question here, you should phrase your questions more carefully, see, for example, How (Not) To Ask A Question.
I understand your question as follows:
You want to write a Perl snippet that comments the first two of the above lines out by putting a "#" in front of them and then you want the second part surrounded by double quotes and the string " f(fix,1371) core(60000)" substituted by ",record(1371)".
You furthermore consider everything after /apost, including it by itself, the second part of the line.
The code snippet would be:

#!perl -w

use strict;

for (1..2) {
   print "# " . <DATA>;
}
while (<DATA>) {
   unless (s/(\/apost.*?)(\s*f\(fix,1371\)\s+core\(60000\))(.*$)/"$1,r
+ecord(1371)$3"/) {
      s/(\/apost.*$)/"$1"/;
   }
   print;
}

__DATA__
win-Line<br>
otsort ../data/ABC_DE_WKey_out.dat ../data/ABC_DE_WKey_out.srt /apost 
+s(1001,8,c,a) om(1001,1,c,EQ,' ') f(fix,1371) core(60000)<br>
<br>
Unix-Line<br>
otsort ../data/ABC_DE_WKey_out.dat ../data/ABC_DE_WKey_out.srt /apost 
+s(1001,8,c,a),om(1001,1,c,EQ,' ') f(fix,1371) core(60000)
[download]

When you post here, you should clarify your questions and ask them as precisely as possible. Also, The above is very standard Perl, so that I would recommend you to go to the Tutorials section.

Hope this helped.

Comment on Re: Out-commenting and formating challenge Select or Download Code

Replies are listed 'Best First'.
Re: Re: Out-commenting and formating challenge by monaLisa (Initiate) on Aug 11, 2003 at 10:26 UTC
I already solved the first part of the problem (put #). My problem now is to replace in the line bellow the part beginning with"/apost" until the end by 2nd code-line: `otsort ../data/ABC_DE_WKey_out.dat ../data/ABC_DE_WKey_out.srt /apost +s(1001,8,c,a) om(1001,1,c,EQ,' ') f(fix,1371) core(60000)` [download] by `otsort ../data/ABC_DE_WKey_out.dat ../data/ABC_DE_WKey_out.srt /apost +s(1001,8,c,a),om(1001,1,c,EQ,' ') f(fix,1371) core(60000)` [download] I read some tutorial, but couldn't find anything usefull. This is what I tried, but doesn't work: `if(/(.\(/apost))/) { if(/^(.?)(\S+)$/) { print "#UnixLine\n"; my $start = $1; my $end = $2; $end =~ s\|(.\(/apost.))\|"(.\(/apost.))"\|g; print "$start$end\n"; print outFile "#UnixLine\n"; print outFile "$start$end\n"; } }` [download] How can I improve this code? Thank you in advance, Mona	[reply] [d/l] [select]
Re: Re: Re: Out-commenting and formating challenge by CombatSquirrel (Hermit) on Aug 11, 2003 at 13:19 UTC
Please, be more specific. "It doesn't work" may be correct, but is far from helpful. Give any error messages, and both the output the program gives you and the output you expect. Also, your code segment suggests that you want to do something different from what your example suggests. The example just suggests replacing the space in front of `om(1001...` by a comma, whereas the code snippet suggests that you want to put everything after the `/apost` part in double quotation marks, which is almost exactly what you asked for above. What problem do you exactly have with my code above? Does it not work for your problem? If so, please give information on what deviated from the expected behaviour and I will try to help fixing it. Do you have problems understanding the code? Tell me and I will try to explain. Do you want to do something different after all? Then please be more specific. To your code: The first problem is in the first line: You did not escape the slash, but instead the paren. Therefore, the slash in front of `apost` is considered the end of the regex by Perl and you will probably get a syntax error, because Per does not have an idea whatsoever what you mean by the third slash. Second problem (substitution): You *cannot* use a regex as a substitution string. That is, you can try, but you will get the string instead of what it matched before. And again, the slash is escaped improperly. Again: Think about what you want to ask before you post. Hit the preview button and then ask yourself: "If I had no idea about the problem, would I understand my question completely?". If the answer is "No", and it should have been that for your last couple of posts, then rephrase the question until you consider it understandable. And please, follow the links above and look at the articles. Also, you might want to buy some standard Perl books, such as Programming Perl (the Perl bible), Learning Perl (a very good, quick and comprehensive introduction which you really should consider reading) and Mastering Regular Expressions (which might help you with your regex problems). Take the time to read them and play a bit with the examples before you try to write your own code. Please understand that we are trying to help you, but the level of difficulty ranges between "Very Hard" and "Impossible" if you cannot give us an understandable description of your problem. Cheers, CombatSquirrel	[reply] [d/l] [select]