On 28/07/2012 02:45, newbie01 perl wrote:
> Hi all,
>
> I am looking for a Perl script or something similar that I can use to test
> connection from a client PC to several databases on a server.
>
> Does anyone know of any such script lying around somewhere :(-
>
> Currently, am testing connecti
Hi all,
I am looking for a Perl script or something similar that I can use to test
connection from a client PC to several databases on a server.
Does anyone know of any such script lying around somewhere :(-
Currently, am testing connection from a client PC to an Oracle DB using
Oracle's sqlplus
On Fri, Jul 27, 2012 at 10:22 AM, Dr.Ruud wrote:
> On 2012-07-27 16:58, Andy Bach wrote:
>
>> if ($model=~/(\S+)\s+(.*)\s*$/) {
>
>
> The \s* in the end does nothing.
Well, I was thinking if it's a multi-word second match:
v6 Austin Martin
Then that would matches the rest of the phrase and tri
On Friday 27 July 2012 15:58:07 Andy Bach wrote:
> Your RE is a bit odd - all that 'non-greedy *' -ness implies troubles.
> The first "space star ?" can be greedy, right? You want all the
> spaces/white space in a row, or rather don't want - as you're anchored
> on the end, this doesn't do anythi
On 2012-07-27 16:58, Andy Bach wrote:
if ($model=~/(\S+)\s+(.*)\s*$/) {
The \s* in the end does nothing.
Closer:
/(\S+)\s+(.*\S)/
Then play with this:
perl -Mstrict -we'
my $data= $ARGV[0] ? q{Ford} : qq{ \t Fiat Ulysse 2.1 TD};
printf qq{<%s> <%s>\n}, split( q{ }, $data, 2 )
On Fri, Jul 27, 2012 at 9:04 AM, Gary Stainburn
wrote:
> print STDERR "About to split '$model'\n";
> if ($model=~/ *?(\w*) (.*?) *$/) {
> $enqmake=lc($1);
> $model=$2;
> print STDERR "model split into '$enqmake' '$model'\n";
> }
> } # extract make
>
> This generates:
>
> enqmake=
On Fri, 27 Jul 2012 07:29:13 -0700
Jim Gibson wrote:
> Why aren't you using the split function?
>
> ($model,$engmake) = split(' ',$model);
That would be:
($model,$engmake) = split(' ',$model, 2);
See `perldoc -f split` for details.
--
Just my 0.0002 million dollars worth,
Shawn
On Jul 27, 2012, at 7:04 AM, Gary Stainburn wrote:
> Hi folks.
>
> I'm struggling to see what I'm doing wrong. I have the following code in one
> of my programs but it isn't working as it should.
>
>
> print STDERR "enqmake='$enqmake' model='$model'\n";
> if (!$enqmake && $model) { # extract
Hi folks.
I'm struggling to see what I'm doing wrong. I have the following code in one
of my programs but it isn't working as it should.
print STDERR "enqmake='$enqmake' model='$model'\n";
if (!$enqmake && $model) { # extract make
print STDERR "About to split '$model'\n";
if ($model=~/ *?(
