Queimando CDs on-the-fly

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

[ Hits: 5.092 ]

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

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

Calc.pl

Gerando senhas aleatórias

Scalar - Alguns dos usos mais comuns deste tipo de variável do Perl

Saiba quanto de energia seu PC gasta aproximadamente por mês


  

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