mirror of
https://gitea.nishi.boats/pyrite-dev/milsko
synced 2026-01-05 00:50:53 +00:00
1175f7886b
git-svn-id: http://svn2.nishi.boats/svn/milsko/trunk@418 b9cfdab3-6d41-4d17-bbe4-086880011989
13 lines
177 B
Perl
Executable File
13 lines
177 B
Perl
Executable File
#!/usr/bin/env perl
|
|
# $Id$
|
|
|
|
open(IN, "<", $ARGV[0]);
|
|
while(my $l = <IN>){
|
|
$l =~ s/\r?\n$//g;
|
|
$l =~ s/%([^ ]+)/@\1/g;
|
|
if(!($l =~ /\@prop /)){
|
|
print("$l\n");
|
|
}
|
|
}
|
|
close(IN);
|