Is your cloud always on? With an Always On cloud you won't have to worry about downtime for maintenance or software application code updates, ensuring that your bottom line isn't affected.
COURSE of the MONTH
10 days, 23 hours left to enrollBecome a Premium Member and unlock a new, free course in leading technologies each month.
Solved
Perl Write to Specific line in a file
Posted on 2016-09-29
Hi - I have the below file format and i want to update a value in the line that start with C3
C1, 2,2,0,9292016_101425, 0, 9292016_101428, 0, 9292016_101428
C2, 1,2,0,9292016_101425, 0, 9292016_101428
C3, 2,2,0,9292016_101425, 0, 9292016_101428, 0, 9292016_101428
I want to update the above C3 line as below (just changed 0 to 1 in the fourth field)
C3, 2,2,1,9292016_101425, 0, 9292016_101428, 0, 9292016_101428
the problem i have is i know how to append a string to a file but i dont know how to modify a particular line content in a file.
Any help will be greatly appreciated.
C1, 2,2,0,9292016_101425, 0, 9292016_101428, 0, 9292016_101428
C2, 1,2,0,9292016_101425, 0, 9292016_101428
C3, 2,2,0,9292016_101425, 0, 9292016_101428, 0, 9292016_101428
I want to update the above C3 line as below (just changed 0 to 1 in the fourth field)
C3, 2,2,1,9292016_101425, 0, 9292016_101428, 0, 9292016_101428
the problem i have is i know how to append a string to a file but i dont know how to modify a particular line content in a file.
Any help will be greatly appreciated.
[X]
Welcome to Experts Exchange
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
- Help others & share knowledge
- Earn cash & points
- Learn & ask questions
7-
6
2
15 Comments
Active today
To read from oldfile and write to newfile:
perl -pe 's/^C3,.*,.*,\K0,/1,/' oldfile >newfile
or to update oldfile itself:
perl -i -pe 's/^C3,.*,.*,\K0,/1,/' oldfile
or to backup the original file to oldfile.bak and then update oldfile:
perl -i.bak -pe 's/^C3,.*,.*,\K0,/1,/' oldfile
Too lengthy?
perl -pe 's/^C3,.*,.*,\K0,/1,/' oldfile >newfile
or to update oldfile itself:
perl -i -pe 's/^C3,.*,.*,\K0,/1,/' oldfile
or to backup the original file to oldfile.bak and then update oldfile:
perl -i.bak -pe 's/^C3,.*,.*,\K0,/1,/' oldfile
Too lengthy?
Hi Tel2 - in the below line if i want to update fourth field value from 0 to 1 the above code works but what if i want to change 6th field value from 0 to 1 or let us say 8th field value from 0 to 1.
How do you modify such things, i expected in the form of field number but the regular expression you gave me i did not understand how it works.
How do you modify such things, i expected in the form of field number but the regular expression you gave me i did not understand how it works.
C3, 2,2,0,9292016_101425, 0, 9292016_101428, 0, 9292016_101428
the field position 4th or 6th or 8th are not fixed all the time
my other code determine which value should be updated on the line, so was looking for something in terms of field number.
my other code determine which value should be updated on the line, so was looking for something in terms of field number.
Active today
Hi shrangi,
It could save a lot of time if you make such expectations of flexibility clear in your original post, in future.
Are you wanting to replace the Nth field in the 'C3' line with '1' ONLY if it is '0'? Or can all such values be changed to '1'?
It could save a lot of time if you make such expectations of flexibility clear in your original post, in future.
Are you wanting to replace the Nth field in the 'C3' line with '1' ONLY if it is '0'? Or can all such values be changed to '1'?
Active 6 days ago
This is how I'd do it...
use strict;
use warnings;
use Tie::File;
tie my @lines, 'Tie::File', filename or die "could not tie file: $!";
my @parts = split m{,}, $lines[2];
$parts[3] = 1 if ($parts[3] == 0);
$lines[2] = join ',', @parts;
Active today
Is this what you're after, shrangi?
perl -F, -ane '$F[3]="1" if /^C3,/ && $F[3] eq "0";print join(",",@F)' oldfile >newfile
or, if you also want to refer to the 1st field by index:
perl -F, -ane '$F[3]="1" if $F[0] eq "C3" && $F[3] eq "0";print join(",",@F)' oldfile >newfile
The 2 instances of "$F[3]" refer to the 4th field, because $F[0] is the 1st field.
So, change that to whatever field is required.
But please answer the question in my previous post, because I may be able to simplify this code a bit (or even a byte) more.
perl -F, -ane '$F[3]="1" if /^C3,/ && $F[3] eq "0";print join(",",@F)' oldfile >newfile
or, if you also want to refer to the 1st field by index:
perl -F, -ane '$F[3]="1" if $F[0] eq "C3" && $F[3] eq "0";print join(",",@F)' oldfile >newfile
The 2 instances of "$F[3]" refer to the 4th field, because $F[0] is the 1st field.
So, change that to whatever field is required.
But please answer the question in my previous post, because I may be able to simplify this code a bit (or even a byte) more.
Hi Tel2 - yes i want to replace the Nth field in the 'C3' line with '1' ONLY if it is '0' - not all
Hi wilcoxon - in your code how do you determine the line starts with C3.
Hi wilcoxon - in your code how do you determine the line starts with C3.
Hi Tel2- your code starts with "perl -F" is it command line code or can i use it in the middle of other script.
Active today
> "Hi Tel2- your code starts with "perl -F" is it command line code or can i use it in the middle of other script."
Thank you again for saving this information until this late stage. You could have explained that requirement in your previous post, or even your original post.
What kind of "other script" are you going to put this in? Perl? Shell? Python? You posted this question in all those topic areas, so I can't tell what you want.
If the "other script" is a shell script, you can use my one-liner as is.
If the "other script" is a Perl script, maybe you should use wilcoxon's solution, which looks pretty concise for a non-one-liner.
Thank you again for saving this information until this late stage. You could have explained that requirement in your previous post, or even your original post.
What kind of "other script" are you going to put this in? Perl? Shell? Python? You posted this question in all those topic areas, so I can't tell what you want.
If the "other script" is a shell script, you can use my one-liner as is.
If the "other script" is a Perl script, maybe you should use wilcoxon's solution, which looks pretty concise for a non-one-liner.
Sorry tel2 I was stupid not to be clear.
Wincoxon solution is good except that i am not sure how does he find the line start with C3.
Wincoxon solution is good except that i am not sure how does he find the line start with C3.
Active today
Again...
What kind of "other script" are you going to put this in? Perl? Shell? Python? You posted this question in all those topic areas, so I can't tell what you want.
What kind of "other script" are you going to put this in? Perl? Shell? Python? You posted this question in all those topic areas, so I can't tell what you want.
Active today
So why did you include the Shell Scripting and Python topic areas, shragi? Doing so could result in experts wasting time providing solutions in the wrong language.
In general, if you want some programming done, I suggest you specify:
- Language
- Whether you want it embedded in your script, or a one-liner, or either is OK.
- Operating system.
The 1st and 3rd of these can often be obvious because of the topic areas you have chosen, but it's better to say it plainly.
But I accept your above apology, and maybe I should have asked more questions before wasting time on this.
In general, if you want some programming done, I suggest you specify:
- Language
- Whether you want it embedded in your script, or a one-liner, or either is OK.
- Operating system.
The 1st and 3rd of these can often be obvious because of the topic areas you have chosen, but it's better to say it plainly.
But I accept your above apology, and maybe I should have asked more questions before wasting time on this.
Active 6 days ago
My bad, I read it as third line (rather than starting with C3). Here's a fix:
use strict;
use warnings;
use Tie::File;
tie my @lines, 'Tie::File', filename or die "could not tie file: $!";
my $i = 0;
$i++ while ($lines[$i] !~ m{^C3,});
my @parts = split m{,}, $lines[$i];
$parts[3] = 1 if ($parts[3] == 0);
$lines[$i] = join ',', @parts;
Active today
Hi wilcoxon,
Your code seems to work for test data supplied, but...
1. It crashes if the 4th field is not a number (e.g. absent or has a leading space), like these:
C3, 2,2,,9292016_101425, 0, 9292016_101428, 0, 9292016_101428
C3, 2,2, 0,9292016_101425, 0, 9292016_101428, 0, 9292016_101428
2. If a line starts with C3 but doesn't have a 0 in the 4th field, then no futher attempt is made to find a line which starts with C3 and has a 0.
shragi, are either of the above input data scenarios possibly going to occur?
Your code seems to work for test data supplied, but...
1. It crashes if the 4th field is not a number (e.g. absent or has a leading space), like these:
C3, 2,2,,9292016_101425, 0, 9292016_101428, 0, 9292016_101428
C3, 2,2, 0,9292016_101425, 0, 9292016_101428, 0, 9292016_101428
2. If a line starts with C3 but doesn't have a 0 in the 4th field, then no futher attempt is made to find a line which starts with C3 and has a 0.
shragi, are either of the above input data scenarios possibly going to occur?
Featured Post
We value your feedback.
Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!
Question has a verified solution.
If you are experiencing a similar issue, please ask a related question
Here I am using Python IDLE(GUI) to write a simple program and save it, so that we can just execute it in future. Because when we write any program and exit from Python then program that we have written will be lost. So for not losing our program we…
Sequence is something that used to store data in it in very simple words. Let us just create a list first.
To create a list first of all we need to give a name to our list which I have taken as “COURSE” followed by equals sign and finally enclosed …
Learn the basics of strings in Python: declaration, operations, indices, and slicing.
Strings are declared with quotations; for example: s = "string": Strings are immutable.: Strings may be concatenated or multiplied using the addition and multiplic…
In a recent question (https://www.experts-exchange.com/questions/29004105/Run-AutoHotkey-script-directly-from-Notepad.html) here at Experts Exchange, a member asked how to run an AutoHotkey script (.AHK) directly from Notepad++ (aka NPP). This video…
- Shell Scripting
- Programming Languages-Other
- Scripting Languages
- Programming
- Notepad
- *AutoHotkey, *Scripts
Suggested Courses
Course of the Month10 days, 23 hours left to enroll
770 members asked questions and received personalized solutions in the past 7 days.
Join the community of 500,000 technology professionals and ask your questions.