Question

I need help about how to numeration text in file.

I have also linux machine and I need to write the script with perl

I have file name: file_db.txt

In this file have parameters like name,ParameterFromBook,NumberPage,BOOK_From_library,price etc
Each parameter equal to something as name=elephant

My question How to do this by perl

I want to give number for each parameter (before the “=”) that repeated (unique parameter) in the file , and increase by (+1) the new number of the next repeated parameter until EOF

lidia

For example

file_db.txt before numbering

    parameter=1
    name=one

    parameter=2
    name=two

file_db.txt after parameters numbering

    parameter1=1
    name1=one

    parameter2=2
    name2=two

• other examples

Example1 before

    name=elephant
    ParameterFromBook=234
    name=star.world
    ParameterFromBook=200
    name=home_room1
    ParameterFromBook=264

Example1 after parameters numbering

    name1=elephant
    ParameterFromBook1=234
    name2=star.world
    ParameterFromBook2=200
    name3=home_room1
    ParameterFromBook3=264

Example2 before

file_db.txt before numbering

       lines_and_words=1
       list_of_books=3442

       lines_and_words=13
       list_of_books=344224

       lines_and_words=120
       list_of_books=341

Example2 after

file_db.txt after parameters numbering

        lines_and_words1=1
        list_of_books1=3442

        lines_and_words2=13
        list_of_books2=344224

        lines_and_words3=120
        list_of_books3=341

Answer 1

It can be condensed to a one line perl script pretty easily, though I don’t particularly recommend it if you want readability:

#!/usr/bin/perl
s/(.*)=/$k{$1}++;"$1$k{$1}="/e and print while <>;

This version reads from a specified file, rather than using the command line:

#!/usr/bin/perl
open IN, "/tmp/file";
s/(.*)=/$k{$1}++;"$1$k{$1}="/e and print while <IN>;