Регулярное выражение Perl найти и заменить

Я бы не стал копаться в большом файле csv с регулярными выражениями, если бы не был уверен в своих данных и регулярном выражении. Использование модуля CSV мне кажется самым безопасным способом.

Этот скрипт будет принимать входные файлы в качестве аргументов и записывать исправленные файлы с расширением .new.

Если вы заметили нежелательные изменения в выходном файле, попробуйте раскомментировать строку keep_meta_info.

use strict;
use warnings;
use autodie;
use Text::CSV;

my $out_ext = ".new";
my $csv = Text::CSV->new( { 
        sep_char => ";",
        #   keep_meta_info => 1,
        binary => 1,
        eol => $/,
    } ) or die "" . Text::CSV->error_diag();

for my $arg (@ARGV) {
    open my $input, '<', $arg;
    open my $output, '>', $arg . $out_ext;
    while (my $row = $csv->getline($input)) {
        for (@$row) {
            s/([0-9\.]+)\-$/-$1/;
        }
        $csv->print($output, $row);
    }
}

Я предполагаю, что вам не нужно беспокоиться о кавычках или экранировании в вашем файле с разделителями. Я прочитаю из стандартного ввода/вывода, при необходимости заменю на соответствующие файлы

while( my $line = <STDIN> )
{
    chop( $line );
    my @rec = split( ';', $line );
    map( s/^(\d*\.?\d+)\-$/-$1/, @rec );
    print join(';',@rec) . "\n";
}

Если вам нужно беспокоиться об экранировании и заключении в кавычки, используйте Text:: CSV_XS вместо операций <STDIN>, split и join

В общем, команда замены s/old/new/flags:

s/(           # start a capture group
    \d+       # first part of the number
    (\.\d+)?  # possibly a decimal dot and the fractional part
  )-          # end capture group, match the minus sign
 /-$1/gx      # move minus to the front

Флаг g означает «глобальный» (заменяет все вхождения), а x — «расширенную разборчивость» (допускает пробелы и комментарии в шаблоне). Вы должны протестировать выражение на своих данных, чтобы увидеть, какие угловые случаи вы могли пропустить, обычно требуется несколько итераций, чтобы получить правильный. Образцы:

$ echo "10.5-;10-;0-;a-" | perl -pe 's/(\d+(\.\d+)?)-/-$1/g'
-10.5;-10;-0;a-

См. также perldoc perlop (введите слово «замена», чтобы перейти к нужному разделу).