Queimando CDs on-the-fly

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

[ Hits: 4.942 ]

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

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

Múltiplos de 7 - Decrescente

Programa que separa os dígitos de um inteiro

Crivo de Eratóstenes Simples em Perl

Separa os dígitos de um número

Calcula equação de segundo grau completa


  

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