Queimando CDs on-the-fly
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.
Descrição
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.
#!/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";