Delete a line from file

[ajd335]

hey all,
I want to remove the below line from the resulting text...

(.*)$/',$lines,$matches))10.(.*)$/',$lines,$matches))(.*)$/',$lines,$matches))

i used

perl -pi -e 's/\(.*\)\$/',\$lines,\$matches\)\)10.\(.*\)\$/',\$lines,\$matches\)\)\(.*\)\$/',\$lines,\$matches\)\) / /gi' result.txt > result1.txt

But dint work..
Please help me..

[KevinADC]

Try this instead:

perl -pi -e 's#\Q(.*)\$/',\$lines,\$matches))10.(.*)\$/',\$lines,\$matches))(.*)\$/',\$lines,\$matches))# #gi' result.txt > result1.txt

\Q will escape all the meta characters in the pattern except $ and @. So I escaped all the $ manually.

[ajd335]

Try this instead:

perl -pi -e 's#\Q(.*)\$/',\$lines,\$matches))10.(.*)\$/',\$lines,\$matches))(.*)\$/',\$lines,\$matches))# #gi' result.txt > result1.txt

\Q will escape all the meta characters in the pattern except $ and @. So I escaped all the $ manually.

Hi Kevin,
when I tried above , It gives me
" Unmatched '. "
Why its giving that?

[KevinADC]

oops, try like this instead:

perl -pi -e 's#\Q(.*)\$/\',\$lines,\$matches))10.(.*)\$/\',\$lines,\$matches))(.*)\$/\',\$lines,\$matches))# #gi' result.txt > result1.txt

the single quotes inside the pattern have to be escaped.

[alampally]

######################################
# subroutine delete file
######################################

sub Delete
{

$out="cgi-bin/order/$ENV{'REMOTE_ADDR'}.txt";

open OUT, "$out" or die "Cannot open $out for write :$!";

read(OUT,$oldstuff,10000);

close OUT;

@changes=split(/n/,$oldstuff);

open OUT, ">$out" or die "Cannot open $out for write :$!";

undef $changes[$fields{linenumber}]; ### this leaves a blank line which messes up my output ###


for $x (0 .. $#changes) 

{
print OUT "$changes[$x]n";
}

close OUT;

}

######################################
# subroutine adjust file
######################################

sub Adjust
{

$out="cgi-bin/order/$ENV{'REMOTE_ADDR'}.txt";

open OUT, "$out" or die "Cannot open $out for write :$!";

read(OUT,$oldstuff,10000);

close OUT;

@changes=split(/n/,$oldstuff);

open OUT, ">$out" or die "Cannot open $out for write :$!";

$changes[$fields{linenumber}]=$adjust;

for $x (0 .. $#changes) 

{
print OUT "$changes[$x]n";
}

close OUT;

}

Write me for any help in C,C++,Perl,PHP and Unix related stuff. I will answer you with in the time with free of cost.

Rammohan Alampally,
HP Technologies
Bangalore
EMAIL AND URL REMOVED! AGAINST SITE POSTING POLICY

[numberwhun]

alampally,

Before you post to any other forums here on bytes.com, please read our Posting Guidelines. You seem to consistently break them and need to please read and understand them.

Regards,

Jeff

[ajd335]

oops, try like this instead:

perl -pi -e 's#\Q(.*)\$/\',\$lines,\$matches))10.(.*)\$/\',\$lines,\$matches))(.*)\$/\',\$lines,\$matches))# #gi' result.txt > result1.txt

the single quotes inside the pattern have to be escaped.

Hi Kevin,
Thanks for the help..
Kevin again i get the same error ,
( Unmatched ' . )
my line is

(.*)$/',$lines,$matches)        10.(.*)$/',$lines,$matches)     (.*)$/',$lines,$matches)

There is a Tab between .
What can be done ?
Thanks...

[numberwhun]

As mentioned earlier to another OP in this post, code tags are required. You used them in your first post, please use them to surround any code you provide.

Thank you!

Regards,

Moderator

[ajd335]

As mentioned earlier to another OP in this post, code tags are required. You used them in your first post, please use them to surround any code you provide.

Thank you!

Regards,

Moderator

Oh Sorry,
I'll take care of that..

[KevinADC]

######################################
# subroutine delete file
######################################

sub Delete
{

$out="cgi-bin/order/$ENV{'REMOTE_ADDR'}.txt";

open OUT, "$out" or die "Cannot open $out for write :$!";

read(OUT,$oldstuff,10000);

close OUT;

@changes=split(/n/,$oldstuff);

open OUT, ">$out" or die "Cannot open $out for write :$!";

undef $changes[$fields{linenumber}]; ### this leaves a blank line which messes up my output ###


for $x (0 .. $#changes) 

{
print OUT "$changes[$x]n";
}

close OUT;

}

######################################
# subroutine adjust file
######################################

sub Adjust
{

$out="cgi-bin/order/$ENV{'REMOTE_ADDR'}.txt";

open OUT, "$out" or die "Cannot open $out for write :$!";

read(OUT,$oldstuff,10000);

close OUT;

@changes=split(/n/,$oldstuff);

open OUT, ">$out" or die "Cannot open $out for write :$!";

$changes[$fields{linenumber}]=$adjust;

for $x (0 .. $#changes) 

{
print OUT "$changes[$x]n";
}

close OUT;

}

Write me for any help in C,C++,Perl,PHP and Unix related stuff. I will answer you with in the time with free of cost.

Rammohan Alampally,
HP Technologies
Bangalore
EMAIL AND URL REMOVED! AGAINST SITE POSTING POLICY

I was very pleased to see a new person posting in the perl forum but it has become evident that your real purpose is to post your advertising. You are offering suggestions that sometimes do not even really apply to the question, like your above code. Your advertising could be tolerated, at least by me personally, if your suggestions were better thought out and relevant to the question and not posted in old threads like you did previously (not this thread). I hope you continue to post but I also hope you offer better replies and stop violating the forum policy of posting signatures with email addresses and advertising.

Regards,
Kevin

[KevinADC]

Hi Kevin,
Thanks for the help..
Kevin again i get the same error ,
( Unmatched ' . )
my line is

(.*)$/',$lines,$matches)        10.(.*)$/',$lines,$matches)     (.*)$/',$lines,$matches)

There is a Tab between .
What can be done ?
Thanks...

Is that literally the line in the file? Or are those perl variables ($lines,$matche s). I'm getting confused.

[numberwhun]

I was very pleased to see a new person posting in the perl forum but it has become evident that your real purpose is to post your advertising. You are offering suggestions that sometimes do not even really apply to the question, like your above code. Your advertising could be tolerated, at least by me personally, if your suggestions were better thought out and relevant to the question and not posted in old threads like you did previously (not this thread). I hope you continue to post but I also hope you offer better replies and stop violating the forum policy of posting signatures with email addresses and advertising.

Regards,
Kevin

I fully agree, it is nice to see, it means we are (hopefully) doing something right. Considering that they joined this morning and did all their posting then, I hope that, as you said, they will continue, but modify their posting practices. As you saw, I posted a link to the policy in hopes that they would read and adhere to it.

Regards,

Jeff

[ajd335]

Is that literally the line in the file? Or are those perl variables ($lines,$matche s). I'm getting confused.

Hi Kevin ,
Yes , they are the lines only .Actually they are the result of preg_match(PHP) and have stored that in output file(i.e result.txt), which includes that line( It's bcz the result from preg_match).

Thanks,

[KevinADC]

Hi Kevin ,
Yes , they are the lines only .Actually they are the result of preg_match(PHP) and have stored that in output file(i.e result.txt), which includes that line( It's bcz the result from preg_match).

Thanks,

hmmm.... I'm stumped. To me it looks like it should work but evidently I am wrong or your code is different than what I have suggested you use. Try asking on www.perlmonks.c om and see if one the members there can offer some suggestions. I know you could rewrite it as a script instead of a oneliner but it would be interesting to know why the oneliner is not working.

[ajd335]

hmmm.... I'm stumped. To me it looks like it should work but evidently I am wrong or your code is different than what I have suggested you use. Try asking on www.perlmonks.c om and see if one the members there can offer some suggestions. I know you could rewrite it as a script instead of a oneliner but it would be interesting to know why the oneliner is not working.

Thanks Kevin,
I have asked that q in perl monks...Lets c..
Thanks for the help...