#!/usr/bin/perl # CopyLeft # # Paolo Lulli paolo@lulli.net # # http://theunixplace.com/~entropia/index.html if ( $#ARGV == -1 ) { print "\e[1;31m \tInserisci il nome del file su cui scrivere \e[00m\n\t"; $nomefile = ; } else { $nomefile = $ARGV[0]; } # < Definizione variabili > print"\t\e[6;35mInserire il titolo\e[00m\n\t"; $titolo = ; chomp($titolo); print"\t\e[6;35mInserire il valore dal sostituire nel campo autore\e[00m\n\t"; $autore = ; chomp($autore); print"\t\e[6;35mInserire il dcocumentclass\e[00m\n\t"; $documentclass = ; chomp($documentclass); print"\t\e[6;35mInserire argomento del testo\e[00m\n\t"; $oggetto = ; chomp($oggetto); print"\t\e[6;35mDimensione caratteri:\e[00m\n\t"; $dimcarattere = ; chomp($dimcarattere); print"\t\e[6;35mFormato carta:\e[00m\n\t"; $dimcarta = ; chomp($dimcarta); # < / Definizione variabili > ($preambolo)=<$nomefile"); print MIO_TEX "$preambolo"; close( MIO_TEX ); print"Il file $nomefile é stato creato nella dir. corrente.\n\n";