Delete to end of line 1

[pflakes]

I'm working on a script in which I'm reading in a file, then searching for the first comma in each line - that I can do. What I want to do next is delete everything beginning with the comma to the end of the line.

Is there a simple way to do this?

 

[aardvark92]

Supposing $line is your line of text, and $comma is the position of the first comma that you have already found:

$line = substr($line, 0, $comma - 1)

... should do the trick. It will return everything from the beginning of the line up to the character before the position of the comma.

 

[ishnid]

If that's all that you want your script to do, it can be easily achieved in a one-liner - UNTESTED - BACK UP YOUR FILE BEFORE YOU TRY THIS:

perl -pi -e 's/,.+$//' filename.txt

 

[pflakes]

That took care of the problem. Thanks for the help!