dirtdog has asked for the wisdom of the Perl Monks concerning the following question:

Hi Monks,

I'm trying to figure out how to use a one liner to search & replace a header count. For example, the following line is the header:

0TONYHLDGS201307240901201307240000000496

The Last 10 digits are always the record count. In this example the record count is 0000000496 or 496.

Is it possible to use a one liner to subtract by 2 to make the count 0000000494?

I should also add the count will be different every day

Any help would be greatly appreciated.

Tony

Replies are listed 'Best First'.
Re: One liner to subtract by 2
by choroba (Cardinal) on Jul 24, 2013 at 14:05 UTC
    You can use the /e switch of the substitution operator: 
    perl -pe 's/([0-9]{10})$/sprintf "%010d",$1-2/e'

    [download]

    Update: I am not sure how to search for the line, though, because you did not give any information on how these lines are structured. Adding that to the one-liner is easy, e.g. let's pretend we want to process lines beginning with 0TONY: 

    perl -pe 's/([0-9]{10})$/sprintf "%010d",$1-2/e if /^0TONY/'

    [download]

    Update 2: sprintf added. Thanks derby.

    لսႽ† ᥲᥒ⚪⟊Ⴙᘓᖇ Ꮅᘓᖇ⎱ Ⴙᥲ𝇋ƙᘓᖇ
[reply]
[d/l]
[select]

      You'll lose leading zeros with that.

      -derby

      update: so perl -pe 's/([0-9]{10})$/sprintf("%010d", $1-2)/e'

[reply]
[d/l]
        Thanks, fixed.
        لսႽ† ᥲᥒ⚪⟊Ⴙᘓᖇ Ꮅᘓᖇ⎱ Ⴙᥲ𝇋ƙᘓᖇ
[reply]
Re: One liner to subtract by 2
by rjt (Curate) on Jul 24, 2013 at 14:08 UTC
    echo 0TONYHLDGS201307240901201307240000000496 | perl -pe 's/(\d{10})$/sprintf("%01 0d",$1-2)/e' 0TONYHLDGS201307240901201307240000000494
[reply]
[d/l]
[select]
Re: One liner to subtract by 2
by hdb (Monsignor) on Jul 24, 2013 at 14:34 UTC 

    perl -pe "s/(\d{10})$/substr $1+9_999_999_998,-10/e"

    [download]
[reply]
[d/l]
Re: One liner to subtract by 2
by dirtdog (Monk) on Jul 24, 2013 at 14:52 UTC

    thanks all...this worked perfectly

[reply]

Back to Seekers of Perl Wisdom