home *** CD-ROM | disk | FTP | other *** search
/ Chip 2000 May / Chip_2000-05_cd1.bin / zkuste / Perl / ActivePerl-5.6.0.613.msi / 䆊䌷䈹䈙䏵-䞅䞆䞀㡆䞃䄦䠥 / _457530567ffda161280ef26a490ba706 < prev    next >
Text File  |  2000-03-15  |  790b  |  37 lines
  1. #!/usr/local/bin/perl
  2.  
  3. # Make a world-writeable directory for saving state.
  4. $ww = 'WORLD_WRITABLE';
  5. unless (-w $ww) {
  6.     $u = umask 0;
  7.     mkdir $ww, 0777;
  8.     umask $u;
  9. }
  10.  
  11. # Decode the sample image.
  12. for $uu (<*.uu>) {
  13.     unless (open UU, "<$uu") { warn "Can't open $uu: $!\n"; next }
  14.     while (<UU>) {
  15.         chomp;
  16.     if (/^begin\s+\d+\s+(.+)$/) {
  17.         $bin = $1;
  18.         last;
  19.     }
  20.     }
  21.     unless (open BIN, "> $bin") { warn "Can't create $bin: $!\n"; next }
  22.     binmode BIN;
  23.     while (<UU>) {
  24.     chomp;
  25.     last if /^end/;
  26.     print BIN unpack "u", $_;
  27.     }
  28.     close BIN;
  29.     close UU;
  30. }
  31.  
  32. # Create symlinks from *.txt to *.cgi for documentation purposes.
  33. foreach (<*.cgi>) {
  34.     ($target = $_) =~ s/cgi$/txt/i;
  35.     symlink $_, $target unless -e $target;
  36. }
  37.