File: rmlic.pl

package info (click to toggle)
gplcver 2.12a-1
  • links: PTS
  • area: main
  • in suites: lenny
  • size: 7,604 kB
  • ctags: 9,129
  • sloc: ansic: 126,201; sh: 1,539; makefile: 86; perl: 22
file content (25 lines) | stat: -rwxr-xr-x 370 bytes parent folder | download | duplicates (16) 
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
 
#!/usr/bin/perl
use strict;
my $file;
my $i;
my $line;
 
 $file = 'verilog.log';
 if (@ARGV == 1)
 {
     $file = $ARGV[0];
 }

 open(FILE, $file) or die "Can't open $file\n";
 open(TMP, '>tmp') or die "Can't open tmp file\n";
 for($i = 0; $i < 3; $i++)
 {
      $line = <FILE>;
 }
 while(<FILE>)
 {
      print TMP $_;
 }
 close TMP;
 close FILE;
 rename 'tmp', $file;