Advertisement
Brandan

Untitled

Jun 26th, 2012
307
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Perl 0.35 KB | None | 0 0
  1. $arg1 = "Derp";
  2.  open IN, '<', $filename;
  3.          my @contents = <IN>;
  4.          close IN;
  5.          @contents = grep !"$arg1", @contents;
  6.          open OUT, '>', $filename;
  7.          my @new = grep(s/\s*$//g, @contents);
  8.          print OUT @new;
  9.          close OUT;        
  10.              $fh->send("Server \"$arg1\" Removed Successfully! " . $ip. "\n");
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement