File: chtags.pl

package info (click to toggle)
libtext-xslate-perl 3.5.9-2
  • links: PTS, VCS
  • area: main
  • in suites: sid, trixie
  • size: 2,108 kB
  • sloc: perl: 19,756; ansic: 214; pascal: 182; makefile: 9; cs: 8
file content (30 lines) | stat: -rw-r--r-- 473 bytes parent folder | download | duplicates (4) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
 
#!perl -w
use strict;
use File::Find;
use Fatal qw(open close);

sub wanted {
    return if not -f $_;

    print "$_\n";

    my $name = $_;

    open my $in, '<', $name;
    open my $out, '>', $name . ".tmp";
    while(<$in>) {
        s/^([ \t]*) \Q?/$1:/xms;
        s/\Q<?/<:/xmsg;
        s/\Q?>/:>/xmsg;
        print $out $_;
    }
    close $in;
    close $out;

    rename "$name.tmp" => $name;
}

find({
    wanted => \&wanted,
}, qw(t lib example benchmark));