Re: Dera Monks, Have create multiple file from one file now I want to match a pattern in each file at the same time do the replacement with adding one to the match pattern.

Replies are listed 'Best First'.
Re^2: Dera Monks, Have create multiple file from one file now I want to match a pattern in each file at the same time do the replacement with adding one to the match pattern. by GotToBTru (Prior) on Dec 31, 2014 at 14:19 UTC
Follow-on to Have a multiple file in directory and want to manipulate in each files in incremental order. All the file have same value.? 1 Peter 4:10	[reply]
Re^2: Dera Monks, Have create multiple file from one file now I want to match a pattern in each file at the same time do the replacement with adding one to the match pattern. by pvaldes (Chaplain) on Jan 01, 2015 at 20:12 UTC
If I'm not wrong the question is: how to do a global substitution of a pattern over several files replacing the pattern by $counter and also updating $counter as $counter+1 each time a substitution is done. I have some doubts about this lines `++$n; $lines[0] =~ s[/4947000219/\K(4947000210+)] [$1+$n]e;` [download] You search for a big number, then discard the first ten digits, capture next digits and replace it by $1+$n in an eval (e) context when $n is a counter. Ok. The use of \K here also confuses me a little. Can't see the point of doing this here when you aren't really picking up those digits when \K is reached Perl throws away everything that it has matched up to that point. It means that our replacement won’t affect anything before the \K, because Perl will have forgotten about it I wonder if you want to say $n++ or $n += 1 instead ++$n	[reply] [d/l]
Re^3: Dera Monks, Have create multiple file from one file now I want to match a pattern in each file at the same time do the replacement with adding one to the match pattern. by hemantjsr (Initiate) on Jan 02, 2015 at 12:40 UTC
Yes Dera your understanding is correct. Could you please help me tell how to do substitution incrementally. As I try to do with \K which seems not working for me, done the changes $n++ `$lines[0] =~ s~/4947000219/\K(4947000210+)~$1+$n~e;`	[reply] [d/l]
Re^3: Dera Monks, Have create multiple file from one file now I want to match a pattern in each file at the same time do the replacement with adding one to the match pattern. by hemantjsr (Initiate) on Jan 05, 2015 at 16:17 UTC
Done some changes now $lines[0] working fine.. thanks for your help /K creating a problem.. But still issue with $line1 `$lines[0] =~ s~/(4947000219)/$1+$n/~e;` Working fine `$lines[1] =~ 's{:20140924105028(\d+)}'{ my $tp = Time::Piece->strptime($1, DATE_FORMAT); ($tp+ONE_MINUTE2$n)->strftime(DATE_FORMAT);` [download] `}e;` Error message String found where operator expected at ./prog.pl line 33, near "$lines1 =~ 's{:20140924105028(\d+)}'" (Missing operator before 's{:20140924105028(\d+)}'?) syntax error at ./prog.pl line 33, near "$lines1 =~ 's{:20140924105028(\d+)}'" Can't use global $1 in "my" at ./prog.pl line 34, near "($1" syntax error at ./prog.pl line 41, near "}" Bareword "e" not allowed while "strict subs" in use at ./prog.pl line 36. As m very new in perl you kind help would be highly appreciated.	[reply] [d/l] [select]
Re^4: Dera Monks, Have create multiple file from one file now I want to match a pattern in each file at the same time do the replacement with adding one to the match pattern. by Anonymous Monk on Jan 05, 2015 at 21:56 UTC
substitution operator is three or four delimiters s/// or s~~~ or s{}{} ... its never s~~ because replacement is missing s~regex~replacement~	[reply]
Re^4: Dera Monks, Have create multiple file from one file now I want to match a pattern in each file at the same time do the replacement with adding one to the match pattern. by pvaldes (Chaplain) on Jan 08, 2015 at 13:17 UTC
I'll suggest this instead `my $tp = Time::Piece->strptime($1, DATE_FORMAT); # out the replacement line print "tp is: $tp\n"; # we check $tp values here, just for the record ($tp+ONE_MINUTE2$n)->strftime(DATE_FORMAT);` [download] mmmh... this second line needs a var. Try something like this (untested): `$tp = $tp+ONE_MINUTE2$n; print "tp is now: $tp\n"; # we check $tp again after the changes $lines[1] =~ 's{:20140924105028(\d+)}'{$tp}e;` [download] I see also a problem here with 's{}'{}e. Delete the "'" --> s{}{}e	[reply] [d/l] [select]
Re^2: Dera Monks, Have create multiple file from one file now I want to match a pattern in each file at the same time do the replacement with adding one to the match pattern. by hemantjsr (Initiate) on Jan 01, 2015 at 15:09 UTC
Hello Dera As I'm very new in Perl, created a code which will create multiple file with one file and each file have same value,this part is done.Now in second part want to replace matched pattern in each file with adding one to it.In output i want match a pattern 219 and add one to it and replace in file 2 (means in file2 value would be 220) and in file3 value would be 221 , same case with second value which is 20140924105028 example file01 output 12,219,20140924105028 file02 output 12,220,20140924105228 file03 output 12,221,20140924105428 but with the given code m not able to do it.Kindly help in this regard.	[reply]