Saludos,
Apreciaria la ayuda de alguno de ustedes.
Estoy tratando de parsear un archivo de texto para obtener unos datos. Aqui esta lo que tengo hasta ahora:
------------------------
Read.pl
#!/usr/bin/perl
#Files
$data_file="store.txt";
$receiver_file="receiver.txt";
#Open for reading
open(DAT, $data_file) || die("Could not open file!");
@raw_data=<DAT>;
close(DAT);
foreach $inventario (@raw_data)
{
($StockNumber,$C,$AAT,$QOH,$QOO,$QTO, $blank)= split(/ /, $inventario);
if ($blank) {
open(DAT,">>$receiver_file") || die("Cannot Open File");
print DAT "This is My number:$StockNumber\nThis is how much i got:$QOH\n";
close(DAT);
}
}
-------------------
Esa porcion lee el Archivo de Texto parciando y creando un array de cada linea y saca las variables asignadas.
Las variables son:
$StockNumber,$C,$AAT,$QOH,$QOO,$QTO, $blank
Ahora esas variables necesitan el valor real y ahora mismo me esta trayendo espacios que no necesito tal vez todo lo que necesito es alguien que me ayude con la funcion de SPLIT o tal vez ahi alguna otra forma de hacerlo.
Aqui les pongo el file de donde leo para sacar los datos.
ORDERING REPORT 04/15/02
Page 1
======================================
Branch: ALL
All Stores Including Warehouse
SELECT: Misc = ESTORE "And"
SORT: Artist
60282820202 CD ABRAZATE/DESCARGA BORICUA 2 2 0 ( )
75866183042 CD ACUNA,ALEX & JUSTO ALMA/TOLU 4 0 ( )
07559794762 CD AFRO-CUBAN ALL STARS/A TODA 52 0 ( )
Si me podrian ayudar con esto se los agradeceria.
