[25787] in Perl-Users-Digest

home help back first fref pref prev next nref lref last post

Perl-Users Digest, Issue: 8026 Volume: 10

daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Fri Apr 29 06:05:41 2005

Date: Fri, 29 Apr 2005 03: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           Fri, 29 Apr 2005     Volume: 10 Number: 8026

Today's topics:
        Client does not support authentication protocol <hackeras@gmail.com>
    Re: Client does not support authentication protocol <sisyphus1@nomail.afraid.org>
    Re: Client does not support authentication protocol <hackeras@gmail.com>
    Re: Entirely new idea for a webpage <emschwar@pobox.com>
    Re: Entirely new idea for a webpage <tadmc@augustmail.com>
    Re: Entirely new idea for a webpage <tadmc@augustmail.com>
    Re: Entirely new idea for a webpage <darkon.tda@gmail.com>
    Re: Entirely new idea for a webpage <pilsl@goldfisch.at>
    Re: Entirely new idea for a webpage <hackeras@gmail.com>
    Re: Entirely new idea for a webpage <hackeras@gmail.com>
    Re: Entirely new idea for a webpage <hackeras@gmail.com>
    Re: Entirely new idea for a webpage <hackeras@gmail.com>
    Re: Entirely new idea for a webpage <mark.clementsREMOVETHIS@wanadoo.fr>
    Re: Entirely new idea for a webpage <pilsl@goldfisch.at>
    Re: Entirely new idea for a webpage <hackeras@gmail.com>
    Re: Entirely new idea for a webpage <hackeras@gmail.com>
    Re: Entirely new idea for a webpage <lawshouse.public@btconnect.com>
    Re: Entirely new idea for a webpage <hackeras@gmail.com>
        LogReader.pl <hackeras@gmail.com>
    Re: LogReader.pl <john@castleamber.com>
    Re: Looking for mp3 fake generator script in websites <john@castleamber.com>
    Re: Looking for mp3 fake generator script in websites <tadmc@augustmail.com>
    Re: Looking for mp3 fake generator script in websites <news.10.cdrewing@spamgourmet.com>
        Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)

----------------------------------------------------------------------

Date: Fri, 29 Apr 2005 11:28:53 +0300
From: Nikos <hackeras@gmail.com>
Subject: Client does not support authentication protocol
Message-Id: <d4sr84$iu7$1@nic.grnet.gr>

A guy told me that:

Downloading a new version from CPAN I don't think will help unless you 
actually compile it against version 4.1 or newer client libraries. I'll 
let someone else walk you through this because I had to do it once with 
the Cygwin version of Perl using GCC and that involved recompiling both 
the client libraries and dbd::mysql. If you're using the Activestate 
version of Perl, you probably didn't get the CPAN version of dbd::mysql, 
you got the Activestate version which is pre-compiled and, the last time 
I checked, a couple minor versions behind the CPAN version.

You'll probably want to ask for more help in the Perl forums.

============================================================

but i dont know exactly what to do:

Actually yes i do have ActiveState's Perl version and i

c:\> ppm
install dbd::mysql
exit

to download the mysql DataBase Driver.

What exactly i must do now to get mysql 5 to work?


------------------------------

Date: Fri, 29 Apr 2005 19:36:46 +1000
From: "Sisyphus" <sisyphus1@nomail.afraid.org>
Subject: Re: Client does not support authentication protocol
Message-Id: <42720011$0$10307$afc38c87@news.optusnet.com.au>


"Nikos" <hackeras@gmail.com> wrote in message
news:d4sr84$iu7$1@nic.grnet.gr...

> What exactly i must do now to get mysql 5 to work?

http://aspn.activestate.com/ASPN/Mail/Message/perl-win32-users/2567911

Hth.

Cheers,
Rob




------------------------------

Date: Fri, 29 Apr 2005 12:56:05 +0300
From: Nikos <hackeras@gmail.com>
Subject: Re: Client does not support authentication protocol
Message-Id: <d4t0bj$n6e$1@nic.grnet.gr>

Sisyphus wrote:
> "Nikos" <hackeras@gmail.com> wrote in message
> news:d4sr84$iu7$1@nic.grnet.gr...
> 
> 
>>What exactly i must do now to get mysql 5 to work?
> 
> 
> http://aspn.activestate.com/ASPN/Mail/Message/perl-win32-users/2567911
> 
> Hth.
> 
> Cheers,
> Rob

Yes Rob that site was pointing out the problem but unfortunately i ahve 
the latest dbd::mysql driver and ppm wotn download it again, so the 
problem still persists.


------------------------------

Date: Thu, 28 Apr 2005 16:02:49 -0600
From: Eric Schwartz <emschwar@pobox.com>
Subject: Re: Entirely new idea for a webpage
Message-Id: <etoacni1rw6.fsf@wilson.emschwar>

Nikos <hackeras@gmail.com> writes:
> I know, but i cant read a lot.
> Problem is that i can quit the idea of make a webpage by using Perl as
> well. :(

At this point, I think it's best if you do so.

-=Eric
-- 
Come to think of it, there are already a million monkeys on a million
typewriters, and Usenet is NOTHING like Shakespeare.
		-- Blair Houghton.


------------------------------

Date: Thu, 28 Apr 2005 16:27:30 -0500
From: Tad McClellan <tadmc@augustmail.com>
Subject: Re: Entirely new idea for a webpage
Message-Id: <slrnd72la2.al4.tadmc@magna.augustmail.com>

Nikos <hackeras@gmail.com> wrote:

> I already bought a book names "Learnign Perl" 


I am familiar with that book.


> and i read some but 
> unfortunately i dont have the strenght of reading it all. 


It covers the 1st 60% or so of Perl.

Sounds like you do not have the strength to learn Perl then.

Have you considered learning Python instead?


> Its 600 pages.


No it isn't, it is half of that.

You are making shit up. Nobody likes a liar.


> I know its not the correct way of functioning but this is how i do things.


I know that taking all the money from the cash register at gunpoint
is not the correct way of functioning, but that is how I do things.

(doesn't make it "right", you are abusing me and my peers,
 and I loathe you for it.
)


> Someone might consider that i am lazy, 


<me> raises hand.


> but if that was true then i 
> wouldn't even bother of trying to right the buggy code i right.


You _aren't_ trying to right the buggy code, you are trying to
get others to right it for you.

Do your own work, we already have plenty thank you very much.


> What i say does not owner me, but unfortunately its true.


WTF does that mean? I cannot parse that sentence...


-- 
    Tad McClellan                          SGML consulting
    tadmc@augustmail.com                   Perl programming
    Fort Worth, Texas


------------------------------

Date: Thu, 28 Apr 2005 16:34:26 -0500
From: Tad McClellan <tadmc@augustmail.com>
Subject: Re: Entirely new idea for a webpage
Message-Id: <slrnd72ln2.al4.tadmc@magna.augustmail.com>

Nikos <hackeras@gmail.com> wrote:
> Scott Bryce wrote:
> 
>> But if you read the posting guidelines for this group, you would already 
>> know all this.
> 
> Unfortunately the problem is that i dont read much.


Then you are a self-centered individual, which doesn't play
well in a community-type environment such as newsgroups.

The guidelines are a description of how folks should present
their questions here. It is how folks here like it.

If you spit on us while asking for help it will hurt your chances
of getting help.

Please stop spitting on us and follow the guidelines like
everyone else does, you are not "special" or exempt.


> For some reason i cant press myself to read.


Then go away and don't come back.


-- 
    Tad McClellan                          SGML consulting
    tadmc@augustmail.com                   Perl programming
    Fort Worth, Texas


------------------------------

Date: Fri, 29 Apr 2005 03:40:20 -0000
From: darkon <darkon.tda@gmail.com>
Subject: Re: Entirely new idea for a webpage
Message-Id: <Xns9646F0CEBD23Ddarkon@216.168.3.30>

"J. Gleixner" <glex_nospam@qwest.invalid> wrote:

> P.S. I don't want to add to your learning curve, however IMHO,
> based on what you said you're trying to do and your nascent
> programming ability, you may want to use PHP instead.
> http://www.php.net/  There's plenty of documentation and a
> newsgroup specifically for PHP. nudge..nudge.. 

Heh.  Nice try.  Dirty trick on the PHP folks, though.


------------------------------

Date: Fri, 29 Apr 2005 08:49:36 +0200
From: peter pilsl <pilsl@goldfisch.at>
Subject: Re: Entirely new idea for a webpage
Message-Id: <4271d989$0$3242$79720d31@newsreader.inode.at>

Nikos wrote:
> 
> Unfortunately the problem is that i dont read much.
> For some reason i cant press myself to read.
> 

At least you can read all the answers to your posts and maybe you even 
think its fun what you are doing here. I just came to the conclusion 
that you are just another troll, trying to steal our time.
Regarding me : You succeeded a bit and at least I've made your life a 
bit funnier. Looks like you need it ;)

best,
peter


-- 
http://www.goldfisch.at/know_list


------------------------------

Date: Fri, 29 Apr 2005 10:58:53 +0300
From: Nikos <hackeras@gmail.com>
Subject: Re: Entirely new idea for a webpage
Message-Id: <d4spfr$h4k$1@nic.grnet.gr>

Eric Schwartz wrote:
> Nikos <hackeras@gmail.com> writes:
> 
>>I know, but i cant read a lot.
>>Problem is that i can quit the idea of make a webpage by using Perl as
>>well. :(
> 
> 
> At this point, I think it's best if you do so.

Sorry that was a typo, what i meant is that i "CAN'T" not "CAN".


------------------------------

Date: Fri, 29 Apr 2005 11:01:45 +0300
From: Nikos <hackeras@gmail.com>
Subject: Re: Entirely new idea for a webpage
Message-Id: <d4spl7$h4k$2@nic.grnet.gr>

Tad McClellan wrote:
> Nikos <hackeras@gmail.com> wrote:
> 
> 
>>I already bought a book names "Learnign Perl" 
> 
> 
> 
> I am familiar with that book.

Well i am not.
The book i have is Perl "How to Program by Deitel" not learnign Perl.


>>What i say does not owner me, but unfortunately its true.
> 
> 
> 
> WTF does that mean? I cannot parse that sentence...

typo again, i meant honor me, not owner me

-- 
-- It is not that things beyond technology do not exist.
It is that once we understand it, it becomes technology.
  - Gandalf  Parker


------------------------------

Date: Fri, 29 Apr 2005 11:02:58 +0300
From: Nikos <hackeras@gmail.com>
Subject: Re: Entirely new idea for a webpage
Message-Id: <d4spng$h4k$3@nic.grnet.gr>

Tad McClellan wrote:

> 
> 
>>For some reason i cant press myself to read.
> 
> 
> 
> Then go away and don't come back.

I am noit spitting nonone and please watch your language.

-- 
-- It is not that things beyond technology do not exist.
It is that once we understand it, it becomes technology.
  - Gandalf  Parker


------------------------------

Date: Fri, 29 Apr 2005 11:04:46 +0300
From: Nikos <hackeras@gmail.com>
Subject: Re: Entirely new idea for a webpage
Message-Id: <d4spqs$h4k$4@nic.grnet.gr>

peter pilsl wrote:
> Nikos wrote:
> 
>>
>> Unfortunately the problem is that i dont read much.
>> For some reason i cant press myself to read.
>>
> 
> At least you can read all the answers to your posts and maybe you even 
> think its fun what you are doing here. I just came to the conclusion 
> that you are just another troll, trying to steal our time.
> Regarding me : You succeeded a bit and at least I've made your life a 
> bit funnier. Looks like you need it ;)

I needed it but please do not consider me as a troll.

All i needed is some help because i cant work things out on my own.


------------------------------

Date: Fri, 29 Apr 2005 10:20:45 +0200
From: Mark Clements <mark.clementsREMOVETHIS@wanadoo.fr>
Subject: Re: Entirely new idea for a webpage
Message-Id: <4271ee64$0$3117$8fcfb975@news.wanadoo.fr>

Nikos wrote:
> peter pilsl wrote:
> 
>> Nikos wrote:
>>
>>>
>>> Unfortunately the problem is that i dont read much.
>>> For some reason i cant press myself to read.
>>>
>>
>> At least you can read all the answers to your posts and maybe you even 
>> think its fun what you are doing here. I just came to the conclusion 
>> that you are just another troll, trying to steal our time.
>> Regarding me : You succeeded a bit and at least I've made your life a 
>> bit funnier. Looks like you need it ;)
> 
> 
> I needed it but please do not consider me as a troll.
> 
> All i needed is some help because i cant work things out on my own.

Clearly. Your (not infrequent) postings to alt.hacker are: amusing.
Also amusing is your occasional change of nickname er, Nikos.


------------------------------

Date: Fri, 29 Apr 2005 10:18:39 +0200
From: peter pilsl <pilsl@goldfisch.at>
Subject: Re: Entirely new idea for a webpage
Message-Id: <4271ee68$0$3242$79720d31@newsreader.inode.at>

Nikos wrote:
> 
> I needed it but please do not consider me as a troll.
>
 > All i needed is some help because i cant work things out on my own.


All trolls need it. So do you. It has to do with a certain view of 
themselfes, I guess.
If you would need help you would ask perl-questions. Instead you repeat 
  "please help, I cant do it and I dont want to read anything about it, 
so please help".

I mean: considering that its quite obvious that you are
* even more insane than the average rest of us
* a troll

So lets assume the best and just lets call you a troll :)

I'll answer again, when you ask a real perl-question and I'll still be 
glad to help you then. See you then, my friend.

peter



-- 
http://www.goldfisch.at/know_list


------------------------------

Date: Fri, 29 Apr 2005 11:31:29 +0300
From: Nikos <hackeras@gmail.com>
Subject: Re: Entirely new idea for a webpage
Message-Id: <d4srcv$iu7$2@nic.grnet.gr>

peter pilsl wrote:

> So lets assume the best and just lets call you a troll :)
> 
> I'll answer again, when you ask a real perl-question and I'll still be 
> glad to help you then. See you then, my friend.

Ok Peter, fair enouph.
What i cant argue with is that i dont deserve any help if i didnt try first.


------------------------------

Date: Fri, 29 Apr 2005 11:32:19 +0300
From: Nikos <hackeras@gmail.com>
Subject: Re: Entirely new idea for a webpage
Message-Id: <d4srei$iu7$3@nic.grnet.gr>

Mark Clements wrote:

> Clearly. Your (not infrequent) postings to alt.hacker are: amusing.
> Also amusing is your occasional change of nickname er, Nikos.

My real name is Nikos and iam from Thessaloniki, Greece.


------------------------------

Date: Fri, 29 Apr 2005 09:50:12 +0100
From: Henry Law <lawshouse.public@btconnect.com>
Subject: Re: Entirely new idea for a webpage
Message-Id: <ans371tlm37ar3l5mvo9l5sjr3qrsl2rk5@4ax.com>

On Fri, 29 Apr 2005 11:01:45 +0300, Nikos <hackeras@gmail.com> wrote:

>Tad McClellan wrote:
>
>>>What i say does not owner me, but unfortunately its true.
>> 
>> 
>> 
>> WTF does that mean? I cannot parse that sentence...
>
>typo again, i meant honor me, not owner me

Ah, I get it.  It's a Turing-test-bot.  A pretty good one too, we
should all acknowledge.

But in case not here's my attempt to get Nikos to see what he's doing
wrong:

* What you're trying to do is complex; people train for months to
  gather up the skill to do this - and that's when they're paying for
  formal courses.  If you want to learn to do it too, through your own
  efforts, then it's going to take a LONG time and a LOT of work.
  If you're not prepared to read at least one book end-to-end, forget
  it.

* Don't try to do it all at once.  Start small and simple.  You'll get
  stuck, then you read up, search and possibly post here on that one
  place where you're stuck.  Nothing else.   Someone helps you find
  the answer.  You READ what that person says.  You REMEMBER it.  Your
  skill has improved a little bit.  Then you go on to the next stage,
  making your project a little more complicated, get stuck, repeat.
  Eventually you remember lots of stuff, it gets easier to use it:
  Pow!  You're a Perl programmer.  You can help other people along the
  way too: that's very instructive.

* Try not to see this project of yours as an end in itself: see it
  more as a means of learning Perl.  If you finish it along the lines
  set out above you'll almost certainly want to re-do it, because the
  stuff you wrote early on will offend you by the time you're at the
  end.

* This group will help YOU to LEARN HOW to do things.  It won't
  DO things for you, and it won't necessarily even tell you HOW TO
  do them.  That is the best way of leveraging the (colossal) skill
  of the people who frequent this group.  If you can't understand
  that, or won't accept it, then go someplace else.  If you can find
  one.


------------------------------

Date: Fri, 29 Apr 2005 12:04:59 +0300
From: Nikos <hackeras@gmail.com>
Subject: Re: Entirely new idea for a webpage
Message-Id: <d4stbr$kuj$1@nic.grnet.gr>

Henry Law wrote:
> On Fri, 29 Apr 2005 11:01:45 +0300, Nikos <hackeras@gmail.com> wrote:
> 
> 
>>Tad McClellan wrote:
>>
>>
>>>>What i say does not owner me, but unfortunately its true.
>>>
>>>
>>>
>>>WTF does that mean? I cannot parse that sentence...
>>
>>typo again, i meant honor me, not owner me
> 
> 
> Ah, I get it.  It's a Turing-test-bot.  A pretty good one too, we
> should all acknowledge.
> 
> But in case not here's my attempt to get Nikos to see what he's doing
> wrong:
> 
> * What you're trying to do is complex; people train for months to
>   gather up the skill to do this - and that's when they're paying for
>   formal courses.  If you want to learn to do it too, through your own
>   efforts, then it's going to take a LONG time and a LOT of work.
>   If you're not prepared to read at least one book end-to-end, forget
>   it.
> 
> * Don't try to do it all at once.  Start small and simple.  You'll get
>   stuck, then you read up, search and possibly post here on that one
>   place where you're stuck.  Nothing else.   Someone helps you find
>   the answer.  You READ what that person says.  You REMEMBER it.  Your
>   skill has improved a little bit.  Then you go on to the next stage,
>   making your project a little more complicated, get stuck, repeat.
>   Eventually you remember lots of stuff, it gets easier to use it:
>   Pow!  You're a Perl programmer.  You can help other people along the
>   way too: that's very instructive.
> 
> * Try not to see this project of yours as an end in itself: see it
>   more as a means of learning Perl.  If you finish it along the lines
>   set out above you'll almost certainly want to re-do it, because the
>   stuff you wrote early on will offend you by the time you're at the
>   end.
> 
> * This group will help YOU to LEARN HOW to do things.  It won't
>   DO things for you, and it won't necessarily even tell you HOW TO
>   do them.  That is the best way of leveraging the (colossal) skill
>   of the people who frequent this group.  If you can't understand
>   that, or won't accept it, then go someplace else.  If you can find
>   one.

I agree with you 100%.
I cant read much, but ill give it a try.

For starters i will try to make a simple login cgi script that i will be 
needing in my project and when i get suck on soemthing specific ill ask 
then.

But the damn mysql aint wanna work.....

-- 
-- It is not that things beyond technology do not exist.
It is that once we understand it, it becomes technology.
  - Gandalf  Parker


------------------------------

Date: Fri, 29 Apr 2005 12:25:18 +0300
From: Nikos <hackeras@gmail.com>
Subject: LogReader.pl
Message-Id: <d4suhu$lu6$1@nic.grnet.gr>

Here is the Perl source of a script a made to read irc logs.
============================================================

#!/usr/bin/perl

use MyConsole qw(:SUBS);

$|++;
$MC = new MyConsole;
&Clear;

@colors = qw(9 7 13 5 11 15);

print "Enter the log name you wish to view => ";
$filename = <STDIN>;
chomp ($filename);

open (LOGFILE, $filename) or die $!;

while (<LOGFILE>) {
    ($user) = /^<([^>]*)>/;

    if (!$userhash{$user}) {
       $userhash{$user} = $colors[0];
       push(@colors, shift(@colors));
    }

    DoPrint("$userhash{$user}");

    for $foo (split(//, $_)) {
       for(1..300000) {};
       DoPrint($foo);
    }

    DoPrint("0");
    $line++;

    if ($line == 22) {
       print "\a--more--$/";
       <STDIN>;
       if ($^O eq 'MSWin32') { system("cls") } else { system("clear") };
       $line = 0;
    }
}

close (LOGFILE);
<STDIN>;
if ($^O eq 'MSWin32') { system("cls") } else { system("clear") };
print "\a\a!!! Made by Nikos !!!";




======================================================================
And here is the MyConsole.pm module needed by my LogReader.pl for 
implementing colored text in console mode. This is not made by me but 
from a guy called Ani from irc Undernet on #cgi
======================================================================



#!/usr/bin/perl
###############################################################################
# Displaying text in color. 
       #
# 
       #
# MODE 1: ANSI 
       #
#      2: Console 
       #
#      3: Autodetect: Windows: 2, Unix: 1 
       #
#      default: ANSI 
       #
# 
       #
# 22/03/03 
Animator@CQ-Empires.com #
###############################################################################
package MyConsole;

$VERSION = '1.00';

use Exporter;

use base qw(Exporter);
use vars qw(@EXPORT_OK %EXPORT_TAGS $FG_RED);

my @subs = qw(&Clear &DoPrint);
@EXPORT_OK = (@subs);
%EXPORT_TAGS = (SUBS => \@subs, );


our ($MODE) = 0;

my ($Command) = 'clear';
my ($C);

my (@Ansi) = (color("reset"), color("black"), color("blue"), color("blue 
bold"), color("red"), color("red bold"), color("green"), color("green 
bold"), color("magenta"), color("magenta bold"), color("cyan"), 
color("cyan bold"), color("yellow"), color("yellow bold"), 
color("white"), color("white bold"));
my (@Console) = ("main::ATTR_NORMAL","main::FG_BLACK", "main::FG_BLUE", 
"main::FG_LIGHTBLUE", "main::FG_RED", "main::FG_LIGHTRED", 
"main::FG_GREEN", "main::FG_LIGHTGREEN", "main::FG_MAGENTA", 
"main::FG_LIGHTMAGENTA", "main::FG_CYAN", "main::FG_LIGHTCYAN", 
"main::FG_BROWN", "main::FG_YELLOW", "main::FG_GRAY", "main::FG_WHITE");

sub new {
   my ($self) = shift;

   if ($^O =~ /Win/i) {
     $Command = 'cls';
     if ($MODE ne 1) { $MODE = 2; }
   }

   if ($MODE eq 2) {
     require Win32::Console;
     $C = new Win32::Console;
   }
   else {
     use Term::ANSIColor;
   }
   $self = {};
   bless $self;
   return $self;
}


sub Clear {
   if ($MODE eq 2) {
     $C->Cls;
     $C->Display;
   }
   else { system($Command); }
}

sub DoPrint ($) {
   my ($S) = $_[0];
   $S =~ s/\\ /\0/g;

   if ($MODE eq 2) {
     my (@L) = split (/\/, $S);
     my ($a);
     foreach $a (@L) {
       my ($Color) = "";
       my ($b) = substr($a, 0, 2);
       if ($b ge 10 and $b lt 16) {
         $Color = $Console[$b];
         $a = substr($a, 2, length($a) - 2);
       }
       else {
         $b = substr($a, 0, 1);
         if ($b ge 0 and $b le 9) {
           $Color = $Console[$b];
           $a = substr($a, 1, length($a) - 1);
         }
       }
       if ($Color ne '') { $C->Attr($$Color); }
       $C->Write($a);
       $C->Display;
     }
   }
   else {
     $S =~ s/\([0-9][0-9])/$Ansi[$1]/g;
     $S =~ s/\([0-9])/$Ansi[$1]/g;
     print $S;
   }
}

sub Demo {
   for (my($i)=0;$i<16;$i++) {
     &DoPrint("Demo $i:". (" " x (3 - length($i))) 
 ."".$i."aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa0\n");
   }
}

1;

__END__

Example:
   use MyConsole qw(:SUBS);

   $MC = new MyConsole;
   &Clear;

   $MC->Demo;
   &DoPrint("Demo.");

Demo:
   Use the sub Demo to get a list of all the colors (as shown in the 
example)

Author:
   Animator <Animator@CQ-Empires.com>


I hope you find it usefull! :-)


------------------------------

Date: 29 Apr 2005 09:46:09 GMT
From: John Bokma <john@castleamber.com>
Subject: Re: LogReader.pl
Message-Id: <Xns964730837D9D1castleamber@130.133.1.4>

Nikos wrote:

> #!/usr/bin/perl

use strict;
use warnings;

> &Clear;
  ^


> open (LOGFILE, $filename) or die $!;
> 
> while (<LOGFILE>) {
>     ($user) = /^<([^>]*)>/;
> 
>     if (!$userhash{$user}) {

I would use something like:

unless ( exists $userhash{ $user } ) {


>     DoPrint("$userhash{$user}");
               ^
Don't use funny characters like that.


>     for $foo (split(//, $_)) {
>        for(1..300000) {};

         ^^^^^ silly, I can even
imagine Perl just drops that. Use sleep, or
something related.

>        DoPrint($foo);

Camel Case is weird for subs (IMNSHO)


-- 
John                   Small Perl scripts: http://johnbokma.com/perl/
               Perl programmer available:     http://castleamber.com/
            Happy Customers: http://castleamber.com/testimonials.html
                        


------------------------------

Date: 28 Apr 2005 22:46:58 GMT
From: John Bokma <john@castleamber.com>
Subject: Re: Looking for mp3 fake generator script in websites
Message-Id: <Xns9646B48D8D9D9castleamber@130.133.1.4>

A. Sinan Unur wrote:

> Christian Drewing <news.10.cdrewing@spamgourmet.com> wrote in
> news:42713115$0$10499$9b4e6d93@newsread4.arcor-online.net: 
> 
>> Gregory Toomey schrieb:
> 
>>> This group discusses aspects of Perl. You write code, we comment or
>>> help debug. Many here have nothing to do with html or cgi.
>>> 
>>> So come back with your code example.
>> 
>> Well I am trying to find it as you see and I thought it was written in
>> PERL. 
> 
> You are not going to find it here.

I am sure someone is willing to make it. If its meant to spam SEs and 
attract visitors to fake content, I sincerly hope there will be soon a law 
that makes shit like that illegal.

-- 
John                   Small Perl scripts: http://johnbokma.com/perl/
               Perl programmer available:     http://castleamber.com/
            Happy Customers: http://castleamber.com/testimonials.html
                        


------------------------------

Date: Thu, 28 Apr 2005 16:36:47 -0500
From: Tad McClellan <tadmc@augustmail.com>
Subject: Re: Looking for mp3 fake generator script in websites
Message-Id: <slrnd72lrf.al4.tadmc@magna.augustmail.com>

Christian Drewing <news.10.cdrewing@spamgourmet.com> wrote:
> 
> I am looking for a script 


This is not the place for searching. Use a search engine for searching.

This is a place for discussing *programming* in Perl.

Do you have a question about Perl programming?


-- 
    Tad McClellan                          SGML consulting
    tadmc@augustmail.com                   Perl programming
    Fort Worth, Texas


------------------------------

Date: Fri, 29 Apr 2005 08:32:15 +0200
From: Christian Drewing <news.10.cdrewing@spamgourmet.com>
Subject: Re: Looking for mp3 fake generator script in websites
Message-Id: <4271d4ee$0$7515$9b4e6d93@newsread2.arcor-online.net>

Tad McClellan schrieb:
> Christian Drewing <news.10.cdrewing@spamgourmet.com> wrote:
> 
>>I am looking for a script 
> 
> 
> 
> This is not the place for searching. Use a search engine for searching.
> 
> This is a place for discussing *programming* in Perl.
> 
> Do you have a question about Perl programming?
> 
> 

I thought this is a place where people help each other when having perl
problems.

But maybe this task is too advanced for you freaks.

Thank you for nothing.



------------------------------

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 8026
***************************************


home help back first fref pref prev next nref lref last post