SHARE
TWEET

it-ebooks watermark

a guest Jun 4th, 2014 69 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. #!/usr/bin/env perl
  2.  
  3.         $file = $ARGV[0] or exit;
  4.  
  5.         open $fh, '<', $file or die "$!";
  6.         binmode $fh;
  7.         $content = do { local $/; <$fh> };
  8.  
  9.         $content=~s#www.it-ebooks.info##sg;
  10.         $content=~s#/Type /Annot[^>]*?\(http:///\).>>##sg;
  11.  
  12.         open $fh, '>', $file or die "$!";
  13.         binmode $fh;
  14.         print $fh $content;
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top