Help for this page

Select Code to Download


  1. or download this
    open infile,$filepath;
my $Block;
...
 $Block .= $_;
}
&Parse_XML($Block); # Don't forget last block
  2. or download this
    use GDBM_File; # my favorite, but there are others
use Fcntl;
tie %md5,'GDBM_File','/tmp/md5.tmp',O_RDWR,0600; # You may need to add
+ |O_CREAT after O_RDWR
  3. or download this
    open infile,$filepath;
open outfile,'>'.$outfilepath;
...
  print outfile $Article;
 }
}