Hi All,

Tengo dos archivos decir archivo1 y archivo2.

Quiero, para comprobar el número de registros en su archivo1 y si al menos 2 (es decir, 2 o superior a 2) a continuación, tengo que comprobar en los registros archivo2. Si se registra en archivo2 menos 1 (es decir, si no vacía) tengo que establecer algunas condiciones.

¿Podría usted ayudarme PLS cuál sería el perl script parecer, i no KNW la sintaxis

Como soy nuevo en este tema cualquier ayuda es apreciada.

wud que se sumthng como

SI (archivo1 tiene al menos 2 registros)
SI (archivo2 tiene al menos 1 registro)
conjunto condition1
FIN
ELSE -
conjunto condition2

Actualmente estamos usando en mainframes IDCAMS para hacer esto ... pero hay que convertir a perl scripts.If usted desea más elaboración, el código es IDCAMS

/ / STEP02 EXEC PGM \u003d IDCAMS, COND \u003d (0, NE)
/ / SYSPRINT DD SYSOUT \u003d(,), SALIDA \u003d (*. JESP)
/ / DD DSN \u003d ARCHIVO PRODAS.AS07.ARCHIVE (0), DISP \u003d (OLD, PASS)
/ / DD DSN ARCHIVN \u003d PRODAS.AS07.ARCHIVE (+1), DISP \u003d (OLD, PASS)
/ / Sysin DD *
IMPRIMIR INFILE (ARCHIVO) El Conde (2)
SI LASTCC \u003d 0 THEN --
HACER
IMPRIMIR INFILE (ARCHIVN) COUNT (1) Si al menos una
SI ENTONCES LASTCC \u003d 4 --
AJUSTE MAXCC \u003d 1
FIN
ELSE --
SI ENTONCES LASTCC \u003d 4 --
AJUSTE MAXCC \u003d 0
/ *

Esto te el número de líneas en los archivos

file1count=`cat <file1> | wc -l`
file2count=`cat <file2> | wc -l`

echo "File 1 has $file1count rows\n"
echo "File 2 has $file2count rows\n"

no en su workng perl

no está seguro de Wat sintaxis a utilizar en perl para este

El ejemplo que me envió no es perl, Se puede ejecutar su cáscara es.