Gravar CDROM

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

[ Hits: 4.794 ]

Homepage: https://fabio.automatizando.dev

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

Mega Sena

Índice (Logaritmo Discreto) em Perl

MoOnCrack

Listar arquivos


  

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