[CF-Devel] Multipart creatures and maps

crossfire-devel at archives.real-time.com crossfire-devel at archives.real-time.com
Fri Mar 5 04:15:27 CST 2004


This time with atttachment.
-------------- next part --------------
#!/usr/bin/perl -w

use strict 'refs';
use strict 'subs';

@files = split /\n/,`find -type f | grep -v "/CVS/"`;

foreach $file (@files)
 {
  open (MAPFILE,$file) or die ("could not open $file\n");
  undef $/;
  $bigstring = <MAPFILE>;
  close MAPFILE;

  $bigstring =~ s/^More.*?end\n//msg;

  open (MAPFILE,"> $file") or die ("could not open $file for writing\n");
  print MAPFILE $bigstring;
  close MAPFILE;
 }

-------------- next part --------------
_______________________________________________
crossfire-devel mailing list
     
     crossfire-devel at lists.real-time.com
     
     
     https://mailman.real-time.com/mailman/listinfo/crossfire-devel
     
     
    


More information about the crossfire mailing list