[29089] in Perl-Users-Digest
Perl-Users Digest, Issue: 333 Volume: 11
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Fri Apr 13 21:09:51 2007
Date: Fri, 13 Apr 2007 18:09:10 -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 Fri, 13 Apr 2007 Volume: 11 Number: 333
Today's topics:
Re: Absolute Path errors <nikos1337@gmail.com>
Re: Extracting text between two market lines. (FAQ vari <bik.mido@tiscalinet.it>
Illegal seek <ecarlson@vmware.com>
Re: Illegal seek <uri@stemsystems.com>
Re: Illegal seek <ecarlson@vmware.com>
Re: Illegal seek <spamtrap@dot-app.org>
Re: Illegal seek <ecarlson@vmware.com>
Re: Illegal seek <someone@example.com>
Re: Illegal seek <someone@example.com>
Open an existing DB_Ffile file failed panxd01@gmail.com
Re: perl print form without linefeeds <bik.mido@tiscalinet.it>
Re: perl print form without linefeeds <tadmc@augustmail.com>
Re: Splitting a string with placeholders <purlgurl@purlgurl.net>
Re: Splitting a string with placeholders <abigail@abigail.be>
Re: Splitting a string with placeholders <bik.mido@tiscalinet.it>
Re: Splitting a string with placeholders <sbryce@scottbryce.com>
Re: Top Turds of comp.lang.perl.misc (2007) cartercc@gmail.com
Where did cgi-bin go? Milagro
Re: Where did cgi-bin go? <kst-u@mib.org>
Re: Why No Famous Open Source Projects From Britain/Ire <hjp-usenet2@hjp.at>
Re: Why No Famous Open Source Projects From Britain/Ire <justin.0704@purestblue.com>
Re: XML parsing using PERL.... URGENT <tadmc@augustmail.com>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: 13 Apr 2007 11:09:07 -0700
From: "skieros" <nikos1337@gmail.com>
Subject: Re: Absolute Path errors
Message-Id: <1176487747.234820.113980@e65g2000hsc.googlegroups.com>
=CF/=C7 Michele Dondi =DD=E3=F1=E1=F8=E5:
> On 13 Apr 2007 02:00:24 -0700, "skieros" <nikos1337@gmail.com> wrote:
> When a given URL points to a page that is
> actually dinamically generated by a program it *can happen* that an
> URL relative to that base URL can also be used *verbatim* as a
> relative path with respect to that particular program. This is exactly
> what you had in the first case. But it's *not* generally the case.
I am beginning to see the ligt now... le tme see....
look my index.html that si residing ti d:\www (DocumentRoot)
<html>
<body>
<script language=3Djavascript>
location.href=3D'/cgi-bin/index.pl'
</script>
</body>
</html>
As cou can see it redirect to index.pl inside cgi-bin
What you mean is that all relative paths i though that its cwd was /
and not /cgi-bin because of the index.html that run first and then
gave control to index.pl?!
------------------------------
Date: Fri, 13 Apr 2007 21:24:12 +0200
From: Michele Dondi <bik.mido@tiscalinet.it>
Subject: Re: Extracting text between two market lines. (FAQ variation?)
Message-Id: <85mv135068ge4qe3j8trjs791m5m307ko9@4ax.com>
On Fri, 13 Apr 2007 11:43:45 +0100, Ian Wilson
<scobloke2@infotop.co.uk> wrote:
>my $cert;
>while(<DATA>) {
> $cert .= $_ if /BEGIN CERTIFICATE/ .. /END CERTIFICATE/;
>}
[snip]
>I've read the FAQ. I'm unsure how best to modify this so that the
>extracted text omits the markers.
while(<DATA>) {
my $chk = /BEGIN CERTIFICATE/ .. /END CERTIFICATE/;
$cert .= $_ if $chk and $chk >1 and $chk !~ /E0$/;
}
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: 13 Apr 2007 14:09:24 -0700
From: "Eric" <ecarlson@vmware.com>
Subject: Illegal seek
Message-Id: <1176498564.465121.138440@b75g2000hsg.googlegroups.com>
Hello,
Sometimes I get the error message: "Illegal seek". An example of this
is when I have the following in a Perl script:
my $run = "touch abc";
`$run` || print STDERR "Command '$run' failed: $! \n";
The error message I get is:
Command 'touch abc' failed: Illegal seek
Yet, the file 'abc' is created/updated.
But when $run = "ls -las", I don't get this error message.
Does anyone know why I am getting this error? Is there a better way to
accomplish the same thing?
Eric
------------------------------
Date: Fri, 13 Apr 2007 17:24:03 -0400
From: Uri Guttman <uri@stemsystems.com>
Subject: Re: Illegal seek
Message-Id: <x7irc0ge8c.fsf@mail.sysarch.com>
>>>>> "E" == Eric <ecarlson@vmware.com> writes:
E> my $run = "touch abc";
E> `$run` || print STDERR "Command '$run' failed: $! \n";
why are you using backticks when you don't want the output? the return
value of `` IS NOT an error message.
E> The error message I get is:
E> Command 'touch abc' failed: Illegal seek
you are likely getting some other error message left in $! as the
backticks always worked. any error touch makes would not be return in
the backticks but in $@.
E> Does anyone know why I am getting this error? Is there a better way to
E> accomplish the same thing?
perldoc -f utime
no reason to fork out as perl has it builtin.
uri
--
Uri Guttman ------ uri@stemsystems.com -------- http://www.stemsystems.com
--Perl Consulting, Stem Development, Systems Architecture, Design and Coding-
Search or Offer Perl Jobs ---------------------------- http://jobs.perl.org
------------------------------
Date: 13 Apr 2007 15:13:33 -0700
From: "Eric" <ecarlson@vmware.com>
Subject: Re: Illegal seek
Message-Id: <1176502412.972401.10220@e65g2000hsc.googlegroups.com>
On Apr 13, 2:24 pm, Uri Guttman <u...@stemsystems.com> wrote:
> >>>>> "E" == Eric <ecarl...@vmware.com> writes:
>
> E> my $run = "touch abc";
> E> `$run` || print STDERR "Command '$run' failed: $! \n";
>
> why are you using backticks when you don't want the output? the return
> value of `` IS NOT an error message.
>
> E> The error message I get is:
>
> E> Command 'touch abc' failed: Illegal seek
>
> you are likely getting some other error message left in $! as the
> backticks always worked. any error touch makes would not be return in
> the backticks but in $@.
>
> E> Does anyone know why I am getting this error? Is there a better way to
> E> accomplish the same thing?
>
> perldoc -f utime
>
> no reason to fork out as perl has it builtin.
>
> uri
>
> --
> Uri Guttman ------ u...@stemsystems.com --------http://www.stemsystems.com
> --Perl Consulting, Stem Development, Systems Architecture, Design and Coding-
> Search or Offer Perl Jobs ---------------------------- http://jobs.perl.org
Thanks for your response.
We do in fact want the response, at least when in verbose mode. For
clarity reasons, I didn't include all of the code.
As far as the 'touch' command goes, this is not the actual command we
are running. I changed it to this for simplicity reasons.
Having said this, I still am not clear on why I am getting the error
message with some commands but not others.
Eric
------------------------------
Date: Fri, 13 Apr 2007 18:31:30 -0400
From: Sherm Pendley <spamtrap@dot-app.org>
Subject: Re: Illegal seek
Message-Id: <m2lkgvkit9.fsf@local.wv-www.com>
"Eric" <ecarlson@vmware.com> writes:
> On Apr 13, 2:24 pm, Uri Guttman <u...@stemsystems.com> wrote:
>> >>>>> "E" == Eric <ecarl...@vmware.com> writes:
>>
>> E> my $run = "touch abc";
>> E> `$run` || print STDERR "Command '$run' failed: $! \n";
>>
>> why are you using backticks when you don't want the output? the return
>> value of `` IS NOT an error message.
>>
>> E> The error message I get is:
>>
>> E> Command 'touch abc' failed: Illegal seek
>>
>> you are likely getting some other error message left in $! as the
>> backticks always worked. any error touch makes would not be return in
>> the backticks but in $@.
>
> Having said this, I still am not clear on why I am getting the error
> message with some commands but not others.
For a command that produces no output when it succeeds, such as touch, the
value of `` is *supposed* to be undef. For those commands, you're printing
an error message because `` is undef, when in fact there was no error.
Other commands normally produce output, but print a message to STDERR on
failure, and nothing to STDOUT. For *those* commands, capturing nothing
with `` would indicate failure.
So like Uri said, the value returned by `` is not a reliable means of error
detection. You need to check $@ to detect errors with ``.
sherm--
--
Web Hosting by West Virginians, for West Virginians: http://wv-www.net
Cocoa programming in Perl: http://camelbones.sourceforge.net
------------------------------
Date: 13 Apr 2007 16:16:40 -0700
From: "Eric" <ecarlson@vmware.com>
Subject: Re: Illegal seek
Message-Id: <1176506200.301589.82240@b75g2000hsg.googlegroups.com>
On Apr 13, 3:31 pm, Sherm Pendley <spamt...@dot-app.org> wrote:
> "Eric" <ecarl...@vmware.com> writes:
> > On Apr 13, 2:24 pm, Uri Guttman <u...@stemsystems.com> wrote:
> >> >>>>> "E" == Eric <ecarl...@vmware.com> writes:
>
> >> E> my $run = "touch abc";
> >> E> `$run` || print STDERR "Command '$run' failed: $! \n";
>
> >> why are you using backticks when you don't want the output? the return
> >> value of `` IS NOT an error message.
>
> >> E> The error message I get is:
>
> >> E> Command 'touch abc' failed: Illegal seek
>
> >> you are likely getting some other error message left in $! as the
> >> backticks always worked. any error touch makes would not be return in
> >> the backticks but in $@.
>
> > Having said this, I still am not clear on why I am getting the error
> > message with some commands but not others.
>
> For a command that produces no output when it succeeds, such as touch, the
> value of `` is *supposed* to be undef. For those commands, you're printing
> an error message because `` is undef, when in fact there was no error.
>
> Other commands normally produce output, but print a message to STDERR on
> failure, and nothing to STDOUT. For *those* commands, capturing nothing
> with `` would indicate failure.
>
> So like Uri said, the value returned by `` is not a reliable means of error
> detection. You need to check $@ to detect errors with ``.
>
> sherm--
>
> --
> Web Hosting by West Virginians, for West Virginians:http://wv-www.net
> Cocoa programming in Perl:http://camelbones.sourceforge.net- Hide quoted text -
>
> - Show quoted text -
Hello,
Thank you both for your responses. I tried this, but got the same
error message.
Eric
------------------------------
Date: Sat, 14 Apr 2007 00:46:43 GMT
From: "John W. Krahn" <someone@example.com>
Subject: Re: Illegal seek
Message-Id: <TvVTh.1542$j%5.1452@edtnps90>
Eric wrote:
>
> Sometimes I get the error message: "Illegal seek". An example of this
> is when I have the following in a Perl script:
>
> my $run = "touch abc";
> `$run` || print STDERR "Command '$run' failed: $! \n";
>
> The error message I get is:
>
> Command 'touch abc' failed: Illegal seek
>
> Yet, the file 'abc' is created/updated.
>
> But when $run = "ls -las", I don't get this error message.
>
> Does anyone know why I am getting this error? Is there a better way to
> accomplish the same thing?
Yes, you want to do this instead:
my @args = ( 'touch', 'abc' );
system( @run ) == 0 or print STDERR "Command '@run' failed: $? \n";
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
------------------------------
Date: Sat, 14 Apr 2007 00:47:35 GMT
From: "John W. Krahn" <someone@example.com>
Subject: Re: Illegal seek
Message-Id: <HwVTh.1543$j%5.753@edtnps90>
Uri Guttman wrote:
>>>>>>"E" == Eric <ecarlson@vmware.com> writes:
>
> E> my $run = "touch abc";
> E> `$run` || print STDERR "Command '$run' failed: $! \n";
>
> why are you using backticks when you don't want the output? the return
> value of `` IS NOT an error message.
>
> E> The error message I get is:
>
> E> Command 'touch abc' failed: Illegal seek
>
> you are likely getting some other error message left in $! as the
> backticks always worked. any error touch makes would not be return in
> the backticks but in $@.
I think you mean $? instead of $@.
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
------------------------------
Date: 13 Apr 2007 18:03:54 -0700
From: panxd01@gmail.com
Subject: Open an existing DB_Ffile file failed
Message-Id: <1176512634.761461.116170@n76g2000hsh.googlegroups.com>
Hi, I tried to open an existing DB_File type of file to read the
records. However, it kept getting error saying "cannot open file: File
exists". Did some research on web but couldn't find any useful info.
Could someone please explain why? Below is a sample of code which I
got from the perl.com:
use strict ;
use DB_File ;
use vars qw( %h $k $v ) ;
tie %h, "DB_File", "fruit", O_RDWR|O_CREAT, 0640, $DB_HASH
or die "Cannot open file 'fruit': $!\n";
# Add a few key/value pairs to the file
$h{"apple"} = "red" ;
$h{"orange"} = "orange" ;
$h{"banana"} = "yellow" ;
$h{"tomato"} = "red" ;
# Check for existence of a key
print "Banana Exists\n\n" if $h{"banana"} ;
# Delete a key/value pair.
delete $h{"apple"} ;
# print the contents of the file
while (($k, $v) = each %h)
{ print "$k -> $v\n" }
untie %h ;
When I second time run the code, I got into the error because 'fruit'
was created before. My perl version is 5.8.8 if this makes difference.
Thanks a lot.
------------------------------
Date: Fri, 13 Apr 2007 21:39:50 +0200
From: Michele Dondi <bik.mido@tiscalinet.it>
Subject: Re: perl print form without linefeeds
Message-Id: <lhmv13dooe2mpqb90lbvibjdsnf0vv1505@4ax.com>
On 13 Apr 2007 10:13:14 -0700, lratzan@gmail.com wrote:
>We need the following output to appear across a single line, not two
>lines.
>If the first line is a functional print, how do we remove the
>linefeed?
In the portion of code below, I see no print at all. The syntax
suggest you're using CGI.pm, which is good good!
>
>h3, ("Update your address"),
>a({-href=>http://www.umdnj.edu},"click here"),
^^^^^^^^^^^^^^^^^^^^
^^^^^^^^^^^^^^^^^^^^
This is a syntax error.
Anyway, no linefeed whatsoever should be printed.
perl -MCGI=:all -le 'print h3, ("Update your address"),
a({-href=>"http://www.umdnj.edu"},"click here")'
<h3 />Update your address<a href="http://www.umdnj.edu">click
here</a>
(Here, only the one at the end of the list, because I've used -l)
Isn't it that you have modified $,?
>Please respond to Lee Ratzan (lratzan@gmail.com)
Nope. For good reasons.
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: Fri, 13 Apr 2007 19:38:53 -0500
From: Tad McClellan <tadmc@augustmail.com>
Subject: Re: perl print form without linefeeds
Message-Id: <slrnf208kt.q9o.tadmc@tadmc30.august.net>
lratzan@gmail.com <lratzan@gmail.com> wrote:
> Please respond to Lee Ratzan (lratzan@gmail.com)
How profoundly rude of you!
The reason this newsgroup exists is to help fellow programmers.
They will not be helped if you hoard the answer.
--
Tad McClellan SGML consulting
tadmc@augustmail.com Perl programming
Fort Worth, Texas
------------------------------
Date: Fri, 13 Apr 2007 11:11:54 -0700
From: Purl Gurl <purlgurl@purlgurl.net>
Subject: Re: Splitting a string with placeholders
Message-Id: <5Y2dneApn_B7WoLbnZ2dnUVZ_qSrnZ2d@giganews.com>
Mirco Wahab wrote:
> Jürgen Exner wrote:
>> Bryan wrote:
>>> my $string = "A\tB\tC\t\t\t\t\t\t\n";
>> Did you check the documentation of split()?
>> ...
>> unspecified or zero, trailing null fields are stripped [...]
>> If LIMIT is
>> negative, it is treated as if an arbitrarily large LIMIT had
>> ...
> If I'm not mistaken, there's no 'trailing null field' here,
> because it's an un-chomped string ...
Correct. See my scalar print and my element print
in my prior article.
Purl Gurl
------------------------------
Date: 13 Apr 2007 18:24:01 GMT
From: Abigail <abigail@abigail.be>
Subject: Re: Splitting a string with placeholders
Message-Id: <slrnf1vilk.gh.abigail@alexandra.abigail.be>
Bryan (bcc@nospam.net) wrote on MMMMCMLXXIII September MCMXCIII in
<URL:news:W0PTh.8918$Kd3.4783@newssvr27.news.prodigy.net>:
:: I have a string like this:
:: my $string = "A\tB\tC\t\t\t\t\t\t\n";
::
:: When I do:
:: my @array = split("\t", $string);
::
:: I get the following array:
:: @array = ["A", "B", "C"];
Then you have discovered a bug in Perl.
You ought to file a bug report.
This happens on a Perl without the bug:
$ perl -wle '$s = "A\tB\tC\t\t\t\t\t\t\n"; @a = split /\t/ => $s;
$" = "-"; print "[@a]"'
[A-B-C------
]
:: The placeholding '\t's are lost.
::
:: How can I keep these so that my array is like this:
:: @array = ["A", "B", "C", "", "", "", "", ""];
You want a split that makes the "\n" disappear?
Abigail
--
# Count the number of lines; code doesn't match \w. Linux specific.
()=<>;$!=$=;($:,$,,$;,$")=$!=~/.(.)..(.)(.)..(.)/;
$;++;$*++;$;++;$*++;$;++;`$:$,$;$" $. >&$*`;
------------------------------
Date: Fri, 13 Apr 2007 21:43:17 +0200
From: Michele Dondi <bik.mido@tiscalinet.it>
Subject: Re: Splitting a string with placeholders
Message-Id: <4anv13tk2a3u5khl1erfsf9vfjif6kt8uf@4ax.com>
On Fri, 13 Apr 2007 10:57:30 -0700, Bryan <bcc@nospam.net> wrote:
>BTW, where did you find the -1 thing? Its not in the perldoc -f split
>info...
It is:
: do well to remember). If LIMIT is negative, it is treated as if
: an arbitrarily large LIMIT had been specified. Note that
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: Fri, 13 Apr 2007 13:53:04 -0600
From: Scott Bryce <sbryce@scottbryce.com>
Subject: Re: Splitting a string with placeholders
Message-Id: <Pe6dnZHA0-8RQoLbnZ2dnUVZ_uXinZ2d@comcast.com>
Bryan wrote:
> I need to omit the placeholder for the \n however. How do I do that?
Chomp $string before you split it.
------------------------------
Date: 13 Apr 2007 12:31:17 -0700
From: cartercc@gmail.com
Subject: Re: Top Turds of comp.lang.perl.misc (2007)
Message-Id: <1176492677.145441.259080@y80g2000hsf.googlegroups.com>
On Apr 12, 8:45 pm, Tad McClellan <t...@augustmail.com> wrote:
> The decline in traffic is due to greater overall efficiency!
Actually, it's because Perl is dying.
People are using other languages, Java, PHP, and in my area, Python.
We still use a good amount of Perl, in fact, I'm engaged in a fairly
large database automation program which will probably use about 15 or
so Perl scripts. But serious developers will use Java, or even VB
(yes, even VB) rather than Perl, at least in my community.
If you want to get laughed at, use Perl. It's so ... 80's.
CC
------------------------------
Date: Fri, 13 Apr 2007 20:43:55 -0400
From: Milagro
Subject: Where did cgi-bin go?
Message-Id: <2007041320435557218-@news.giganews.com>
Hi All,
This might be a trivial question but I'm really wondering about this.
While looking through the web years ago, you would always see dynamic
sites URL's have cgi-bin in the URLs. Nowadays you hardly ever see it.
I realize many developers use php, which of course doesn't not need
cgi-bin in it's path. There's also ASP and sites using java servlet
files.
But there must still be some out there using Perl for dynamic sites.
Even looking at perl.com I don't see cgi-bin in any paths. What simple
thing am I missing here -- where did cgi-bin go?
Is it mod_perl (something I've never used) or is there just some
setting in Apache that masks the use of cgi-bin?
I wrote many a perl script to generate web pages but that was back, for
the most part in 1999 and earlier.
I know perl quite well and was going to use it to write some new web
applications but I'm wondering now what I need to re-learn regarding
the good-old cgi-bin directory.
Thanks!
M
------------------------------
Date: Fri, 13 Apr 2007 18:00:17 -0700
From: Keith Thompson <kst-u@mib.org>
Subject: Re: Where did cgi-bin go?
Message-Id: <lnhcrjzs66.fsf@nuthaus.mib.org>
Milagro writes:
> This might be a trivial question but I'm really wondering about this.
> While looking through the web years ago, you would always see dynamic
> sites URL's have cgi-bin in the URLs. Nowadays you hardly ever see it.
I think this is more a question about web servers than about Perl, but
...
The server for my home page was changed a while ago (I don't remember
from what to what). One of the changes was that CGI scripts now need
a ".cgi" suffix rather than needing to be placed in a "cgi-bin"
subdirectory.
--
Keith Thompson (The_Other_Keith) kst-u@mib.org <http://www.ghoti.net/~kst>
San Diego Supercomputer Center <*> <http://users.sdsc.edu/~kst>
"We must do something. This is something. Therefore, we must do this."
-- Antony Jay and Jonathan Lynn, "Yes Minister"
------------------------------
Date: Fri, 13 Apr 2007 20:55:17 +0200
From: "Peter J. Holzer" <hjp-usenet2@hjp.at>
Subject: Re: Why No Famous Open Source Projects From Britain/Ireland?
Message-Id: <slrnf1vkgl.84s.hjp-usenet2@zeno.hjp.at>
On 2007-04-10 11:15, Abigail <abigail@abigail.be> wrote:
> Robert (callingrw@yahoo.com) wrote on MMMMCMLXIX September MCMXCIII in
><URL:news:1176152621.806250.287130@n76g2000hsh.googlegroups.com>:
> -- Hey.
> -- How come there are no famous and widely-used open source products that
> -- were founded and (more or less) developed from the United Kingdom or
> -- Ireland? I find that odd.
>
>
> Well, there's that web thingy you hear a lot about lately that was
> started by a fellow from Oxford.
But at the time he was in Geneva, so that adds Switzerland to the map.
hp
--
_ | Peter J. Holzer | I know I'd be respectful of a pirate
|_|_) | Sysadmin WSR | with an emu on his shoulder.
| | | hjp@hjp.at |
__/ | http://www.hjp.at/ | -- Sam in "Freefall"
------------------------------
Date: Fri, 13 Apr 2007 23:59:09 +0100
From: Justin C <justin.0704@purestblue.com>
Subject: Re: Why No Famous Open Source Projects From Britain/Ireland?
Message-Id: <justin.0704-37606C.23590913042007@stigmata>
In article <slrnf1vkgl.84s.hjp-usenet2@zeno.hjp.at>,
"Peter J. Holzer" <hjp-usenet2@hjp.at> wrote:
> On 2007-04-10 11:15, Abigail <abigail@abigail.be> wrote:
> > Robert (callingrw@yahoo.com) wrote on MMMMCMLXIX September MCMXCIII in
> ><URL:news:1176152621.806250.287130@n76g2000hsh.googlegroups.com>:
> > -- Hey.
> > -- How come there are no famous and widely-used open source products that
> > -- were founded and (more or less) developed from the United Kingdom or
> > -- Ireland? I find that odd.
> >
> >
> > Well, there's that web thingy you hear a lot about lately that was
> > started by a fellow from Oxford.
>
> But at the time he was in Geneva, so that adds Switzerland to the map.
I missed the origin of this thread, but I claim Alan Cox for the UK.
Though I can't think of (or don't know of) any projects originating here
(Jeez, how much of a geek do you think I am?), I know that AC makes up
for almost anything the rest of the world can lay claim too.
I hereby advocate AC's birthday to be an Open Source holiday. May $deity
bless all who sale in her.
------------------------------
Date: Fri, 13 Apr 2007 19:58:21 -0500
From: Tad McClellan <tadmc@augustmail.com>
Subject: Re: XML parsing using PERL.... URGENT
Message-Id: <slrnf209pd.q9o.tadmc@tadmc30.august.net>
Ram <ramesh9999@gmail.com> wrote:
> Subject: XML parsing using PERL.... URGENT
Have you seen the Posting Guidelines that are posted here frequently?
> I am new to PERL
We can tell, because the name of the language is Perl, not PERL.
> Please help me out with this...
Sure. What part are you having trouble with?
> <tx no="213" nm="quoteTypeIdSymbol" mn="0" vl="03_K02_1_4" />
> <em no="213" nm="valueType" mn="0" dm="ValueType" vl="9001" />
> <ft no="213" nm="quoteValue" mn="0" vl="130.97" />
> My CSV file should be:
> 03042007
> EU0009656420,130.97(quoteValue tag)
You want a newline in the 1st CSV field?
There is no quoteValue tag anywhere in your data.
There is a tx tag and a em tag and a ft tag though,
there is also a ft tag with a quoteValue attribute value.
http://xml.silmaril.ie/authors/makeup/
--
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.
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 333
**************************************
