[24267] in Perl-Users-Digest
Perl-Users Digest, Issue: 6458 Volume: 10
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Sat Apr 24 18:05:57 2004
Date: Sat, 24 Apr 2004 15:05:11 -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 Sat, 24 Apr 2004 Volume: 10 Number: 6458
Today's topics:
Re: .plx <robin @ infusedlight.net>
Re: activeperl + -T option <robin @ infusedlight.net>
Re: assigning variable to a pipe <tadmc@augustmail.com>
Re: assigning variable to a pipe <jwillmore@remove.adelphia.net>
Re: Encrypting files <Joe.Smith@inwap.com>
Re: free source guestbook (finished) <robin @ infusedlight.net>
ides <robin @ infusedlight.net>
Re: mod_perl, apache <perl@my-header.org>
Re: need a good module. <robin @ infusedlight.net>
Re: need a good module. <uri@stemsystems.com>
Re: need a good module. <robin @ infusedlight.net>
Re: need a good module. <tadmc@augustmail.com>
Re: need a good module. <uri@stemsystems.com>
Re: need a good module. <robin @ infusedlight.net>
Re: need a good module. <robin @ infusedlight.net>
Novice and willing to learn <andries@zilz.nl>
Re: Novice and willing to learn <sbryce@scottbryce.com>
Re: Novice and willing to learn <noreply@gunnar.cc>
Re: Novice and willing to learn <gnari@simnet.is>
Re: Novice and willing to learn <robin @ infusedlight.net>
Re: Novice and willing to learn <tadmc@augustmail.com>
Re: Novice and willing to learn <andries@zilz.nl>
Re: Novice and willing to learn <robin @ infusedlight.net>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Sat, 24 Apr 2004 12:10:50 -0700
From: "Robin" <robin @ infusedlight.net>
Subject: Re: .plx
Message-Id: <c6efqr$mm8$2@reader2.nmix.net>
"Tad McClellan" <tadmc@augustmail.com> wrote in message
news:slrnc8dc79.1lo.tadmc@magna.augustmail.com...
> Robin <robin@infusedlight.net> wrote:
>
> > actually I know quite a bit about nt servers....
>
>
> Do you have any bridges for sale?
>
no...sorry.... I wish.
-Robin
------------------------------
Date: Sat, 24 Apr 2004 12:14:03 -0700
From: "Robin" <robin @ infusedlight.net>
Subject: Re: activeperl + -T option
Message-Id: <c6efqs$mm8$3@reader2.nmix.net>
> Another solution is to have your CGI scripts end with .cgi rather than .pl
> and then create the association of .cgi to perl with -T enabled. This
> forces all cgi scripts to be run with -T while normal perl scripts (.pl)
are
> not.
>
> --
> brian
good call! I hadn't thought of that at all.
-Robin
------------------------------
Date: Sat, 24 Apr 2004 09:57:02 -0500
From: Tad McClellan <tadmc@augustmail.com>
Subject: Re: assigning variable to a pipe
Message-Id: <slrnc8l01u.91o.tadmc@magna.augustmail.com>
mike <s99999999s2003@yahoo.com> wrote:
> PS:
> The original code was
> open SQL, "| sql -Uuser -Sserver -Ppassword " or die "Failed to open pipe: $!" ;
> print SQL "select \* from this_table";
Why are you shelling out instead of using DBI.pm?
Your problem does not exist if you use DBI to communicate with your DB.
--
Tad McClellan SGML consulting
tadmc@augustmail.com Perl programming
Fort Worth, Texas
------------------------------
Date: Sat, 24 Apr 2004 11:07:10 -0400
From: James Willmore <jwillmore@remove.adelphia.net>
Subject: Re: assigning variable to a pipe
Message-Id: <pan.2004.04.24.15.07.05.347919@remove.adelphia.net>
On Fri, 23 Apr 2004 22:55:25 -0700, mike wrote:
[ ... ]
> PS:
> The original code was
> open SQL, "| sql -Uuser -Sserver -Ppassword " or die "Failed to open pipe: $!" ;
> print SQL "select \* from this_table";
> and the intention was to assign the output to a variable
Is there some reason why you're not using the DBI module to interact with
your database (http://search.cpan.org/~timb/DBI-1.42/DBI.pm)? I see from
your code example that's what you *really* want to do.
Just my $0.02
HTH
--
Jim
Copyright notice: all code written by the author in this post is
released under the GPL. http://www.gnu.org/licenses/gpl.txt
for more information.
a fortune quote ...
Arithmetic is being able to count up to twenty without taking
off your shoes. -- Mickey Mouse
------------------------------
Date: Sat, 24 Apr 2004 10:22:39 GMT
From: Joe Smith <Joe.Smith@inwap.com>
Subject: Re: Encrypting files
Message-Id: <Pdric.12512$0u6.2170208@attbi_s03>
SlimClity wrote:
> The script is part of a larger automated process. To make sure that
> the encrypting and decrypting goes well we want to create an MD5
> checksum before and after the encryption. This works if the original
> file is in parts of 16. But when the file don't exists in parts of 16
> then "0" are add to make the encryption work.
You've discovered the difficulties of recovering raw data.
It would be better to put some structure in the encrypted file to
store metadata, like the size of the unencrypted file. I recommend
a file format that allows you to use "head -1 file.enc" to read the header.
You may have noticed that compressed files (*.Z and *.gz) have these
kinds of headers in the file.
In encrypt.pl, between "binmode OUTF;" and "while (", I would add
print OUT fileheader($srcfile);
so that there is enough information in the file for decrypt.pl to
recover the original file size.
use constant FORMAT => "SC/enc-1.0"; # SlimClity/encryption version 1.0
sub fileheader {
my $file = shift;
my ($mode,$size,$atime,$mtime) = (stat $file)[2,7,8,9];
my $header = sprintf "%s size=%d mode=%o time=%d access=%d name=%s\n",
FORMAT, $size, ($mode & 07777), $mtime, $atime, $file;
get16($header);
}
In decrypt.pl, you can use
open my $inf,$srcfile or die;
my ($size,$mode,$mtime,$atime,$destfile,$data) = get_fileheader($inf);
open my $outf,$destfile or die;
...
truncate $outf,$size or warn; # Remove any null padding
close $outf or die;
chmod $mode,$destfile or warn; # Restore file permissions
utime $atime,$mtime,$destfile or warn; # File access time and modify time
exit; # $inf gets closed automatically
use constant FORMAT => "SC/enc-1.0"; # SlimClity/encryption version 1.0
sub get_fileheader {
my $fh = shift;
my $buffer;
my $count = read($fg,$buffer,1024);
my ($header) = /^(.*?)\n/;
my ($format,$size,$mode,$atime,$mtime,$name) = $header =~
/(.*) size=(\d+) mode=(\d+) time=(\d+) access=(\d+) name=(.*)/;
die "Invalid file format '$header'\n" unless $format eq FORMAT;
$buffer = substr $buffer, length(get16($header));
($size,$mode,$mtime,$atime,$name,$buffer);
}
-Joe
------------------------------
Date: Sat, 24 Apr 2004 12:17:21 -0700
From: "Robin" <robin @ infusedlight.net>
Subject: Re: free source guestbook (finished)
Message-Id: <c6efqt$mm8$5@reader2.nmix.net>
> That was not what I meant. If you post a follow-up to a posting and
> additionally send the follow-up as mail, state that in the mail with
> something like
>
> [ also posted to comp.lang.perl.misc ]
>
> or
>
> [ posted and mailed ]
>
> or so.
>
> Tassilo
> --
will do.
------------------------------
Date: Sat, 24 Apr 2004 13:58:47 -0700
From: "Robin" <robin @ infusedlight.net>
Subject: ides
Message-Id: <c6elkj$ofe$2@reader2.nmix.net>
I'm thinking about perl ides in VB or Visual CPP and I'm wondering if
someone has some good links on how it's done or some information on how one
could access the perl binary to produce output in a window on windows?
Thanks.
--
Regards,
-Robin
--
[ webmaster @ infusedlight.net ]
------------------------------
Date: Sat, 24 Apr 2004 23:21:01 +0200
From: Matija Papec <perl@my-header.org>
Subject: Re: mod_perl, apache
Message-Id: <7aml809uqcpqlk286t5a89dhk3lon1t8ku@4ax.com>
X-Ftn-To: Gunnar Hjalmarsson
Gunnar Hjalmarsson <noreply@gunnar.cc> wrote:
>> I guess, it's slightly related to perl modules.
>
>In the subject line you mention mod_perl, but then you talk about
>serving PHP scripts, and that's done through mod_php, isn't it? To me
>it sounds as if your problem is much better suited for an Apache group.
Tnx, but actually mod_perl has ability to access Apache guts, so I was
wandering if there is perl interface to changing UIDS of httpd childs.
--
Matija
------------------------------
Date: Sat, 24 Apr 2004 12:07:47 -0700
From: "Robin" <robin @ infusedlight.net>
Subject: Re: need a good module.
Message-Id: <c6ef57$mg2$1@reader2.nmix.net>
"Uri Guttman" <uri@stemsystems.com> wrote in message
news:x73c6uiaru.fsf@mail.sysarch.com...
> >>>>> "MD" == Michele Dondi <bik.mido@tiscalinet.it> writes:
>
> MD> On Fri, 23 Apr 2004 03:03:07 GMT, Uri Guttman <uri@stemsystems.com>
> MD> wrote:
>
> >> i use Delete::Robin all the time. i highly recommend it.
> >>
> >> why do these dumb self-taught coders never realize how little we care
> >> about their opinions or code? is it some self-delusion that they
>
> MD> Dear URI,
>
> MD> I, for one, slightly *disagree* with you: while I find too that
> MD> most threads started by Robin are a real PITA, I don't see why *a
> MD> priori* self-taught coders' opinons/code should not be cared. Of
> MD> course it would be better if they accepted more intelligently the
> MD> suggestions they receive, but then again I, for one, am a
> MD> self-taught coder happily perling mostly everyday on a
> MD> non-professional basis *and* AFAICT you've never complained with
> MD> me like this, yet, my very first posts here were not much better
> MD> than Robin's. (I suppose!)
>
> the problem is that too many self taught coders don't understand the
> real issues involved (security, accuracy, effciency, etc) and just hack
> it to get what looks like some working results. i am not saying all
> self-taught coders are like this (randal schwartz surely is not) but
> without some training or peer review or a true educational curiosity and
> an open mind that is willing to learn, you get moronzilla or robin
> types. they think because something is working on the surface (and it is
> almost always web stuff today) then it must be ok. none of the real dark
> problems are understood nor addressed and of course when you bring them
> up, you get shot down as some elitest. working in the computer field
> requires a certain level of critical and structured thinking and that is
> not something everyone has. but you can get by with a little and code up
> a web page and claim you can do it and get a job. it is annoying to us
> (or me at least) that jobs are harder to find for that reason. now i am
> not for certifications but i wish there was a way to differentiate those
> who understand and know how to handle all aspects of coding and those
> who just code web stuff.
>
> MD> $uri->kindness->increase_by(10);
> MD> $uri->elitarism->increase_by(-10);
>
> and i don't think i was being elistist at all. i was just expressing my
> opinion that i am tired of robin who won't listen properly. so many
> things are still unaddressed by his code. basic fundamentals are lacking
> and just because it shows a functional web page it means to him that it
> is ok. sure for his use but don't pawn it off as something anyone else
> would want if they knew what it was. but then look at what happened to
> matt wright's scripts. thousands of kiddies used them and called
> themselves programmers. blecch.
are you calling me a script kiddie? I wrote a chat server at age 17 and have
read a lot. Maybe my code is not the most perfect code, but I'm taking the
advice of a lot of these people here, doesn't there have to be an artistic
liscence in code? I dunno if it's you who's hypocrite or me...
------------------------------
Date: Sat, 24 Apr 2004 20:40:01 GMT
From: Uri Guttman <uri@stemsystems.com>
Subject: Re: need a good module.
Message-Id: <x7vfjpds9r.fsf@mail.sysarch.com>
>>>>> "R" == Robin <robin @ infusedlight.net> writes:
R> are you calling me a script kiddie? I wrote a chat server at age 17
R> and have read a lot. Maybe my code is not the most perfect code,
R> but I'm taking the advice of a lot of these people here, doesn't
R> there have to be an artistic liscence in code? I dunno if it's you
R> who's hypocrite or me...
i have read a lot about brain surgery. want me to work on your brain?
was that chat server as robust and secure as the stuff you have been
posting here? you do learn but obliquely and never on the first 3 times
you are told how to do something. you seem to code with cutouts and not
with a design in mind. as i said, getting something to display working
html is not hard at all. so you did that, BFD. coding that shows you
understand all the issues and not having to be told what they are all
the time is another matter. even when you are told what to do and why
you do it begrudgingly and not fully integrating in the new
knowledge. that is what learning to code is all about. learning and
understanding what is behind the actual code and why you make each
coding decision. when you have that understanding you will know it and
so will the group. my comment about self taught coders is that they
usually come to that point much later and slower than others. coding is
an expression of a particular style of thinking and that doesn't come
naturally to most people. some have it, some can learn to varying
degrees and some will never get it. getting code to run is not the goal
but the path to it.
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: Sat, 24 Apr 2004 13:50:00 -0700
From: "Robin" <robin @ infusedlight.net>
Subject: Re: need a good module.
Message-Id: <c6el4g$oaq$1@reader2.nmix.net>
> i have read a lot about brain surgery. want me to work on your brain?
> was that chat server as robust and secure as the stuff you have been
> posting here?
Well, my code isn't all that insecure. And the chat server only crashed when
there was bugs in the code, not when people were using it. Of course I only
had like 4 people on it so I dunno if it would have handled a heavier load.
you do learn but obliquely and never on the first 3 times
> you are told how to do something. you seem to code with cutouts and not
> with a design in mind. as i said, getting something to display working
> html is not hard at all. so you did that, BFD. coding that shows you
> understand all the issues and not having to be told what they are all
> the time is another matter. even when you are told what to do and why
> you do it begrudgingly and not fully integrating in the new
> knowledge. that is what learning to code is all about. learning and
> understanding what is behind the actual code and why you make each
> coding decision. when you have that understanding you will know it and
> so will the group. my comment about self taught coders is that they
> usually come to that point much later and slower than others. coding is
> an expression of a particular style of thinking and that doesn't come
> naturally to most people. some have it, some can learn to varying
> degrees and some will never get it. getting code to run is not the goal
> but the path to it.
I like this rant, I'll keep it in mind.
--
Regards,
-Robin
--
[ webmaster @ infusedlight.net ]
------------------------------
Date: Sat, 24 Apr 2004 15:57:04 -0500
From: Tad McClellan <tadmc@augustmail.com>
Subject: Re: need a good module.
Message-Id: <slrnc8ll50.a1i.tadmc@magna.augustmail.com>
Robin <robin@infusedlight.net> wrote:
> are you calling me a script kiddie?
The code you have posted here is a classic example of script kiddie code.
I dunno if _you_ are a script kiddie, but your code sure is.
--
Tad McClellan SGML consulting
tadmc@augustmail.com Perl programming
Fort Worth, Texas
------------------------------
Date: Sat, 24 Apr 2004 21:01:29 GMT
From: Uri Guttman <uri@stemsystems.com>
Subject: Re: need a good module.
Message-Id: <x7r7uddr9y.fsf@mail.sysarch.com>
>>>>> "R" == Robin <robin @ infusedlight.net> writes:
R> Well, my code isn't all that insecure. And the chat server only
R> crashed when there was bugs in the code, not when people were using
R> it. Of course I only had like 4 people on it so I dunno if it would
R> have handled a heavier load.
ok, this will help you. you don't have the skills (yet!?) to judge if
your code is insecure. you have no skills in understanding basic let
alone complex security issues. do you even understand what a race
condition is? it has been mentioned to you and your earlier versions had
them. moronzilla has no clue about them and likes it that way. now you
don't have to go to school to learn about race conditions but it is an
issue you need to understand and one of hundreds and thousands of
others. you don't even realize how much you have yet to learn about
programming. what you have played with is the ice cube part of the artic
ice pack. as i said, getting something to display working behavior
doesn't mean it is properly working. you have to learn what professional
code really means. that includes security, performance, stability,
maintainability, documentation, and many others.
R> I like this rant, I'll keep it in mind.
just keep more of the perl docs in mind. as well as a dozen or so good
books on computer science.
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: Sat, 24 Apr 2004 14:00:11 -0700
From: "Robin" <robin @ infusedlight.net>
Subject: Re: need a good module.
Message-Id: <c6eo79$p5b$1@reader2.nmix.net>
"Tad McClellan" <tadmc@augustmail.com> wrote in message
news:slrnc8ll50.a1i.tadmc@magna.augustmail.com...
> Robin <robin@infusedlight.net> wrote:
>
> > are you calling me a script kiddie?
>
>
> The code you have posted here is a classic example of script kiddie code.
>
> I dunno if _you_ are a script kiddie, but your code sure is.
ok.... touche.
-Robin
------------------------------
Date: Sat, 24 Apr 2004 14:39:45 -0700
From: "Robin" <robin @ infusedlight.net>
Subject: Re: need a good module.
Message-Id: <c6eo7a$p5b$2@reader2.nmix.net>
> R> Well, my code isn't all that insecure. And the chat server only
> R> crashed when there was bugs in the code, not when people were using
> R> it. Of course I only had like 4 people on it so I dunno if it would
> R> have handled a heavier load.
>
> ok, this will help you. you don't have the skills (yet!?) to judge if
> your code is insecure. you have no skills in understanding basic let
> alone complex security issues. do you even understand what a race
> condition is? it has been mentioned to you and your earlier versions had
> them. moronzilla has no clue about them and likes it that way. now you
> don't have to go to school to learn about race conditions but it is an
> issue you need to understand and one of hundreds and thousands of
> others. you don't even realize how much you have yet to learn about
> programming. what you have played with is the ice cube part of the artic
> ice pack. as i said, getting something to display working behavior
> doesn't mean it is properly working. you have to learn what professional
> code really means. that includes security, performance, stability,
> maintainability, documentation, and many others.
>
> R> I like this rant, I'll keep it in mind.
>
> just keep more of the perl docs in mind. as well as a dozen or so good
> books on computer science.
>
> uri
good call,
-Robin
------------------------------
Date: Sat, 24 Apr 2004 19:27:24 +0200
From: Andries <andries@zilz.nl>
Subject: Novice and willing to learn
Message-Id: <588l80t8724uq8npgk8kr50siupqk7jseo@4ax.com>
Hello out there,
Don't spank me.
I'm trying to learn Perl but i'm in a hurry right now and can't find
(yet) how to do this. (You'll notice my novice talents by the
question.)
I have this in large quantities ia a huge text-file:
Geslacht: xxx
Achternaam : xxxx
Voorletters: xxx
Tussenvoegsel(s): xxxx
Adres : xxxxx
Postcode : xxxxx
Woonplaats : xxxx
Telefoonnummer : xxxxx
e-mail (privé) : xxxxxx
Schoollocatie : xxxxxx
Schooladres : xxxxxx
Postcode: xxxxx
Plaats : xxxxx
Telefoonnummer: xxxxx
E-mail school : xxxxxxx
What do i want/need is this:
I want to make a report with only a selection of the data.
Like this f.i
Achternaam : xxxx
Voorletters: xxx
Tussenvoegsel(s): xxxx
Schoollocatie : xxxxxx
Schooladres : xxxxxx
Achternaam : xxxx
Voorletters: xxx
Tussenvoegsel(s): xxxx
Schoollocatie : xxxxxx
Schooladres : xxxxxx
etc.
I want to experiment with this also to learn as quickly as possible so
if anyone is willing to help me please do it the way i can comprehend
what is happening so i can adapt it too.
TIA
Andries Meijer
zilz@home.nl
------------------------------
Date: Sat, 24 Apr 2004 12:05:49 -0600
From: Scott Bryce <sbryce@scottbryce.com>
Subject: Re: Novice and willing to learn
Message-Id: <108lb3skib3gg96@corp.supernews.com>
Andries wrote:
> Hello out there,
Hi.
> Don't spank me.
This isn't a good way to introduce yourself.
> I'm trying to learn Perl
That's good.
> but i'm in a hurry right now
That's not good.
> if anyone is willing to help me please do it
Have you read the posting guidelines for this newsgroup? "please write
this script for me" type questions usually don't get good responses here.
The best way to get help here is to make an effort at solving the
problem yourself first. If you run into a snag, post a concise, but
complete program that demonstrates the specific problem. Tell us what
data you are using, what output you expect and what output you are
getting. It also helps to let us know what you have tried to help solve
the problem on your own.
If you follow those guidelines, you should get plenty of help here.
------------------------------
Date: Sat, 24 Apr 2004 20:30:34 +0200
From: Gunnar Hjalmarsson <noreply@gunnar.cc>
Subject: Re: Novice and willing to learn
Message-Id: <c6ebq2$apnl1$1@ID-184292.news.uni-berlin.de>
Andries wrote:
> I have this in large quantities ia a huge text-file:
<file extract>
> What do i want/need is this:
> I want to make a report with only a selection of the data. Like
> this f.i
>
> Achternaam : xxxx
> Voorletters: xxx
> Tussenvoegsel(s): xxxx
> Schoollocatie : xxxxxx
> Schooladres : xxxxxx
You can for instance create a hash whose keys identify the lines you
want to be printed:
my %toBePrinted;
@toBePrinted{ qw/Achternaam Voorletters Tussenvoegsel
Schoollocatie Schooladres/ } = ();
and then, when reading the file line by line, you could do:
my ($key) = /(\w+)/;
print if exists $toBePrinted{$key};
> I want to experiment with this also to learn as quickly as possible
Good.
> so if anyone is willing to help me please do it the way i can
> comprehend what is happening so i can adapt it too.
Nothing is "happening", until you have written the program you need.
Good luck!
--
Gunnar Hjalmarsson
Email: http://www.gunnar.cc/cgi-bin/contact.pl
------------------------------
Date: Sat, 24 Apr 2004 18:27:08 -0000
From: "gnari" <gnari@simnet.is>
Subject: Re: Novice and willing to learn
Message-Id: <c6ebf3$5hm$1@news.simnet.is>
"Andries" <andries@zilz.nl> wrote in message
news:588l80t8724uq8npgk8kr50siupqk7jseo@4ax.com...
> Hello out there,
>
> I have this in large quantities ia a huge text-file:
> Geslacht: xxx
> Achternaam : xxxx
> Voorletters: xxx
> Tussenvoegsel(s): xxxx
[snip more fields]
you want a subset of fields in output
I am assuming assuming you are using a
while (<>) {...}
loop.
if the number of output fields is small,
and the list not likely to change,
it may suffice make a print statement for
each one
print of /^Achternaam :/;
print if /^Voorletters:/;
print if /^Tussenvoegsel\(s\):/;
print if /^Schoollocatie :/;
print if /^Schooladres :/;
if the formatting is not regular, and may
contain a irregular number of spaces, you
can do somethiong like:
print if /^Schoollocatie *:/;
if you want to generalise the script, you
could declare the printable field names before
the loop:
my %want= (
'Achternaam' => 1,
'Voorletters' => 1,
'Tussenvoegsel(s)' => 1,
'Schoollocatie' => 1,
'Schooladres' => 1,
);
while (<>) {
my ($name,$value)=split / *: */,$_,2;
print if $want{$_}
}
gnari
------------------------------
Date: Sat, 24 Apr 2004 12:09:33 -0700
From: "Robin" <robin @ infusedlight.net>
Subject: Re: Novice and willing to learn
Message-Id: <c6efqr$mm8$1@reader2.nmix.net>
"Andries" <andries@zilz.nl> wrote in message
news:588l80t8724uq8npgk8kr50siupqk7jseo@4ax.com...
> Hello out there,
>
> Don't spank me.
> I'm trying to learn Perl but i'm in a hurry right now and can't find
> (yet) how to do this. (You'll notice my novice talents by the
> question.)
>
> I have this in large quantities ia a huge text-file:
> Geslacht: xxx
> Achternaam : xxxx
> Voorletters: xxx
> Tussenvoegsel(s): xxxx
> Adres : xxxxx
> Postcode : xxxxx
> Woonplaats : xxxx
> Telefoonnummer : xxxxx
> e-mail (privé) : xxxxxx
> Schoollocatie : xxxxxx
> Schooladres : xxxxxx
> Postcode: xxxxx
> Plaats : xxxxx
> Telefoonnummer: xxxxx
> E-mail school : xxxxxxx
>
>
> What do i want/need is this:
> I want to make a report with only a selection of the data.
> Like this f.i
>
> Achternaam : xxxx
> Voorletters: xxx
> Tussenvoegsel(s): xxxx
> Schoollocatie : xxxxxx
> Schooladres : xxxxxx
>
> Achternaam : xxxx
> Voorletters: xxx
> Tussenvoegsel(s): xxxx
> Schoollocatie : xxxxxx
> Schooladres : xxxxxx
>
> etc.
>
> I want to experiment with this also to learn as quickly as possible so
> if anyone is willing to help me please do it the way i can comprehend
> what is happening so i can adapt it too.
>
> TIA
>
> Andries Meijer
> zilz@home.nl
>
do you have code?
------------------------------
Date: Sat, 24 Apr 2004 13:13:25 -0500
From: Tad McClellan <tadmc@augustmail.com>
Subject: Re: Novice and willing to learn
Message-Id: <slrnc8lbi5.9j4.tadmc@magna.augustmail.com>
Andries <andries@zilz.nl> wrote:
> Don't spank me.
You'll get spanked if you do something wrong.
Just don't do anything wrong, and you won't have to worry about it.
> I'm trying to learn Perl but i'm in a hurry right now and can't find
> (yet) how to do this. (You'll notice my novice talents by the
^^^^
> question.)
Well yes, you haven't explained what that "this" is, so we
can't help with code that does that "this"...
> I have this in large quantities ia a huge text-file:
> What do i want/need is this:
> I want to make a report with only a selection of the data.
Errr, what criteria is used to select the ones you want?
Only the ones that start with "A" or "V" or "T" or "S"?
Only the 4th, 6th, 7th and 12th?
> Achternaam : xxxx
> Voorletters: xxx
> Tussenvoegsel(s): xxxx
> Schoollocatie : xxxxxx
> Schooladres : xxxxxx
>
> Achternaam : xxxx
> Voorletters: xxx
> Tussenvoegsel(s): xxxx
> Schoollocatie : xxxxxx
> Schooladres : xxxxxx
What is the difference between those two?
They look identical to me...
> I want to experiment with this
What "this"?
> also to learn as quickly as possible so
> if anyone is willing to help me please do it the way i can comprehend
> what is happening so i can adapt it too.
Tell us what you want in a way the we can comprehend so we can
adapt it into Perl code.
Have you seen the Posting Guidelines that are posted here frequently?
--
Tad McClellan SGML consulting
tadmc@augustmail.com Perl programming
Fort Worth, Texas
------------------------------
Date: Sat, 24 Apr 2004 23:10:14 +0200
From: Andries <andries@zilz.nl>
Subject: Re: Novice and willing to learn
Message-Id: <p4ll80dcqiupn7dv2e3tc8pf9p4l3f6vdd@4ax.com>
First of all my apologies! Truly meant.
No, i don't have code. How could I
I just started and i'm not further yet than "Hello world"
I use the sybex book called Perl, CGI and Javascript Complete.
I didn't want to insult any of you.
I always learn a lot from questions i ask and things i really need and
can use. I'm not a very theoretical man. I have trouble reading
learning books on computers. I really learn a lot from the problems i
stumble on and the question for help. When i comprehend a bit of the
language of Perl i'm on my way to make things myself because i can
look it up. When starting from scratch (as i am) is difficult.
I looked in this newsgroup an read a few things but most is mystical
to me.
I never made any program because when i was a youngster there weren't
any computers. And now at the age of 50 i want to learn Perl because i
read and heard it can do a lot with large quantaties of text.
I understand yout point and have to try first and make some code.
Point taken.
Anyway really thanks for pointing this out to me.
I guess i was a bit naive.
Andries Meijer
zilz@home.nl
------------------------------
Date: Sat, 24 Apr 2004 14:44:54 -0700
From: "Robin" <robin @ infusedlight.net>
Subject: Re: Novice and willing to learn
Message-Id: <c6eol6$pak$1@reader2.nmix.net>
> And now at the age of 50 i want to learn Perl because i
> read and heard it can do a lot with large quantaties of text.
Yeah, just from the name you can infer it - Perl = Practical Extraction and
Report Language.
-Robin
------------------------------
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 6458
***************************************
