Size: a a a

2021 March 31

МК

Михаил Козачков... in Modern::Perl
Когда уже в Телеге запретят этот выпендрёж в именах...
источник

D

DarkPerl in Modern::Perl
Михаил Козачков
Когда уже в Телеге запретят этот выпендрёж в именах...
И аватарки тоже запретить ) 😁
источник

МК

Михаил Козачков... in Modern::Perl
Скоро все через ЕСИА ходить в эти ваши "соцсети" будут...)
источник

МИ

Михаил Иванов... in Modern::Perl
Михаил Козачков
Когда уже в Телеге запретят этот выпендрёж в именах...
Достоточно запретить тут, в чатике:)
источник
2021 April 01

VV

Vladimir Varlamov in Modern::Perl

Ребята, помогите пожалуйста со скриптом. Нужно убрать пустоты: \n\s*  →    \n.  Но пропуская  <pre>....</pre>, не изменяя.
Я нашел образец:
(?:part 1 to skip|part 2 to skip|...)(*SKIP)(*F) | part to match
но не понимаю как правильно составить, однострочник для Акелпада
Если это выглядит так, то ничего не выйдет
источник

VV

Vladimir Varlamov in Modern::Perl
источник

 in Modern::Perl
а в UltraEdit'e? т.е. хотелось бы совершать эту замену в обычном текстовом редакторе, (без установки Perl IDE)
источник

 in Modern::Perl
или в Notepad++
источник

SZ

Sergey Zhmylove in Modern::Perl

а в UltraEdit'e? т.е. хотелось бы совершать эту замену в обычном текстовом редакторе, (без установки Perl IDE)
А может просто перлом таки?
источник

 in Modern::Perl
Я вот скачал  DWIM Perl IDE, готов скачать любую другую. Мне составили образец скрипта:

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

basiliscos in Modern::Perl
Примерно так:

find src -type f  | xargs perl -pi -e 's/AAA/BBB/g'


- находит все файлы в папке src, и потом для каждого из них запускает перл, и в каждом файле меняет AAA на BBB.
источник

b

basiliscos in Modern::Perl
p - печатать
i - inplace (заменить)/
e - выполнить кусок перлового кода для каждой строки
источник

 in Modern::Perl
find c:\000 -type f  | xargs perl -pi -e 's/AAA/BBB/g'

А как вместо 's/AAA/BBB/g' указать файл скрипта? Извините что спрашиваю такие простые вещи, мне Перл нужен только на раз для этой замены
источник

SL

Sergiy Leschenko in Modern::Perl
это уже не Perl а shell (bash и т.д)
у вас там windows?
источник

 in Modern::Perl
у меня есть все аналоги из Gnuutils
источник

SL

Sergiy Leschenko in Modern::Perl
вместо -e '...' указывать имя скрипта
источник

 in Modern::Perl
Я запустил, выдает:  
Can't do inplace edit without backup.
Как побороть?
источник

SZ

Sergey Zhmylove in Modern::Perl

Я запустил, выдает:  
Can't do inplace edit without backup.
Как побороть?
-i замени на -i.bak
источник

 in Modern::Perl
Вот моя команда, как исправить?
c:\windows\find c:/000 -type f  | xargs perl -pi c:\regex_example.pl
источник

SZ

Sergey Zhmylove in Modern::Perl

Вот моя команда, как исправить?
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
источник