fork download
copy 
  1. #!/usr/bin/perl
  2.  
  3. $SUBJ="Aici scrii subiectul la mesaj";
  4. $MSG="mesaj.txt";
  5. $USERS="mail.txt";
  6.  
  7. open(IN,$USERS);
  8.  
  9. $id=12345;
  10. while(chop($line=<IN>)){
  11. open(SM,"|/usr/sbin/sendmail $line");
  12. print(SM "To: $line\n");
  13. print(SM "Subject: $SUBJ\n");
  14. print(SM "Message-ID: <".time().".$id.qmail\sloboz.com>\n");
  15. print(SM "From: \"Numele pizdii\" <user\@site.com>\n");
  16. print("Message sent to $line\n");
  17. print(SM "Content-Type: text/html\n");
  18. open(FILE,$MSG);
  19. while($line=<FILE>){
  20. print(SM $line);
  21. }
  22. close(FILE);
  23. close(SM);
  24. $id++;
  25. }
  26.  
  27. close(IN);
Success #stdin #stdout #stderr 0s 5300KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
Standard output is empty
stderr
copy 
Error: near line 3: near "$SUBJ": syntax error
Error: near line 4: near "$MSG": syntax error
Error: near line 5: near "$USERS": syntax error
Error: near line 7: near "open": syntax error
Error: near line 9: near "$id": syntax error
Error: near line 10: near "while": syntax error
Error: near line 12: near "print": syntax error
Error: near line 13: near "print": syntax error
Error: near line 14: near "print": syntax error
Error: near line 15: near "print": syntax error
Error: near line 16: near "print": syntax error
Error: near line 17: near "print": syntax error
Error: near line 18: near "open": syntax error
Error: near line 19: near "while": syntax error
Error: near line 21: unrecognized token: "}"
Error: near line 23: near "close": syntax error
Error: near line 24: near "$id": syntax error
Error: near line 25: unrecognized token: "}"
https://ideone.com/chraVa
language:
SQLite (sqlite 3.27.2)
created:
20 hours ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!