2025-10-19 14:36:23 +00:00
|
|
|
#!/usr/bin/env perl
|
|
|
|
|
# $Id$
|
|
|
|
|
|
|
|
|
|
open(IN, "<", $ARGV[0]);
|
2025-10-20 08:33:21 +00:00
|
|
|
while (my $l = <IN>) {
|
|
|
|
|
$l =~ s/\r?\n$//g;
|
|
|
|
|
$l =~ s/%([^ ]+)/@\1/g;
|
|
|
|
|
if (!($l =~ /\@prop /)) {
|
|
|
|
|
print("$l\n");
|
|
|
|
|
}
|
2025-10-19 14:36:23 +00:00
|
|
|
}
|
|
|
|
|
close(IN);
|
