summaryrefslogtreecommitdiffstats
path: root/konsole/schemaStrip.pl
blob: d6a2edc95e12f5296d1e9b44b84ee54796e519bb (plain)
1
2
3
4
5
6
7
8
#!/usr/bin/perl
foreach (<>) {
    if(/^schema=.*\/(.*)$/) {
        print "schema=$1\n"; 
        next;
    }
    print $_;
}