Read data from file

[hammer1985]

I am trying to write a perl script that reads a file and removes everything from the first "," to the end of the line.

Any ideas how can i do it?

 

[Corwinsw]

open IN, "< file1";
open OUT, "> file2";

while (<IN>) {
   s/(,.*)$//;
   print OUT "$_\n";
}

try this

Corwin

 

[PaulTEG]

index and substr might be quicker if you have a lot of entries and will be doing this on a regular basis.

Corwin's regex will work as well

Spend an hour a week on CPAN, helps cure all known programming ailments ;-)

 

[ishnid]

BTW there's no need for the parentheses in that regexp, as you're not capturing anything you want to use later:

   s/,.*$//;

 

[hammer1985]

thank you it worked

 

[ishnid]

Alternatively, as a one-liner:

perl -pi -e 's/,.*$//' filename

 

[MikeLacey]

and...

while(<>){
[tab]/,/;
[tab]print "$`\n";
}

Mike

I am not scrutable.

Want great answers to your Tek-Tips questions? Have a look at faq219-2884