Advertisement
Guest User

Untitled

a guest
Jun 12th, 2012
76
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.70 KB | None | 0 0
  1. Perl flags -pe, -pi, -p, -w, -d, -i, -t?
  2. perldoc perlrun
  3.  
  4. while (<>) {
  5. # exec here
  6. }
  7. continue {
  8. print or die "-p destination: $!n";
  9. }
  10.  
  11. perl -e '$x = "Hello world!n"; print $x;'
  12.  
  13. $ perl -MO=Deparse -p -e 1
  14. LINE: while (defined($_ = <ARGV>)) {
  15. '???';
  16. }
  17. continue {
  18. die "-p destination: $!n" unless print $_;
  19. }
  20. -e syntax OK
  21.  
  22. $ perl -MO=Deparse -p -i -e 1
  23. BEGIN { $^I = ""; }
  24. LINE: while (defined($_ = <ARGV>)) {
  25. '???';
  26. }
  27. continue {
  28. die "-p destination: $!n" unless print $_;
  29. }
  30. -e syntax OK
  31.  
  32. $ perl -MO=Deparse -p -i.bak -e 1
  33. BEGIN { $^I = ".bak"; }
  34. LINE: while (defined($_ = <ARGV>)) {
  35. '???';
  36. }
  37. continue {
  38. die "-p destination: $!n" unless print $_;
  39. }
  40. -e syntax OK
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement