File: template

package info (click to toggle)
likwid 4.2.0-2
  • links: PTS, VCS
  • area: main
  • in suites: stretch
  • size: 11,408 kB
  • ctags: 12,654
  • sloc: ansic: 81,942; perl: 17,226; python: 1,132; makefile: 784; cpp: 239; f90: 162; sh: 85; asm: 40
file content (30 lines) | stat: -rwxr-xr-x 433 bytes parent folder | download | duplicates (2) 
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
 
#!/usr/bin/perl -w

use strict;
use warnings;

my $FILTERTYPE = 'csv';

if ($#ARGV < 2) {
    die "Filter failed! Please report bug.\n";
}

my $filename = $ARGV[0];
my $fileType  = $ARGV[1];

open INFILE,"< $filename";
$filename =~ s/\.tmp/\.$FILTERTYPE/;
open OUTFILE,"> $filename";


if ($fileType eq 'topology') {


} elsif ($fileType eq 'perfctr') {


} else {
    die "Filter failed! Unknown application type $fileType!\n";
}