МК
Size: a a a
МК
D
МК
МИ
VV
\n\s*
→ \n
. Но пропуская <pre>....</pre>
, не изменяя. (?:part 1 to skip|part 2 to skip|...)(*SKIP)(*F) | part to match
но не понимаю как правильно составить, однострочник для Акелпада
SZ
my $regex = qr{<pre>.*?</pre>(*SKIP)(*FAIL)|\n\s*}s;
print "before:\n$string\n\n";
$string =~ s/$regex/\n/g;
print "after:\n$string\n";
Подскажите как запускать скрипт, чтобы отработал на всех файлах (их 400) в папке.b
find src -type f | xargs perl -pi -e 's/AAA/BBB/g'
b
find c:\000 -type f | xargs perl -pi -e 's/AAA/BBB/g'А как вместо 's/AAA/BBB/g' указать файл скрипта? Извините что спрашиваю такие простые вещи, мне Перл нужен только на раз для этой замены
SL
SL
Can't do inplace edit without backup.Как побороть?
SZ
Can't do inplace edit without backup.Как побороть?
c:\windows\find c:/000 -type f | xargs perl -pi c:\regex_example.pl
SZ
c:\windows\find c:/000 -type f | xargs perl -pi c:\regex_example.pl
c:\windows\find c:/000 -type f | xargs perl -pi.bak c:\regex_example.pl