Line # Revision Author
1 760 ahitrov #!/usr/bin/env perl
2 8 ahitrov@rambler.ru
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 }