[25514] in Perl-Users-Digest
Perl-Users Digest, Issue: 7758 Volume: 10
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Wed Feb 9 06:05:32 2005
Date: Wed, 9 Feb 2005 03:05:09 -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, 9 Feb 2005 Volume: 10 Number: 7758
Today's topics:
Re: all_sequences.pl (Was: Perl - permute?) ioneabu@yahoo.com
Re: Connecting to a Domino Db <constantin.wiemer@infineon.com>
Re: Dynamically Generating A Format <skuo@mtwhitney.nsc.com>
Re: Dynamically Generating A Format <michael+gnus@trollope.org>
Re: Exception handling in class: question <tassilo.von.parseval@rwth-aachen.de>
Re: FAQ 6.10 How do I use a regular expression to strip <matternc@comcast.net>
Re: fields pragma (Lee Goddard)
Re: Getting a hash into a savable format <yyusenet@yahoo.com>
Re: Getting a hash into a savable format <postmaster@castleamber.com>
Re: Getting a hash into a savable format <jurgenex@hotmail.com>
Help!!! Newbee to win32-programming! (Anne-Marte)
Re: Help!!! Newbee to win32-programming! <noeltd@hotmail.com>
Re: Learning Perl - resources and ideas <noreply@gunnar.cc>
Re: Learning Perl - resources and ideas <spamtrap@dot-app.org>
Net::Nessus Package (Kurt)
Re: Now what am I doing wrong (Anno Siegel)
Re: Now what am I doing wrong <matternc@comcast.net>
Re: Now what am I doing wrong <ebohlman@omsdev.com>
Re: Now what am I doing wrong (Jay Tilton)
Re: Now what am I doing wrong <tintin@invalid.invalid>
Re: one more IP addr regexp <tintin@invalid.invalid>
Re: one more IP addr regexp <news@chaos-net.de>
The Problem with Perl <goedicke@brandeis.edu>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: 8 Feb 2005 20:28:59 -0800
From: ioneabu@yahoo.com
Subject: Re: all_sequences.pl (Was: Perl - permute?)
Message-Id: <1107923339.806207.254520@g14g2000cwa.googlegroups.com>
kj wrote:
> In <1107709033.0d15271ffc45f8463e1fcde7dddd2c79@bubbanews> Ej
<justsurge@mailcan.com> writes:
>
> >Hi,
> >How can I take an array (a,b,c,d,e) and list ALL possible [3 LETTER]
combos
> >of these letters, I want the output to look like
>
> >abc
> >acb
> >aab
> >aaa
>
> Iterative or recursive, take your pick.
>
> sub all_sequences {
> my ($alphabet, $n) = @_;
> return [] unless @$alphabet;
> return [''] unless $n;
>
> my @words = @$alphabet;
>
> for (2..$n) {
> for my $i (reverse 0..$#words) {
> my $word = $words[$i];
> splice @words, $i, 1, map "${word}$_", @$alphabet;
> }
> }
>
> return \@words;
> }
>
> sub all_sequences_recursive {
> my ($alphabet, $n) = @_;
> return [] unless @$alphabet;
> return [''] unless $n;
> return
> [ map { my $word = $_; map "${word}$_", @$alphabet }
> @{all_sequences_recursive($alphabet, $n-1)} ]
> }
>
> __END__
>
> DB<1> x all_sequences_recursive([ qw(a b c d e) ], 3);
> 0 ARRAY(0x23dae4)
> 0 'aaa'
> 1 'aab'
> 2 'aac'
>
> ...
>
> 122 'eec'
> 123 'eed'
> 124 'eee'
> --
> NOTE: In my address everything before the first period is backwards;
> and the last period, and everything after it, should be discarded.
Here is a solution that will make you sick.
I cannot even say that it works because
my computer got stuck on it:
#!/usr/bin/perl
use warnings;
use strict;
my @a = ('a' .. 'e');
my $max = 5*5*5;
my %results;
while (scalar keys %results < $max)
{
my $r1 = $a[int rand(4)];
my $r2 = $a[int rand(4)];
my $r3 = $a[int rand(4)];
my $result = "$r1$r2$r3";
$results{$result}++ if not $results{$result} and print $result,
"\n";
}
print "Here they are again, in order:\n";
print $_, "\n" for sort keys %results;
I think it should work eventually :-)
wana
------------------------------
Date: Wed, 09 Feb 2005 09:23:24 +0100
From: Constantin Wiemer <constantin.wiemer@infineon.com>
Subject: Re: Connecting to a Domino Db
Message-Id: <cuch9t$sph$1@athen03.muc.infineon.com>
DMB wrote:
> The DB2 option isn't available until version 7 which is not quite fully
> Gold. Even after it is rolled out, most databases will likely remain
> as .nsf files rather than mess with converting to db2. I have some
> Java code that connects to a .nsf database. If I post that would you
> know how to write similar code in Perl?
>
I guess so, if you pay me enough :)
I suggest you try on your own and come back to the group if you have
specific Perl questions. Actually rewriting the Java code in Perl
shouldn't be too hard.
Constantin Wiemer
------------------------------
Date: Tue, 8 Feb 2005 18:48:28 -0800
From: Steven Kuo <skuo@mtwhitney.nsc.com>
Subject: Re: Dynamically Generating A Format
Message-Id: <Pine.GSO.4.21.0502081838320.9899-100000@mtwhitney.nsc.com>
On 8 Feb 2005, Michael Powe wrote:
> >>>>> "Steven" == Steven Kuo <skuo@mtwhitney.nsc.com> writes:
(snipped)
> Steven> You may be better off using one of the template modules
> Steven> from CPAN. Regardless, one solution is mentioned in the
> Steven> 'perlform' documentation (see also 'perlvar' for $^A).
>
> Any suggestions?
If you're dealing with plain text, you can try Text::Template.
Else, give more details of what you're trying to do.
(snipped)
> Thanks much. I passed by that 'swrite' example in the docs because I
> didn't get what it was doing. (The perlform is where I picked up that
> 'eval' business.)
>
> I will work with this example, it makes sense to me.
The example I had provided is just the curried function form of the
'swrite' example. This article may make things clearer:
http://en.wikipedia.org/wiki/Currying
--
Hope this helps,
Steven
------------------------------
Date: 09 Feb 2005 00:43:08 -0500
From: Michael Powe <michael+gnus@trollope.org>
Subject: Re: Dynamically Generating A Format
Message-Id: <uwtti2sr7.fsf@trollope.org>
>>>>> "Steven" == Steven Kuo <skuo@mtwhitney.nsc.com> writes:
Steven> On 8 Feb 2005, Michael Powe wrote:
>> >>>>> "Steven" == Steven Kuo <skuo@mtwhitney.nsc.com> writes:
Steven> (snipped)
Steven> You may be better off using one of the template modules
Steven> from CPAN. Regardless, one solution is mentioned in the
Steven> 'perlform' documentation (see also 'perlvar' for $^A).
>> Any suggestions?
Steven> If you're dealing with plain text, you can try
Steven> Text::Template. Else, give more details of what you're
Steven> trying to do.
Hmm, in 25 words or less ;-) Well, I'm parsing two text configuration
files. 'Profiles' contains line entries of ID strings from 'filters,'
which contains the ID strings and a matching description. Due to some
kind of software foulup, some of the profiles ended up with ID strings
that had no matching entry in filters. So, I had to produce reports
showing which filter IDs had no matching entries in the filters file,
which profiles had no filters at all and a summary list of profiles
with their filters. The first two were easy. That's more than 25
words, I'm afraid.
Anyway, I just want the output to look good because this is for a
customer already not too happy about the snafu with the
configuration. But getting 'format' to make a list in place was
beyond me.
Steven> (snipped)
>> Thanks much. I passed by that 'swrite' example in the docs
>> because I didn't get what it was doing. (The perlform is where
>> I picked up that 'eval' business.)
>>
>> I will work with this example, it makes sense to me.
Steven> The example I had provided is just the curried function
Steven> form of the 'swrite' example. This article may make
Steven> things clearer:
Steven> http://en.wikipedia.org/wiki/Currying
Thanks, I will take a look.
Here's the result. This works but the hacking about with $-, $= and
$^L to get format_top is horrible. I really appreciate your help.
Thanks again.
mp
sub setform {
my $format = shift;
sub {
$^A = '';
formline($format, @_);
$^A;
}
}
sub print_all_filters{
my($filtersref,$key,$profile_name) = (@_);
my $top = << "END";
All Profiles With Filters
============================================================
Profile ID Profile Name
============================================================
END
$% = 1 if $% == 0;
if ($- == 0 && $% == 1) {
print $top;
$- = $= - 5;
} elsif ($- == 0 && $% > 1 ) {
print $^L . $top;
$- = $= - 5;
}
my @filters = @$filtersref;
my $profile_line =
setform('@<<<<<<<<<<< @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<'
. "\n");
my $filter_line =
setform('^<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<'
. "\n");
print $profile_line->($key, $profile_name);
$---;
print "Filters:\n";
$---;
for (@filters) {
print $filter_line->($_);
$---;
}
print "\n";
$---;
$%++ if $- == 0;
}
--
'cat' is not recognized as an internal or external command,
operable program or batch file.
------------------------------
Date: Wed, 9 Feb 2005 08:10:18 +0100
From: "Tassilo v. Parseval" <tassilo.von.parseval@rwth-aachen.de>
Subject: Re: Exception handling in class: question
Message-Id: <slrnd0jdqq.qb.tassilo.von.parseval@localhost.localdomain>
Also sprach Anno Siegel:
> Tassilo v. Parseval <tassilo.von.parseval@rwth-aachen.de> wrote in comp.lang.perl.misc:
>> my @result = eval { $obj->meth };
>> if ($@) {
>> die $@->msg;
>> }
>>
>> The advantage besides mimicking the exception handling seen in other
>> languages is that '$obj' does not need an additional '_error' slot. It's
>> always nice not to have to change the structure of existing code.
>
> Hmmm... From this code I don't see the point in using an exception
> object. Wouldn't a plain string do? I mean, if there were no
> Class::Exception, and Class did
>
> if (BAD_THING) {
> croak STRING;
> }
>
> and the client did
>
> my @result = eval { $obj->meth };
> if ($@) {
> die $@;
> }
>
> what would be the difference?
Arguably, there's not much of a difference if all the exception object
contains is a string. Those objects become more useful if they provide
information that would be difficult to wrap up in one string.
Tassilo
--
use bigint;
$n=71423350343770280161397026330337371139054411854220053437565440;
$m=-8,;;$_=$n&(0xff)<<$m,,$_>>=$m,,print+chr,,while(($m+=8)<=200);
------------------------------
Date: Tue, 08 Feb 2005 21:41:44 -0500
From: Chris Mattern <matternc@comcast.net>
Subject: Re: FAQ 6.10 How do I use a regular expression to strip C style comments from a file?
Message-Id: <boOdndpzLN_25ZTfRVn-tw@comcast.com>
Shawn Corey wrote:
> Chris Mattern wrote:
>> Because you may be using Perl to automate processing of C source
>> files; in fact that sort of thing is one of the things Perl is
>> very good at.
>>
> So, why won't I be using a C parser, or at least, lexx and yacc? Perl is
> not good at parsing, it's good at find patterns. Even the modules at
> CPAN don't compare to a good lexx/yacc parser.
>
> --- Shawn
Because while lex (Lexx was a TV show, I believe) and yacc have great
strength in parsing, they don't do anything else. Suppose you want to
strip out all the comments in a set of C programs AND rename them all
according to a certain rule AND zip them all into an archive AND scp
them to a remote host? You can do that all easily in a single Perl
script. I'm not saying that there's no point in stripping out the
comments with lex/yacc; the regexp given in the FAQ gives me hives,
no lie. Stretching regexps to do serious parsing has a real tendency
to end in tears, as the group regulars regularly tell newcomers who
want to parse HTML with regexps. But there's something to be said for
having an entire procedure wrapped up in one unified script, too.
--
Christopher Mattern
"Which one you figure tracked us?"
"The ugly one, sir."
"...Could you be more specific?"
------------------------------
Date: 9 Feb 2005 02:47:05 -0800
From: leegee@gmail.com (Lee Goddard)
Subject: Re: fields pragma
Message-Id: <30da21ec.0502090247.1005aec0@posting.google.com>
anno4000@lublin.zrz.tu-berlin.de (Anno Siegel) wrote in message news:<cubhmp$i1o$1@mamenchi.zrz.TU-Berlin.DE>...
> Lee Goddard <leegee@gmail.com> wrote in comp.lang.perl.misc:
> > Is it possible to use the fields pragma to specify the type of each
> > object member/field?
>
> What does the documentation say? "perldoc fields".
From what I understand, it impliments object fields using arrays, so
could never support what I'm after, as below:
> I'm not sure what you mean with "type of field". Do you want to distinguish
> strings, integers, floats? Or want to allow only certain kinds of refs
> (hash, array, code)? Or only objects of certain classes? Something else?
>
> > If not, is there a modulelist module which allows this to be done?
>
> Define "this". If with "types" you mean numeric types, check out PDL.
Thanks, Anno: that's the only thing I'm not after, which is basic
implimentation instantiating the fields with given perl types, either
scalars or references. Instances of objects would be nice, too, but
not something I need today.
I tried declaring my own global fields hash and instantiating objects
from it, but of course, setting a field to instantiate to an anonymous
hash/array is setting the field in every instance of the object to
refer to the same anonymous hash/array.
So I wrote the necessary code to get around this (check type of ref,
create new anon thingy), but it seems so necessary that I thought
there might be a pragma for it.
Perhaps the Class::* modules do this, but I'm scared of the overhead.
Lee
------------------------------
Date: Tue, 08 Feb 2005 20:21:57 -0700
From: YYusenet <yyusenet@yahoo.com>
Subject: Re: Getting a hash into a savable format
Message-Id: <cubvkl$tts$1@news.xmission.com>
Anno Siegel wrote:
> YYUsenet <yyusenet@yahoo.com> wrote in comp.lang.perl.misc:
>
>>I am rather new to Perl, so this may be a very easy to answer question.
>> I looked through the FAQ <perldoc -q hash> but it didn't give a direct
>>way to do it. Under the section "How do I process an entire hash?" it
>>gave a way to go through the whole hash, which I could save each thing
>>individually (maybe comma delimited). But this seems to me to be a very
>>unefficiant way to do it. I was wondering if there was a way to get it
>>saved to a file. Trying "print %hash" gives me everything in the hash
>>all bundled together, which I don't think will work. Any help will be
>>greatly appreciated.
>
>
> perldoc Data::Dumper
> perldoc Storable
> see also FreezeThaw on CPAN
>
> Anno
Thank you,
However,
Data::Dumper seems to dump out a human readable form of the data. The
only problem is, it seems to me that it will be more work to get that
data back into the program than if you were to just print out a tab
delimited form of the data. The code that I was using is:
------------------
#!/usr/bin/Perl
use warnings;
use strict;
use Data::Dumper;
my %hash = ( 'v1' => 'a',
'v2' => 'b',
'v3' => 'c');
open (FILE, '>', 'file.txt');
print FILE Dumper ( \%hash);
__END__
------------------
I thought that Storable was exactly what I wanted, but it only seems to
give back a reference of the hash, not the hash at all (Something like
"HASH(0x18c3604)". Is it possible to use that data? The code that I
was using is:
------------------
#!/usr/bin/Perl
use warnings;
use strict;
use Storable qw(retrieve nstore store_fd nstore_fd freeze thaw dclone
fd_retrieve);
my %hash = ( 'v1' => 'a',
'v2' => 'b',
'v3' => 'c');
open (FILE, '>', 'file.txt');
binmode(FILE);
nstore_fd \%hash, \*FILE;
close (FILE);
my $nhash;
open (FILE, '<', 'file.txt');
binmode(FILE);
$nhash = fd_retrieve(\*FILE);
print $nhash;
__END__
------------------
I found and downloaded on CPAN FreezeThaw (http://tinyurl.com/4rnh6).
This seems like it might have some potential, but it seems only to work
with lists. The code that I was hoping for it to work with is:
------------------
#!/usr/bin/Perl
use warnings;
use strict;
use FreezeThaw qw(freeze thaw);
my %hash = ( 'v1' => 'a',
'v2' => 'b',
'v3' => 'c');
print %hash;
my $frozen = freeze \%hash;
my %unfrozen = thaw $frozen;
print %unfrozen;
__END__
------------------
*THANK YOU SO MUCH*!
--
k g a b e r t (@at@) x m i s s i o n (.dot.) c o m
* After "extensive" research, I noticed
* that yyusenet@yahoo.com received 12
* spam e-mail messages after just two
* posts on usenet groups. If you want
* to email me, use the "encrypted"
* email address at the beginning of my
* signature.
------------------------------
Date: 9 Feb 2005 03:27:05 GMT
From: John Bokma <postmaster@castleamber.com>
Subject: Re: Getting a hash into a savable format
Message-Id: <Xns95F7DA361D9B4castleamber@130.133.1.4>
YYusenet wrote:
> I thought that Storable was exactly what I wanted, but it only seems
> to give back a reference of the hash, not the hash at all (Something
> like "HASH(0x18c3604)". Is it possible to use that data?
of course
> use Storable qw(retrieve nstore store_fd nstore_fd freeze thaw dclone
> fd_retrieve);
>
> my %hash = ( 'v1' => 'a',
> 'v2' => 'b',
> 'v3' => 'c');
>
> open (FILE, '>', 'file.txt');
> binmode(FILE);
>
> nstore_fd \%hash, \*FILE;
>
> close (FILE);
>
> my $nhash;
>
> open (FILE, '<', 'file.txt');
> binmode(FILE);
>
> $nhash = fd_retrieve(\*FILE);
>
> print $nhash;
The example I see is much more simple:
use Storable;
store \%table, 'file';
$hashref = retrieve('file');
If you want it back in %table:
%table = %$hashref;
--
John Small Perl scripts: http://johnbokma.com/perl/
Perl programmer available: http://castleamber.com/
Happy Customers: http://castleamber.com/testimonials.html
------------------------------
Date: Wed, 09 Feb 2005 04:19:08 GMT
From: "Jürgen Exner" <jurgenex@hotmail.com>
Subject: Re: Getting a hash into a savable format
Message-Id: <0bgOd.14455$uc.13767@trnddc05>
YYusenet wrote:
> Data::Dumper seems to dump out a human readable form of the data. The
> only problem is, it seems to me that it will be more work to get that
> data back into the program than if you were to just print out a tab
> delimited form of the data.
Why instead of guessing don't you just read the first two paragraphs of the
documentation for Data::Dumper?
<quote>
Given a list of scalars or reference variables, writes out their
contents in perl syntax. [...]
The return value can be "eval"ed to get back an identical copy of the
original reference structure.
</quote>
jue
------------------------------
Date: 9 Feb 2005 01:19:28 -0800
From: mkrogsru@online.no (Anne-Marte)
Subject: Help!!! Newbee to win32-programming!
Message-Id: <5a429986.0502090119.b594b7e@posting.google.com>
I've written a simple perl-script which is supposed to run on a
win32-platform. What exactly do I need to do to make this script run?
I get an error message saying that my script is not a valid win32
application. I'm also trying to connect to an Oracle database using
DBI. What am I doing wrong?
Anne-Marte Krogsrud
------------------------------
Date: Wed, 09 Feb 2005 10:27:00 GMT
From: "Atlantis" <noeltd@hotmail.com>
Subject: Re: Help!!! Newbee to win32-programming!
Message-Id: <UzlOd.138$w%6.4@newsfe5-win.ntli.net>
"Anne-Marte" <mkrogsru@online.no> wrote in message
news:5a429986.0502090119.b594b7e@posting.google.com...
> I've written a simple perl-script which is supposed to run on a
> win32-platform. What exactly do I need to do to make this script run?
> I get an error message saying that my script is not a valid win32
> application. I'm also trying to connect to an Oracle database using
> DBI. What am I doing wrong?
>
> Anne-Marte Krogsrud
To run your script, drop to dos command line and type...
perl myscript.pl
... obviously substitute myscript.pl as appropriate.
------------------------------
Date: Wed, 09 Feb 2005 04:10:17 +0100
From: Gunnar Hjalmarsson <noreply@gunnar.cc>
Subject: Re: Learning Perl - resources and ideas
Message-Id: <36tdd2F5666p5U1@individual.net>
Tad McClellan wrote:
> Gunnar Hjalmarsson wrote:
>> Cody Houston wrote:
>>>
>> The subject is totally off topic in the groups rec.photo.digital
>> and rec.photo.equipment.35mm, which you had stated in a
>> Followup-To: header,
>
> Off to the killfile he goes...
Rash measure in this case. I just received a credible email from Cody,
who let me know that the original message in this thread was posted by a
troll who had faked the "From:" header.
--
Gunnar Hjalmarsson
Email: http://www.gunnar.cc/cgi-bin/contact.pl
------------------------------
Date: Wed, 09 Feb 2005 01:16:06 -0500
From: Sherm Pendley <spamtrap@dot-app.org>
Subject: Re: Learning Perl - resources and ideas
Message-Id: <peGdnX_uM4QyN5TfRVn-uA@adelphia.com>
Gunnar Hjalmarsson wrote:
> Rash measure in this case. I just received a credible email from Cody,
> who let me know that the original message in this thread was posted by a
> troll who had faked the "From:" header.
Yup. There was another message a few days ago with a similar question and
the same followup groups, but a different "From:" address. I'd say someone
has an axe to grind.
sherm--
--
Cocoa programming in Perl: http://camelbones.sourceforge.net
Hire me! My resume: http://www.dot-app.org
------------------------------
Date: 9 Feb 2005 03:04:14 -0800
From: kurt.semba@gmx.de (Kurt)
Subject: Net::Nessus Package
Message-Id: <4ac4c245.0502090304.9d94ac9@posting.google.com>
Hi all,
Is it possible to start an attack (this already works with the
Net::Nessus::Client module) and after the nessus server finished
scanning loop through all the results directly?
What I cannot use is this given example on cpan
my @ftp_holes = @{$messages->{'21'}->{'PORT'}};
since I don't know the ports /holes in advance , so I don't know which
ones to look for. I would need a list of found holes / warnings /notes
I could loop through like:
while (my $hole = give_me_next_hole($results_for_this_scan)) { ... }
Thanks in advance,
Kurt
------------------------------
Date: 9 Feb 2005 02:06:02 GMT
From: anno4000@lublin.zrz.tu-berlin.de (Anno Siegel)
Subject: Re: Now what am I doing wrong
Message-Id: <cubr6a$nie$1@mamenchi.zrz.TU-Berlin.DE>
<catcher39@www.com> wrote in comp.lang.perl.misc:
> Tad McClellan wrote:
> > catcher39@www.com <catcher39@www.com> wrote:
> > (threads are defined by the References: header)
> Tell that to GOOGLE
It's your posting and your responsibility. Use a decent newsreader.
Anno
------------------------------
Date: Tue, 08 Feb 2005 21:26:32 -0500
From: Chris Mattern <matternc@comcast.net>
Subject: Re: Now what am I doing wrong
Message-Id: <U8idncjLoqxH6ZTfRVn-uA@comcast.com>
A. Sinan Unur wrote:
> Chris Mattern <matternc@comcast.net> wrote in
> news:M5adnUdUXfvO8ZTfRVn-rw@comcast.com:
>
>> catcher39@www.com wrote:
>>
>>>
>>> Tad McClellan wrote:
>>>> catcher39@www.com <catcher39@www.com> wrote:
>>>>
>>>> > Subject: Now what am I doing wrong
>>>>
>>>>
>>>> Please put the subject of your article in the Subject of your
>>> article!
>>>>
>>>>
>>>
>>> What are you talking about ? Not everybody is as rich as you are and
>>> can afford a dedicated USENET newsgroup reader. For those of us using
>>> Google there is no other way of doing a post. So lump it.
>>
>> Are you saying that Google forces you to use uninformative subject
>> lines? Somehow, I really doubt that.
>
> I think the more fundamental question is "what does being rich have to
> do with using a dedicated newsreader?"
>
> But then, what do I know.
>
I think his point is that to use a dedicated newsreader, you have to
have access to a news server. But even if your ISP has cheaped
out on you, free news servers can be found, I understand.
--
Christopher Mattern
"Which one you figure tracked us?"
"The ugly one, sir."
"...Could you be more specific?"
------------------------------
Date: 9 Feb 2005 02:32:15 GMT
From: Eric Bohlman <ebohlman@omsdev.com>
Subject: Re: Now what am I doing wrong
Message-Id: <Xns95F7D21A67574ebohlmanomsdevcom@130.133.1.4>
"A. Sinan Unur" <1usa@llenroc.ude.invalid> wrote in
news:Xns95F7D4F39A63Dasu1cornelledu@127.0.0.1:
> Chris Mattern <matternc@comcast.net> wrote in
> news:M5adnUdUXfvO8ZTfRVn-rw@comcast.com:
>>> What are you talking about ? Not everybody is as rich as you are and
>>> can afford a dedicated USENET newsgroup reader. For those of us using
>>> Google there is no other way of doing a post. So lump it.
>>
>> Are you saying that Google forces you to use uninformative subject
>> lines? Somehow, I really doubt that.
>
> I think the more fundamental question is "what does being rich have to
> do with using a dedicated newsreader?"
>
> But then, what do I know.
Copy of Xnews: $0.00
Subscription to news.individual.net: $0.00
Proper Usenet access: Priceless
------------------------------
Date: Wed, 09 Feb 2005 03:11:41 GMT
From: tiltonj@erols.com (Jay Tilton)
Subject: Re: Now what am I doing wrong
Message-Id: <42097e6f.419505226@news.erols.com>
catcher39@www.com wrote:
: Oh , sorry Mr AllMighty and Powerful and Obnoxious McClellan. I am
: sorry that you had to take out 3 minutes from your ultra special and
: expensive time to rant at someone who had already been helped by people
: who were obviously several stations below you in life.
Awww...somebody missed his nap time, and now he's all cranky.
The idea was to show you how to get Perl to do the utterly trivial thing
you asked other people to do. Twit.
------------------------------
Date: Wed, 9 Feb 2005 19:36:00 +1300
From: "Tintin" <tintin@invalid.invalid>
Subject: Re: Now what am I doing wrong
Message-Id: <36tp76F57k2ocU1@individual.net>
"Eric Bohlman" <ebohlman@omsdev.com> wrote in message
news:Xns95F7D21A67574ebohlmanomsdevcom@130.133.1.4...
> "A. Sinan Unur" <1usa@llenroc.ude.invalid> wrote in
> news:Xns95F7D4F39A63Dasu1cornelledu@127.0.0.1:
>
>> Chris Mattern <matternc@comcast.net> wrote in
>> news:M5adnUdUXfvO8ZTfRVn-rw@comcast.com:
>>>> What are you talking about ? Not everybody is as rich as you are and
>>>> can afford a dedicated USENET newsgroup reader. For those of us using
>>>> Google there is no other way of doing a post. So lump it.
>>>
>>> Are you saying that Google forces you to use uninformative subject
>>> lines? Somehow, I really doubt that.
>>
>> I think the more fundamental question is "what does being rich have to
>> do with using a dedicated newsreader?"
>>
>> But then, what do I know.
>
> Copy of Xnews: $0.00
> Subscription to news.individual.net: $0.00
> Proper Usenet access: Priceless
LOL. Now, I'm saving that one in my archives.
------------------------------
Date: Wed, 9 Feb 2005 19:34:33 +1300
From: "Tintin" <tintin@invalid.invalid>
Subject: Re: one more IP addr regexp
Message-Id: <36tp4dF4vujtmU1@individual.net>
> Martin Kissner wrote:
>
>> Big and Blue wrote :
>>>>Would be useful if it matched valid IP addresses.
>>>
>>> 572662306 is a valid IP address.
>>>
>>> As is 04210421042.
>>>
>>> And 0x22222222.
>>>
>>> And 34.34.8738 (I could go on...)
>>>
>>> Try telnet'ing to them. You'll see they all (try to) connect to
>>> 34.34.34.34.
Any reason that Haliburton was used as the example?
------------------------------
Date: Wed, 9 Feb 2005 10:04:38 +0100
From: Martin Kissner <news@chaos-net.de>
Subject: Re: one more IP addr regexp
Message-Id: <slrnd0jkh6.6cm.news@maki.homeunix.net>
Tintin wrote :
>
>
>> Martin Kissner wrote:
>>
>>> Big and Blue wrote :
>>>>>Would be useful if it matched valid IP addresses.
>>>>
>>>> 572662306 is a valid IP address.
>>>>
>>>> As is 04210421042.
>>>>
>>>> And 0x22222222.
>>>>
>>>> And 34.34.8738 (I could go on...)
>>>>
>>>> Try telnet'ing to them. You'll see they all (try to) connect to
>>>> 34.34.34.34.
>
> Any reason that Haliburton was used as the example?
Please read http://learn.to/quote .
I am not the author of the quoted lines.
Regards
Martin
--
perl -e 'print 7.74.117.115.116.11.32.13.97.110.111.116.104.101.114.11
.32.13.112.101.114.108.11.32.13.104.97.99.107.101.114.10.7'
------------------------------
Date: Wed, 09 Feb 2005 05:32:46 -0500
From: William Goedicke <goedicke@brandeis.edu>
Subject: The Problem with Perl
Message-Id: <m3d5vauipd.fsf@goedsole.com>
Dear Y'all -
As a preferatory note let me say that I've been writing perl for a
decade or so now and, I love perl. It allows me to concentrate my
sporadic programming efforts on a single tool because of its breadth
of functionality.
I've got some friends whose programming activity is not at all like
the sporadic hacks that I engage in. They're extremely expert
programmers with advanced programming degrees from MIT who are
developing things like tank simulations for the DoD in lisp and other
more arcane languages. With the one caveat that it may be OK for a
piker like me who doesn't need to code anything major, they speak of
perl with utter contempt.
The point of this message is that I'd like to open a discussion that
identifies exactly what it is about Perl as a language that offends
the literati of programming and, respecting that there may be some
valid points there, how we can code to avoid the problems these issues
may lead to.
My best understanding of what they think the problem is that Perl is
"context sensitive". That is it behaves differently when data
changes, if lists slip in where scalars were intended the results may
be wildly different than expected. This wouldn't be true in strongly
typed languages like C or lisp.
Do others have knowledge of such (and possibly other) criticisms and,
what do you think we should do to avoid the associated pitfalls.
- Billy
============================================================
William Goedicke goedicke@goedsole.com
Cell 617-510-7244 http://www.goedsole.com:8080
============================================================
Lest we forget:
"ff0000" (html for bright red) turns out to be as good
an indicator of spam as any pornographic term.
- Paul Graham
------------------------------
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 7758
***************************************
