[28333] in Perl-Users-Digest
Perl-Users Digest, Issue: 9697 Volume: 10
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Thu Sep 7 09:05:52 2006
Date: Thu, 7 Sep 2006 06:05:07 -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 Thu, 7 Sep 2006 Volume: 10 Number: 9697
Today's topics:
CPAN 'shell' interface stopped working? <dh1760@gmail.com>
Re: CPAN 'shell' interface stopped working? <mritty@gmail.com>
Re: CPAN 'shell' interface stopped working? <thepoet_nospam@arcor.de>
Daemon Win32::Daemon; ph1975@gmail.com
if exsist hash key.. why not finding it??? jason@cyberpine.com
Re: if exsist hash key.. why not finding it??? <mumia.w.18.spam+nospam.usenet@earthlink.net>
Re: if exsist hash key.. why not finding it??? <mritty@gmail.com>
Re: if exsist hash key.. why not finding it??? anno4000@radom.zrz.tu-berlin.de
Re: Pattern Matching and skipping mattjones@hotmail.co.uk
Re: Pattern Matching and skipping anno4000@radom.zrz.tu-berlin.de
Re: Pattern Matching and skipping <mattjones@hotmail.co.uk>
Re: Pattern Matching and skipping <mattjones@hotmail.co.uk>
Re: Pattern Matching and skipping <David.Squire@no.spam.from.here.au>
Re: Pattern Matching and skipping anno4000@radom.zrz.tu-berlin.de
Re: Pattern Matching and skipping <tadmc@augustmail.com>
WHY NOT FINDING HASH KEY???? jason@cyberpine.com
Re: WHY NOT FINDING HASH KEY???? <mritty@gmail.com>
Re: WHY NOT FINDING HASH KEY???? <bik.mido@tiscalinet.it>
Re: WHY NOT FINDING HASH KEY???? jason@cyberpine.com
Re: WHY NOT FINDING HASH KEY???? <mritty@gmail.com>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: 7 Sep 2006 05:21:01 -0700
From: "Dave Hammond" <dh1760@gmail.com>
Subject: CPAN 'shell' interface stopped working?
Message-Id: <1157631661.023887.59280@i42g2000cwa.googlegroups.com>
Don't you hate when this happens? You search Usenet for the answer to
a Perl problem; find that the solution requires installing a new
module; go to crank up the CPAN shell, and ... nothing!
lxrnd1:~/.cpan # perl -mCPAN -eshell
lxrnd1:~/.cpan #
I know I can install the module manually, but it's just so much nicer
being able to have CPAN do the work!
Any ideas what made CPAN all of a sudden decide to take a holiday?
Thanks for any insight.
-Dave H.
------------------------------
Date: 7 Sep 2006 05:22:30 -0700
From: "Paul Lalli" <mritty@gmail.com>
Subject: Re: CPAN 'shell' interface stopped working?
Message-Id: <1157631750.622151.69020@i42g2000cwa.googlegroups.com>
Dave Hammond wrote:
> go to crank up the CPAN shell, and ... nothing!
>
> lxrnd1:~/.cpan # perl -mCPAN -eshell
> lxrnd1:~/.cpan #
>
> Any ideas what made CPAN all of a sudden decide to take a holiday?
CPAN did exactly what you told it to. You didn't tell it to do the
right thing. :-)
See:
perldoc perlrun
for a description of the differences betwen the -M and -m flags.
Paul Lalli
------------------------------
Date: Thu, 07 Sep 2006 14:27:18 +0200
From: Christian Winter <thepoet_nospam@arcor.de>
Subject: Re: CPAN 'shell' interface stopped working?
Message-Id: <45001027$0$18486$9b4e6d93@newsspool3.arcor-online.net>
Dave Hammond wrote:
> Don't you hate when this happens? You search Usenet for the answer to
> a Perl problem; find that the solution requires installing a new
> module; go to crank up the CPAN shell, and ... nothing!
>
> lxrnd1:~/.cpan # perl -mCPAN -eshell
> lxrnd1:~/.cpan #
That would be expected behaviour. As "perldoc perlrun"
explains, there's a difference between -mMODULE and -MMODULE,
the first one use()ing the module with an empty export
list (thus shell() doesn't get importet as a sub and Perl
treats it as a string in your case).
perl -MCPAN -e "shell"
should still work fine.
HTH
-Chris
------------------------------
Date: 7 Sep 2006 03:58:32 -0700
From: ph1975@gmail.com
Subject: Daemon Win32::Daemon;
Message-Id: <1157626712.040616.86030@b28g2000cwb.googlegroups.com>
Hi folks,
i created a perl Daemon with Win32::Daemon;
This daemon forks some childs which walk through files and do some
stuff.
After the childs are finished, the parent also dies.
How can i prevent the Parent Process from terminating? The child
invokes a systemcall via system();
The System is Windows 2003 Enterprise Server.
i registered the perl Script in Windows Services and i am starting the
service via the administrative tools -> services.
Thanks a lot,
Philipp
Minimal code exerpt:
use Win32::Daemon;
Win32::Daemon::StartService();
use Proc::Queue;
use POSIX '_exit';
while(1)
{
my $State = Win32::Daemon::State();
if( SERVICE_RUNNING == $State )
{
...
my $pid = fork();
push(@childs,$pid);
if($pid == 0) {
#child
if (-e $taskDirData . "_parsing\\" . $filename) {
$fileExist = " exist: yes";
....
Win32::Daemon::State( SERVICE_RUNNING );
$cmdString =~ s/\\\\/\\\\\\\\/;
# Child-Prozess
my $result = system($cmdString); POSIX::_exit(0);
} else {
$fileExist = " exist: no";
}
} else {
# parent
# waitpid($pid,0);
# SysUtils->debugHandler(5, 0, "I", "Child " . $pid . "
terminated");
Win32::Daemon::State( SERVICE_RUNNING );
}
} # delta
}
....
------------------------------
Date: 7 Sep 2006 04:58:45 -0700
From: jason@cyberpine.com
Subject: if exsist hash key.. why not finding it???
Message-Id: <1157630325.704175.77260@i3g2000cwc.googlegroups.com>
Hello.
I'm trying to merge two files by a common key field.
file1.csv format:
B1,B2,B3,B4,BK
file2.csv format:
A1,AK,A3,A4
Need to produce:
file3.csv:
A3,A4,B2,B3,B4,BK
Where file1.csv is using BK=AK to lookup A3 and A4. Every record in
file1.csv must end up in file3.csv
Here's the code I have :
#!/usr/bin/perl
open FILEC, '>filec.csv' or die "could not open 'matched.csv' $!";
my %a;
open FILEA, 'filea.csv' "could not open 'filea' $!";
while ( <FILEA> ) {
$_ =~ s/"([^"]*)"/&comma_fixer($1)/ge;
my @f = split /,/;
my $key = $f[4];
#print $key;
if ( exists $a{$key} )
{
print "Duplicate key found in ", $key ," ",$_," ", @f,"\n";
}
else
{
$a{$key} = \@f;
}
}
open FILEB, 'fileb.csv' or die "could not open 'fileb' $!";
while ( <FILEB> ) {
my @b = split /,/;
my $key = $b[1];
#BELOW IS THE SUSPECT LINE
if ( exists $a{$key} ) {
my $m = join ',', $key,
$a{$key}[2],
$b[1],
$b[2],
$b[3];
print FILEC "$m\n";
print "entry found\n";
}
else
{
# print "key not found ",$key,"\n";
}
}
close FILEA;
close FILEB;
close FILEC;
sub comma_fixer {
$string = @_[0];
$string =~ s/,/ /g; ## replace , with blank,
return $string;
=====
Every single line spits out "key not found".
What am I doing wrong and is there a better way to approach this?
------------------------------
Date: Thu, 07 Sep 2006 12:45:05 GMT
From: "Mumia W." <mumia.w.18.spam+nospam.usenet@earthlink.net>
Subject: Re: if exsist hash key.. why not finding it???
Message-Id: <lvULg.8507$xQ1.970@newsread3.news.pas.earthlink.net>
On 09/07/2006 06:58 AM, jason@cyberpine.com wrote:
> Hello.
>
> I'm trying to merge two files by a common key field.
>
> file1.csv format:
> B1,B2,B3,B4,BK
>
> file2.csv format:
> A1,AK,A3,A4
>
>
> Need to produce:
> file3.csv:
> A3,A4,B2,B3,B4,BK
>
> Where file1.csv is using BK=AK to lookup A3 and A4. Every record in
> file1.csv must end up in file3.csv
>
> Here's the code I have :
>
>
>
> #!/usr/bin/perl
> open FILEC, '>filec.csv' or die "could not open 'matched.csv' $!";
> [...]
That's a deceptive error message. There are a number of
warnings and errors in your program.
Please put these lines at the top of your program and modify
your program to work with them:
use strict;
use warnings;
And please try again to explain what you are trying to do. You
need a few more data records in filea and fileb to demonstrate.
Of course you know that AK != BK unless you mean that
Ameriking == Burger King ;-)
------------------------------
Date: 7 Sep 2006 05:46:37 -0700
From: "Paul Lalli" <mritty@gmail.com>
Subject: Re: if exsist hash key.. why not finding it???
Message-Id: <1157633197.486214.84450@b28g2000cwb.googlegroups.com>
Mumia W. wrote:
> Of course you know that AK != BK unless you mean that
> Ameriking == Burger King ;-)
Just to be pedantic...
'AK' == 'BK' is actually true.
'AK' eq 'BK', on the other hand, is false. :-)
Paul Lalli
------------------------------
Date: 7 Sep 2006 12:51:39 GMT
From: anno4000@radom.zrz.tu-berlin.de
Subject: Re: if exsist hash key.. why not finding it???
Message-Id: <4maiurF5bb8kU1@news.dfncis.de>
<jason@cyberpine.com> wrote in comp.lang.perl.misc:
> Hello.
>
> I'm trying to merge two files by a common key field.
>
> file1.csv format:
> B1,B2,B3,B4,BK
>
> file2.csv format:
> A1,AK,A3,A4
>
>
> Need to produce:
> file3.csv:
> A3,A4,B2,B3,B4,BK
>
> Where file1.csv is using BK=AK to lookup A3 and A4. Every record in
> file1.csv must end up in file3.csv
>
> Here's the code I have :
>
>
>
> #!/usr/bin/perl
Missing:
use strict;
use warnings;
> open FILEC, '>filec.csv' or die "could not open 'matched.csv' $!";
You never use that file anywhere. Why is it there?
> my %a;
> open FILEA, 'filea.csv' "could not open 'filea' $!";
> while ( <FILEA> ) {
> $_ =~ s/"([^"]*)"/&comma_fixer($1)/ge;
If you need that kind of fixing you'd better use one of the CSV modules
to read the file. Use a direct split on comma only if that's all
there's to it.
> my @f = split /,/;
> my $key = $f[4];
> #print $key;
> if ( exists $a{$key} )
> {
> print "Duplicate key found in ", $key ," ",$_," ", @f,"\n";
> }
> else
> {
> $a{$key} = \@f;
> }
> }
>
> open FILEB, 'fileb.csv' or die "could not open 'fileb' $!";
> while ( <FILEB> ) {
No comma-fixing for FILEB?
> my @b = split /,/;
> my $key = $b[1];
> #BELOW IS THE SUSPECT LINE
> if ( exists $a{$key} ) {
> my $m = join ',', $key,
> $a{$key}[2],
> $b[1],
> $b[2],
> $b[3];
> print FILEC "$m\n";
> print "entry found\n";
> }
> else
> {
> # print "key not found ",$key,"\n";
> }
>
> }
>
> close FILEA;
> close FILEB;
> close FILEC;
>
> sub comma_fixer {
> $string = @_[0];
> $string =~ s/,/ /g; ## replace , with blank,
> return $string;
>
>
> =====
>
> Every single line spits out "key not found".
> What am I doing wrong and is there a better way to approach this?
I don't know why exists() doesn't find the strings you expect. You
haven't provided runnable code including test data. I'm not going
to make them up for you, so I can't debug it.
If your files aren't huge, I'd use a different approach. Write a sub
that reads a CSV file into a hash, keying on a given field in each
record. That is more or less the code you've written for FILEA. Use
it to read both files, and the build the output from the hashes.
Roughly, making some simplifying assumptions, and untested:
my $f1 = read_csv( 'filea.csv', 4);
my $f2 = read_csv( 'fileb.csv', 1);
my $out;
open $out, '>', $_ or die "Can't overwrite '$_': $!" for 'filec.csv';
while ( my ( $key, $reca) = each %$f1 ) {
my $recb = $f2->{ $key} or warn "key '$key' not found", next;
print $out join( ',' => @$f2{ 2, 3}, @$f1{ 1 .. 4}), "\n";
}
sub read_csv {
my ( $file, $ikey) = @_;
open my $in, $file or die "Can't read '$file': $!";
my %h;
while ( <$in> ) {
chomp;
my @rec = split /,/;
warn "Duplicate key '$rec[ $ikey]'" if exists $h{ $rec[ $ikey]};
$h{ $rec[ $ikey]} = \ @rec;
}
\ %h;
}
The output file will be in arbitrary order (not input order). If that
matters, modify or use a different approach.
Anno
------------------------------
Date: 7 Sep 2006 03:13:37 -0700
From: mattjones@hotmail.co.uk
Subject: Re: Pattern Matching and skipping
Message-Id: <1157624017.449127.83330@e3g2000cwe.googlegroups.com>
Ok, this hasn't seemed to work - either i am putting the } in the wrong
place (and i think i have tried most things)!
So i've tried:
while (<LOG>) {
if (/elapsed/) {
my @lines = split /\n/; {
foreach my $elapsed1 (@lines) {
{
while (<LOG>) {
if (/FASTSEARCH|conflicting/) {
} else {next } # this is where i
am having trouble
my @lines = split /\n/; {
foreach my $fast (@lines) {
while (<LOG>) {
if (/elapsed/) {
my @lines = split /\n/; {
foreach my $elapsed2 (@lines) {
So, i want the code to look for FASTSEARCH or conflicting and if they
aren't there - leave it blank but continue with the while loops.
------------------------------
Date: 7 Sep 2006 10:37:12 GMT
From: anno4000@radom.zrz.tu-berlin.de
Subject: Re: Pattern Matching and skipping
Message-Id: <4mab2oF588fbU1@news.dfncis.de>
<mattjones@hotmail.co.uk> wrote in comp.lang.perl.misc:
> Ok, this hasn't seemed to work - either i am putting the } in the wrong
> place (and i think i have tried most things)!
>
> So i've tried:
>
> while (<LOG>) {
> if (/elapsed/) {
> my @lines = split /\n/; {
I haven't followed this thread, but the split() above is nonsense. If
you have read a line (with standard $/) the text contains at most one
line feed at he end. Splitting on linefeed doesn't do more than chomp.
Since it appears multiple times in your code, here and in your OP, I
thought I'd mention it.
Anno
------------------------------
Date: 7 Sep 2006 03:48:23 -0700
From: "MattJ83" <mattjones@hotmail.co.uk>
Subject: Re: Pattern Matching and skipping
Message-Id: <1157626103.839496.305270@e3g2000cwe.googlegroups.com>
> > while (<LOG>) {
> > if (/elapsed/) {
> > my @lines = split /\n/; {
>
> I haven't followed this thread, but the split() above is nonsense. If
> you have read a line (with standard $/) the text contains at most one
> line feed at he end. Splitting on linefeed doesn't do more than chomp.
>
> Since it appears multiple times in your code, here and in your OP, I
> thought I'd mention it.
>
> Anno
When i remove split from my code however, the code doesn't work?!
------------------------------
Date: 7 Sep 2006 04:29:23 -0700
From: "MattJ83" <mattjones@hotmail.co.uk>
Subject: Re: Pattern Matching and skipping
Message-Id: <1157628562.995088.220990@e3g2000cwe.googlegroups.com>
Right - i thought it might be btter if i just paste all of the code i
have done:
#!/usr/central/bin/perl
use strict ;
#use warnings;
use DBI;
my @files= </home/USERNAME/logs/*.log>;
foreach my $file (@files) {
open (LOG,</home/USERNAME/logs/*.log>) or die "can't open LOG: $!\n";
while (<LOG>) {
if (/updates table/) {
my @lines = split /\n/; {
foreach my $info (@lines) {
while (<LOG>) {
if (/elapsed/) {
my @lines = split /\n/; {
foreach my $elapsed1 (@lines) {
while (<LOG>) {
if (/conflicting|FASTSEARCH/) {
my @lines = split /\n/; {
foreach my $fast (@lines) {
while (<LOG>) {
if (/elapsed/) {
my @lines = split /\n/; {
foreach my $elapsed2 (@lines) {
while (<LOG>) {
if (/inversions/) {
my @lines = split /\n/; {
foreach my $inversions (@lines) {
while (<LOG>) {
if (/elapsed/) {
my @lines = split /\n/; {
foreach my $elapsed3 (@lines) {
close(LOG) ;
my $dbh = DBI ->connect("dbi:Oracle:SERVER", "DATABASE", "PASSWORD")
or die "couldn't connect to database: $DBI::errstr\n";
$dbh->do("insert into LOGS values ('$file', '$info', '$elapsed1',
'$fast', '$elapsed2', '$inversions', '$elapsed3')") or die ("inse
rting data failure: $!\n");
$dbh->disconnect;
}}}}}}}}}}}}}}}}}}}}}}}}}
exit;
And all i want it to do is skip the line if it can't match the words
specified!!!
I just can't get the else or elseif statements to work...........
Sorry for the script - it isn't to brilliant but im new and it does
what i want it to do!!!
------------------------------
Date: Thu, 07 Sep 2006 12:49:34 +0100
From: David Squire <David.Squire@no.spam.from.here.au>
Subject: Re: Pattern Matching and skipping
Message-Id: <edp10e$age$1@gemini.csx.cam.ac.uk>
MattJ83 wrote:
> Right - i thought it might be btter if i just paste all of the code i
> have done:
>
> #!/usr/central/bin/perl
> use strict ;
> #use warnings;
> use DBI;
>
> my @files= </home/USERNAME/logs/*.log>;
> foreach my $file (@files) {
>
> open (LOG,</home/USERNAME/logs/*.log>) or die "can't open LOG: $!\n";
Surely you want to open each file in succession here. I don't know what
happens when you pass the result of a glob as the filename to open, but
I would bet that what you really wanted here was something like:
open (my $LOG, '<', $file) or die "can't open $file: $!\n";
(Note the use of a lexical file handle and the three argument form of
open. They're good habits to get into.)
>
> while (<LOG>) {
This gets a *single line* from the filehandle LOG and stores it
implicitly in $_
> if (/updates table/) {
> my @lines = split /\n/; {
As has already been pointed out, you only have a single line to work
with here. You can't split into multiple lines on \n, since there is
only one \n, and the end of the line.
You need to change your logic to loop over the lines one by one.
> foreach my $info (@lines) {
>
> while (<LOG>) {
> if (/elapsed/) {
> my @lines = split /\n/; {
> foreach my $elapsed1 (@lines) {
>
> while (<LOG>) {
> if (/conflicting|FASTSEARCH/) {
> my @lines = split /\n/; {
> foreach my $fast (@lines) {
>
> while (<LOG>) {
> if (/elapsed/) {
> my @lines = split /\n/; {
> foreach my $elapsed2 (@lines) {
>
> while (<LOG>) {
> if (/inversions/) {
> my @lines = split /\n/; {
> foreach my $inversions (@lines) {
>
> while (<LOG>) {
> if (/elapsed/) {
> my @lines = split /\n/; {
> foreach my $elapsed3 (@lines) {
>
> close(LOG) ;
[snip]
Indentation would help a lot too.
DS
------------------------------
Date: 7 Sep 2006 11:57:35 GMT
From: anno4000@radom.zrz.tu-berlin.de
Subject: Re: Pattern Matching and skipping
Message-Id: <4mafpfF588fbU4@news.dfncis.de>
MattJ83 <mattjones@hotmail.co.uk> wrote in comp.lang.perl.misc:
> > > while (<LOG>) {
> > > if (/elapsed/) {
> > > my @lines = split /\n/; {
> >
> > I haven't followed this thread, but the split() above is nonsense. If
> > you have read a line (with standard $/) the text contains at most one
> > line feed at he end. Splitting on linefeed doesn't do more than chomp.
> >
> > Since it appears multiple times in your code, here and in your OP, I
> > thought I'd mention it.
> >
> > Anno
>
> When i remove split from my code however, the code doesn't work?!
Sure, you threw out the baby with the bath water. The assignment to
@lines also goes away if you just delete the line.
The point is, @lines will only ever contain one element, the current
line minus its line feed. The same would be achieved by (untested)
while ( <LOG> ) {
chomp;
if ( /elapsed/ ) {
my @lines = ( $_);
I seem to remember that a loop over @lines follows. Both the variable
@lines and the loop can presumably go away too.
Anno
------------------------------
Date: Thu, 7 Sep 2006 06:59:00 -0500
From: Tad McClellan <tadmc@augustmail.com>
Subject: Re: Pattern Matching and skipping
Message-Id: <slrneg02c4.cqu.tadmc@magna.augustmail.com>
MattJ83 <mattjones@hotmail.co.uk> wrote:
> Right - i thought it might be btter if i just paste all of the code i
> have done:
You should write your code so that its structure can be seen.
Each new block should increase the indent level.
> while (<LOG>) {
> if (/updates table/) {
> my @lines = split /\n/; {
> foreach my $info (@lines) {
>
> while (<LOG>) {
> if (/elapsed/) {
> my @lines = split /\n/; {
> foreach my $elapsed1 (@lines) {
while (<LOG>) {
if (/updates table/) {
my @lines = split /\n/; { <== what is that "{" there for?
foreach my $info (@lines) {
while (<LOG>) {
if (/elapsed/) {
my @lines = split /\n/; {
foreach my $elapsed1 (@lines) {
Now it is easy to see that control can never get to /elapsed/
unless /updates table/ matches first.
Read the line once, test it many times.
while (<LOG>) {
if (/updates table/) {
# do stuff
}
elsif (/elapsed/) {
# do other stuff
}
> I just can't get the else or elseif statements to work...........
That is because you are not writing them correctly.
--
Tad McClellan SGML consulting
tadmc@augustmail.com Perl programming
Fort Worth, Texas
------------------------------
Date: 7 Sep 2006 05:03:31 -0700
From: jason@cyberpine.com
Subject: WHY NOT FINDING HASH KEY????
Message-Id: <1157630611.607313.33190@m79g2000cwm.googlegroups.com>
Hello.
I'm trying to merge two files by a common key field.
filea.csv format:
B1,B2,B3,B4,BK
fileb.csv format:
A1,AK,A3,A4
Need to produce:
filec.csv:
A3,A4,B2,B3,B4,BK
Where file1.csv is using BK=AK to lookup A3 and A4. Every record in
filea.csv must end up in filec.csv
Here's the code I have :
#!/usr/bin/perl
open FILEC, '>filec.csv' or die "could not open 'matched.csv' $!";
my %a;
open FILEA, 'filea.csv' "could not open 'filea' $!";
while ( <FILEA> ) {
$_ =~ s/"([^"]*)"/&comma_fixer($1)/ge;
my @f = split /,/;
my $key = $f[4];
#print $key;
if ( exists $a{$key} )
{
print "Duplicate key found in ", $key ," ",$_," ", @f,"\n";
}
else
{
$a{$key} = \@f;
}
}
open FILEB, 'fileb.csv' or die "could not open 'fileb' $!";
while ( <FILEB> ) {
my @b = split /,/;
my $key = $b[1];
#BELOW IS THE SUSPECT LINE
if ( exists $a{$key} ) {
my $m = join ',', $key,
$a{$key}[2],
$b[1],
$b[2],
$b[3];
print FILEC "$m\n";
print "entry found\n";
}
else
{
# print "key not found ",$key,"\n";
}
}
close FILEA;
close FILEB;
close FILEC;
sub comma_fixer {
$string = @_[0];
$string =~ s/,/ /g; ## replace , with blank,
return $string;
=====
Every single line spits out "key not found".
What am I doing wrong and is there a better way to approach this?
------------------------------
Date: 7 Sep 2006 05:21:17 -0700
From: "Paul Lalli" <mritty@gmail.com>
Subject: Re: WHY NOT FINDING HASH KEY????
Message-Id: <1157631677.191131.176590@p79g2000cwp.googlegroups.com>
jason@cyberpine.com wrote:
> Hello.
>
> I'm trying to merge two files by a common key field.
PLEASE DO NOT MULTIPOST!!
http://groups.google.com/group/perl.beginners/browse_frm/thread/038b7ad43ce6fe38/e1781a5091da328f#e1781a5091da328f
Paul Lalli
------------------------------
Date: 7 Sep 2006 14:51:25 +0200
From: Michele Dondi <bik.mido@tiscalinet.it>
Subject: Re: WHY NOT FINDING HASH KEY????
Message-Id: <6d50g2psfanhjr860jvj93ulg2st38jidk@4ax.com>
On 7 Sep 2006 05:03:31 -0700, jason@cyberpine.com wrote:
>Subject: WHY NOT FINDING HASH KEY????
Reposting with an impolite subject line is not going to help you!
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: 7 Sep 2006 05:57:04 -0700
From: jason@cyberpine.com
Subject: Re: WHY NOT FINDING HASH KEY????
Message-Id: <1157633824.592638.153690@b28g2000cwb.googlegroups.com>
My bad.
Clearly I'm desperate.
Any help or information is greatly appreciated.
Michele Dondi wrote:
> On 7 Sep 2006 05:03:31 -0700, jason@cyberpine.com wrote:
>
> >Subject: WHY NOT FINDING HASH KEY????
>
> Reposting with an impolite subject line is not going to help you!
>
>
> 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: 7 Sep 2006 06:03:07 -0700
From: "Paul Lalli" <mritty@gmail.com>
Subject: Re: WHY NOT FINDING HASH KEY????
Message-Id: <1157634187.902985.101410@m79g2000cwm.googlegroups.com>
jason@cyberpine.com wrote:
> My bad.
> Clearly I'm desperate.
Which is massively not an excuse for rudeness. This topic is now
going on in two separate threads on clpm, and one more on
perl.beginners.
> Any help or information is greatly appreciated.
Is this a joke? Is the help you've already been given in these three
threads somehow deficient?!
Paul Lalli
------------------------------
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 9697
***************************************
