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]