Script usado para gravar dados em CDROM. Você pode passar como argumentos uma imagem ISO ou uma lista de diretórios para o mesmo.

• Download queimar.pl
• Enviar nova versão

Esconder código-fonte

#!/usr/bin/perl -w

sub linha {
  print "\n"; 
  print "#" x 70 . "\n"; 
}

if ($#ARGV < 1) {
  linha;
  print "\nUse:\n\tqueimar -d <lista de diretórios>\n\tou\n\tqueimar -o <imagem.iso>\n";
  linha;
} else {
  $flag = shift();
  $valor = shift();
  linha;
  if ($flag eq "-d") {
    while ($tmp = shift()) {
      $valor = $valor . " $tmp"; 
    }           
    print "Preparando para queimar $valor...\n\n";
    print "mkisofs -r -J $valor | cdrecord -v dev=0,0,0 speed=8 -eject -data -";
    system("mkisofs -r -J $valor | cdrecord -v dev=0,0,0 speed=8 -eject -data -");
  } elsif ($flag eq "-o") {
    print "Preparando para queimar $valor...\n\n";
    print "cdrecord -v dev=0,0,0 speed=8 -data $valor";
    system("cdrecord -v dev=0,0,0 speed=8 -data $valor");
  } else {
    print "Ops, opção inválida $flag ! Abortando...\n\n";
    exit(0);    
  }     
  print "\n\nTerminei com minha tarefa!\n";
  system("eject /dev/cdrom");
  linha;
}

Role-Playing Script

Screenshot

Viva o Linux for Torsmo

Algoritmo de Euclides estendido em Perl

Eterm sem bordas

Nenhum comentário foi encontrado.