File: htperl.pl

package info (click to toggle)
texlive-bin 2007.dfsg.2-4%2Blenny3
  • links: PTS
  • area: main
  • in suites: lenny
  • size: 245,472 kB
  • ctags: 135,653
  • sloc: ansic: 971,350; cpp: 307,149; sh: 53,218; perl: 39,201; makefile: 12,611; python: 6,078; xml: 5,342; asm: 4,245; yacc: 3,108; pascal: 2,483; ruby: 2,089; ada: 1,681; lex: 1,654; objc: 1,357; awk: 1,214; tcl: 973; cs: 879; lisp: 708; sed: 536; java: 172; csh: 47
file content (45 lines) | stat: -rw-r--r-- 667 bytes parent folder | download 
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
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
 
use File::Copy;
use File::Path;
use File::Basename;

&main ;

0;

sub is_absolute {
  my ($f) = @_;
  return $f =~ m@^([a-zA-Z]:)?[\\/]@ ;
}

sub canonicalize {
  my ($f) = @_;
  $f =~ s@/@\\@g;
  return $f;
}

sub main {
  my $src = &canonicalize($ARGV[1]);
  my $dst = &canonicalize($ARGV[2]);

  if (&is_absolute($src)) {
    if (-d $dst) {
      $dst = $dst . "\\" . &basename($src);
    }
  }
  else {
    if (-d $dst) {
      $dst = "$dst\\$src";
      &mkpath(&dirname($dst));
    }
  }

  if ($ARGV[0] eq 'move') {
    &move($src, $dst);
  }
  elsif ($ARGV[0] eq 'copy') {
    &copy($src, $dst);
  }
  else {
    print STDERR "$0: bad verb $ARGV[0]\n";
  }
}