Queimando CDs on-the-fly
Publicado por Fábio Berbert de Paula 26/10/2003
[ Hits: 4.961 ]
Homepage: https://www.instagram.com/alexabolada/
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";
Scalar - Alguns dos usos mais comuns deste tipo de variável do Perl
imprime numeros de forma crescente e decrescente [FOR]
Cálculo do MDC em Perl para quantidade ilimitada de parâmetros
Nenhum comentário foi encontrado.
Atenção a quem posta conteúdo de dicas, scripts e tal (1)
Manutenção de sistemas Linux Debian e derivados com apt-get, apt, aptitude e dpkg
Melhorando o tempo de boot do Fedora e outras distribuições
Como instalar as extensões Dash To Dock e Hide Top Bar no Gnome 45/46
Como Atualizar Fedora 39 para 40
Instalar Google Chrome no Debian e derivados
Consertando o erro do Sushi e Wayland no Opensuse Leap 15
Instalar a última versão do PostgreSQL no Lunix mantendo atualizado
Flathub na sua distribuição Linux e comandos básicos de gerenciamento
iso de sistema 32 bit em atividade (4)
Lançado Ubuntu 24.04 Final (0)
ASRock H310CM-HG4 vs Linux (11)