On Fri, 2009-01-02 at 11:32 -0500, Steven Rodriguez wrote:
> Of course, Randal(a.k.a. "merlyn") is the original Perl hacker. He
> is
> the one who came up with the idea. I'd love to see some of his
> gnarly
> obfuscated versions.(BTW, I am a huge FLOSS weekly fan) I think
> there
> are some a
Of course, Randal(a.k.a. "merlyn") is the original Perl hacker. He is
the one who came up with the idea. I'd love to see some of his gnarly
obfuscated versions.(BTW, I am a huge FLOSS weekly fan) I think there
are some archived on comp.lang.perl
On Jan 2, 2009, at 11:02 AM, Randal L. Schwart
> "Steven" == Steven Rodriguez writes:
Steven> Well, as a beginner with per I have been fascinated with the "Just
another
Steven> perl hacker" program or signature. So, I decided to make my own.
/me averts his eyes...
:)
print "Just another Perl hacker,"; # the original
--
Randal L. S
On Thu, Jan 1, 2009 at 2:14 AM, John Refior wrote:
>
> > Nifty. One of the goals of a JAPH is to demonstrate one or more of
>> > Perl's advantages/quirks.
>>
>> Fun. New concept for me. Here's a less interesting one I wrote after
>> reading your emails:
>>
>> sub japh { $_ = shift; print $1 wh
On Thu, Jan 1, 2009 at 02:41, John W. Krahn wrote:
snip
>> +${+uc}=+$_ for+split+//,+"JustanotherPerlhacker";print
>> +qq+$J$U$S$T$"$A$N$O$T$H$E$R$"$P$E$R$L$"$H$A$C$K$E$R$/+
>
> Or:
>
> ${+uc}=$_ for+split+qr++,q+JustanotherPerlhacker+;print
> +qq+$J$U$S$T$"$A$N$O$T$H$E$R$"$P$E$R$L$"$H$A$C$K$E$R$/
Chas. Owens wrote:
On Thu, Jan 1, 2009 at 01:54, John W. Krahn wrote:
snip
eval q.$..(uc).qq.='$_'.for split//, "JustanotherPerlhacker";
print qq'$J$U$S$T$"$A$N$O$T$H$E$R$"$P$E$R$L$"$H$A$C$K$E$R$/';
If you don't have warnings and strict enabled you could just do this:
$ perl -e'
${uc;}=$_ for
On Thu, Jan 1, 2009 at 01:54, John W. Krahn wrote:
snip
>> eval q.$..(uc).qq.='$_'.for split//, "JustanotherPerlhacker";
>> print qq'$J$U$S$T$"$A$N$O$T$H$E$R$"$P$E$R$L$"$H$A$C$K$E$R$/';
>
> If you don't have warnings and strict enabled you could just do this:
>
> $ perl -e'
> ${uc;}=$_ for split//
> > Nifty. One of the goals of a JAPH is to demonstrate one or more of
> > Perl's advantages/quirks.
>
> Fun. New concept for me. Here's a less interesting one I wrote after
> reading your emails:
>
> sub japh { $_ = shift; print $1 while /(.)/gs; } print $/ unless
> &japh("Just another Perl hac
Chas. Owens wrote:
On Wed, Dec 31, 2008 at 21:40, Steven Rodriguez wrote:
Well, as a beginner with per I have been fascinated with the "Just another
perl hacker" program or signature. So, I decided to make my own. Granted, I
am just a beginner so my version is fairly simple. All I did was make
> Nifty. One of the goals of a JAPH is to demonstrate one or more of
> Perl's advantages/quirks.
Fun. New concept for me. Here's a less interesting one I wrote after
reading your emails:
sub japh { $_ = shift; print $1 while /(.)/gs; } print $/ unless &japh("Just
another Perl hacker,");
Rega
On Thu, Jan 1, 2009 at 00:12, Mr. Shawn H. Corey wrote:
> On Wed, 2008-12-31 at 22:33 -0500, Chas. Owens wrote:
>> eval q.$..(uc).qq.='$_'.for split//, "JustanotherPerlhacker";
>> print qq'$J$U$S$T$"$A$N$O$T$H$E$R$"$P$E$R$L$"$H$A$C$K$E$R$/';
>>
>
> qq'...'
>
> That's just sick!
snip
Yes, it is, a
On Wed, 2008-12-31 at 22:33 -0500, Chas. Owens wrote:
> eval q.$..(uc).qq.='$_'.for split//, "JustanotherPerlhacker";
> print qq'$J$U$S$T$"$A$N$O$T$H$E$R$"$P$E$R$L$"$H$A$C$K$E$R$/';
>
qq'...'
That's just sick!
--
Just my 0.0002 million dollars worth,
Shawn
Believe in the Gods but row a
On Wed, Dec 31, 2008 at 21:40, Steven Rodriguez wrote:
> Well, as a beginner with per I have been fascinated with the "Just another
> perl hacker" program or signature. So, I decided to make my own. Granted, I
> am just a beginner so my version is fairly simple. All I did was make each
> letter of
Well, as a beginner with per I have been fascinated with the "Just
another perl hacker" program or signature. So, I decided to make my
own. Granted, I am just a beginner so my version is fairly simple. All
I did was make each letter of the phrase and independent variable.
Still, it is fun t
14 matches
Mail list logo
