Line # Revision Author
1 8 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 }