Как я могу адаптировать Unix команду Perl для Windows?

Question

In https://oracle -base.com / articles / misc / install-sample-schemas .Тим Холл предлагает следующую команду (после размещения в определенном каталоге), чтобы заменить строку __SUB__CWD__ именем текущего каталога в файлах sql и dat:

cd ...
perl -p -i.bak -e 's#__SUB__CWD__#'$(pwd)'#g' *.sql */*.sql */*.dat

Как адаптировать эту команду дляОкна?Даже если имя каталога является постоянным (например: C: \ app \ soutou \ product \ 18.0.0 \ dbhomeXE \ demo \ schema ).Я не пользователь Perl (Oracle dev)

Answer 1

Если вы устанавливаете Strawberry Perl на ваш Windows-бокс, эта команда должна работать только из оболочки cmd.com

perl -i.bak -MCwd -pe"BEGIN{ $cwd = cwd; @ARGV = map glob, @ARGV; } s#__SUB__CWD__#$cwd#g" *.sql *\*.sql *\*.dat