[21896] in Perl-Users-Digest
Perl-Users Digest, Issue: 4100 Volume: 10
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Mon Nov 11 18:11:26 2002
Date: Mon, 11 Nov 2002 15:10:17 -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 Mon, 11 Nov 2002 Volume: 10 Number: 4100
Today's topics:
Need tip on more efficient programming skills <lance@augustmail.com>
Re: Need tip on more efficient programming skills <john@imrie37.fsnet.co.uk>
Re: Need tip on more efficient programming skills <goldbb2@earthlink.net>
OT: pound sign, was Re: illegal use of comment ? <flavell@mail.cern.ch>
perl DBI / Mysql / Apache / ikonboard problem <matthew@darcy.demon.co.uk>
Perl, IE6, IIS, and MS Access (Deron Huskey)
Perl, IE6, IIS, and MS Access (Deron Huskey)
Re: Perl, IE6, IIS, and MS Access <jpagnew@vcu.edu>
Re: Perl, IE6, IIS, and MS Access <flavell@mail.cern.ch>
Re: Proper pipe handling <nospam@hooey.invalid>
Re: Proper pipe handling <goldbb2@earthlink.net>
Re: regex for trimming leading or trailing tabs and spa <harini_b@hotmail.com>
saving a cgi file (Westy)
Re: saving a cgi file <tk@WINDOZEdigiserv.net>
Re: saving a cgi file <twhu@lucent.com>
Re: Simple, almost stupid question! <nobull@mail.com>
Re: Upgrade to Perl 5.6.x ? <mgjv@tradingpost.com.au>
Win XP pipe <A@B>
Re: Win XP pipe <goldbb2@earthlink.net>
Re: xml (Tad McClellan)
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Mon, 11 Nov 2002 14:15:34 -0600
From: Lance Hoffmeyer <lance@augustmail.com>
Subject: Need tip on more efficient programming skills
Message-Id: <pan.2002.11.11.20.15.34.185677.22318@augustmail.com>
In my limited programming abilities I realize that
there are times when I come across certain patterns
that repeat themselves. My method to solve these
are simple cut and paste. I imagine there are more
efficient ways to code these? Note that the
first example is a finite list while the second can
be infinite. What tips/examples ... can be offered
such that I can reduce the lines of code on these sorts
of patterns?
Lance
Example 1
my $now = ctime();
my $numonth;
my ($day,$month,$numday,$tim,$yr) = unpack("A4 A4 A3 A9 A4",$now);
if($month=~/Jan/){$numonth="12";}
if($month=~/Feb/){$numonth="01";}
if($month=~/Mar/){$numonth="02";}
if($month=~/Apr/){$numonth="03";}
if($month=~/May/){$numonth="04";}
if($month=~/Jun/){$numonth="05";}
if($month=~/Jul/){$numonth="06";}
if($month=~/Aug/){$numonth="07";}
if($month=~/Sep/){$numonth="08";}
if($month=~/Oct/){$numonth="09";}
if($month=~/Nov/){$numonth="10";}
if($month=~/Dec/){$numonth="11";}
Example 2
my $monyr = $numonth.$yr;
print "$monyr\n";
my $qtrcol = "d1";
if($monyr=~/102002/){$monyr="f1"};
if($monyr=~/112002/){$monyr="g1"};
if($monyr=~/122002/){$monyr="h1"};
if($monyr=~/012003/){$monyr="i1"};
if($monyr=~/022003/){$monyr="j1"};
if($monyr=~/032003/){$monyr="k1"};
if($monyr=~/042003/){$monyr="l1"};
if($monyr=~/052003/){$monyr="m1"};
if($monyr=~/062003/){$monyr="n1"};
------------------------------
Date: Mon, 11 Nov 2002 21:38:20 +0000
From: John Imrie <john@imrie37.fsnet.co.uk>
Subject: Re: Need tip on more efficient programming skills
Message-Id: <3DD0234C.7050505@imrie37.fsnet.co.uk>
Lance Hoffmeyer wrote:
<cut>
>
> Example 1
>
> my $now = ctime();
> my $numonth;
> my ($day,$month,$numday,$tim,$yr) = unpack("A4 A4 A3 A9 A4",$now);
> if($month=~/Jan/){$numonth="12";}
> if($month=~/Feb/){$numonth="01";}
> if($month=~/Mar/){$numonth="02";}
> if($month=~/Apr/){$numonth="03";}
> if($month=~/May/){$numonth="04";}
> if($month=~/Jun/){$numonth="05";}
> if($month=~/Jul/){$numonth="06";}
> if($month=~/Aug/){$numonth="07";}
> if($month=~/Sep/){$numonth="08";}
> if($month=~/Oct/){$numonth="09";}
> if($month=~/Nov/){$numonth="10";}
> if($month=~/Dec/){$numonth="11";}
>
My usual approach to this is to set up a hash keyed on each of the month
names.
%months=(Jan=>12, Feb=>"01", Mar=>"02", Apr=>"03", May=>"04", Jun=>"05",
Jul=>"06", Aug=>"07", Sep=>"08", Oct=>"09", Nov=>10, Dec=>11);
Do this outside of any loops in your code then you can say
$nmonth=$months{$month};
------------------------------
Date: Mon, 11 Nov 2002 17:04:13 -0500
From: Benjamin Goldberg <goldbb2@earthlink.net>
Subject: Re: Need tip on more efficient programming skills
Message-Id: <3DD0295D.1DF747D9@earthlink.net>
Lance Hoffmeyer wrote:
>
> In my limited programming abilities I realize that
> there are times when I come across certain patterns
> that repeat themselves. My method to solve these
> are simple cut and paste. I imagine there are more
> efficient ways to code these? Note that the
> first example is a finite list while the second can
> be infinite. What tips/examples ... can be offered
> such that I can reduce the lines of code on these sorts
> of patterns?
my ($num_month, $year) = (localtime)[ 4, 5 ];
# $year is actually the current year minus 1900.
my $n = $num_month - 10 + 12 * ( $year - 102 );
my $monyr;
if( $n >= 0 and $n <= 8 ) {
$monyr = ('f' .. 'n')[$n] . "1";
} else {
$monyr = "d1";
}
--
my $n = 2; print +(split //, 'e,4c3H r ktulrnsJ2tPaeh'
."\n1oa! er")[map $n = ($n * 24 + 30) % 31, (42) x 26]
------------------------------
Date: Mon, 11 Nov 2002 20:02:28 +0100
From: "Alan J. Flavell" <flavell@mail.cern.ch>
Subject: OT: pound sign, was Re: illegal use of comment ?
Message-Id: <Pine.LNX.4.40.0211111946160.10037-100000@lxplus075.cern.ch>
On Nov 11, Walter Roberson inscribed on the eternal scroll:
> I saw # for weight several times in England when I was last there
> a short number of years ago.
I think you were mistaking a scribbled "lb". Try writing "lb"
longhand with a bit of a flourish on the final loop, and I think
you'll see what I'm getting at.
We (i.e in the UK) don't normally call the hash or sharp sign a "pound
sign"[1], and I'm fairly confident that the person-in-the-street would
think you meant the pound sterling sign - only those who had a lot of
contact with USAns might suspect that something different was
meant...
(Despite their historical origin, the pound weight and the pound
sterling are really quite distinct in people's minds, I would say).
OK, so that's my deal on this deck - there are plenty of fellow
Britishpersons on this group who'll be able to add their spin.
all the best
[1] nor do we call it an "octothorpe", except some of us in jest. UK
telephone instructions sometimes refer to it on the phone keypad as
the "square" key.
------------------------------
Date: Mon, 11 Nov 2002 19:45:49 +0000 (UTC)
From: "Matt Darcy" <matthew@darcy.demon.co.uk>
Subject: perl DBI / Mysql / Apache / ikonboard problem
Message-Id: <aqp1dd$jrs$1@helle.btinternet.com>
Hi,
I am trying to install and configure ikonboard on apache 1.3.27 with redhat
linux 7.3
I'll explain my situation and you maybe able to help me.
I am trying to install ikonboard on my redhat linux test server.
I have decided to use mysql as the database for the message board.
I installed perl dbi as you said - and then installed the mysql modules
DBD-mysqlPP-0.03
Msql-Mysql-modules-1.2219
DBIx-MySQLSequences-0.1
I then ran the ikonboard installer and all is going well,
however it comes time to create the ikonboard database tables and I get the
following long list of errors, the bottom errors suggestion DBI/DBD is not
working..
The error returned was: Can't locate Sources/iDatabase/SQL.pm in @INC (@INC
contains: ./ ./Sources ./install_modules /usr/lib/perl5/5.6.1/i386-linux
/usr/lib/perl5/5.6.1 /usr/lib/perl5/site_perl/5.6.1/i386-linux
/usr/lib/perl5/site_perl/5.6.1 /usr/lib/perl5/site_perl/5.6.0
/usr/lib/perl5/site_perl /usr/lib/perl5/vendor_perl/5.6.1/i386-linux
/usr/lib/perl5/vendor_perl/5.6.1 /usr/lib/perl5/vendor_perl .) at
install_modules/populate.pl line 56.
Handy Error Message Meanings
"Can't locate DBD..." means that you do not have the needed files to run
mySQL/pgSQL for perl
"Can't locate DBI..." means that you do not have the needed files to run
mySQL/pgSQL for perl
"Can't locate method TIE_HASH.. means that your servers DB_File installation
is botched, contact your webhost
"Can't locate 'functions.pm'... means you you will have to edit the
installer script
Please go back to correct this error
Thanks,
Matt.
------------------------------
Date: 11 Nov 2002 12:18:40 -0800
From: dwhuskey@dmdwh.net (Deron Huskey)
Subject: Perl, IE6, IIS, and MS Access
Message-Id: <3fd7f467.0211111218.538eed27@posting.google.com>
Greetings!
I'm relatively new to Perl and am hoping for some direction.
I am using DBI and DBD::ODBC.
I have an html form that has several hundred checkboxes on it. The
user checks off the boxes they need, then click the submit button.
The formit submits my Perl script, which loops thru the values from
the checkboxes and does some SQL Selects to retrieve some other
information, which is then inserted into a table. The records are
inserted one at a time. In this same loop, the values are being
written to a Unix shell script for later use.
The process works great if I choose 47 boxes. On the 48th box,
however, I receive a CGI timeout, the process is deleted and no
records are inserted. However, the values ARE written to the shell
script.
I have checked EVERY box on the form for data validity and they all
check out. I can submit any 47 records I want, but on 48...uh uh.
I'm really not sure if this is a Perl problem, coder-headspace error,
a matter of size, or a combination.
If anyone can point me in a direction, I would really appreciate it.
Thanks,
Deron
dwhuskey@dmdwh.net
------------------------------
Date: 11 Nov 2002 13:32:17 -0800
From: dwhuskey@dmdwh.net (Deron Huskey)
Subject: Perl, IE6, IIS, and MS Access
Message-Id: <3fd7f467.0211111332.58a8036f@posting.google.com>
Hi, thanks for the reply!
Are you talking the physical server or the IIS server? The physical
server has 2gb, but I suppose I could be.
I forgot to mention, when I select only 47 boxes, the result is almost
instantaneous. But on 48, well, it just times out.
Thanks for any help you can give.
> Could you be running the server out of memory??
>
------------------------------
Date: Mon, 11 Nov 2002 15:53:16 -0500
From: Jim Agnew <jpagnew@vcu.edu>
To: Deron Huskey <dwhuskey@dmdwh.net>
Subject: Re: Perl, IE6, IIS, and MS Access
Message-Id: <3DD018BC.AF38E30B@vcu.edu>
Could you be running the server out of memory??
Deron Huskey wrote:
>
> Greetings!
> I'm relatively new to Perl and am hoping for some direction.
>
> I am using DBI and DBD::ODBC.
>
> I have an html form that has several hundred checkboxes on it. The
> user checks off the boxes they need, then click the submit button.
> The formit submits my Perl script, which loops thru the values from
> the checkboxes and does some SQL Selects to retrieve some other
> information, which is then inserted into a table. The records are
> inserted one at a time. In this same loop, the values are being
> written to a Unix shell script for later use.
>
> The process works great if I choose 47 boxes. On the 48th box,
> however, I receive a CGI timeout, the process is deleted and no
> records are inserted. However, the values ARE written to the shell
> script.
>
> I have checked EVERY box on the form for data validity and they all
> check out. I can submit any 47 records I want, but on 48...uh uh.
>
> I'm really not sure if this is a Perl problem, coder-headspace error,
> a matter of size, or a combination.
>
> If anyone can point me in a direction, I would really appreciate it.
>
> Thanks,
> Deron
> dwhuskey@dmdwh.net
------------------------------
Date: Mon, 11 Nov 2002 23:07:08 +0100
From: "Alan J. Flavell" <flavell@mail.cern.ch>
Subject: Re: Perl, IE6, IIS, and MS Access
Message-Id: <Pine.LNX.4.40.0211112259120.10037-100000@lxplus075.cern.ch>
On Nov 11, Deron Huskey created a fresh thread and blurted out:
> Hi, thanks for the reply!
I'd strongly encourage you to do a bit of homework on Usenet posting
style. Not to put too fine a point on it, but this here is a
technical discussion group, and we really expect folks to have found
their way out of Usenet kindergarten before coming here.
> I forgot to mention, when I select only 47 boxes, the result is almost
> instantaneous. But on 48, well, it just times out.
I'd suggest taking a look at the exact size of what you're submitting.
This has the general flavour of either hitting some size limit, or
just maybe it's hitting the size of a buffer, and some of the coding
has an off-by-one error which is causing it to fail e.g when the data
exactly fills a buffer.
Look at the actual raw data that's involved.
There's far too much complexity in your problem right now. At the
very least, you need to instrument each step of the process so as to
localise the part of it which is failing/hanging. If it was me, I'd
be splitting it into separate self-contained parts, and running each
of them separately to find out where the trouble lies.
good luck.
------------------------------
Date: Mon, 11 Nov 2002 19:57:37 GMT
From: Starling <nospam@hooey.invalid>
Subject: Re: Proper pipe handling
Message-Id: <m1lm403pf7.fsf@localhost.localdomain>
Benjamin Goldberg <goldbb2@earthlink.net> writes:
: What precisely do you want your program to do, anyway?
Oh er... uh... yeah. I was trying to do some interprocess
communication. You know, pipes, fork()ing and redirecting standard
input/ouput/etcetera. I suppose it boils down to 3 questions.
1) How to redirect standard input/output to pipe or socketpair
filehandles?
2) How to check if a process is done without reading from the (now
broken) pipe it was writing to?
3) Where are there race conditions when forking off processes? How to
detect and eliminate problems caused by process order, speed or
random delays?
I finally gave up and rewrote the program in C, and except for the
SIGPIPE problem, it seems to be working. I don't know perl very well,
and wanted to know where I had misunderstood the nature of the
language.
Starling
------------------------------
Date: Mon, 11 Nov 2002 15:53:26 -0500
From: Benjamin Goldberg <goldbb2@earthlink.net>
Subject: Re: Proper pipe handling
Message-Id: <3DD018C6.50C68FF8@earthlink.net>
Starling wrote:
>
> Benjamin Goldberg <goldbb2@earthlink.net> writes:
>
> : What precisely do you want your program to do, anyway?
>
> Oh er... uh... yeah. I was trying to do some interprocess
> communication. You know, pipes, fork()ing and redirecting standard
> input/ouput/etcetera. I suppose it boils down to 3 questions.
>
> 1) How to redirect standard input/output to pipe or socketpair
> filehandles?
One of:
open( STDIN, "<&HANDLENAME" )
open( STDIN, "<&" . fileno($handle) )
open( STDIN, "<&", $handle ) # ONLY in 5.8.0 or later
> 2) How to check if a process is done without reading from the (now
> broken) pipe it was writing to?
If you get a SIGPIPE when writing to it, or if print() to that handle
fails with EPIPE.
> 3) Where are there race conditions when forking off processes? How to
> detect and eliminate problems caused by process order, speed or
> random delays?
Only by examining the code can you be certain that no race condition
will occur.
> I finally gave up and rewrote the program in C, and except for the
> SIGPIPE problem, it seems to be working. I don't know perl very well,
> and wanted to know where I had misunderstood the nature of the
> language.
--
my $n = 2; print +(split //, 'e,4c3H r ktulrnsJ2tPaeh'
."\n1oa! er")[map $n = ($n * 24 + 30) % 31, (42) x 26]
------------------------------
Date: Mon, 11 Nov 2002 19:26:07 GMT
From: "hb" <harini_b@hotmail.com>
Subject: Re: regex for trimming leading or trailing tabs and spaces?
Message-Id: <jvTz9.4537$GX6.192117029@newssvr13.news.prodigy.com>
Bob <bob@bobber.com> wrote in message news:3DCFEDD3.2090909@bobber.com...
> Hi I have a line like this:
>
> Entry 1<>Text 45<>aa/gg[t]/gg<>%89
>
> Where <> is a tab or a combination of spaces and tabs. So I could have
> only a \t, or \s\t\t, etc. The only rule seems to be that there is
> always at least one tab separating columns, and there are no tabs in the
> fields.
>
> I need to split this line into an array, such that:
> $array[0] = "Entry 1";
> $array[1] = "Text 45";
> $array[2] = "aa/gg[t]/gg";
> $array[3] = "%89";
>
> I had originally written a regex like this:
> $_ =~ /^([^\t])+\t([^\t]+)\t([^\t]+)\t([^\t]+).*$/;
>
> and then did @array = ( $1, $2, $3, $4 ), but this is not a good enough
> regex because I was assuming that the file format would not change (
> yup, big mistake ) and it has suddenly stopped working because the
> number of tabs changed in between one of the columns... something that
> will happen again.
>
> What is the proper regex to match this stuff and stuff it in an array
> that is more robust?
>
> Thanks!
> B
>
if($var=~/([^\t]+)\s+([^\t]+)\s+([^\t]+)\s+([^\t]+)/){
my @array=($1,$2, $3, $4);
}
The above regular expression should work
Regards,
hb
------------------------------
Date: 11 Nov 2002 12:36:32 -0800
From: intlone@hotmail.com (Westy)
Subject: saving a cgi file
Message-Id: <28b2c540.0211111236.7ee38f73@posting.google.com>
Rather new to perl! Writing programs in notepad, but having trouble
saving them as cgi files, keep saving as text files. Appreciate any
suggestions.
------------------------------
Date: Mon, 11 Nov 2002 20:41:33 GMT
From: tk <tk@WINDOZEdigiserv.net>
Subject: Re: saving a cgi file
Message-Id: <jd50tugt7970q4qeu6a23tkl3gogjskp7o@4ax.com>
-----BEGIN xxx SIGNED MESSAGE-----
Hash: SHA1
In a fit of excitement on 11 Nov 2002 12:36:32 -0800,
intlone@hotmail.com (Westy) managed to scribble:
| Rather new to perl! Writing programs in notepad, but having trouble
| saving them as cgi files, keep saving as text files. Appreciate any
| suggestions.
UltraEdit32 is a worthwhile look.
Multiple open docs at the same time, more than one view of the file ya
working on (great to read data from the top of the file if you're
working near the bottom for example), coloured syntax highlighting (if
you're into that) etc etc.
Google will shed some more info on it if interested.
There's also PFE (Programmers File Editor) but from what I understand
from a post the other day, this is now no longer supported.
Can also go crazy and download the DOS/Win port of VIM ;)
Regards,
tk
-----BEGIN xxx SIGNATURE-----
Version: PGP Personal Privacy 6.5.3
iQA/AwUBPdAWOyjNZg8h4REKEQLZ5ACglS6cI/jwafLhemuBx4NaUn/1yecAoIbI
CQWiEIAd/eVxQ0NfoNiqUdfa
=X4hd
-----END PGP SIGNATURE-----
--
+--------------------------+
| digiServ Network |
| Web solutions | Remove WINDOZE to reply.
| http://www.digiserv.net/ |
+--------------------------+
------------------------------
Date: Mon, 11 Nov 2002 17:06:46 -0500
From: "Tulan W. Hu" <twhu@lucent.com>
Subject: Re: saving a cgi file
Message-Id: <aqp9ma$aaa@netnews.proxy.lucent.com>
"Westy" <intlone@hotmail.com> wrote in message ...
> Rather new to perl! Writing programs in notepad, but having trouble
> saving them as cgi files, keep saving as text files. Appreciate any
> suggestions.
Just rename the txt file.
------------------------------
Date: 11 Nov 2002 19:14:36 +0000
From: Brian McCauley <nobull@mail.com>
Subject: Re: Simple, almost stupid question!
Message-Id: <u9znsf2a1v.fsf@wcl-l.bham.ac.uk>
Benjamin Goldberg <goldbb2@earthlink.net> writes:
> F. Xavier Noria wrote:
> >
> > In article <aqjk7j$ant$1@news.ya.com>, F. Xavier Noria wrote:
> >
> > > cat foo.pairs | while read old new; do
> > > perl -pi -e "s/$old/$new/g" foo.txt; done
> >
> > Sorry, I forgot to escape the variables for perl there:
> >
> > cat foo.pairs | while read old new; do
> > perl -pi -e "s/\\Q$old\\E/quotemeta($new)/ge" foo.txt; done
>
> You can avoid writing out quotemeta, and avoid the /e, by doing:
>
> cat foo.pairs | while read old new; do
> perl -pi -e "s/\\Q$old\\E/\\Q$new\\E/g" foo.txt; done
The \\E are redundant.
You will still hit problems if shell variables $old and $new contain
the either sequence '\E' or '/'.
Probably better to move more of the logic in to Perl.
--
\\ ( )
. _\\__[oo
.__/ \\ /\@
. l___\\
# ll l\\
###LL LL\\
------------------------------
Date: Mon, 11 Nov 2002 21:48:48 GMT
From: Martien Verbruggen <mgjv@tradingpost.com.au>
Subject: Re: Upgrade to Perl 5.6.x ?
Message-Id: <slrnat09ig.2kt.mgjv@verbruggen.comdyn.com.au>
On Mon, 11 Nov 2002 11:32:49 -0000,
Clyde Ingram <cingram@pjocsNOSPAMORHAM.demon.co.uk> wrote:
> Derek,
>
> "Derek Thomson" <derek@wedgetail.com> wrote in message
> news:3DCF4709.2010203@wedgetail.com...
>> You learn a new thing every day. And it's another way to make people
>> *finally* trade up to 5.6 :)
>
> Where can I find the most compelling statement of why my project's
> Development Manager should give the green light for an upgrade from Perl
> 5.00404 (!!) to 5.6 (on Solaris 2.6)?
>
> And which 5.6.x is the most stable for reassuring frightened "suits" ?
Ask them whether they are still using versions of other software that
are 5 years old and unsupported. At least upgrade to 5.004_05.
Although that is unsupported as well, some things have been fixed, and
it's only three years old.
Why don't you upgrade to 5.8 instead of 5.6 anyway? Otherwise you'll
have to do it all again in a year.
The upgrade path from 5.004_04 to 5.8 shouldn't be too horrible. I
don't think you'll find any backward compatibility problems. Start by
reading through the perldelta documents for the intervening versions,
and see whether anything strikes you as a problem in any of the code
you need to run. You are more likely to run into backward
compatibility problems with modules that are installed, unless you
kept those up to date, and you already have the latest versions.
More and more modules will be written in such a way that they won't
even run on 5.004 versions anymore, and modules are being released
that require at least 5.6.
Start by compiling and installing Perl 5.8.0 under /opt/perl-5.8.0 or
something like that. Put all the modules you need into that
installation. Run all the programs you need with that binary (maybe
first with -c, just to check). For the very few that fail, keep
running those with the old one until you get the time to fix them.
The way we manage Perl versions here (and not only on Solaris) is:
We have /opt/perl-5.005_03, /opt/perl-5.6.1, and recently added
/opt/perl-5.8.0. There is a symlink /opt/perl pointing to the current
perl installation, and /usr/local/bin/perl pointing to
/opt/perl/bin/perl (/usr/bin/perl is Solaris' version of Perl). This
approach allows me to use /usr/local/bin/perl for anything running
against what is the current company standard, and anything else can be
specific about the version it needs. When the company standard
changes, the testing effort is limited to chaning the shebang lines
for the very few programs that fail, and fixing them later.
The largest downside to this approach is that there are multiple
installations of modules that need to be kept in sync.
Summarising:
Perl 5.004_04 is unsupported.
Most modules are no longer actively developed for 5.004 and many
will stop working on those old versions of Perl. This means you
lose the use of the repository of code that is CPAN.
There are few, if any, backward compatibility problems with code
written for 5.004 running on 5.8. The upgrade effort should be
minimal.
Martien
--
|
Martien Verbruggen | Useful Statistic: 75% of the people make up
Trading Post Australia | 3/4 of the population.
|
------------------------------
Date: Mon, 11 Nov 2002 13:46:44 -0600
From: "J" <A@B>
Subject: Win XP pipe
Message-Id: <ut021k7jrts5d2@corp.supernews.com>
I was wondering if any one else has had this problem on windows XP.
I execute this command using cmd.exe:
dir *. | perl -e "while(<>){if(/11.11.2002/){print}}"
I get the following error.
The filename, directory name, or volume label syntax is incorrect.
I also get the same error if I do something like this:
dir *. | grep DIR
I know this is more of a windows related question but any help would be
appreciated.
BTW this all worked fine under windows 2000
------------------------------
Date: Mon, 11 Nov 2002 15:09:49 -0500
From: Benjamin Goldberg <goldbb2@earthlink.net>
Subject: Re: Win XP pipe
Message-Id: <3DD00E8D.A175F2E2@earthlink.net>
J wrote:
>
> I was wondering if any one else has had this problem on windows XP.
> I execute this command using cmd.exe:
>
> dir *. | perl -e "while(<>){if(/11.11.2002/){print}}"
>
> I get the following error.
> The filename, directory name, or volume label syntax is incorrect.
>
> I also get the same error if I do something like this:
>
> dir *. | grep DIR
>
> I know this is more of a windows related question but any help would
> be appreciated.
>
> BTW this all worked fine under windows 2000
Try this:
perl -ne "print if /11.11.2002/" "dir *.|"
--
my $n = 2; print +(split //, 'e,4c3H r ktulrnsJ2tPaeh'
."\n1oa! er")[map $n = ($n * 24 + 30) % 31, (42) x 26]
------------------------------
Date: Mon, 11 Nov 2002 15:54:00 -0600
From: tadmc@augustmail.com (Tad McClellan)
Subject: Re: xml
Message-Id: <slrnat09no.261.tadmc@magna.augustmail.com>
Elvis <esamson@web.de> wrote:
> hi I'm looking for some hints how to convert a xml file (without dtd)
> into a textfile
>
> e.g.
>
> house
> room: living;
> room: kitchen;
> price: 100000
> street: kingstr
That is not XML.
What does your data file really look like?
--
Tad McClellan SGML consulting
tadmc@augustmail.com Perl programming
Fort Worth, Texas
------------------------------
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.
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 4100
***************************************
