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.


Come for the quick hacks, stay for the epiphanies.
	PerlMonks

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 ( [id://1112639]=note: print w/replies, xml )

Need Help??

in reply to 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.
in thread 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.

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_MINUTE*2*$n)->strftime(DATE_FORMAT);
[download]

mmmh... this second line needs a var. Try something like this (untested):

$tp = $tp+ONE_MINUTE*2*$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

Comment on 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. Select or Download Code

In Section Seekers of Perl Wisdom

Domain Nodelet^?

www.com | www.net | www.org

Node Status^?

node history
Node Type: note [id://1112639]
help

Chatterbox^?

How do I use this? • Last hour • Other CB clients

Other Users^?

Others examining the Monastery: (6)

As of 2024-04-19 09:21 GMT

Sections^?

Information^?

Find Nodes^?

Leftovers^?

Today I Learned

Voting Booth^?

No recent polls found