pdata = 1653131 AND npused = 1653542
##
Have fun!
--
::::
::::
:: Simplicidade.com ::
:: Consultoria em Tecnologias de Informação, Lda. ::
::
On Wed, 10 Nov 2004 00:04:12 -0600
"Charles K. Clarkson" <[EMAIL PROTECTED]> wrote:
> my @headers = split ' ', ;
This way, if tomorrow you have some data like:
extents nptot
51671035
2223412520365
you'll be in troubles, right?
> my @tables;
> while () {
> my %table;
One idea
##
#!/usr/bin/perl -w
use strict;
use Text::Balanced qw(extract_quotelike extract_multiple);
use Data::Dumper;
my @array = ();
my @strings;
foreach my $line (@array) {
push @strings,
extract_multiple($
Or a shorter version :-)
###
#!/usr/bin/perl -w
use strict;
use Text::Balanced qw(extract_quotelike extract_multiple);
use Data::Dumper;
my @array = ();
my @strings;
push @strings,extract_multiple(
$_,[sub { extract_quo
