home *** CD-ROM | disk | FTP | other *** search
/ Super Net 1 / SUPERNET_1.iso / PC / OTROS / UNIX / ARCHIE / CLIENTS / PERL_ARC.TAR / perl_archie / fixpath < prev    next >
Encoding:
Text File  |  1991-08-29  |  297 b   |  13 lines
  1. #!/u3/thesis/clipper/bin/perl
  2. eval "exec perl -S $0 $*"
  3.     if $running_under_some_shell;
  4. rename("archie", "archie.ori");
  5. open(FILE, "archie.ori");
  6. open(OUT, ">archie");
  7. print OUT "\#\!$ARGV[0]\n";
  8. print $_ unless (!($_ = <FILE>) || ($_ =~ /^\#\!/));
  9. while (<FILE>) {
  10.     print OUT $_;
  11. }
  12. close(OUT);
  13.