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.

• Download cd_on_the_fly.pl
• Enviar nova versã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";

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

Potenciação

Escrevendo varias linhas em um arquivo qualquer

Programa que separa os dígitos de um inteiro

Xshot

Nenhum comentário foi encontrado.