ok, then why does this only print the 1 in 19?????
#!/usr/bin/perl -w
my $session = qx(
sqlplus -S rtdiag/*****\@DBNAME <<-!
SET HEA OFF;
select count(*) from session_list;
quit
!
);
#rem leading carrage returns
$session =~ tr/^\n//;
#rem leading spaces
$session =~ s/^\s+//;
#get the error if we have one
my ($sesserr,$seserrtxt) = ($session =~ /(.*): (.*)/);
#get the session count
my $sessions = ( $session =~ /^(\d+)/ );
print "1 $session\n";
print "2 $sessions\n";
results in
1 19
2 1
> -----Original Message-----
> From: Curtis Poe [mailto:[EMAIL PROTECTED]]
> Sent: Thursday, August 16, 2001 18:49
> To: Beginners (E-mail)
> Subject: Re: brainfart...need minor regex assistance
>
>
> --- "Yacketta, Ronald" <[EMAIL PROTECTED]> wrote:
> > Folks,
> >
> > I am loosing it today, for some odd reason I am banging my
> head against the
> > wall trying to
> > parse some sql output.
> >
> > I have the following output:
> >
> > SQL>
> > COUNT(*)
> > ----------
> > 513
> >
> > I just need the # in a variable (513)
> >
> > could someone slap me silly for some help here?
> >
> > Regards,
> > Ron
>
> How you get that depends upon where your output is. Is it in
> a scalar?
>
> $output = q/SQL>
> COUNT(*)
> ----------
> 513/;
> my ( $count ) = ( $output =~ /(\d+)/ );
>
> $output will be undef if there are no digits.
>
> Cheers,
> Curtis Poe
>
> =====
> Senior Programmer
> Onsite! Technology (http://www.onsitetech.com/)
> "Ovid" on http://www.perlmonks.org/
>
> __________________________________________________
> Do You Yahoo!?
> Make international calls for as low as $.04/minute with
> Yahoo! Messenger
> http://phonecard.yahoo.com/
>
> --
> To unsubscribe, e-mail: [EMAIL PROTECTED]
> For additional commands, e-mail: [EMAIL PROTECTED]
>
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
