Gravar CDROM

Publicado por Fábio Berbert de Paula 27/02/2003

[ Hits: 4.609 ]

Homepage: https://www.instagram.com/alexabolada/

Download queimar.pl




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

  



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;
}

Scripts recomendados

Screenshot

Wallpaper no Fluxbox

Login AUDIT

Testando a agilidade do sistema de arquivos

Wallpapers aleatórios no Fluxbox


  

Comentários

Nenhum comentário foi encontrado.


Contribuir com comentário




Patrocínio

Site hospedado pelo provedor RedeHost.
Linux banner

Destaques

Artigos

Dicas

Tópicos

Top 10 do mês

Scripts