[28329] in Perl-Users-Digest
Perl-Users Digest, Issue: 9693 Volume: 10
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Wed Sep 6 18:05:46 2006
Date: Wed, 6 Sep 2006 15:05:07 -0700 (PDT)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Perl-Users Digest Wed, 6 Sep 2006 Volume: 10 Number: 9693
Today's topics:
Re: (Off topic) Cyberwar question <hjp-usenet2@hjp.at>
Issue with select statements, vertical bars? <snoopy_@excite.com>
Re: MIME::Parser and Yahoo... <afrinspray@gmail.com>
Re: MIME::Parser and Yahoo... <hjp-usenet2@hjp.at>
Numerical sort (Schwartzian xform) <awkster@yahoo.com>
Re: Numerical sort (Schwartzian xform) usenet@DavidFilmer.com
Re: Numerical sort (Schwartzian xform) <noreply@invalid.net>
Re: Numerical sort (Schwartzian xform) <awkster@yahoo.com>
Re: Numerical sort (Schwartzian xform) anno4000@radom.zrz.tu-berlin.de
Re: Numerical sort (Schwartzian xform) <awkster@yahoo.com>
Re: Pattern Matching and skipping mattjones@hotmail.co.uk
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Wed, 6 Sep 2006 23:16:53 +0200
From: "Peter J. Holzer" <hjp-usenet2@hjp.at>
Subject: Re: (Off topic) Cyberwar question
Message-Id: <slrnefuema.u21.hjp-usenet2@yoyo.hjp.at>
On 2006-09-06 17:38, tuser <tuser3@gmail.com> wrote:
> Skybuck wrote:
>> We need TRANSLATOR.
[...]
> my $p = 0;
> for (@translator) {
> substr($message, $p, 1) = chr $_;
> $p++;
> }
>
> print "translated message: $message\n";
C|N>K
hp
--
_ | Peter J. Holzer | > Wieso sollte man etwas erfinden was nicht
|_|_) | Sysadmin WSR | > ist?
| | | hjp@hjp.at | Was sonst wäre der Sinn des Erfindens?
__/ | http://www.hjp.at/ | -- P. Einstein u. V. Gringmuth in desd
------------------------------
Date: 6 Sep 2006 13:48:06 -0700
From: "snoopy_@excite.com" <snoopy_@excite.com>
Subject: Issue with select statements, vertical bars?
Message-Id: <1157575686.581777.240500@d34g2000cwd.googlegroups.com>
Hello,
I am trying to use DBI to perform a select statement, but it's
choking with a format problem:
ORA-00923: FROM keyword not found where expected (DBD ERROR:
OCIStmtExecute/Describe)
Could this be an issue with using vertical bars?
Select statement is as follows:
my $sql = qq{
select 'user|' || up.user_name || '|' || up.base_db || '|' || up.dept
|| '|' || up.group_id
from pcms_workset_info wsin, pcms_users_profile up
where up.user_name = UPPER ('$user_name' )
and up.privilege_level = 0
minus select null from dual
};
------------------------------
Date: 6 Sep 2006 13:23:12 -0700
From: "afrinspray" <afrinspray@gmail.com>
Subject: Re: MIME::Parser and Yahoo...
Message-Id: <1157574192.218976.243210@m79g2000cwm.googlegroups.com>
Nvm... Yahoo text/html parts don't have a <body> tag.
Mike
afrinspray wrote:
> I'm using a perl script to parse emails, and I'm having trouble with
> this Yahoo MIME code. Can you guys think of any reason why
> MIME::Parser keeps cutting out everything before the quoted part
> (Someemail@example.com wrote:)? What is the :39820 in the boundary?
> Could it have something to do with the encoding?
>
> <snip>
> --0-501421522-1157090632=:39820
> Content-Type: text/html; charset=iso-8859-1
> Content-Transfer-Encoding: quoted-printable
>
> Dam that Phantom... just when I thought he went to Honduras!<br> <br>
> (=
> Note Dam is spelled so as to be politically
> correct...)<br><br><b><i>Some=
> email@example.com</i></b> wrote:<blockquote class=3D"replbq"
> </snip>
>
> Everything works fine except when the emails come in from this guy.
>
> Thanks,
> Mike
------------------------------
Date: Wed, 6 Sep 2006 23:15:08 +0200
From: "Peter J. Holzer" <hjp-usenet2@hjp.at>
Subject: Re: MIME::Parser and Yahoo...
Message-Id: <slrnefuej0.u21.hjp-usenet2@yoyo.hjp.at>
On 2006-09-06 17:22, afrinspray <afrinspray@gmail.com> wrote:
> I'm using a perl script to parse emails, and I'm having trouble with
> this Yahoo MIME code. Can you guys think of any reason why
> MIME::Parser keeps cutting out everything before the quoted part
^^^^^^^^^^^^^^^^^^^^^^
> (Someemail@example.com wrote:)?
MIME is parsed from the beginning to the end. If you want us to find out what's
wrong you have to post the message at least from the beginning to the
place where something went wrong. Posting a part *after* the error
doesn't help at all. The error has already occured, so this part is
completely irrelevant.
> What is the :39820 in the boundary?
No special meaning. The boundary can consist of almost arbitrary
characters.
hp
--
_ | Peter J. Holzer | > Wieso sollte man etwas erfinden was nicht
|_|_) | Sysadmin WSR | > ist?
| | | hjp@hjp.at | Was sonst wäre der Sinn des Erfindens?
__/ | http://www.hjp.at/ | -- P. Einstein u. V. Gringmuth in desd
------------------------------
Date: 6 Sep 2006 13:20:37 -0700
From: "Jorge" <awkster@yahoo.com>
Subject: Numerical sort (Schwartzian xform)
Message-Id: <1157574037.824381.23460@b28g2000cwb.googlegroups.com>
I'm running ActiveState perl 5.8.8 on XP
While working on my dog racing program, I build an array containing
these strings which are numerically indexed 1 thru 8 by the last
column.
31.43 32 1005.89 Figs Domino 1
31.62 17 537.57 Boc's Skater 2
31.85 18 573.34 Reward Crystal 3
31.54 27 851.47 Db Miss Buxley 4
31.78 13 413.17 Ucme Lola 5
31.96 12 383.46 Bayou Jasmine 6
31.62 14 442.62 Y's Flirt 7
31.46 30 943.88 Sheriff Wade 8
I pass the array to my schwartzian transform sub routine using this
call ...
my @sorted_array = &SchwartzianTransform(' ', ['1n', -1], @array);
with expectations of it returning an array that is sorted on the
numerical 1st column (2-place floats) but it always returns the
original array. I couldn't find anything in perlfaq4 that explains this
nor could I find anything on the web that explained it in terms I could
understand, notwithstanding the tonnes of articles about Perl sorting.
Can anyone give me an idea how to get the desired behaviour on this?
Your help is greatly appreciated - TIA.
Here is my SchwartzianTransform sub routine:
sub SchwartzianTransform{
my ($sep, $cols);
if (ref $_[0]) {
$sep = '\\s+'
} else {
$sep = shift;
}
unless (ref($cols = shift) eq 'ARRAY') {
die "fieldsort columns must be in anon array";
}
my (@sortcode, @col);
my $col = 1;
for (@$cols) {
my ($a, $b) = /^-/ ? qw(b a) : qw(a b);
my $op = /n$/ ? '<=>' : 'cmp';
push @col, (/(\d+)/)[0] - 1;
push @sortcode, "\$${a}->[$col] $op \$${b}->[$col]";
$col++;
}
my $sortfunc = eval "sub { " . join (" or ", @sortcode) . " } ";
my $splitfunc = eval 'sub { (split /$sep/o, $_)[@col] } ';
return
map $_->[0],
sort { $sortfunc->() }
map [$_, $splitfunc->($_)],
@_;
}
------------------------------
Date: 6 Sep 2006 13:31:41 -0700
From: usenet@DavidFilmer.com
Subject: Re: Numerical sort (Schwartzian xform)
Message-Id: <1157574701.084177.6580@e3g2000cwe.googlegroups.com>
Jorge wrote:
> my @sorted_array = &SchwartzianTransform(' ', ['1n', -1], @array);
>
> with expectations of it returning an array that is sorted on the
> numerical 1st column (2-place floats)
waitaminute - you want to sort an array on the first column? Why not
just sort the array:
sort @array
If your data is consistent (^\d\d\.\d\d) this is all you need to do.
--
David Filmer (http//DavidFilmer.com)
------------------------------
Date: Wed, 06 Sep 2006 20:51:59 GMT
From: Ala Qumsieh <noreply@invalid.net>
Subject: Re: Numerical sort (Schwartzian xform)
Message-Id: <PxGLg.21733$kO3.2511@newssvr12.news.prodigy.com>
usenet@DavidFilmer.com wrote:
> Jorge wrote:
>> my @sorted_array = &SchwartzianTransform(' ', ['1n', -1], @array);
>>
>> with expectations of it returning an array that is sorted on the
>> numerical 1st column (2-place floats)
>
> waitaminute - you want to sort an array on the first column? Why not
> just sort the array:
> sort @array
>
> If your data is consistent (^\d\d\.\d\d) this is all you need to do.
It is safer to not make such an assumption, and the solution isn't much more
complicated anyway:
sort {$a <=> $b} @array;
--Ala
------------------------------
Date: 6 Sep 2006 13:54:07 -0700
From: "Jorge" <awkster@yahoo.com>
Subject: Re: Numerical sort (Schwartzian xform)
Message-Id: <1157576047.790991.93170@m79g2000cwm.googlegroups.com>
A straight sort was my first attempt ...
@sorted_array = sort @array;
foreach $line(@sorted_array){print "$line";}
and it produces the original unsorted array so I thought possibly the
problem had something to do with how sorting works (ascii, alpha,
numerical, lexical, whatever) and that I had to point it to the first
column and ask for a numerical sort ... hence my attempt at the
schwartzian transform.
usenet@DavidFilmer.com wrote:
> Jorge wrote:
> > my @sorted_array = &SchwartzianTransform(' ', ['1n', -1], @array);
> >
> > with expectations of it returning an array that is sorted on the
> > numerical 1st column (2-place floats)
>
> waitaminute - you want to sort an array on the first column? Why not
> just sort the array:
> sort @array
>
> If your data is consistent (^\d\d\.\d\d) this is all you need to do.
>
> --
> David Filmer (http//DavidFilmer.com)
------------------------------
Date: 6 Sep 2006 21:04:22 GMT
From: anno4000@radom.zrz.tu-berlin.de
Subject: Re: Numerical sort (Schwartzian xform)
Message-Id: <4m8remF52ltfU1@news.dfncis.de>
Jorge <awkster@yahoo.com> wrote in comp.lang.perl.misc:
> I'm running ActiveState perl 5.8.8 on XP
>
> While working on my dog racing program, I build an array containing
> these strings which are numerically indexed 1 thru 8 by the last
> column.
>
> 31.43 32 1005.89 Figs Domino 1
> 31.62 17 537.57 Boc's Skater 2
> 31.85 18 573.34 Reward Crystal 3
> 31.54 27 851.47 Db Miss Buxley 4
> 31.78 13 413.17 Ucme Lola 5
> 31.96 12 383.46 Bayou Jasmine 6
> 31.62 14 442.62 Y's Flirt 7
> 31.46 30 943.88 Sheriff Wade 8
>
> I pass the array to my schwartzian transform sub routine using this
> call ...
>
> my @sorted_array = &SchwartzianTransform(' ', ['1n', -1], @array);
>
> with expectations of it returning an array that is sorted on the
> numerical 1st column (2-place floats) but it always returns the
> original array.
For me it returns the sorted array. Show a complete, runnable
program that shows the behavior you are seeing.
Anno
------------------------------
Date: 6 Sep 2006 15:02:21 -0700
From: "Jorge" <awkster@yahoo.com>
Subject: Re: Numerical sort (Schwartzian xform)
Message-Id: <1157580141.291959.153330@m79g2000cwm.googlegroups.com>
anno4000@radom.zrz.tu-berlin.de wrote:
> Jorge <awkster@yahoo.com> wrote in comp.lang.perl.misc:
> > I'm running ActiveState perl 5.8.8 on XP
> >
> > While working on my dog racing program, I build an array containing
> > these strings which are numerically indexed 1 thru 8 by the last
> > column.
> >
> > 31.43 32 1005.89 Figs Domino 1
> > 31.62 17 537.57 Boc's Skater 2
> > 31.85 18 573.34 Reward Crystal 3
> > 31.54 27 851.47 Db Miss Buxley 4
> > 31.78 13 413.17 Ucme Lola 5
> > 31.96 12 383.46 Bayou Jasmine 6
> > 31.62 14 442.62 Y's Flirt 7
> > 31.46 30 943.88 Sheriff Wade 8
> >
> > I pass the array to my schwartzian transform sub routine using this
> > call ...
> >
> > my @sorted_array =3D &SchwartzianTransform(' ', ['1n', -1], @array);
> >
> > with expectations of it returning an array that is sorted on the
> > numerical 1st column (2-place floats) but it always returns the
> > original array.
>
> For me it returns the sorted array. Show a complete, runnable
> program that shows the behavior you are seeing.
>
> Anno
Here is the program which requires a dedicated directory named
c:\dogs\tonight which contains the data file (at the end of the post --
truncated to save bandwidth).
snip<------ program starts here ------>snip
#!perl -lw
use warnings;
use strict;
use File::Path;
&createIndividualDogsFiles("c:\\dogs\\tonight");
sub createIndividualDogsFiles{
my(@filesArr, $filesArr, $dir, $path, $total, $totalCnt, $avg);
my($phx, $day, $mon, $dat, $yr, $matEve, $Race, $raceNum, $Grade);
my($gradeLet, $Dist, $distNum, $race, $numOfRaces, $racesAdded, $ans);
my($vaultFile, $raceArr, $dogName, $todaysPostNum, $finalTime,
$field1);
my $flag =3D 0;
my @resultsArr =3D ();
my $weight;
my $pp;
my($junk1, $junk2, $junk3);
my(@array, $array, $string, @sorted_array, $line);
$dir =3D shift;
unless (opendir(DIR, $dir)) {
warn "Can't open $dir\n";
closedir(DIR);
return;
}
foreach (readdir(DIR)) {
next if $_ eq '.' || $_ eq '..';
$path =3D "$dir\\$_";
if (-d $path) { # a directory
&createIndividualDogsFiles($path);
} elsif ( -f _) { # a plain file
open(IN, "$path") || die "Can't open $path for read: $!";
while(<IN>){
next if /^\s*$/ || /______/ || /=3D=3D=3D=3D=3D=3D/ || / Owner / || / T=
rn /;
s/\s+\Z//;
if($_ =3D~ /Rosnet\,/ && $_ =3D~ /Race [0-9]/){
($junk1, $junk2, $junk3, $phx, $day, $mon, $dat, $yr, $matEve,
$Race,
$raceNum, $Grade, $gradeLet, $Dist, $distNum) =3D split(' ', $_,
14);
$race =3D "$Race"."_"."$raceNum"."_"."$gradeLet";
print "\n$race\n=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D";
}
elsif($_ !~ /Rosnet\,/ && $_ =3D~ /Race [0-9]/){
($phx, $day, $mon, $dat, $yr, $matEve, $Race, $raceNum,
$Grade, $gradeLet, $Dist, $distNum) =3D split(' ', $_, 12);
$race =3D "$Race"."_"."$raceNum"."_"."$gradeLet";
print "\n$race\n=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D";
}
elsif($_ =3D~ /Ken / && $_ =3D~ / Grade /){
$total =3D 0; $totalCnt =3D 0; $avg =3D 0;
$todaysPostNum =3D substr($_, 0, 1);
$dogName =3D substr($_, 2, 18);
$vaultFile =3D "c:\\dogs\\vault\\$dogName";
open(VDOG, "$vaultFile") || die "Can't open $vaultFile for
reading: $!";
while(<VDOG>){
my @stats =3D split(' ', $_);
my $fraction =3D $stats[1];
$total +=3D $fraction;
++$totalCnt;
}
close(VDOG);
if($totalCnt > 0){
$avg =3D $total / $totalCnt;
$string =3D sprintf("%.2f %-3s%-8s%-20s%-2s", $avg, $totalCnt,
$total, $dogName, $todaysPostNum);
push(@array, $string);
}else{
$string =3D "$todaysPostNum $dogName --- No Data ---";
push(@array, $string);
}
}
@sorted_array =3D &SchwartzianTransform(' ', ['1n', -1], @array);
foreach $line(@sorted_array){
print "$line";
}
@array =3D ();
@sorted_array =3D ();
}
close(IN);
}
}
closedir(DIR);
}
#=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D
# SUBROUTINE SchwartzianTransform
#=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D
sub SchwartzianTransform{
my ($sep, $cols);
if (ref $_[0]) {
$sep =3D '\\s+'
} else {
$sep =3D shift;
}
unless (ref($cols =3D shift) eq 'ARRAY') {
die "fieldsort columns must be in anon array";
}
my (@sortcode, @col);
my $col =3D 1;
for (@$cols) {
my ($a, $b) =3D /^-/ ? qw(b a) : qw(a b);
my $op =3D /n$/ ? '<=3D>' : 'cmp';
push @col, (/(\d+)/)[0] - 1;
push @sortcode, "\$${a}->[$col] $op \$${b}->[$col]";
$col++;
}
my $sortfunc =3D eval "sub { " . join (" or ", @sortcode) . " } ";
my $splitfunc =3D eval 'sub { (split /$sep/o, $_)[@col] } ';
return
map $_->[0],
sort { $sortfunc->() }
map [$_, $splitfunc->($_)],
@_;
}
__END__
snip<----- data file ------>snip
Rosnet,Inc - Greyhound RacingPhoenix Tuesday Sep
05 2006 Evening Race 1 Grade D Dist 550
1 Figs Domino Ken Olsker Kennel Corp PH 44 5 8 4
5 Hi Grade - A Lo Grade - D
Trn Tim Olsker PH 9 3 1 0
2 Best Time 30.85
Black M 6/5/2004 Courageous Nicky Figs Cher Owner Dick Figurilli
PH09-01-06E 03 550 F 31.07 77=BD 5 2 2 3 3 5 31.44 05.30 D
Bumped 1st Turn GecMartin Gablicious Chsm'sIndy 8
PH08-27-06E 13 550 F 31.58 77 5 7 4 4 4 8 32.13 07.80 D
Evenly, Inside Rd'sQuenAn GlsRustler Boc'sAttid 8
PH08-21-06E 13 550 F 31.82 76=BD 1 1 1 2 1 2 2 1=BD 31.92 05.30 D
Outfinished, Inside WntsAndNed KmaDiesel RwardFrsty 8
PH08-15-06E 03 550 F 31.16 77 3 6 4 5 6 10 31.85 27.60 C
Wide In Stretches KayFrbidng UsGoldenRl PatCPayabl 8
PH08-09-06E 11 550 S 31.75 78 3 4 6 6 6 14 32.77 21.50 C
Bumped 1st Turn CstarDesrt He'sOnThRn Flea'sCuti 8
PH08-04-06E 15 550 F 30.81 77 7 5 4 4 6 14 31.79 12.30 C
Offstride Far Turn StatUSDarD Bc'sLilNck AngelcBaty 7
___________________________________________________________________________=
______________________________________________
2 Boc's Skater Ken Bret Pachello PH 18 1 1 2
5 Hi Grade - B Lo Grade - D
Trn Michael Robinette PH 0 0 0 0
0 Best Time 31.05
Brindle M 3/12/2003 Trojan Cruze Contradiction Owner Brad Boeckenstedt
PH09-01-06E 01 550 F 31.19 75=BD 6 2 2 4 8 16 32.35 12.40 D
Bumped Homestretch Absolm KmaKatnamo TvDamndbck 8
PH08-28-06S 07 550 F 31.86 75=BD 7 4 2 3 5 12 32.74 ----- SD
Faded Far Turn Rlm'sBrwsr Boc'sMvnOn CldwaterIr 6
PH08-24-06S 08 550 F 31.6 77 1 2 1 hd 1 =BD 3 5 31.96 ----- SD
Outfinished, Inside Kaynta DjaysBlstO Boc'sBluBy 6
PH06-26-06E 01 550 F 31.37 74 4 6 5 5 5 8 31.91 11.50 D
Never Prominent Rj'sAntiEm BcAllstar MaraTheSam 7
PH06-18-06E 09 550 F 31 74=BD 3 1 5 7 7 14 32.03 19.30 D
Early Threat, Faded LowFlynRck RagingSurf FigsDomino 8
PH06-11-06E 03 550 F 30.77 74=BD 3 2 5 7 8 28 32.74 10.30 D
Collided 1st Turn Rd'sUndo UsLateShow TuffyTitan 8
___________________________________________________________________________=
______________________________________________
3 Reward Crystal Ken Gloria Dorsey PH 20 4 1 1
1 Hi Grade - C Lo Grade - M
Trn Patrick Phillips 0 0 0 0
0 Best Time 30.94
Dark Brindle F 9/13/2004 Wigwam Hoss Hkw Pongacrystal Owner Dr. Carl
E=2E Ward
PH08-31-06E 09 550 F 31.06 59=BD 4 4 5 7 8 10 31.78 10.20 D
Steady Fade KrazyAsKat AmfAdroit JupiterTym 8
PH08-27-06E 07 550 F 31.65 59 2 3 2 4 6 10 32.34 04.90 D
Steady Fade ThinkMore UcmeKimmi Auster 8
PH08-21-06E 03 550 F 31.66 60 7 3 2 6 7 11 32.44 04.40 D
Crowded Backstr & Fa Wayn'sBbyd KaycarDshr FgsSmallBs 8
PH08-17-06E 01 550 F 31.21 60 6 2 2 2 2 5=BD 31.59 12.90 D
Chased Winner, Insid GpherChcks BcGeeHoney KmWhodoVoo 8
PH08-12-06E 13 550 F 31.15 59=BD 6 5 5 6 8 12 32.04 10.90 C
Never A Threat GlsRedalrt RsSammy HeyKnocker 8
PH08-06-06E 15 550 S 31.54 59 8 2 2 2 4 9 32.15 22.70 C
Weakened Hmstrch, In CldwterThe FigsMona GrysSnKing 8
___________________________________________________________________________=
______________________________________________
4 Db Miss Buxley Ken Olsker Kennel Corp PH 35 1 8 5
9 Hi Grade - C Lo Grade - J
Trn Tim Olsker PH 60 5 8 5
7 Best Time 31.13
White Black Bd. F 7/6/2003 Craigie Glen Db Cinema Owner Duran Bros.
PH09-01-06E 17 550 F 31.38 54=BD 1 1 5 4 4 10 32.11 05.20 C
Bumped 1st Turn FlthyMcNst DafodlDbrh SavvyLouis 8
PH08-27-06E 11 550 F 31.29 54 8 8 8 8 8 17 32.49 11.60 C
Bumped 1st Turn Kane'sRchl Brilntcrnr Rlm'sLardo 8
PH08-23-06E 11 550 F 31.62 54=BD 6 2 2 3 4 6 32.06 05.30 C
Outfinished, Inside NatashaLyn I'llTwThen DafodlDbrh 8
PH08-19-06E 17 550 S 32.08 54 3 7 4 5 7 11 32.92 08.10 C
Some Fade CruzenWili Brilntcrnr NatashaLyn 8
PH08-14-06E 02 550 F 31.56 55=BD 2 1 2 2 2 =BD 31.61 07.00 C
Almost Up, Inside RagingSurf BellaAwacs Brilntcrnr 8
PH08-09-06E 09 550 S 31.98 55 2 2 3 6 8 10 32.73 04.50 C
Early Threat, Faded BestBetsy Rd'sNabsco RagingSurf 8
___________________________________________________________________________=
______________________________________________
5 Ucme Lola Ken Fidel Or Silvia SambadePH 24 1 4 3
4 Hi Grade - C Lo Grade - J
Trn Willie Davis 0 0 0 0
0 Best Time 31.05
Red F 2/19/2004 Ww Night Rider Passion Plan Owner Sherry De Witt Or
Shelly Rangel
PH08-31-06E 05 550 F 31.4 61=BD 2 6 5 5 6 13 32.37 04.50 D
Offstr 1st Tn - Blck StatUSJyze CldwatrKck HindSight 8
PH08-25-06E 01 550 F 31.45 61=BD 3 7 8 7 8 19 32.84 05.90 D
Bumped 1st & Homestr OddMonica AcMyPrsasn IrskaRedMg 8
PH08-20-06E 09 550 F 31.6 60 5 7 4 3 2 4 31.89 *03.50 D
Offstride Early Beemr Maybemybnt Twistedmnt 8
PH08-15-06E 09 550 F 30.75 60 5 5 3 2 2 10 31.52 06.20 D
Next Best, Midtrack Cherryprsp Boc'sSnoke MoonMtCrky 8
PH08-09-06E 01 550 S 31.42 60 7 4 3 2 2 4=BD 31.73 14.00 D
Followed The Pace, M WhiskeyWhs CajunVal SweetAzArz 7
PH08-05-06E 07 550 S 32.26 60=BD 4 5 5 3 4 12 33.14 06.50 D
Bumped 1st Turn FgsArmstrn NotAzChocl Hj'sTyler 8
___________________________________________________________________________=
______________________________________________
6 Bayou Jasmine Ken George Fune PH 18 1 0 2
5 Hi Grade - D Lo Grade - J
Trn Dorothy Fune 0 0 0 0
0 Best Time 31.62
Brindle F 4/3/2004 Oshkosh Slammer Mesa Greatone Owner Van Strother
PH09-01-06E 07 550 F 31.25 58 5 8 5 5 5 7 31.76 15.50 D
Bumped 1st Turn Auster SherifWade FgsSmallBs 8
PH08-28-06E 11 550 F 31.36 57 2 7 8 8 8 13 32.32 42.90 D
Bumped 1st Turn UsValeyFrg SltaryChrg See URound 8
PH08-24-06E 07 550 F 30.9 57=BD 1 7 8 7 7 20 32.35 07.80 D
Always Back GecHottie UsValeyFrg DutchLilAn 8
PH08-18-06E 03 550 F 31.26 58 5 8 6 6 4 9 31.88 05.30 D
Sht Off Erly - Frcd CstarTaran FgsDarkKal UcmeJoe 8
PH08-12-06E 05 550 F 31.62 57=BD 5 6 4 2 1 1=BD 31.62 15.40 J
Drove To Win, Midtra ChicagMcky UsLandRovr BcBillyBoy 8
PH08-03-06E 05 550 F 31.21 57 7 6 5 5 3 8=BD 31.81 21.10 J
Bumped 1st Turn SpicyDream BubleGmFev KayCeeSasn 7
___________________________________________________________________________=
______________________________________________
7 Y's Flirt Ken Fidel Or Silvia SambadePH 18 3 1 2
2 Hi Grade - C Lo Grade - M
Trn Willie Davis 0 0 0 0
0 Best Time 31.03
Black M 7/4/2004 Oshkosh Slammer Tm's Merry Pace Owner Silvia Sambade
PH08-26-06E 07 550 F 31.81 74 6 5 6 6 6 10 32.51 08.70 D
Bumped 1st Turn Rd'sVictor Fla'sHiway IrskaMyrtl 8
PH08-17-06E 01 550 F 31.21 74 1 6 5 5 7 11 31.99 05.30 D
Offstride 1st & Far GpherChcks RwardCryst BcGeeHoney 8
PH08-11-06E 17 550 M 31.17 75 6 4 5 5 7 22 32.75 09.10 C
Crowded Far Turn ClSpeedie I'llTwThen Rd'sKates 7
PH08-07-06E 14 550 S 31.47 73 6 6 4 4 6 13 32.43 12.70 C
Late Fade SlitaryAsh GecHenry RewrdRedGr 7
PH08-03-06E 09 550 F 31.1 73=BD 3 6 7 8 8 16 32.24 14.60 C
Bumped 1st Turn DtchDaniel RagingSurf RsSammy 8
PH07-29-06E 17 550 F 30.5 73=BD 1 5 5 6 4 16 31.62 03.50 C
Varied Little, Insid AndrwsPstc UssVentura FigsIou 8
___________________________________________________________________________=
______________________________________________
8 Sheriff Wade Ken Lonnie Boyle PH 34 4 6 1
7 Hi Grade - B Lo Grade - D
Trn Jamie Boyle PH 18 1 3 4
5 Best Time 30.79
Black M 3/13/2004 Scorcher's Ace Dawn's Earlylite Owner Howard L.
Marshall
PH09-01-06E 07 550 F 31.25 76=BD 2 2 2 2 2 2 31.38 07.70 D
Followed The Pace, I Auster FgsSmallBs UcmeKimmi 8
PH08-27-06E 01 550 F 31.73 77=BD 7 8 8 8 8 10 32.42 21.50 D
Offstride 1st Turn LitlLisaLo HindSight IvansImage 8
PH08-22-06E 09 550 F 31.42 75 4 2 5 5 8 14 32.44 08.10 D
Dropped Back Early BcGeeHoney MoonMtBomr KmaKatnamo 8
PH08-17-06S 06 550 F 31.27 76=BD 6 2 4 4 4 10 31.99 ----- SD
Slight Factor, Insid GecMartin Vl ColdwterDn 7
PH07-30-06E 13 550 F 30.99 76=BD 1 3 5 5 5 7=BD 31.52 03.40 D
Never Prominent FigsMona Insider'sG QalityChic 8
PH07-24-06E 01 550 F 31.02 77 4 6 5 4 4 6 31.45 03.40 D
Bumped At Break & Ea FgsconchCr CldwatrKck ImaKtyDdgr 8
___________________________________________________________________________=
______________________________________________
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D
------------------------------
Date: 6 Sep 2006 11:57:53 -0700
From: mattjones@hotmail.co.uk
Subject: Re: Pattern Matching and skipping
Message-Id: <1157569073.235845.199040@b28g2000cwb.googlegroups.com>
>
> Use the 'else' section of the if statement to tell perl what
> to do when FASTSEARCH and conflicting are not there.
>
> if (condition) {
> ... code ...
> } else {
> ... code ...
> }
ok thanks - i thought i had tried that today but ill give it another
shot tomorrow... perhaps i put the curly brackets in the wrong way!
------------------------------
Date: 6 Apr 2001 21:33:47 GMT (Last modified)
From: Perl-Users-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 6 Apr 01)
Message-Id: <null>
Administrivia:
#The Perl-Users Digest is a retransmission of the USENET newsgroup
#comp.lang.perl.misc. For subscription or unsubscription requests, send
#the single line:
#
# subscribe perl-users
#or:
# unsubscribe perl-users
#
#to almanac@ruby.oce.orst.edu.
NOTE: due to the current flood of worm email banging on ruby, the smtp
server on ruby has been shut off until further notice.
To submit articles to comp.lang.perl.announce, send your article to
clpa@perl.com.
#To request back copies (available for a week or so), send your request
#to almanac@ruby.oce.orst.edu with the command "send perl-users x.y",
#where x is the volume number and y is the issue number.
#For other requests pertaining to the digest, send mail to
#perl-users-request@ruby.oce.orst.edu. Do not waste your time or mine
#sending perl questions to the -request address, I don't have time to
#answer them even if I did know the answer.
------------------------------
End of Perl-Users Digest V10 Issue 9693
***************************************
