Salve a tutti,
ho il seguente codice in Perl e vorrei trasformarlo in PHP.
Qualcuno hai il tempo e la voglia di aiutarmi?
Grazie in anticipo.
//Codice://
open (INPUT, "<E:.\\AFTZZ0B.CBL"); ##apre un puntatore per legegre dal file sorgente
open (OUTPUT, ">E:.\\AFTZZ0B.NEW"); ##apre un puntatore per scrivere sul file destinazione
#impostazione variabili da usare per fare la sostituzione delle stringhe nel file sorgente
$inp01 = "AFTZZ";
$inp02 = "[*] *{0,4\} EXEC SQL INCLUDE AFTZZ0M";
$inp03 = "* EXEC SQL INCLUDE TZZ";
$inp04 = "$$INIZIO";
$inp05 = "ATZZ";
$inp06 = "* $COPIA AFT";
$inp07 = "*$COPIA RELEASE";
$inp08 = "* COPY TZZ";
$inp09 = "* $COPIA TZZ";
$out01 = "XXYZZ";
$out02 = " EXEC SQL INCLUDE XXYZZ0M";
$out03 = " EXEC SQL INCLUDE YZZ";
$out04 = " ";
$out05 = "XYZZ";
$out06 = " $COPIA XXY";
$out07 = " $COPIA RELEASE";
$out08 = " COPY YZZ";
$out09 = " $COPIA YZZ";
#lettura riga per riga
while ($input = <INPUT> )
{
##la variabile $input contiene una riga del file sorgente
#sostituzione line ok
# $input=~s/$inp01/$out01/g;
$input=~s/* EXEC SQL INCLUDE AFTZZ0M/ EXEC SQL INCLUDE XXYZZ0M/g; #sostituisce le varie variabili
# $input=~s/$inp03/$out03/g;
$input=~s/$inp04/$out04/g;
$input=~s/$inp05/$out05/g;
# $input=~s/$inp06/$out06/g;
# $input=~s/$inp07/$out07/g;
# $input=~s/$inp08/$out08/g;
# $input=~s/$inp09/$out09/g;
#
#sostituzione line
#if (~s/$inp01 and $inp02/)
# $input=~s/$inp01/$out01/;
print OUTPUT $input;
} # end While
Rispondi quotando
