~johanvandegriff/unix-shell-programming-revised-edition-programs

unix-shell-programming-revised-edition-programs/install/make_install_perl -rw-r--r-- 211 bytes
fc214385Johan Vandegriff added other old scripts, some newer ones too 2 years ago
                                                                                
1
2
3
4
5
6
7
8
9
10
11
12
13
14
#!/usr/bin/perl
my $dir = shift;
my $file = shift;
my $q = shift;
if ( "$q" eq "" ) {
  $q = rand(10000000);
  $q =~ s/\.//;
}

sub write {
  open FILE, ">", "file" or die $!;
  print FILE "@_";
  close FILE;
}