Replacing text after last | delimiter

[baxy77bax]

hi,

i have a question about replacing text after a defined string.
for example :

the text goes.

##|######|##### ##_##| ########...
##|######|##### ##_##|########. ..
...

i'm trying to replace the text after the last '|' simbol with the expresion:

s/$'/$a/;

but it doesn't work in fact the :

s/$` /$a/

works but only when there is space between the | and next word.
also if i try to do this : s/$`/$a/ it replaces my expression with the $a .like this:
$a|########...

if i wasn't clear enough my goal is to have this in the end:

##|######|##### ##_##|$a


thank you!

[numberwhun]

Well, my question to you would be, are there always going to be 4 fields, separated by a "|"? If there are, then you could do the following:

use strict;
use warnings;
 
open(FILE, "<Text1.txt");
 
while(<FILE>)
{
    chomp($_);
    my @line = split(/\|/, $_);
 
    $line[3] = $a;
}
 

If not, then you can use the "$#line" syntax to determine the last array index and then set it from there.

Regards,

Jeff

[baxy77bax]

well, it will always be 4 fields at least, but there could be even few 100 or even 1000 fields with quite a lot of data in one field. but i need only first 3 and the rest i want to replace with a defined variable.

those are txt files and quite large from 2 GB up.

i was considering to transform it to array but i think that would drastically slow down the process (or not?).

thanks,

robert

[numberwhun]

I am going to assume that you mean that there could be 100's or even 1000's of "lines" in the file, not fields.

That should not be a problem. The code above will take and process each line individually. All you would need to do after reading each line, is have it outputted to a new file if that is what you wanted to do.

Regards,

Jeff