[28144] in Perl-Users-Digest
Perl-Users Digest, Issue: 9508 Volume: 10
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Fri Jul 21 11:05:56 2006
Date: Fri, 21 Jul 2006 08:05:08 -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, 21 Jul 2006 Volume: 10 Number: 9508
Today's topics:
Re: A subroutine for gcd <bik.mido@tiscalinet.it>
Re: Can anybody help me get a job or work robic0
Re: Can anybody help me get a job or work <mark.clementsREMOVETHIS@wanadoo.fr>
Re: Can anybody help me get a job or work <josef.moellers@fujitsu-siemens.com>
Re: Can anybody help me get a job or work <DJStunks@gmail.com>
Re: CGI.pm and lost carriage returns <flavell@physics.gla.ac.uk>
Re: CGI.pm and lost carriage returns <David.Squire@no.spam.from.here.au>
Re: CGI.pm and lost carriage returns <1usa@llenroc.ude.invalid>
Re: CGI.pm and lost carriage returns <1usa@llenroc.ude.invalid>
Re: CGI.pm and lost carriage returns <jczapski@nnnot.com>
Re: CGI.pm and lost carriage returns <rvtol+news@isolution.nl>
Re: hex file <tadmc@augustmail.com>
Re: How to find out if a certain value is in a list? <tjpn@not_spam.surfeu.fi>
Need Help with Program in Perl on a Netware Server fhadzocos@gmail.com
Re: Need Help with Program in Perl on a Netware Server fhadzocos@gmail.com
Re: Need Help with Program in Perl on a Netware Server <mritty@gmail.com>
Re: Need Help with Program in Perl on a Netware Server <mritty@gmail.com>
Re: Need Help with Program in Perl on a Netware Server <1usa@llenroc.ude.invalid>
Re: Need Help with Program in Perl on a Netware Server fhadzocos@gmail.com
PL_xxxx_generation <bol@adv.magwien.gv.at>
Re: subroutine <brian.raven@aems.net>
www.web-bin.com <webmaster@web-bin.com>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Fri, 21 Jul 2006 12:23:42 +0200
From: Michele Dondi <bik.mido@tiscalinet.it>
Subject: Re: A subroutine for gcd
Message-Id: <oma1c2h98r251dnm4dn89skvjkil6u7a9v@4ax.com>
On 19 Jul 2006 15:32:59 GMT, Glenn Jackman <glennj@ncf.ca> wrote:
>> sub gcd { my $n=pop;@_?gcd($n?map gcd($n,$_%$n),@_:@_):$n }
> ^^^^^^...............^^^^^^^^^^^^^
>Do you mean $n=shift ?
No, I mean pop().
$ cat gcd.pl
#!/usr/bin/perl -l
use strict;
use warnings;
sub gcd { my $n=pop;@_?gcd($n?map gcd($n,$_%$n),@_:@_):$n }
print gcd split while <>;
__END__
$ ./gcd.pl
10 15 20
5
222 294 822 336
6
$ perl -lpi.bak -e 's/pop/shift/' gcd.pl
$ ./gcd.pl
10 15 20
Deep recursion on subroutine "main::gcd" at ./gcd.pl line 6, <> line
1.
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, 21 Jul 2006 03:34:00 -0700
From: robic0
Subject: Re: Can anybody help me get a job or work
Message-Id: <r1b1c2t3810c84jo4u03qaqvq9mbfsq0ot@4ax.com>
On 21 Jul 2006 00:23:35 -0700, usenet@DavidFilmer.com wrote:
>robic0 wrote:
>> I'm almost on skid row now. I have a gun and I'm thinking of ending it all.
>> My family is almost starving and I have no prospects for work.
>
>How would that gun help your family? It sounds like the logic which
>you apply to living your life is no better than the logic you use in
>your programs.
>
>You are a known troll in this newsgroup, so I'm skeptical that you are
>serious. But if you ARE serious then you must realize this is not
>really the place to be saying this. You need to be talking to the kind
>folks at your local suicide prevention hotline.
Hmmm is that as a patient or a minumum wage worker. I'm pretty old now,
hearts failing. No matter what u think of my code, I've written over
14 million lines of it over the years. Far more than you will ever approach.
Its so boring to even consider logic. Its like a comercial played over and over
and over again. You couldn't come close to know what I've had to forget.
If I were you, I would get down on my knees and beg forgiveness.
Wish u well, hope you have employment! And one more thing.......
"Fuck U Asshole" !!!!!!!!!!!!!
robic 0
------------------------------
Date: Fri, 21 Jul 2006 12:51:29 +0200
From: Mark Clements <mark.clementsREMOVETHIS@wanadoo.fr>
Subject: Re: Can anybody help me get a job or work
Message-Id: <44c0b1ab$0$879$ba4acef3@news.orange.fr>
robic0 wrote:
> On 21 Jul 2006 00:23:35 -0700, usenet@DavidFilmer.com wrote:
>
>> robic0 wrote:
>>> I'm almost on skid row now. I have a gun and I'm thinking of ending it all.
>>> My family is almost starving and I have no prospects for work.
>> How would that gun help your family? It sounds like the logic which
>> you apply to living your life is no better than the logic you use in
>> your programs.
>>
>> You are a known troll in this newsgroup, so I'm skeptical that you are
>> serious. But if you ARE serious then you must realize this is not
>> really the place to be saying this. You need to be talking to the kind
>> folks at your local suicide prevention hotline.
>
>
> Hmmm is that as a patient or a minumum wage worker. I'm pretty old now,
> hearts failing. No matter what u think of my code, I've written over
> 14 million lines of it over the years. Far more than you will ever approach.
That works out at about 1000 lines per day for 40 solid years. Even if
that were *all* assembler I'd find it very hard to believe. Anyway,
lines per day is no indication of quality.
> Its so boring to even consider logic. Its like a comercial played over and over
> and over again. You couldn't come close to know what I've had to forget.
Judging by your posts, you've either forgotten pretty much everything or
knew very little to begin with.
> If I were you, I would get down on my knees and beg forgiveness.
> Wish u well, hope you have employment! And one more thing.......
<snip yet another mini-tirade>
Mark
------------------------------
Date: Fri, 21 Jul 2006 13:54:49 +0200
From: Josef Moellers <josef.moellers@fujitsu-siemens.com>
Subject: Re: Can anybody help me get a job or work
Message-Id: <e9qfh0$1be$2@nntp.fujitsu-siemens.com>
robic0 wrote:
> If I were you, I would get down on my knees and beg forgiveness.
> Wish u well, hope you have employment! And one more thing.......
> "Fuck U Asshole" !!!!!!!!!!!!!
Do I get this straight: you were asking for help?
Excuse me if I just turn away and chuckle.
Yes, indeed, you do need help.
--=20
Josef M=F6llers (Pinguinpfleger bei FSC)
If failure had no penalty success would not be a prize
-- T. Pratchett
------------------------------
Date: 21 Jul 2006 07:44:53 -0700
From: "DJ Stunks" <DJStunks@gmail.com>
Subject: Re: Can anybody help me get a job or work
Message-Id: <1153493093.345122.210660@p79g2000cwp.googlegroups.com>
robic0 wrote:
> I'm almost on skid row now. I have a gun and I'm thinking of ending it all.
> My family is almost starving and I have no prospects for work.
>
> Please help!
> robic0
aw.... poor lil' guy.
here's something I found which might help -
http://www.yogesh.dircon.co.uk/recruit.htm
from my experience you're particulary qualified for the second position
and I'd be happy to write a letter of recommendation to that effect.
HTH,
-jp
------------------------------
Date: Fri, 21 Jul 2006 11:10:44 +0100
From: "Alan J. Flavell" <flavell@physics.gla.ac.uk>
Subject: Re: CGI.pm and lost carriage returns
Message-Id: <Pine.LNX.4.64.0607211101200.32125@ppepc87.ph.gla.ac.uk>
On Fri, 21 Jul 2006, David Squire wrote:
> Alan J. Flavell wrote:
>
> > I'm highly sceptical of the server-side processing merely sprinkling the
> > input with <br> tags instead of newlines, and nothing more: it does not seem
> > to be a solution to any variant of this problem that I can think of. BICBW,
> > of course.
>
> Hmmm. I see it so often that I would almost call it a FAQ. People
> ask "where did my linebreaks go?" when displaying text in a browser.
> This is due to not realizing that HTML does not use CR, LF etc. for
> this purpose.
But the input was *NOT* meant to be HTML in the first place, so
attempting to display it as such is completely illogical. If it's
plain text, then send it as text/plain. Even MSIE has finally caught
up with that concept.
> A common situation where this might arise is a simple comment field
> where the comment typed is to be displayed on an HTML page, and the
> designer wants user newlines to be retained in formatting.
Yeah, and then the mischievous user inserts some naughty javascript,
or includes a link to some dangerous web page, and soon the damage is
done.
> Often <BR> tags is all that is needed
*Absolutely not*. Have you *no* sense of network security?
> to get the desired effect...
The "desired effect" is not half of what you're liable to get, if you
allow arbitrary web users to type their choice of HTML and you calmly
insert it into your web page.
> and indeed the OP has already indicated that doing just that solved
> his problem.
It might have "solved" what the O.P perceived to be the problem. After
all, the (in)famous Matt would have had no idea when he launched his
Script Archive just what kinds of network abuse he would be
responsible for.
--
------------------------------
Date: Fri, 21 Jul 2006 11:36:03 +0100
From: David Squire <David.Squire@no.spam.from.here.au>
Subject: Re: CGI.pm and lost carriage returns
Message-Id: <e9qamj$heb$1@gemini.csx.cam.ac.uk>
Alan J. Flavell wrote:
> On Fri, 21 Jul 2006, David Squire wrote:
>
>> Alan J. Flavell wrote:
>>
>>> I'm highly sceptical of the server-side processing merely sprinkling the
>>> input with <br> tags instead of newlines, and nothing more: it does not seem
>>> to be a solution to any variant of this problem that I can think of. BICBW,
>>> of course.
>> Hmmm. I see it so often that I would almost call it a FAQ. People
>> ask "where did my linebreaks go?" when displaying text in a browser.
>> This is due to not realizing that HTML does not use CR, LF etc. for
>> this purpose.
>
> But the input was *NOT* meant to be HTML in the first place, so
> attempting to display it as such is completely illogical.
I don't agree with this. You could see it as a terribly simple Wiki
code: only newlines are significant as extra mark-up. There are all
sorts of Wikis around now that take non-HTML mark-up entered as plain
text in forms and convert it to HTML.
>> Often <BR> tags is all that is needed
>
> *Absolutely not*. Have you *no* sense of network security?
Fair enough. Point taken. There would have to be other sanity checks too.
DS
------------------------------
Date: Fri, 21 Jul 2006 11:41:28 GMT
From: "A. Sinan Unur" <1usa@llenroc.ude.invalid>
Subject: Re: CGI.pm and lost carriage returns
Message-Id: <Xns98074E545E88Basu1cornelledu@127.0.0.1>
David Squire <David.Squire@no.spam.from.here.au> wrote in
news:e9qamj$heb$1@gemini.csx.cam.ac.uk:
> Alan J. Flavell wrote:
>> On Fri, 21 Jul 2006, David Squire wrote:
>>
>>> Alan J. Flavell wrote:
>>>
>>>> I'm highly sceptical of the server-side processing merely
>>>> sprinkling the input with <br> tags instead of newlines, and
...
>>> Hmmm. I see it so often that I would almost call it a FAQ. People
>>> ask "where did my linebreaks go?" when displaying text in a browser.
>>> This is due to not realizing that HTML does not use CR, LF etc. for
>>> this purpose.
>>
>> But the input was *NOT* meant to be HTML in the first place, so
>> attempting to display it as such is completely illogical.
>
> I don't agree with this. You could see it as a terribly simple Wiki
> code:
...
>>> Often <BR> tags is all that is needed
>>
>> *Absolutely not*. Have you *no* sense of network security?
>
> Fair enough. Point taken. There would have to be other sanity checks
> too.
Sanity checks? Checking arbitrary text entered in a textbox is
'difficult' in a very real sense.
What is needed is not checking, but encoding.
Demo available at: http://www.unur.com/cgi-bin/echo.pl
#!/usr/bin/perl
use strict;
use warnings;
use CGI;
$CGI::POSTMAX = 1024;
$CGI::DISABLE_UPLOADS = 1;
use HTML::Entities qw(encode_entities_numeric);
run();
sub run {
my $cgi = CGI->new;
my $text = $cgi->param('text');
if ( defined $text ) {
$text =~ s/\015\012?|\012/\n/;
$text = encode_entities_numeric $text;
$text = join('<br>', split /\n/, $text);
}
print $cgi->header('text/html');
print <<EO_HTML;
<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"
"http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<title>Textarea Echo</title>
<style type="text/css">
body { margin: 50px 0px; padding:0px; text-align:center; }
#content { width:600px; margin:0px auto; text-align:left; }
textarea { border: 1px solid #99f; }
blockquote { font-style: italic; color: #191; }
input.button { border: 1px solid #99f; }
</style>
</head>
<body id="content">
<h1>Textarea Echo</h1>
<blockquote>$text</blockquote>
<div>
<p><label for="text">Enter some text below</label>:</p>
<form action="http://www.unur.com/cgi-bin/echo.pl" method="POST">
<textarea rows="10" cols="60" name="text" id="text"></textarea>
<div>
<input class="button" type="submit">
<input class="button" type="reset">
</div>
</form>
</div>
</body>
</html>
EO_HTML
}
--
A. Sinan Unur <1usa@llenroc.ude.invalid>
(remove .invalid and reverse each component for email address)
comp.lang.perl.misc guidelines on the WWW:
http://augustmail.com/~tadmc/clpmisc/clpmisc_guidelines.html
------------------------------
Date: Fri, 21 Jul 2006 12:04:10 GMT
From: "A. Sinan Unur" <1usa@llenroc.ude.invalid>
Subject: Re: CGI.pm and lost carriage returns
Message-Id: <Xns9807522D9A84Fasu1cornelledu@127.0.0.1>
"A. Sinan Unur" <1usa@llenroc.ude.invalid> wrote in
news:Xns98074E545E88Basu1cornelledu@127.0.0.1:
> $text =~ s/\015\012?|\012/\n/;
$text =~ s/\015\012?|\012/\n/g;
Sinan
--
A. Sinan Unur <1usa@llenroc.ude.invalid>
(remove .invalid and reverse each component for email address)
comp.lang.perl.misc guidelines on the WWW:
http://augustmail.com/~tadmc/clpmisc/clpmisc_guidelines.html
------------------------------
Date: Fri, 21 Jul 2006 13:28:38 GMT
From: "Joseph Czapski" <jczapski@nnnot.com>
Subject: Re: CGI.pm and lost carriage returns
Message-Id: <aE4wg.3$jV.1@trndny09>
I previously wrote:
> Yup. Setting WRAP to 'physical' solved the problem.
...
Sorry for the further confusion. Now I think that *eliminating* the WRAP
attribute entirely is the best thing to do. And my code snippet after
getting the $value back from CGI.pm is:
$value =~ s/(\S)\s*?\x0A\s*\x0A\s*?(\S)/$1<br><br>$2/g;
$value =~ s/(\S)\s*?\x0D\s*\x0D\s*?(\S)/$1<br><br>$2/g;
$value =~ s/\s*\x0A\s*/<br>/g;
$value =~ s/\s*\x0D\s*/<br>/g;
Joe Czapski
Boston, Mass.
------------------------------
Date: Fri, 21 Jul 2006 16:50:53 +0200
From: "Dr.Ruud" <rvtol+news@isolution.nl>
Subject: Re: CGI.pm and lost carriage returns
Message-Id: <e9r0mg.1d8.1@news.isolution.nl>
Joseph Czapski schreef:
> $value =~ s/(\S)\s*?\x0A\s*\x0A\s*?(\S)/$1<br><br>$2/g;
> $value =~ s/(\S)\s*?\x0D\s*\x0D\s*?(\S)/$1<br><br>$2/g;
$value =~ s/(\S)\s*?(\x0A|\x0D)\s*\2\s*?(\S)/$1<br><br>$3/g ;
or maybe
$value =~ s/(\S)\s*?(\x0A|\x0D)\s*?\2\s*?(\S)/$1<br><br>$3/g ;
> $value =~ s/\s*\x0A\s*/<br>/g;
> $value =~ s/\s*\x0D\s*/<br>/g;
$value =~ s/\s*(?:\x0A|\x0D)\s*/<br>/g ;
I would also do a s/(<br>)(.)/$1\n$2/g ;
--
Affijn, Ruud
"Gewoon is een tijger."
------------------------------
Date: Fri, 21 Jul 2006 09:50:27 -0500
From: Tad McClellan <tadmc@augustmail.com>
Subject: Re: hex file
Message-Id: <slrnec1qdj.lue.tadmc@magna.augustmail.com>
Dave Weaver <zen13097@zen.co.uk> wrote:
> lily12a@gmail.com <lily12a@gmail.com> wrote:
>> Input array will include values: 4C, 49, 4C, 59
>> How to assign these values in to an array of hex value.
>
> Those are already hex values!
They cannot be hex values, because there is no such thing as a hex value.
The abstract concept of a "number" is difficult for us humans to
discuss, so we have come up with a number of different *representations*
(numeral systems) for talking about any particular number.
1010 # 2
12 # 8
10 # 10
A # 16
Those are all _different_ representations for the _same_ number.
So
Those are already represented in hex!
would have been a more accurate rejoinder. :-)
[ snip code that converts base-16 to base-10 ]
> Your question is too vague
Right. I'm sure you know all of the above, but I hope that it will
help the OP compose an answerable question.
--
Tad McClellan SGML consulting
tadmc@augustmail.com Perl programming
Fort Worth, Texas
------------------------------
Date: Fri, 21 Jul 2006 16:41:42 +0300
From: "TN" <tjpn@not_spam.surfeu.fi>
Subject: Re: How to find out if a certain value is in a list?
Message-Id: <44c0d9aa$0$22332$39db0f71@news.song.fi>
Great,
that gave me a good solution.
Thanks,
-TN
"Tad McClellan" <tadmc@augustmail.com> kirjoitti
viestissä:slrnebure8.drq.tadmc@magna.augustmail.com...
> TN <tjpn@not_spam.surfeu.fi> wrote:
>
>> what would be the shortest (or best...) way to find out if a certain
>> value
>> is in the list like in the code here:
> ^^^^
> ^^^^
>
> perldoc -q list
>
> How can I tell whether a certain element is contained in a list or
> array?
>
>
> --
> Tad McClellan SGML consulting
> tadmc@augustmail.com Perl programming
> Fort Worth, Texas
------------------------------
Date: 21 Jul 2006 06:57:11 -0700
From: fhadzocos@gmail.com
Subject: Need Help with Program in Perl on a Netware Server
Message-Id: <1153490231.053575.327220@m79g2000cwm.googlegroups.com>
I have a huge folder with 44 thousand files I need to keep only the
last file for each type in that folder
ex
workstation1.001
workstation1.002
workstation2.49
workstation2.56
workstation20.560
workstation20.561
workstation20.562
In that example I need to keep workstation1.002 workstation2.56
workstation20.562 and this would continue until the end of the files.
There is only one folder to look in.
I have no idea how to go about doing this in perl. I'm very new to perl
and do not wish to make an inefficient program.
Thanks
Mobius1982
------------------------------
Date: 21 Jul 2006 07:07:14 -0700
From: fhadzocos@gmail.com
Subject: Re: Need Help with Program in Perl on a Netware Server
Message-Id: <1153490833.850090.267410@b28g2000cwb.googlegroups.com>
Here are some of the real file names.
00A0D1B9233C_1153332333000_1.STR
00AD1B44961_1102616538000_556.STR
Thanks
Mobius1982
------------------------------
Date: 21 Jul 2006 07:24:00 -0700
From: "Paul Lalli" <mritty@gmail.com>
Subject: Re: Need Help with Program in Perl on a Netware Server
Message-Id: <1153491840.401749.146010@i3g2000cwc.googlegroups.com>
fhadzocos@gmail.com wrote:
> I have a huge folder with 44 thousand files I need to keep only the
> last file for each type in that folder
>
> ex
>
> workstation1.001
> workstation1.002
> workstation2.49
> workstation2.56
> workstation20.560
> workstation20.561
> workstation20.562
>
> In that example I need to keep workstation1.002 workstation2.56
> workstation20.562 and this would continue until the end of the files.
> There is only one folder to look in.
> I have no idea how to go about doing this in perl. I'm very new to perl
> and do not wish to make an inefficient program.
First, I strongly recommend you create a program that *works* first,
and make it efficient second.
My recommendation is that you loop through the directory, grabbing each
file name. For each file, split it to get the basename and suffix
(see: perldoc File::Basename). Check if the basename exists in your
hash. If not, add it, with a value of the suffix. If it does exist,
compare the current suffix with the one that is already stored. If the
current one is less, remove the current file (perldoc -f unlink). If
the current one is greater, remove the file represented by the basename
and stored suffix, and replace the value with the current suffix.
That English description may be a bit confusing, (and we're always
telling people to Speak Perl rather than English), so here's a short
script to get you started.
#!/usr/bin/perl
use strict;
use warnings;
use File::Basename;
opendir my $dh, $ARGV[0] or die "Cannot open directory $ARGV[0]: $!\n";
my %suffix_of;
while (my $file = readdir($dh)) {
next if $file =~ /^\.\.?$/ or ! -f "$ARGV[0]/$file";
my ($base, undef, $suffix) = fileparse($file, qr/\..*/);
$suffix =~ s/^\.//;
if (! exists $suffix_of{$base} ){
$suffix_of{$base} = $suffix;
}
elsif ($suffix_of{$base} > $suffix) {
unlink "$ARGV[0]/$file" or
warn "Could not remove $ARGV[0]/$file: $!\n";
}
else {
unlink "$ARGV[0]/$base.$suffix_of{$base}" or
warn "Could not remove $ARGV[0]/$base.$suffix_of{$base}:
$!\n";
$suffix_of{$base} = $suffix;
}
}
Paul Lalli
------------------------------
Date: 21 Jul 2006 07:26:09 -0700
From: "Paul Lalli" <mritty@gmail.com>
Subject: Re: Need Help with Program in Perl on a Netware Server
Message-Id: <1153491969.903369.143500@75g2000cwc.googlegroups.com>
fhadzocos@gmail.com wrote:
> Here are some of the real file names.
*WHY* didn't you include real data in your original post?
> 00A0D1B9233C_1153332333000_1.STR
> 00AD1B44961_1102616538000_556.STR
In your original, you made it appear that by "last file" you meant
"file with the greatest suffix, numerically). How, exactly are you
determining "last file" now? And how are you grouping these files?
My program, which I spent a good 10 minutes writing, is not going to
work with your data. You have wasted my time by posting incorrect
requirements and data. That was very rude of you.
Paul Lalli
------------------------------
Date: Fri, 21 Jul 2006 14:33:45 GMT
From: "A. Sinan Unur" <1usa@llenroc.ude.invalid>
Subject: Re: Need Help with Program in Perl on a Netware Server
Message-Id: <Xns98076B89D36F8asu1cornelledu@127.0.0.1>
fhadzocos@gmail.com wrote in news:1153490231.053575.327220
@m79g2000cwm.googlegroups.com:
> and do not wish to make an inefficient program.
You seem to be looking for a freebie.
The problem is not a difficult one. Make an attempt, any attempt.
Then, post if your program does not do what you want.
Read the posting guidelines for this group. Follow them.
You'll get help.
Sinan
--
A. Sinan Unur <1usa@llenroc.ude.invalid>
(remove .invalid and reverse each component for email address)
comp.lang.perl.misc guidelines on the WWW:
http://augustmail.com/~tadmc/clpmisc/clpmisc_guidelines.html
------------------------------
Date: 21 Jul 2006 08:02:52 -0700
From: fhadzocos@gmail.com
Subject: Re: Need Help with Program in Perl on a Netware Server
Message-Id: <1153494172.456678.308760@p79g2000cwp.googlegroups.com>
I am still looking for the greatest numerically.
00A0D1B9233C_1153332333000_1.STR
00AD1B44961_1102616538000_556.STR
I just gave you two file names as examples for instance
00A0D1B9233C_1153332333000_2.STR
00A0D1B9233C_1153332333000_5.STR
00A0D1B9233C_1153332333000_7.STR
00A0D1B9233C_1153332333000_8.STR
00A0D1B9233C_1153332333000_9.STR
out of all of those I would only want 00A0D1B9233C_1153332333000_9.STR
and the rest to be deleted. And then look at the next
00AD1B44961_1102616538000_556.STR and find only the last file in that
numerically and delete the rest.
I'm not looking for a freebie and I appreiciate all your help. I'm a
co-op student at a company and have done very little in perl.
publishing my poor attempt which crashes heavily I thought would be a
waste of forum space. I will use your advice and publish when I'm
closer to something and ask for advice on how to fix those problems.
Once again thanks for your time.
Mobius1982
------------------------------
Date: Fri, 21 Jul 2006 15:48:08 +0200
From: "Ferry Bolhar" <bol@adv.magwien.gv.at>
Subject: PL_xxxx_generation
Message-Id: <1153489689.187496@proxy.dienste.wien.at>
Hi,
can someone explain me the purpose of the internal Perl variables
PL_amagic_generation
PL_sub_generation
PL_generation
I know these variables are incremented sometime during the live
of a Perl program. But when and why?
Greetings, Ferry
--
Ing. Ferry Bolhar
Municipality of Vienna, Department 14
A-1010 Vienna / AUSTRIA
E-mail: bol@adv.magwien.gv.at
------------------------------
Date: Fri, 21 Jul 2006 15:30:40 +0100
From: Brian Raven <brian.raven@aems.net>
Subject: Re: subroutine
Message-Id: <vtirlrm3n3.fsf@lxdevws06.admin.liffe.com>
Tad McClellan <tadmc@augustmail.com> writes:
> weberw@adelphia.net <weberw@adelphia.net> wrote:
>
>> while ( my @elements = $sth->fetchrow() ) {
> ^^^^^^^^
>
> The DBI module does not export a method named fetchrow().
>
> This is not your real code.
I find this in DBI.pm version 1.51:
%DBI::DBI_methods = ( # Define the DBI interface methods per class:
...
st => { # Statement Class Interface
...
fetch => undef, # alias for fetchrow_arrayref
fetchrow_arrayref => undef,
fetchrow_hashref => undef,
fetchrow_array => undef,
fetchrow => undef, # old alias for fetchrow_array
HTH
--
Brian Raven
That being said, I think we should immediately deprecate any string
concatenation that combines "19" with "99". :-)
-- Larry Wall in <199811242002.MAA26850@wall.org>
------------------------------
Date: 21 Jul 2006 04:38:43 -0700
From: "Marty" <webmaster@web-bin.com>
Subject: www.web-bin.com
Message-Id: <1153481923.505953.260750@m79g2000cwm.googlegroups.com>
Hi All
Listen iam looking for someone to take over a site http://web-bin.com
its been neglected by me over the years and needs a new owner.
I would be supplying the full site as it is (backup) and of course the
domain name, anyone interested should sign up here
http://www.hosting-alliance.com/ (free account) so i can transfer the
domain name easier.
Interested partys please send an email webmaster@web-bin.com or post
any follow up questions
Regards
Marty
------------------------------
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 9508
***************************************
