Queimando CDs on-the-fly

Publicado por Fábio Berbert de Paula 26/10/2003

[ Hits: 5.146 ]

Homepage: https://fabio.automatizando.dev

Download cd_on_the_fly.pl




Este script é usado para combinar o mkisofs com o cdrecord nos possibilitando gravar um diretório ou um arquivo num CD sem precisar criar o arquivo ISO em disco antes da gravação.

  



Esconder código-fonte

#!/usr/bin/perl
# queimar.pl
# Script usado para gravar um CD de dados sem a necessidade da
# criação de uma imagem ISO
# Por: Fabio Berbert de Paula <fabio@vivaolinux.com.br>
# www.vivaolinux.com.br

use strict;

# recebendo e tratando parametro recebido
my $arq_ou_dir = shift;
if ((! -f $arq_ou_dir && ! -d $arq_ou_dir) || !$arq_ou_dir) {
   print "Use: $0 <arquivo ou diretorio>\n";
   exit;
}

# configurando caminho dos programas
my $mkisofs  = "/usr/bin/mkisofs";
my $cdrecord = "/usr/bin/cdrecord";

# descobrindo o tamanho da imagem ISO
my $tamanho = `$mkisofs -r -print-size $arq_ou_dir 2>/dev/null`;
chomp($tamanho);


print "Preparando para gravar o CD...\n";
system("$mkisofs -r -L -J $arq_ou_dir | $cdrecord -pad -v speed=8 dev=0,0,0 tsize=".$tamanho."s -eject -data -");
print "Gravacao concluida!\n";

Scripts recomendados

Aprendendo a fazer equações em Perl

Calcula equação de segundo grau completa

Inserindo o nome de aluno e calculando média de suas notas

Calc.pl

Separa os dígitos de um número


  

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