[29903] in Perl-Users-Digest
Perl-Users Digest, Issue: 1146 Volume: 11
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Thu Jan 3 00:29:38 2008
Date: Wed, 2 Jan 2008 21:29:31 -0800 (PST)
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, 2 Jan 2008 Volume: 11 Number: 1146
Today's topics:
Re: Regex to remove non printable characters <dontmewithme@got.it>
Re: Regex to remove non printable characters <jurgenex@hotmail.com>
Re: Regex to remove non printable characters <dontmewithme@got.it>
Re: Regex to remove non printable characters <jurgenex@hotmail.com>
Re: Regex to remove non printable characters <dontmewithme@got.it>
Re: Regex to remove non printable characters <dontmewithme@got.it>
Re: Regex to remove non printable characters <dontmewithme@got.it>
Re: Regex to remove non printable characters <jurgenex@hotmail.com>
Re: Regex to remove non printable characters <jurgenex@hotmail.com>
Re: Regex to remove non printable characters <dontmewithme@got.it>
Re: Regex to remove non printable characters <dontmewithme@got.it>
Re: Regex to remove non printable characters <ced@blv-sam-01.ca.boeing.com>
Re: removing ASCII escape chars from output <TC4dotbiz@gmail.com>
Re: removing ASCII escape chars from output <benoit.lefebvre@gmail.com>
reopen the file <vijay@iavian.com>
Re: reopen the file <peter@makholm.net>
Re: reopen the file <vijay@iavian.com>
Re: simple bar chart module <lemonhall@gmail.com>
web automation <chaobrenda@gmail.com>
Re: web automation himanshu.garg@gmail.com
Re: web automation <cwilbur@chromatico.net>
Re: web automation <bik.mido@tiscalinet.it>
Re: Win32::OLE ADO Table Field names <wheeledBobNOSPAM@yahoo.com>
Re: Win32::OLE ADO Table Field names <goldtech@worldpost.com>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Mon, 24 Dec 2007 02:29:45 +0100
From: Larry <dontmewithme@got.it>
Subject: Re: Regex to remove non printable characters
Message-Id: <dontmewithme-57E0B3.02294524122007@news.tin.it>
In article <p57tm3dqffe88o8gcepbn8fbbh7tnat5dl@4ax.com>,
J?rgen Exner <jurgenex@hotmail.com> wrote:
> And he still didn't tell us if he wanted to remove non-ASCII or
> non-printable, two very different categories which have no relationship with
> each other whatsoever.
I have yet to understand the differences...in the meanwhile I think I'll
settle for the following:
tr/\x80-\xFF//d;
thanks
------------------------------
Date: Mon, 24 Dec 2007 03:52:30 GMT
From: Jürgen Exner <jurgenex@hotmail.com>
Subject: Re: Regex to remove non printable characters
Message-Id: <ib8um3h9dgpeg3q6idl2v7p528tn5rjmgp@4ax.com>
Larry <dontmewithme@got.it> wrote:
>In article <p57tm3dqffe88o8gcepbn8fbbh7tnat5dl@4ax.com>,
> J?rgen Exner <jurgenex@hotmail.com> wrote:
>
>> And he still didn't tell us if he wanted to remove non-ASCII or
>> non-printable, two very different categories which have no relationship with
>> each other whatsoever.
>
>I have yet to understand the differences..
Well, there is no communallity at all. It's two totally different things,
like colour and texture. A specific object can be green and smooth or green
and rough or blue and rough or blue and smooth or whatever combination you
can imagine.
Non-printable characters are characters that don't have a glyph assigned to
them and therefore cannot be printed. Another word for them is control
characters and they include e.g. line feed, carriage return, delete,
backspace, end-of-transmission, header start, etc., etc.
In ASCII and most other modern code pages the non-printable characters are
in the range 0x00 to 0x1F and 0x7F.
Non-ASCII characters on the other hand are characters that are not included
in the 7-bit ASCII encoding at all like e.g. symbols, graphics, and what
some people refer to as 'extended' characters like German umlauts, French
and Spanish accented characters, scandinavian extended characters, but also
Greek, Cyrillic, Arabic,Chinese, ... characters. Basically anything you can
imagine that is not typically used in the English language or that's not on
a US typewriter.
That's not surprising because as the name suggests ASCII is an _AMERICAN_
Standard Code for Information Interchange and Lyndon B. Johnson surely
didn't care about the rest of the world when he mandated its use back in
1968.
For e.g. ISO-Latin-1 those non-ASCII characters would be
Ax NBSP ¡ ¢ £ ¤ ¥ ¦ § ¨ ©
ª « ¬ SHY ® ¯
Bx ° ± ² ³ ´ µ ¶ · ¸ ¹
º » ¼ ½ ¾ ¿
Cx À Á Â Ã Ä Å Æ Ç È É
Ê Ë Ì Í Î Ï
Dx Ð Ñ Ò Ó Ô Õ Ö × Ø Ù
Ú Û Ü Ý Þ ß
Ex à á â ã ä å æ ç è é
ê ë ì í î ï
Fx ð ñ ò ó ô õ ö ÷ ø ù
ú û ü ý þ ÿ
However almost all non-ASCII characters do have a glyph and obviously they
can be printed very well(*), just see the list above.
Or do you really think I would just omit the second letter of my first name
'Jürgen' when printing it?
*1: You could argue if the NBSP and and in particular SHY are printable or
not because they have an additional semantic on top of their (blank resp.
dash) glyphs.
*2: There are exceptions in the code pages for more exotic languages
(Arabic, Thai, Tamil, ...) , where some characters my not have a glyph
assigned but instead they alter the appearence and/or the meaning of
preceeding or following characters.
jue
------------------------------
Date: Mon, 24 Dec 2007 07:55:39 +0100
From: Larry <dontmewithme@got.it>
Subject: Re: Regex to remove non printable characters
Message-Id: <dontmewithme-52292B.07553924122007@news.tin.it>
In article <ib8um3h9dgpeg3q6idl2v7p528tn5rjmgp@4ax.com>,
Jürgen Exner <jurgenex@hotmail.com> wrote:
> Well, there is no communallity at all. It's two totally different things,
> like colour and texture. A specific object can be green and smooth or green
> and rough or blue and rough or blue and smooth or whatever combination you
> can imagine.
ok...to me those are ascii printable chars:
#!/usr/bin/perl
use strict;
use warnings;
for my $k (33 .. 126)
{
print "$k => " . chr($k) . "\n";
}
plus chr(10) and chr(13)
------------------------------
Date: Mon, 24 Dec 2007 07:19:17 GMT
From: Jürgen Exner <jurgenex@hotmail.com>
Subject: Re: Regex to remove non printable characters
Message-Id: <admum3105kdr925009lkfm0o8v5q8jfqke@4ax.com>
Larry <dontmewithme@got.it> wrote:
>ok...to me those are ascii printable chars:
>
>#!/usr/bin/perl
>
>use strict;
>use warnings;
>
>for my $k (33 .. 126)
>{
> print "$k => " . chr($k) . "\n";
>}
Agreed, those characters are the intersection of the set of printable
characters and the set of ASCII characters, except that commonly the space
character 0x20 is considered a printable character, too. It just has a blank
glyph.
>plus chr(10) and chr(13)
This however conflicts with customary understanding. From "perldoc perlre"
on POSIX character classes:
print
Any alphanumeric or punctuation (special) character or space.
While on the other hand
cntrl
Any control character. Usually characters that don't produce output
as such but instead control the terminal somehow: for example
newline and backspace are control characters. All characters with
ord() less than 32 are most often classified as control characters
(assuming ASCII, the ISO Latin character sets, and Unicode).
It appears LF and CR are control characters, not printable characters. After
all why should LF be a printable character but its cousin FF not?
jue
------------------------------
Date: Mon, 24 Dec 2007 11:56:23 +0100
From: Larry <dontmewithme@got.it>
Subject: Re: Regex to remove non printable characters
Message-Id: <dontmewithme-6700AB.11562324122007@news.tin.it>
In article <admum3105kdr925009lkfm0o8v5q8jfqke@4ax.com>,
J?rgen Exner <jurgenex@hotmail.com> wrote:
> Agreed, those characters are the intersection of the set of printable
> characters and the set of ASCII characters, except that commonly the space
> character 0x20 is considered a printable character, too. It just has a blank
> glyph.
by the way, I'd like to get rid of 0x00 also! The thing is that I'm
coding a _strip bad chars_ sub and I would like to keep only 0x20 0x13
0x10 and those ranging from 0x21 to 0x7E
is that doable?
thanks
------------------------------
Date: Mon, 24 Dec 2007 12:00:33 +0100
From: Larry <dontmewithme@got.it>
Subject: Re: Regex to remove non printable characters
Message-Id: <dontmewithme-4475E9.12003324122007@news.tin.it>
In article <dontmewithme-6700AB.11562324122007@news.tin.it>,
Larry <dontmewithme@got.it> wrote:
> 0x20 0x13
> 0x10 and those ranging from 0x21 to 0x7E
I'm hopeless at hex values...let's say:
chr(10)
chr(13)
chr(32) to chr(126)
thanks
------------------------------
Date: Mon, 24 Dec 2007 12:11:53 +0100
From: Larry <dontmewithme@got.it>
Subject: Re: Regex to remove non printable characters
Message-Id: <dontmewithme-D3B955.12115324122007@news.tin.it>
In article <dontmewithme-4475E9.12003324122007@news.tin.it>,
Larry <dontmewithme@got.it> wrote:
> I'm hopeless at hex values...let's say:
>
> chr(10)
> chr(13)
> chr(32) to chr(126)
>
> thanks
well, for the moment I'll go along with keeping those ranging from 0x20
to 0x7E ... so that I don't have to chomp and all...
------------------------------
Date: Mon, 24 Dec 2007 19:04:35 GMT
From: Jürgen Exner <jurgenex@hotmail.com>
Subject: Re: Regex to remove non printable characters
Message-Id: <pe00n3ti8rqt6b5a4lapvk37boisheo980@4ax.com>
Larry <dontmewithme@got.it> wrote:
> J?rgen Exner <jurgenex@hotmail.com> wrote:
> The thing is that I'm
>coding a _strip bad chars_ sub and I would like to keep only 0x20 0x13
>0x10 and those ranging from 0x21 to 0x7E
Thank you for calling me a person with a bad char.
*PLONK*
jue
------------------------------
Date: Mon, 24 Dec 2007 19:16:36 GMT
From: Jürgen Exner <jurgenex@hotmail.com>
Subject: Re: Regex to remove non printable characters
Message-Id: <tb10n3tb1f61d5v99jbs6kqkpl9sjisqkc@4ax.com>
Larry <dontmewithme@got.it> wrote:
>In article <dontmewithme-4475E9.12003324122007@news.tin.it>,
> Larry <dontmewithme@got.it> wrote:
>
>> I'm hopeless at hex values...let's say:
>>
>> chr(10)
>> chr(13)
>> chr(32) to chr(126)
>>
>> thanks
>
>well, for the moment I'll go along with keeping those ranging from 0x20
>to 0x7E ... so that I don't have to chomp and all...
What a concept!
I am giving up.
jue
------------------------------
Date: Mon, 24 Dec 2007 20:33:22 +0100
From: Larry <dontmewithme@got.it>
Subject: Re: Regex to remove non printable characters
Message-Id: <dontmewithme-ACD14E.20332124122007@news.tin.it>
In article <tb10n3tb1f61d5v99jbs6kqkpl9sjisqkc@4ax.com>,
J?rgen Exner <jurgenex@hotmail.com> wrote:
> What a concept!
> I am giving up.
please don't! it's xmas time after all...
i need this to get values (commands) from CGI->param and need to get rid
of those chars
------------------------------
Date: Tue, 25 Dec 2007 01:39:26 +0100
From: Larry <dontmewithme@got.it>
Subject: Re: Regex to remove non printable characters
Message-Id: <dontmewithme-332EE3.01392525122007@news.tin.it>
In article <fkj72b$1n26$1@ns.felk.cvut.cz>,
"Petr Vileta" <stoupa@practisoft.cz> wrote:
> my $input =~ s/[\x00-\x09\x0B\x0C\x0E-\x1F\x80-\xFF]//g;
thank you so much ... btw, what is chr (127) ??
I think I'll make it this way:
$input =~ s/[\x00-\x09\x0B\x0C\x0E-\x1F\x7F-\xFF]//g;
thanks
------------------------------
Date: Mon, 24 Dec 2007 21:47:19 -0800 (PST)
From: "comp.llang.perl.moderated" <ced@blv-sam-01.ca.boeing.com>
Subject: Re: Regex to remove non printable characters
Message-Id: <afb43c72-2651-4b81-90b6-f10eba13d503@s12g2000prg.googlegroups.com>
On Dec 24, 11:04 am, J=FCrgen Exner <jurge...@hotmail.com> wrote:
> Larry <dontmewit...@got.it> wrote:
> > J?rgen Exner <jurge...@hotmail.com> wrote:
> > The thing is that I'm
> >coding a _strip bad chars_ sub and I would like to keep only 0x20 0x13
> >0x10 and those ranging from 0x21 to 0x7E
>
> Thank you for calling me a person with a bad char.
>
> *PLONK*
>
Wow, I thought for sure you'd finish with a
smiley after that wonderful flash of wit....
Of course, maybe you were sitting in a bad
"char" :)
--
Charles DeRykus
------------------------------
Date: Sun, 23 Dec 2007 22:00:11 -0800 (PST)
From: DennyTC4 <TC4dotbiz@gmail.com>
Subject: Re: removing ASCII escape chars from output
Message-Id: <68fb0753-5b01-41fe-9c3d-29623f9f31b1@e23g2000prf.googlegroups.com>
Is the data in the same place everytime? Are the fields static? If so,
count and delte.
On Dec 22, 2:40 pm, SuperG...@gmail.com wrote:
> Hello all,
>
> I have some output that looks like this
>
> $B"+(B[21;32H1700$B"+(B[21;44HTC HUMATHROPE
>
> and I am trying to extract the 1700 and HTC HUMATHROPE. Can someone
> point me in the right direction?
>
> thanks!
------------------------------
Date: Mon, 24 Dec 2007 10:33:30 -0800 (PST)
From: Benoit Lefebvre <benoit.lefebvre@gmail.com>
Subject: Re: removing ASCII escape chars from output
Message-Id: <dc10a4eb-d99d-4a5a-be27-18596bbf2fc6@i12g2000prf.googlegroups.com>
On Dec 23, 3:39 am, "John W. Krahn" <kra...@telus.net> wrote:
> On Sat, 22 Dec 2007 14:40:40 -0800 (PST)
>
> SuperG...@gmail.com wrote:
> > Subject: removing ASCII escape chars from output
>
> > I have some output that looks like this
>
> > $B"+(B[21;32H1700$B"+(B[21;44HTC HUMATHROPE
>
> There is only one ASCII escape character in there, *the* ASCII escape character. The other characters '[', '2', '1', ';', '3', '2', 'H', etc. are just normal ASCII characters.
>
> > and I am trying to extract the 1700 and HTC HUMATHROPE. Can someone
> > point me in the right direction?
>
> You need to remove the ANSI escape sequences:
>
> http://isthe.com/chongo/tech/comp/ansi_escapes.html
>
> John
> --
> Perl isn't a toolbox, but a small machine shop where you
> can special-order certain sorts of tools at low cost and
> in short order. -- Larry Wall
Because all the ANSI escape sequences are starting with \e[ and ending
with a letter.. Maybe he can do that with a regular expression
for example:
-------------------------
$myText = "$B"+(B[21;32H1700$B"+(B[21;44HTC HUMATHROPE";
$myText =~ s/\e\[[0-9\;]+[A-Za-z]//g;
print $myText. "\n";
-------------------------
------------------------------
Date: Wed, 26 Dec 2007 02:05:11 -0800 (PST)
From: "vijay@iavian.com" <vijay@iavian.com>
Subject: reopen the file
Message-Id: <7ac445c8-fd7e-459a-9926-1a1e8fd1acac@e25g2000prg.googlegroups.com>
open(MAPFILE, $FTP_MAPFILE);
while(<MAPFILE>){
chop;
($user,$file) = split /=/;
if(uc($user) eq uc($userid)){
push(@files,$file);
}
}
close(MAPFILE);
open(MAPFILE, $FTP_MAPFILE);
while(<MAPFILE>){
#do something;
}
In the above code i open the file twice to read . How do i do
something without reopening the file
Th@nks
------------------------------
Date: Wed, 26 Dec 2007 10:08:12 +0000
From: Peter Makholm <peter@makholm.net>
Subject: Re: reopen the file
Message-Id: <874pe53h0z.fsf@hacking.dk>
"vijay@iavian.com" <vijay@iavian.com> writes:
> In the above code i open the file twice to read . How do i do
> something without reopening the file
Read the documentation for the seek function.
//Makholm
------------------------------
Date: Wed, 26 Dec 2007 02:46:00 -0800 (PST)
From: "vijay@iavian.com" <vijay@iavian.com>
Subject: Re: reopen the file
Message-Id: <aa99d6e4-c7a0-4f66-ab70-e7816d7a1c9b@e10g2000prf.googlegroups.com>
On Dec 26, 3:08 pm, Peter Makholm <pe...@makholm.net> wrote:
> Read the documentation for the seek function.
>
> //Makholm
Kool , It works
------------------------------
Date: Mon, 24 Dec 2007 21:56:10 -0800 (PST)
From: LemonHall <lemonhall@gmail.com>
Subject: Re: simple bar chart module
Message-Id: <24a7554c-7e10-4463-8ad8-6a3b3c4ad4ca@x29g2000prg.googlegroups.com>
On 12=D4=C216=C8=D5, =C9=CF=CE=E712=CA=B130=B7=D6, Peter Scott <Pe...@PSDT.c=
om> wrote:
> On Fri, 14 Dec 2007 11:10:59 -0600, Ted Zlatanov wrote:
> > On Fri, 14 Dec 2007 15:19:03 +0000 Ben Morrow <b...@morrow.me.uk> wrote:=
>
> > BM> Quoth smallpond <smallp...@juno.com>:
> > BM> To the OP: what do you actually want? As in, what sort of output do =
you
> > BM> want? If you want an image, you're unlikely to find a non-XS module =
that
> > BM> will help; similarly if you want your program to open a window. If
> > BM> you're happy with a textual output format like SVG, then there's
> > BM> SVG::TT::Graph.
>
> > Google has recently released a Charts API, and there's even a
> > Google::Chart module on CPAN (although it's not yet fully functional).
> > So that's a non-XS method that's pretty fast if you can get to the
> > Google servers and produces nice PNG images...
>
> And if Flash is okay there is the sexy Open Flash Chart:
> http://teethgrinder.co.uk/open-flash-chart/
> http://search.cpan.org/~drolsky/Chart-OFC-0.02/lib/Chart/OFC.pm
>
> Also pure Perl. Unfortunately, it depends on MooseX::Types, which depends=
> on Class::MOP, which has a small piece of XS. But the OP didn't rule out
> compilation altogether, was more objecting to building things outside of
> Perl modules.
>
> --
> Peter Scotthttp://www.perlmedic.com/
Thanks a lot, "Open Flash Chart", this module can display chinese...I
love it.
------------------------------
Date: Sun, 23 Dec 2007 22:34:02 -0800 (PST)
From: byte <chaobrenda@gmail.com>
Subject: web automation
Message-Id: <57bd173b-33ce-4f25-a85e-32a5f128d13f@s8g2000prg.googlegroups.com>
hi there,
can you tell how perl related tool
http://samie.sourceforge.net/
to enable driving IE actions?
as i know, perl is simplely a script tool
BY what way it call ie
------------------------------
Date: Mon, 24 Dec 2007 01:20:07 -0800 (PST)
From: himanshu.garg@gmail.com
Subject: Re: web automation
Message-Id: <2f5e9859-3767-4c6e-a11d-e38f3000112e@s12g2000prg.googlegroups.com>
On Dec 24, 11:34 am, byte <chaobre...@gmail.com> wrote:
> hi there,
> can you tell how perl related tool
>
> http://samie.sourceforge.net/
>
> to enable driving IE actions?
>
> as i know, perl is simplely a script tool
>
> BY what way it call ie
Trust me it works. It uses the Win32:: set of modules to do this.
See the documentation for examples of ways of using it.
Thank You,
HG
------------------------------
Date: 24 Dec 2007 10:08:33 -0500
From: Charlton Wilbur <cwilbur@chromatico.net>
Subject: Re: web automation
Message-Id: <87d4swp1u6.fsf@mithril.chromatico.net>
>>>>> "b" == byte <chaobrenda@gmail.com> writes:
b> hi there, can you tell how perl related tool
b> http://samie.sourceforge.net/
b> to enable driving IE actions?
b> as i know, perl is simplely a script tool
You know wrong; Perl is a full-featured programming language.
b> BY what way it call ie
According to the documentation on the very page you pointed us at, it
sets up one of is subroutines as a COM callback which is invoked
whenever Internet Explorer fires an event.
Charlton
--
Charlton Wilbur
cwilbur@chromatico.net
------------------------------
Date: Mon, 24 Dec 2007 17:39:14 +0100
From: Michele Dondi <bik.mido@tiscalinet.it>
Subject: Re: web automation
Message-Id: <54ovm31vtdidv630q3p9db0g8ardl5g2ih@4ax.com>
On Sun, 23 Dec 2007 22:34:02 -0800 (PST), byte <chaobrenda@gmail.com>
wrote:
>as i know, perl is simplely a script tool
It depends on what you actually mean with "script". See e.g. $Larry's
latest SOTO speech:
http://www.perl.com/pub/a/2007/12/06/soto-11.html
Michele
--
{$_=pack'B8'x25,unpack'A8'x32,$a^=sub{pop^pop}->(map substr
(($a||=join'',map--$|x$_,(unpack'w',unpack'u','G^<R<Y]*YB='
.'KYU;*EVH[.FHF2W+#"\Z*5TI/ER<Z`S(G.DZZ9OX0Z')=~/./g)x2,$_,
256),7,249);s/[^\w,]/ /g;$ \=/^J/?$/:"\r";print,redo}#JAPH,
------------------------------
Date: Mon, 24 Dec 2007 03:31:27 GMT
From: still just me <wheeledBobNOSPAM@yahoo.com>
Subject: Re: Win32::OLE ADO Table Field names
Message-Id: <9t9um3pv7fidov07ge680lbjbdtqsbmrhh@4ax.com>
On Sun, 23 Dec 2007 10:15:38 -0800 (PST), goldtech
<goldtech@worldpost.com> wrote:
It's been a while since I poked around with this... but does this
help?
$rs-> Fields->{Count}; # number of columns for this row
$rs-> Fields( N )->{Name}; # name of the Nth column
$rs-> Fields( N )->{Value}; # value of the Nth column
# extract column names from first record
for my $i ( 0 .. $rs-> Fields->{Count}-1 ) {
$names{ $rs-> Fields(0)->{Name} } = $i;
}
>Hi,
>
>Given code below, I can get tables and run SQL on an ms-access db -
>this works well. But, I want to get the field names per each column
>of a table. I'm sure there's an ADO way of doing it. Help appreciated.
>Thanks.
>
>Question: How do I get the field names of each column of a table?
>
>#!/usr/bin/perl
>
># use strict;
>use Win32::OLE();
>$Win32::OLE::Warn=2;
>
>my $conn = Win32::OLE->new("ADODB.Connection");
>my $db = 'C:\Folder4\usa.mdb';
>$conn->Open('Provider = Microsoft.Jet.OLEDB.4.0; Data Source='.$db);
>my $rs= $conn->OpenSchema(20);
>
>$rs->MoveFirst();
>while(!$rs->{EOF}){
> my $tn= $rs->Fields(2)->Value;
> if (grep /^$tn$/i, 'States') {
> my $rowcount = $conn->Execute("SELECT COUNT(*) AS ROW_COUNT
>FROM " .$tn.'"');
> print "$tn : ".$rowcount->Fields('ROW_COUNT')->Value."\n";
> }
> $rs->MoveNext;
>}
>
>__END__
>
>states : 51
>DC included.
------------------------------
Date: Tue, 25 Dec 2007 12:40:01 -0800 (PST)
From: goldtech <goldtech@worldpost.com>
Subject: Re: Win32::OLE ADO Table Field names
Message-Id: <ffcd37f2-4167-4215-83d3-2f6bdacafe80@y5g2000hsf.googlegroups.com>
Got it finally:
...
$oRS = Win32::OLE->new("ADODB.Recordset");
$oRS->{'ActiveConnection'} = $conn;
$oRS->Open('States'); # "States" is the table name
$zztop=$oRS->Fields->Count;
$who =$oRS->Fields->Item(2)->Name;
print $zztop.' '.$who.' ';
...
:^)
------------------------------
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 V11 Issue 1146
***************************************
