Whoops, correction...

 else
  {
   $line =~ s/(\n)+(\r)+//g; # use $line instead of $_
   ($cmdline) = split(/,/,$line);
   print OUT "$cmdline \n";
  }



-----Original Message-----
From: inSite Internet Solutions [mailto:[EMAIL PROTECTED]]
Sent: Friday, May 24, 2002 9:39 AM
To: Avanish Pathak; Troy May; Bill Lyles; [EMAIL PROTECTED];
[EMAIL PROTECTED]
Subject: RE: Can someone Help me out with this


I don't know if this is the most efficient way to do it, but it worked.


#!C:\Perl\bin\perl.exe -w

use strict;
my $infile = qq(C\:\\cmd.txt);
my $outfile = qq(C\:\\cmdout.txt);
my $cmdline;

open(IN,"<$infile") or die "Whoops! Look what happened. $! \n";
open(OUT,">$outfile") or die "Could not open \'cuz $! \n";

while(<IN>) {
 my $line = $_;
 if(($line =~ /cmd1/) or ($line =~ /cmd2/))
  {
   next;
  }
 else
  {
   $_ =~ s/(\n)+(\r)+//g;
   ($cmdline) = split(/,/,$line);
   print OUT "$cmdline \n";
  }
}
close(OUT); # blue light special on aisle #6
close(IN); # we've got the suspect surrounded
1;



Scot R.





-----Original Message-----
From: Avanish Pathak [mailto:[EMAIL PROTECTED]]
Sent: Friday, May 24, 2002 2:02 AM
To: Troy May; Bill Lyles; [EMAIL PROTECTED];
[EMAIL PROTECTED]
Subject: Can someone Help me out with this


Hi ,
     Can some one provide me with a perl script for this:

Problem:
ci_cmd1="abcdef",          // line1
ci_cmd2="ghijk",             // line2
ci_cmd3="lmnop",           // line3
ci_cmd4="pqrst",             // line4

I want to delete line 1 and 2 and the above should look like as shown below:

ci_cmd1="lmnop",
ci_cmd2="pqrst",

A prompt response will be highly appreciated.

Regards.,
Avi


----- Original Message -----
From: "Troy May" <[EMAIL PROTECTED]>
To: "Bill Lyles" <[EMAIL PROTECTED]>; <[EMAIL PROTECTED]>
Cc: <[EMAIL PROTECTED]>
Sent: Wednesday, April 17, 2002 8:52 AM
Subject: RE: Definition


> It just makes dealing with quotes alot easier.  And you don't need to
escape
> the extra quotes within it.  For example,
>
>
> print "value=\"true\"";
>
> print qq!value="true"!;
>
> print qq/value="true"/;
>
>
> are all the same.  The qq uses the next character instead of the "
> character.  Then you must end the line with the same character you started
> with.  (qq!....!,  qq/..../, qq~....~)
>
> Sorry, it's hard to explain in an email.
>
>
> -----Original Message-----
> From: Bill Lyles [mailto:[EMAIL PROTECTED]]
> Sent: Tuesday, April 16, 2002 7:31 PM
> To: [EMAIL PROTECTED]
> Cc: [EMAIL PROTECTED]
> Subject: Re: Definition
>
>
> Ok, Sorry about that
>
> Anyway what do you mean perldoc -f qq?
>
> what does the ~qq mean?
>
> ----- Original Message -----
> From: "fliptop" <[EMAIL PROTECTED]>
> To: "Bill Lyles" <[EMAIL PROTECTED]>
> Cc: <[EMAIL PROTECTED]>
> Sent: Tuesday, April 16, 2002 8:53 PM
> Subject: Re: Definition
>
>
> > Bill Lyles wrote:
> >
> > > href="file://C:\Program Files\Common Files\Microsoft
> Shared\Stationery\">
> > > As I am somewhat new to perl
> > >
> > > can someone tell me what this means
> > >
> > > $header = qq~
> > >
> > > I understand the header but what is the qq~ for?
> >
> >
> > perldoc -f qq
> >
> > btw, it's considered bad form to send html-ized email to the list.
> >
> >
> > --
> > To unsubscribe, e-mail: [EMAIL PROTECTED]
> > For additional commands, e-mail: [EMAIL PROTECTED]
> >
> >
>
>
>
> --
> To unsubscribe, e-mail: [EMAIL PROTECTED]
> For additional commands, e-mail: [EMAIL PROTECTED]
>
>
>
> --
> To unsubscribe, e-mail: [EMAIL PROTECTED]
> For additional commands, e-mail: [EMAIL PROTECTED]
>
>


--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]


---
Incoming mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.351 / Virus Database: 197 - Release Date: 4/19/2002

---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.351 / Virus Database: 197 - Release Date: 4/19/2002


---
Incoming mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.351 / Virus Database: 197 - Release Date: 4/19/2002

---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.351 / Virus Database: 197 - Release Date: 4/19/2002


-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]

Reply via email to