Пример замены подстрок в файле средствами PERL

Linux > Пример замены подстрок в файле средствами PERL
14.04.2015 16:45:47


Наиболее часто встречающиеся слова в статье:

[Прочитать] [|0       ] [/usr/bin/perl] [\|0/\_ID\]


Статья:

Прочитать файл и замена в файле

F=    на ,[

|ID  на AS[

|C   |9     |0        на _ID]

 

#!/usr/bin/perl
open(fin,"input.txt");
undef $/;
$_=<fin>;
close(fin);
s/F=/,[/gms;
s/\|\(P\)/AS \[/gms;
s/\|C \|9 \|0/\_ID\]/gms;

print;