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";

Assistente de instalação por apt!

Anagrama usando Perl

Calculadora de IMC em Perl

Cálculo do MDC em Perl para quantidade ilimitada de parâmetros

Programa que separa os dígitos de um inteiro

Nenhum comentário foi encontrado.