On Wednesday, May 1, 2002, at 02:47 , Greg D. wrote:
> while(my @data = $sth->fetchrow_array){
> print "@data\n";
>
> right now its prints out for example:
>
> 1 greg [EMAIL PROTECTED] 1234 2 john [EMAIL PROTECTED] 4r434 and so on....
>
> i want it so it prints out..
>
> 1 greg [EMAIL PROTECTED] 1234
> 2 john [EMAIL PROTECTED] 4r434
right - I have two strategies:
plan A:
my $stuff = join(' ',@data);
while( $data_len > 0 ) {
if ($stuff =~ /(\w+)\s+(\w+)\s+(\S+)\s+(\w+)\s*(.*)/ ) {
my @line = ($1,$2, $3, $4) ;
$stuff = $5;
print" @line\n";
$data_len -= 4;
} else {
print "have data left $stuff\n";
$data_len = -1;
}
} # end while loop
which gins up:
1 greg [EMAIL PROTECTED] 1234
2 john [EMAIL PROTECTED] 4r434
3 Frodo [EMAIL PROTECTED] bbc4tv
have data left 4 benny
given:
my @data = qw/
1 greg [EMAIL PROTECTED] 1234
2 john [EMAIL PROTECTED] 4r434
3 Frodo [EMAIL PROTECTED] bbc4tv
4 benny
/;
so that the fetchrow test of a partial....
the one I wanted was:
my (@line) = split(/(\S+\s+\w+\s+\S+\s+\w+\s*)/,join(' ',@data));
print "we got out of this $#line of stuff\n";
print ":$_:\n" foreach(@line);
but some reason that is stuffing in 'empty bits' -
we got out of this 6 of stuff
::
:1 greg [EMAIL PROTECTED] 1234:
::
:2 john [EMAIL PROTECTED] 4r434:
::
:3 Frodo [EMAIL PROTECTED] bbc4tv:
:4 benny:
ciao
drieux
---
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
