schemaStrip.pl « konsole - tdebase - TDE base libraries and programs

summary refs log tree commit diff stats

path: root/konsole/schemaStrip.pl

blob: d6a2edc95e12f5296d1e9b44b84ee54796e519bb (plain)

#!/usr/bin/perl
foreach (<>) {
    if(/^schema=.*\/(.*)$/) {
        print "schema=$1\n"; 
        next;
    }
    print $_;
}