Программирование > Perl

Простой парсер

<< < (2/2)

Yaroslav:
злой что то форум стал...
$txt=\'\\acH (open) \\bcH\';
$txt =~ s/\\\\acH//;
$txt =~ s/\\\\bcH//;
print "$txt";

WebZ:
$txt=~s/\\\\acH([^\\bcH]*.)\\\\bcH/$1/g;

ravshaniy:
и еще чуть чуть подправим

$txt=\'\\acH (open) \\bcH \\bcH \\bcH \\bcH \';
$txt =~ s/\\\\acH//g;
$txt =~ s/\\\\bcH//g;
print "$txt";

Навигация

[0] Главная страница сообщений

[*] Предыдущая страница