Ciao a tutti,
come faccio a scrivere un file se ilparametro view è 1 e se 0 stampare il risultato a schermo?
grazie
Ciao a tutti,
come faccio a scrivere un file se ilparametro view è 1 e se 0 stampare il risultato a schermo?
grazie
if ($view) {
open (FILE, ">$file");
print FILE $contenuto;
close FILE;
}
else {
print $contenuto;
}
Marco Allegretti
shishii@tiscalinet.it
Lang: PERL, PHP, SQL.
Linux user n° 268623 Fedora Core 10, Fedora Core 6, Debian Sarge on mips
Si ok e se volessi mettere il tutto in una funzione per poter gestire molti casi?...in modo da non avere codice ripetuto...
grazie mille
Praticamente vorrei fare qualcosa del genere ma non funziona...mi aiutate a farla funzionare perfavore?
sub stampa {
my $view = shift;
if ($view eq 'ONAIR') {
$file = /ONAIR/index2.html;
$OUT = 'FILE_OUT';
}
elsif ($view eq 'STANDBY) {
$file = /STANDBY/index2.html;
$OUT = 'FILE_OUT';
}
elsif
$OUT = 'STDOUT';
# Apro il file per scrivere
open (FILE_OUT, ">$file");
# Se il tipo di visualizzazione NON è onair o standby
# Stampo a video
print $OUT $pagina;
# chiudo il file aperto
close(FILE_OUT);
}
grazie in anticipo...
ultima versione ma non va:
sub print_pagina {
my $view = shift;
my $dir;
if($view eq 'ONAIR') {
$dir = 'STANDBY';
}
elsif ($view eq 'ONAIR') {
$dir = 'ONAIR';
}
elsif ($view eq 'PREVIEW') {
$dir = 'STDOUT';
}
open($dir, '+>/var/www/VirtualHost/tvip-cm.aitek.it/$dir/index2.html');
# Creo il file index2.html dentro la dir STANDBY
print $dir $pagina;
close($dir);
}
qualcuno mi aiuta a farla funzionare?
Provo a sistemarla, ma credo mi manchino delle informazioni per completare.
Alla funzine vanno passati due parametri: il view e il testo da stamapre.codice:sub stampa { my $view = shift; my $pagina = shift; my $OUT = ''; if ($view eq 'ONAIR') { $file = /ONAIR/index2.html; $OUT = 'FILE_OUT'; } elsif ($view eq 'STANDBY') { $file = /STANDBY/index2.html; $OUT = 'FILE_OUT'; } else { $OUT = 'STDOUT'; } # Apro il file per scrivere open ($OUT, ">$file") or die("impossibile aprire il file"); # Se il tipo di visualizzazione NON è onair o standby # Stampo a video print $OUT $pagina; # chiudo il file aperto close(FILE_OUT); }
Nota che se vuoi aggiungere il testo in coda al file, devi usare >> al posto di > nell'open
Nuova politica di maggiore severita` sui titoli delle discussioni: (ri)leggete il regolamento
No domande tecniche in messaggi privati
provo grazie
poi ti dico
ok grazie