Line # | Revision | Author | |
---|---|---|---|
1 | 3 | ahitrov@rambler.ru | #!/usr/bin/perl |
2 | |||
3 | ############################################# | ||
4 | # convert old rewrite patterns ( like @FOO@ ) | ||
5 | # to mtt-compatible syntax | ||
6 | # (keeping @@BAR@@ samples) | ||
7 | ############################################# | ||
8 | |||
9 | use strict; | ||
10 | use warnings 'all'; | ||
11 | |||
12 | |||
13 | while (<>) { | ||
14 | s/(?<!\@)\@([^\s\@]+?)\@/<% \$$1 %>/g; | ||
15 | print; | ||
16 | } |