SHARE
TWEET

Untitled

a guest Jul 22nd, 2017 114 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. #!/usr/bin/perl
  2. #Aprire il terminale, posizionarsi nella directory dove si trova lo script (ex: "cd /home/utente/") e digitare "perl OgvAviPerlConverter.pl".
  3. #Script in Perl scritto da Giovanni Capuano e rilasciato sotto licenza GNU/GPLv3.
  4.  
  5. system("clear");
  6. print "OgvAviPerlConverter, un semplice convertitore di video dal formato .ogv al formato .avi.\nRichiede mencoder [sudo apt-get install mencoder]\n\n";
  7. print "Nome del file da convertire (ex: video.ogv): ";
  8. chomp($oldName = <>);
  9.  
  10. print "Nome del nuovo file (ex: video.avi): ";
  11. chomp($newName = <>);
  12.  
  13. print "Posizione del file da convertire (ex: /home/utente/): ";
  14. chomp($oldPath = <>);
  15.  
  16. print "Posizione del nuovo file (ex: /home/utente/): ";
  17. chomp($newPath = <>);
  18.  
  19. if (-e $oldPath.$oldName) {
  20.     system("mencoder \"$oldPath$oldName\" -ovc xvid -oac mp3lame -xvidencopts pass=1 -o \"$newPath$newName\"");
  21. }
  22. else {
  23.     print "\nIl file da convertire non รจ stato trovato.";
  24. }
  25.  
  26. if (-e $newPath.$newName) {
  27.     print "\nConversione riuscita.\n";
  28. }
  29. else {
  30.     print "\nConversione non riuscita.\n";
  31. }
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
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!
 
Top