Gravar CDROM

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

[ Hits: 4.390 ]

Homepage: https://youtube.com/c/cotidianohackeado

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

Tirando screenshots facilmente !

Calculadora com Perl com menos de 10 linhas de código

Beep-Media-Player for Torsmo

Índice (Logaritmo Discreto) em Perl

MoOnCrack


  

Comentários

Nenhum comentário foi encontrado.


Contribuir com comentário




Patrocínio

Site hospedado pelo provedor RedeHost.
Linux banner
Linux banner
Linux banner

Destaques

Artigos

Dicas

Tópicos

Top 10 do mês

Scripts