Заменить первый символ перед совпадением

Прежде всего, вот программа, которая, кажется, соответствует вашим требованиям:

#/usr/bin/perl -w
while(<>) {                                                           
  s/^(.*?;.*?)(\w)/$1;$2/;                                            
  print $_;                                                           
}                                                                     

Сохраните его в файле «program.pl», сделайте его исполняемым с помощью «chmod u+x program.pl» и запустите его на ваших входных данных следующим образом:

program.pl input-data.txt

Вот объяснение регулярного выражения:

s/        # start search-and-replace regexp
  ^       # start at the beginning of this line
  (       # save the matched characters until ')' in $1
    .*?;  # go forward until finding the first semicolon
    .*?   # go forward until finding... (to be continued below)
  )
  (       # save the matched characters until ')' in $2
    \w    # ... the next alphanumeric character.
  )
/         # continue with the replace part
  $1;$2   # write all characters found above, but insert a ; before $2
/         # finish the search-and-replace regexp.

Основываясь на вашем образце ввода, я бы использовал более конкретное регулярное выражение:

s/^(\d*; *)(\w)/$1;$2/;

Это выражение начинается в начале строки, пропускает числа (\d*), за которыми следует первая точка с запятой и пробел. Перед следующим символом слова ставится точка с запятой.

Берите то, что лучше всего соответствует вашим потребностям!

Это способ вставить точку с запятой после первой точки с запятой и пробела, но перед первым не пробелом.

s/;\s*\K(?=\S)/;/

Если вы чувствуете необходимость, вы можете использовать \w вместо \S, но я чувствовал, что с этим вводом это была ненужная спецификация.

Экранирование \K (keep) похоже на утверждение просмотра назад в том смысле, что оно не удаляет то, что ему соответствует. То же самое касается утверждения с опережением, так что все, что делает эта замена, это вставляет точку с запятой в указанное место.

Во-первых, спасибо за отличные ответы!

На самом деле мой фрагмент кода выглядит так:

 our $seperator=";" # at the beginning of the file
 #...
 sub insert {
    my ( $seperator, $line, @all_lines, $count, @all_out );
    $count     = 0;
    @all_lines = read_file($filename);

    foreach $line (@all_lines) {
        $count = sprintf( "%08d", $count );
        chomp $line;
        $line =~ s/\:/$seperator/;                          # works
        $line =~ s/\ file/file/;                            # works

        #$line=~s/;\s*\K(?=\S)/;/;                          # doesn't work
        $line =~ s/^(.*?$seperator.*?)(\w)/$1$seperator$2/; # doesn't work
        say $count . $seperator . $line . $seperator; 

        $count++; # btw, is there maybe a hidden index variable in a foreach-loop I could us instead of a new variable??
        push( @all_out, $count . $seperator . $line . $seperator . "\n" );
    }

    write_file( $csvfile, @all_out ); # using File::Slurp
}

Чтобы получить то, что я вам представил, я уже сделал несколько небольших замен, как вы можете видеть в начале цикла foreach.

Мне любопытно, почему регулярные выражения, представленные TLP и Yaakov не работает в моем коде. В целом они работают, но только если они написаны так, как в примере, который привел Яаков:

while(<>) {                                                           
  s/^(.*?;.*?)(\w)/$1;$2/;                                            
  print $_;                                                           
}