From: Ilmari Karonen Newsgroups: comp.lang.perl.misc,alt.ascii-art Subject: Re: This is not a question ... call me slow if you like... Date: 18 Aug 2001 20:45:35 GMT Organization: (dis)Order of the Holy Spoon (or whatever) Lines: 53 Message-ID: <998164032.16642@itz.pp.sci.fi> References: <997446825.1634.0.nnrp-13.d4f094e4@news.demon.co.uk> <9l19mr$9ug$1@mamenchi.zrz.TU-Berlin.DE> <3B7B7E29.E1423382@earthlink.net> Reply-To: Ilmari Karonen NNTP-Posting-Host: simpukka.saunalahti.fi X-Trace: tron.sci.fi 998167535 10813 195.74.0.20 (18 Aug 2001 20:45:35 GMT) X-Complaints-To: newsmaster@saunalahti.fi NNTP-Posting-Date: 18 Aug 2001 20:45:35 GMT User-Agent: postit.pl 0.05 Path: chonsp.franklin.ch!pfaff.ethz.ch!news-zh.switch.ch!news.ifi.unizh.ch!news.imp.ch!news.imp.ch!uni-erlangen.de!newsfeed1.telenordia.se!algonet!newsfeed1.funet.fi!newsfeeds.funet.fi!news.cc.tut.fi!uutiset.saunalahti.fi!not-for-mail Xref: chonsp.franklin.ch alt.ascii-art:20609 [Crossposted to alt.ascii-art. For those reading this there, the blocks of line noise we're discussing are obfuscated Perl programs.] In article <3B7B7E29.E1423382@earthlink.net>, Benjamin Goldberg wrote: >Anno Siegel wrote: >> >> We can compress better than that. The banner uses only two characters, so >> a single bit can tell which. It's less true than yours (I had to unify the >> line length) but it fits in four lines: >> >> use MIME::Base64; $vec = decode_base64( q( vMj5OCHni76DRBEhGkVEFCQkMghfKSK+ry >> IRQ/hSERF9k4giQh SLiCgog+MQopBDRF8CAAAAAAAAAAAAAAAAAAAAAM93gshx0ncGiIIURFFUgj >> RA9JXg+4LxlQGebwTRF4xvDBAEJYiiqAQFgOBLTxQ5 6UsDAA==));for($i=0;$i<8*length >> $vec;$i++) { print "\n" unless $i % 67; print vec( $vec, $i, 1) ? '8' : '_' } > >And using just uuencoding works even better, and doesn't require an >external module: > >$u=q{M``````````#@1<['"3E?]!TDB@C1*"*B("&10?A*$?%]%8D8PI>*B.B;1!01 >}. q{MHEA$1$$9'(<0A1PB^A(``````````/!\)X@<)WUG@"A(011%)4@#1%\)OB\8 >}. q{<7QG@^480?<'XQ@!!4((HBDI0``B^]$21D[XT````};$j=unpack("u",$u); >for(0..938){print vec($j,$_,1)?"8":" ";print"\n"unless(($_+1)%67)} Clever. Let's see if a fancier font can be made to work: y/n/\n/,s/\d+/$"x$&/eg,print for qw'n4|9|21|3|n1\2||2|(_-<2_|4_`1|3\3_1\2_|3\3 -_)2_|n\__/\_,_|___/\__|2\__,_|_|1_|\___/\__|_|1_|\___|_|nn4_1\9|3|14|n4__/1-_ )2_|1|5\3_`1|2_|1!1/2-_)2_|n3_|1\___|_|2_|2_|1_|\__,_|\__|_i_\\\___|_|1)n45/n' Hey, it even fits in three lines. Actually, the same trick works pretty nicely for any line-style ASCII art. For example: #!/usr/bin/perl y/~/\n/,s/\d+/$"x$&/eg,print for qw#~19/`.4/`.~18f3\\2,f2\\~6Gee1Brain,2| 4\\/-`\\2\\6The1same1thing1we1do~3what1do1you4i.2_\\';.,X1j6every1night,1 Pinky.~5want1to1do4`:_\\1(2\\1\\',-.3Try1to1take1over~10tonight?3.'"`\\1a \\eY'1)3the1world!2_,.~21`._"\\`-'1`-/12.-;'2|~23/;-`._.-';\\.8,',"4|~21. '/3"'3|1`\\.-'""-/1/6j~19,/1/9i,-"8(2,/2/~16.-'1.f9.'12`"/2/~15/1,,/ffj\\ 6/10.-"`.'-.'~14/1/_\\`--//)5\\1,--._1.-'_,-';1/~13f2".-"-._;'6`._1_.,-i; 1/_;1/~13`.,'3|;1\\10\\`\\_,/-'2\\'~14.'4l1\\1`.8/"\\1_1\\`2j~14f6:1`-'8` ._;."/`-'~14|6`.15,Z2\\~14l7j13.'/1-1\\`.~13.j.2.3<12(.'4.\\1\\f`.1|\\,'~ 12,'1`.2\\1/1\\11`|6\\,'||-:j~10.'2.'\\3Y.2\\___......__\\1._3/`.||~2__.. _,-"1.-"'"")2/'1,'1_10\\1|2/"-.`j""``---.._~4.'_.-'"5/1.("-'-"":\\8._)|_( __.1"'~3;.'9/-'---"".--"'7/,_,^-._1.)~3`:=.__.,itz1`---._.;'11""6""~##;-) -- Ilmari Karonen -- http://www.sci.fi/~iltzu/ "Get real! This is a discussion group, not a helpdesk. You post something, we discuss its implications. If the discussion happens to answer a question you've asked, that's incidental." -- nobull in comp.lang.perl.misc ###### Path: chonsp.franklin.ch!not-for-mail From: Neil Franklin Newsgroups: comp.lang.perl.misc,alt.ascii-art Subject: Re: This is not a question ... call me slow if you like... Date: 19 Aug 2001 00:28:50 +0200 Organization: My own Private Self Lines: 48 Message-ID: <6uvgjlroil.fsf@chonsp.franklin.ch> References: <997446825.1634.0.nnrp-13.d4f094e4@news.demon.co.uk> <9l19mr$9ug$1@mamenchi.zrz.TU-Berlin.DE> <3B7B7E29.E1423382@earthlink.net> <998164032.16642@itz.pp.sci.fi> NNTP-Posting-Host: chonsp.franklin.ch X-Trace: chonsp.franklin.ch 998173731 332 10.0.3.2 (18 Aug 2001 22:28:51 GMT) X-Complaints-To: news@chonsp.franklin.ch NNTP-Posting-Date: 18 Aug 2001 22:28:51 GMT X-Newsreader: Gnus v5.7/Emacs 20.4 Xref: chonsp.franklin.ch alt.ascii-art:20614 posting this from alt.ascii-art... Ilmari Karonen writes: > #!/usr/bin/perl > y/~/\n/,s/\d+/$"x$&/eg,print for qw#~19/`.4/`.~18f3\\2,f2\\~6Gee1Brain,2| > 4\\/-`\\2\\6The1same1thing1we1do~3what1do1you4i.2_\\';.,X1j6every1night,1 > Pinky.~5want1to1do4`:_\\1(2\\1\\',-.3Try1to1take1over~10tonight?3.'"`\\1a > \\eY'1)3the1world!2_,.~21`._"\\`-'1`-/12.-;'2|~23/;-`._.-';\\.8,',"4|~21. > '/3"'3|1`\\.-'""-/1/6j~19,/1/9i,-"8(2,/2/~16.-'1.f9.'12`"/2/~15/1,,/ffj\\ > 6/10.-"`.'-.'~14/1/_\\`--//)5\\1,--._1.-'_,-';1/~13f2".-"-._;'6`._1_.,-i; > 1/_;1/~13`.,'3|;1\\10\\`\\_,/-'2\\'~14.'4l1\\1`.8/"\\1_1\\`2j~14f6:1`-'8` > ._;."/`-'~14|6`.15,Z2\\~14l7j13.'/1-1\\`.~13.j.2.3<12(.'4.\\1\\f`.1|\\,'~ > 12,'1`.2\\1/1\\11`|6\\,'||-:j~10.'2.'\\3Y.2\\___......__\\1._3/`.||~2__.. > _,-"1.-"'"")2/'1,'1_10\\1|2/"-.`j""``---.._~4.'_.-'"5/1.("-'-"":\\8._)|_( > __.1"'~3;.'9/-'---"".--"'7/,_,^-._1.)~3`:=.__.,itz1`---._.;'11""6""~##;-) neil@chonsp 0:23:18 ~> cat > 1.pl #!/usr/bin/perl y/~/\n/,s/\d+/$"x$&/eg,print for qw#~19/`.4/`.~18f3\\2,f2\\~6Gee1Brain,2| 4\\/-`\\2\\6The1same1thing1we1do~3what1do1you4i.2_\\';.,X1j6every1night,1 Pinky.~5want1to1do4`:_\\1(2\\1\\',-.3Try1to1take1over~10tonight?3.'"`\\1a \\eY'1)3the1world!2_,.~21`._"\\`-'1`-/12.-;'2|~23/;-`._.-';\\.8,',"4|~21. '/3"'3|1`\\.-'""-/1/6j~19,/1/9i,-"8(2,/2/~16.-'1.f9.'12`"/2/~15/1,,/ffj\\ 6/10.-"`.'-.'~14/1/_\\`--//)5\\1,--._1.-'_,-';1/~13f2".-"-._;'6`._1_.,-i; 1/_;1/~13`.,'3|;1\\10\\`\\_,/-'2\\'~14.'4l1\\1`.8/"\\1_1\\`2j~14f6:1`-'8` ._;."/`-'~14|6`.15,Z2\\~14l7j13.'/1-1\\`.~13.j.2.3<12(.'4.\\1\\f`.1|\\,'~ 12,'1`.2\\1/1\\11`|6\\,'||-:j~10.'2.'\\3Y.2\\___......__\\1._3/`.||~2__.. _,-"1.-"'"")2/'1,'1_10\\1|2/"-.`j""``---.._~4.'_.-'"5/1.("-'-"":\\8._)|_( __.1"'~3;.'9/-'---"".--"'7/,_,^-._1.)~3`:=.__.,itz1`---._.;'11""6""~##;-) neil@chonsp 0:23:29 ~> perl 1.pl | wc 27 150 1281 neil@chonsp 0:24:39 ~> wc 1.pl 12 14 830 1.pl neil@chonsp 0:24:43 ~> So we get ASCII Art compression from 27 to 12 lines. Just bad luck for those who do not have an perl interpreter to decompress it. And yes, nice Pinky and the Brain picture. -- Neil Franklin, neil@franklin.ch.remove http://neil.franklin.ch/ Hacker, Unix Guru, El Eng HTL/BSc, Sysadmin, Archer, Roleplayer - Intellectual Property is Intellectual Robbery ###### From: Przemyslaw Brojewski Newsgroups: comp.lang.perl.misc,alt.ascii-art Subject: Re: This is not a question ... call me slow if you like... Date: 20 Aug 2001 11:51:22 GMT Organization: KIS - Katedra Informatyki Stosowanej Lines: 6 Message-ID: <9lqtjq$mnd$1@kujawiak.man.lodz.pl> References: <997446825.1634.0.nnrp-13.d4f094e4@news.demon.co.uk> <9l19mr$9ug$1@mamenchi.zrz.TU-Berlin.DE> <3B7B7E29.E1423382@earthlink.net> <998164032.16642@itz.pp.sci.fi> <6uvgjlroil.fsf@chonsp.franklin.ch> NNTP-Posting-Host: zly.kis.p.lodz.pl X-Trace: kujawiak.man.lodz.pl 998308282 23277 212.51.216.2 (20 Aug 2001 11:51:22 GMT) X-Complaints-To: abuse@man.lodz.pl NNTP-Posting-Date: 20 Aug 2001 11:51:22 GMT User-Agent: tin/1.4.4-20000803 ("Vet for the Insane") (UNIX) (SunOS/5.7 (sun4u)) Path: chonsp.franklin.ch!pfaff.ethz.ch!news-zh.switch.ch!pinatubo.switch.ch!newsfeeds.belnet.be!news.belnet.be!news.tele.dk!small.news.tele.dk!194.213.69.151!news.algonet.se!newsfeed1.telenordia.se!algonet!news.man.lodz.pl!not-for-mail Xref: chonsp.franklin.ch alt.ascii-art:20623 I get: Modification of a read-only value attempted at cosik line 2. perl 5.6.1. what gives? ###### From: Ilmari Karonen Newsgroups: comp.lang.perl.misc,alt.ascii-art Subject: Re: This is not a question ... call me slow if you like... Date: 20 Aug 2001 12:45:50 GMT Organization: (dis)Order of the Holy Spoon (or whatever) Lines: 15 Message-ID: <998311456.28496@itz.pp.sci.fi> References: <997446825.1634.0.nnrp-13.d4f094e4@news.demon.co.uk> <9l19mr$9ug$1@mamenchi.zrz.TU-Berlin.DE> <3B7B7E29.E1423382@earthlink.net> <998164032.16642@itz.pp.sci.fi> <6uvgjlroil.fsf@chonsp.franklin.ch> <9lqtjq$mnd$1@kujawiak.man.lodz.pl> Reply-To: Ilmari Karonen NNTP-Posting-Host: simpukka.saunalahti.fi X-Trace: tron.sci.fi 998311550 29184 195.74.0.20 (20 Aug 2001 12:45:50 GMT) X-Complaints-To: newsmaster@saunalahti.fi NNTP-Posting-Date: 20 Aug 2001 12:45:50 GMT User-Agent: postit.pl 0.05 Path: chonsp.franklin.ch!pfaff.ethz.ch!news-zh.switch.ch!news-ge.switch.ch!news.tele.dk!small.news.tele.dk!195.54.122.107!newsfeed1.bredband.com!bredband!newsfeed1.telenordia.se!algonet!newsfeed1.funet.fi!newsfeeds.funet.fi!news.cc.tut.fi!uutiset.saunalahti.fi!not-for-mail Xref: chonsp.franklin.ch alt.ascii-art:20617 In article <9lqtjq$mnd$1@kujawiak.man.lodz.pl>, Przemyslaw Brojewski wrote: >I get: >Modification of a read-only value attempted at cosik line 2. > >perl 5.6.1. Sorry. Try the one in my .sig -- the original breaks under perl v5.6. -- # Ilmari Karonen -- http://www.sci.fi/~iltzu/ s''n4|9|21|3|n1\2||2|(_-<2_|4_`1|3\3_1\2_|3\3-_)2_|n\__/\_,_|___/\__|2\__,_|_| 1_|\___/\__|_|1_|\___|_|nn4_1\9|3|14|n4__/1-_)2_|1|5\3_`1|2_|1!1/2-_)2_|n3_|1\ ___|_|2_|2_|1_|\__,_|\__|_i_\\\___|_|1)n45/n',y/n\n/\n/d,s/\d+/$"x$&/eg,print; ###### From: helgi@NOSPAMdecode.is (Helgi Briem) Newsgroups: comp.lang.perl.misc,alt.ascii-art Subject: Re: This is not a question ... call me slow if you like... Date: Mon, 20 Aug 2001 16:39:40 GMT Reply-To: helgi@NOSPAMdecode.is Message-ID: <3b813aab.2448013607@news.isholf.is> References: <997446825.1634.0.nnrp-13.d4f094e4@news.demon.co.uk> <9l19mr$9ug$1@mamenchi.zrz.TU-Berlin.DE> <3B7B7E29.E1423382@earthlink.net> <998164032.16642@itz.pp.sci.fi> <6uvgjlroil.fsf@chonsp.franklin.ch> <9lqtjq$mnd$1@kujawiak.man.lodz.pl> X-Newsreader: Forte Free Agent 1.21/32.243 NNTP-Posting-Host: 213.167.128.100 X-Trace: 20 Aug 2001 16:39:40 -0800, 213.167.128.100 Lines: 35 Path: chonsp.franklin.ch!pfaff.ethz.ch!news-zh.switch.ch!news-ge.switch.ch!kanja.arnes.si!news-hub.siol.net!fr.clara.net!heighliner.fr.clara.net!proxad.net!199.202.55.10.MISMATCH!nntp1.aeq.teleglobe.net!teleglobe.net!news.isholf.is!213.167.128.100 Xref: chonsp.franklin.ch alt.ascii-art:20620 On 20 Aug 2001 11:51:22 GMT, Przemyslaw Brojewski wrote: >I get: >Modification of a read-only value attempted at cosik line 2. > >perl 5.6.1. > >what gives? OK, you're slow. Apparently you tried to modify a read-only value (a value that cannot be written to) in line 2 of cosik (whatever that happens to be). Apparently, perl 5.6.1 regards this as a Bad Thing. From perldoc perldiag Modification of a read-only value attempted (F) You tried, directly or indirectly, to change the value of a constant. You didn't, of course, try 2 = 1, since the compiler catches that. But an easy way to do the same thing is: sub mod { $_[0] = 1 } mod(2); Another way is to assign to a substr that's off the end of the string. Regards, Helgi Briem ###### From: Eli the Bearded Newsgroups: comp.lang.perl.misc,alt.ascii-art Subject: Re: This is not a question ... call me slow if you like... Date: 21 Aug 2001 01:08:08 GMT Organization: Some absurd concept Lines: 42 Message-ID: References: <997446825.1634.0.nnrp-13.d4f094e4@news.demon.co.uk> <9l19mr$9ug$1@mamenchi.zrz.TU-Berlin.DE> <3B7B7E29.E1423382@earthlink.net> <998164032.16642@itz.pp.sci.fi> NNTP-Posting-Host: panix1.panix.com X-Trace: news.panix.com 998356088 16887 166.84.1.1 (21 Aug 2001 01:08:08 GMT) X-Complaints-To: abuse@panix.com NNTP-Posting-Date: 21 Aug 2001 01:08:08 GMT X-Files: Used for sharpening claws and teeth on your hawk and hacksaw X-Motto: "Erosion of rights never seems to reverse itself." -- kenny@panix X-US-Congress: Moronic Fucks. X-Attribution: EtB X-Usenet-II: Because it is time for October. Encrypted: double rot-13 X-Newsreader: Sony Playstation 5.0MIPS Path: chonsp.franklin.ch!pfaff.ethz.ch!news-zh.switch.ch!news.ifi.unizh.ch!42508!news.imp.ch!news-spur1.maxwell.syr.edu!news.maxwell.syr.edu!feed2.news.rcn.net!rcn!news.voicenet.com!yellow.newsread.com!netaxs.com!newsread.com!panix!news.panix.com!qz!not-for-mail Xref: chonsp.franklin.ch alt.ascii-art:20648 In alt.ascii-art, Ilmari Karonen wrote: > In article <3B7B7E29.E1423382@earthlink.net>, Benjamin Goldberg wrote: > >And using just uuencoding works even better, and doesn't require an > >external module: [snip] > Clever. Let's see if a fancier font can be made to work: > y/n/\n/,s/\d+/$"x$&/eg,print for qw'n4|9|21|3|n1\2||2|(_-<2_|4_`1|3\3_1\2_|3\3 > -_)2_|n\__/\_,_|___/\__|2\__,_|_|1_|\___/\__|_|1_|\___|_|nn4_1\9|3|14|n4__/1-_ > )2_|1|5\3_`1|2_|1!1/2-_)2_|n3_|1\___|_|2_|2_|1_|\__,_|\__|_i_\\\___|_|1)n45/n' Which perl? 5.6.0 is giving me "Modification of a read-only value attempted at - line 1" for that. I've got this old one, for 5.6.0 or higher, a bit ugly at 5 lines: @a=([42.110.0.76.78.174.192,42.132.0.170.164.168.160,42.68.0.234.164.236.192, 170.36.0.170.164.168.160.0,68.196.0.170.68.174.160,],,[206.200.0.164.106.236, ,,168.168.0.170.138.138.0,,204.200.0.238.140.204.0,,136.168.0.170.138.138.0,, 142.174.0.170.106.234,],);$/=v36;for$a(@a){for$b(@$a){eval"$/_=sprintf('%vb', '$b');$/\\=v10";s/\d+/sprintf"%08d",$&/ge;tr;.;;d;tr;10;* ;;print}print q,,}; And years ago I wrote this (in c): /* if(TERM==ANSI) {cc -Dc=`"\e[32m"` sig.c} else {cc -Dc=\"\" sig.c} */ e(int d){printf("%c",d);}main(){int a=0,b;for(b=141596885;b>8;b>>=4)e(97-( b>>22)+(b&15));puts(c);for(;a<128;){b="}////+c)cy////*494y////*979y///+e*" "959*ey///*I5Q*939*I5Qy///*96bI3Qb69y///*!777!y///*Y6kIql6Yy///*A5q+9!,A5" "9y///+m,YQ-my////-iq~y"[a++];for(;7&b;e("Eli!: MV?JL1m\"P\n"[b-->>3]));}} Which I see can be converted reasonably well to perl: sub e{printf"%c",shift}for($b=141596885;$b>8;$b>>=4){&e(97-($b>>22)+($b&15))}$ _="}X/+c)cyX/*494yX/*979yX+e*959*eyX*I5Q*939*I5QyX*96bI3Qb69yX*!777!yX*Y6kIql" ."6YyX*A5q+9!,A59yX+m,YQ-myX/-iq~y";s:X:///:g;@b=/./g;$_=qq'Eli!: MV?JL1m"P\n' ;@e=/./sig;for($a=0;$a<128;){$b=ord$b[$a++];for(;$b&7;){&e(ord$e[($b-->>3)])}} Elijah ------ #!/usr/bin/perl -w use Shell; print(figlet(qw(Just Another Perl Hacker))); __END__ ###### From: Bart Lateur Newsgroups: comp.lang.perl.misc,alt.ascii-art Subject: Re: This is not a question ... call me slow if you like... Organization: MediaMind Message-ID: References: <997446825.1634.0.nnrp-13.d4f094e4@news.demon.co.uk> <9l19mr$9ug$1@mamenchi.zrz.TU-Berlin.DE> <3B7B7E29.E1423382@earthlink.net> <998164032.16642@itz.pp.sci.fi> <6uvgjlroil.fsf@chonsp.franklin.ch> <9lqtjq$mnd$1@kujawiak.man.lodz.pl> X-Newsreader: Forte Agent 1.8/32.548 MIME-Version: 1.0 Content-Type: text/plain; charset=us-ascii Content-Transfer-Encoding: 7bit Lines: 16 Date: Tue, 21 Aug 2001 11:12:43 GMT NNTP-Posting-Host: 213.224.4.67 X-Complaints-To: abuse@pandora.be X-Trace: afrodite.telenet-ops.be 998392363 213.224.4.67 (Tue, 21 Aug 2001 13:12:43 MET DST) NNTP-Posting-Date: Tue, 21 Aug 2001 13:12:43 MET DST Path: chonsp.franklin.ch!pfaff.ethz.ch!news-zh.switch.ch!news-ge.switch.ch!newsfeed00.sul.t-online.de!t-online.de!skynet.be!skynet.be!ossa.telenet-ops.be!afrodite.telenet-ops.be.POSTED!not-for-mail Xref: chonsp.franklin.ch alt.ascii-art:20671 Przemyslaw Brojewski wrote: >Modification of a read-only value attempted at cosik line 2. > >perl 5.6.1. > >what gives? Put (local$_=$_), in front of it, just before the very first "y". -- Bart. ###### From: Ilmari Karonen Newsgroups: comp.lang.perl.misc,alt.ascii-art Subject: Re: This is not a question ... call me slow if you like... Followup-To: comp.lang.perl.misc Date: 21 Aug 2001 13:35:41 GMT Organization: (dis)Order of the Holy Spoon (or whatever) Lines: 44 Message-ID: <998400115.29424@itz.pp.sci.fi> References: <997446825.1634.0.nnrp-13.d4f094e4@news.demon.co.uk> <9l19mr$9ug$1@mamenchi.zrz.TU-Berlin.DE> <3B7B7E29.E1423382@earthlink.net> <998164032.16642@itz.pp.sci.fi> <6uvgjlroil.fsf@chonsp.franklin.ch> <9lqtjq$mnd$1@kujawiak.man.lodz.pl> <3b813aab.2448013607@news.isholf.is> Reply-To: Ilmari Karonen NNTP-Posting-Host: simpukka.saunalahti.fi X-Trace: tron.sci.fi 998400941 21189 195.74.0.20 (21 Aug 2001 13:35:41 GMT) X-Complaints-To: newsmaster@saunalahti.fi NNTP-Posting-Date: 21 Aug 2001 13:35:41 GMT User-Agent: postit.pl 0.05 Path: chonsp.franklin.ch!pfaff.ethz.ch!news-zh.switch.ch!news.ifi.unizh.ch!59186!news.imp.ch!uni-erlangen.de!newsfeed1.telenordia.se!algonet!newsfeed1.funet.fi!newsfeeds.funet.fi!news.cc.tut.fi!uutiset.saunalahti.fi!not-for-mail Xref: chonsp.franklin.ch alt.ascii-art:20631 In article <3b813aab.2448013607@news.isholf.is>, Helgi Briem wrote: >On 20 Aug 2001 11:51:22 GMT, Przemyslaw Brojewski > wrote: > >>I get: >>Modification of a read-only value attempted at cosik line 2. >> >>perl 5.6.1. >> >>what gives? > >OK, you're slow. No he's not. And this was all my mistake, as was the bug. 1. This is being crossposted. Przemyslaw is from alt.ascii-art. 2. He was referring to a JAPH I'd posted. 3. The subject of this thread came from someone else entirely. Okay, so he should've quoted my post. Okay, so Helgi should've checked the newsgroups list and the beginning of the thread. And I should've been more careful in testing my code before posting it. In the end, this whole subthread is the result of a series of unfortunate mistakes. I'd successful crossposted between alt.ascii-art and comp.lang.perl.misc before, so I didn't see any risk in that. But I should've realized that the cultures are different enough that there might be misunderstandings. (Note for a.a-a readers: comp.lang.perl.misc is a high-volume group. And yes, we do get people actually asking about bugs in code they're not willing to show, with totally misleading subject lines. Some people get pretty annoyed with it after a while. Abestos underwear recommended.) [Followups set to comp.lang.perl.misc ONLY. Keep this out of a.a-a.] -- Ilmari Karonen -- http://www.sci.fi/~iltzu/ "Get real! This is a discussion group, not a helpdesk. You post something, we discuss its implications. If the discussion happens to answer a question you've asked, that's incidental." -- nobull in comp.lang.perl.misc ###### From: dkcombs@panix.com (David Combs) Newsgroups: comp.lang.perl.misc,alt.ascii-art Subject: Re: This is not a question ... call me slow if you like... Date: 22 Aug 2001 09:17:04 GMT Organization: Public Access Networks Corp. Lines: 33 Message-ID: <9lvtag$ond$1@news.panix.com> References: <997446825.1634.0.nnrp-13.d4f094e4@news.demon.co.uk> <6uvgjlroil.fsf@chonsp.franklin.ch> <9lqtjq$mnd$1@kujawiak.man.lodz.pl> <998311456.28496@itz.pp.sci.fi> NNTP-Posting-Host: panix2.panix.com X-Trace: news.panix.com 998471824 25325 166.84.1.2 (22 Aug 2001 09:17:04 GMT) X-Complaints-To: abuse@panix.com NNTP-Posting-Date: 22 Aug 2001 09:17:04 GMT X-Newsreader: trn 4.0-test74 (May 26, 2000) Originator: dkcombs@panix.com (David Combs) Path: chonsp.franklin.ch!pfaff.ethz.ch!news-zh.switch.ch!news.ifi.unizh.ch!1003862!news.imp.ch!news-spur1.maxwell.syr.edu!news.maxwell.syr.edu!howland.erols.net!panix!news.panix.com!not-for-mail Xref: chonsp.franklin.ch alt.ascii-art:20641 In article <998311456.28496@itz.pp.sci.fi>, Ilmari Karonen wrote: >In article <9lqtjq$mnd$1@kujawiak.man.lodz.pl>, Przemyslaw Brojewski wrote: >>I get: >>Modification of a read-only value attempted at cosik line 2. >> >>perl 5.6.1. > >Sorry. Try the one in my .sig -- the original breaks under perl v5.6. > >-- ># Ilmari Karonen -- http://www.sci.fi/~iltzu/ >s''n4|9|21|3|n1\2||2|(_-<2_|4_`1|3\3_1\2_|3\3-_)2_|n\__/\_,_|___/\__|2\__,_|_| >1_|\___/\__|_|1_|\___|_|nn4_1\9|3|14|n4__/1-_)2_|1|5\3_`1|2_|1!1/2-_)2_|n3_|1\ >___|_|2_|2_|1_|\__,_|\__|_i_\\\___|_|1)n45/n',y/n\n/\n/d,s/\d+/$"x$&/eg,print; > Now, just what do we have to do to turn those three lines into a perl program? (especially great would be the exact command line or lines we must type in.) Thanks David PS: if you could make some of those prior things work on 5.6.1, it'd be real nice, as we could *try* them -- which would be fun. ###### From: Josef Moellers Newsgroups: comp.lang.perl.misc,alt.ascii-art Subject: Re: This is not a question ... call me slow if you like... Date: Wed, 22 Aug 2001 12:18:57 +0200 Organization: Changes ever so often Lines: 25 Message-ID: <3B838711.E8D1A5C5@fujitsu-siemens.com> References: <997446825.1634.0.nnrp-13.d4f094e4@news.demon.co.uk> <6uvgjlroil.fsf@chonsp.franklin.ch> <9lqtjq$mnd$1@kujawiak.man.lodz.pl> <998311456.28496@itz.pp.sci.fi> <9lvtag$ond$1@news.panix.com> NNTP-Posting-Host: 172.25.187.52 Mime-Version: 1.0 Content-Type: text/plain; charset=iso-8859-1 Content-Transfer-Encoding: quoted-printable X-Trace: dackel.pdb.sbs.de 998476071 11909 172.25.187.52 (22 Aug 2001 10:27:51 GMT) X-Complaints-To: abuse@siemens.de NNTP-Posting-Date: Wed, 22 Aug 2001 10:27:51 +0000 (UTC) X-Mailer: Mozilla 4.74 [en] (X11; U; Linux 2.2.16 i686) X-Accept-Language: en Path: chonsp.franklin.ch!pfaff.ethz.ch!news-zh.switch.ch!news.ifi.unizh.ch!news.imp.ch!news.imp.ch!fr.clara.net!heighliner.fr.clara.net!newsfeed.online.be!195.129.110.18.MISMATCH!bnewspeer00.bru.ops.eu.uu.net!emea.uu.net!newsfeed.siemens.de!news.pdb.sbs.de!not-for-mail Xref: chonsp.franklin.ch alt.ascii-art:20657 David Combs wrote: >s''n4|9|21|3|n1\2||2|(_-<2_|4_`1|3\3_1\2_|3\3-_)2_|n\__/\_,_|___/\__|2\_= _,_|_| > >1_|\___/\__|_|1_|\___|_|nn4_1\9|3|14|n4__/1-_)2_|1|5\3_`1|2_|1!1/2-_)2= _|n3_|1\ > >___|_|2_|2_|1_|\__,_|\__|_i_\\\___|_|1)n45/n',y/n\n/\n/d,s/\d+/$"x$&/e= g,print; > > > = > Now, just what do we have to do to turn > those three lines into a perl program? > = > (especially great would be the exact command line or > lines we must type in.) Works fine with perl, version 5.005_03. -- = Josef M=F6llers (Pinguinpfleger bei FSC) If failure had no penalty success would not be a prize -- T. Pratchett ###### From: Philip Newton Newsgroups: comp.lang.perl.misc,alt.ascii-art Subject: Re: This is not a question ... call me slow if you like... Date: Wed, 22 Aug 2001 19:54:36 +0200 Organization: very little Lines: 31 Message-ID: References: <997446825.1634.0.nnrp-13.d4f094e4@news.demon.co.uk> <6uvgjlroil.fsf@chonsp.franklin.ch> <9lqtjq$mnd$1@kujawiak.man.lodz.pl> <998311456.28496@itz.pp.sci.fi> <9lvtag$ond$1@news.panix.com> Reply-To: "Philip 'Yes, that's my address' Newton" NNTP-Posting-Host: dialin202.pg13.hamburg.nikoma.de (213.54.52.202) Mime-Version: 1.0 Content-Type: text/plain; charset=us-ascii Content-Transfer-Encoding: 7bit X-Trace: fu-berlin.de 998502459 12107813 213.54.52.202 (16 [11583]) X-Newsreader: Forte Agent 1.8/32.548 Path: chonsp.franklin.ch!pfaff.ethz.ch!news-zh.switch.ch!news.ifi.unizh.ch!172502!news.imp.ch!fu-berlin.de!uni-berlin.de!dialin202.pg13.hamburg.nikoma.DE!not-for-mail Xref: chonsp.franklin.ch alt.ascii-art:20682 On 22 Aug 2001 09:17:04 GMT, dkcombs@panix.com (David Combs) wrote: > In article <998311456.28496@itz.pp.sci.fi>, > Ilmari Karonen wrote: > > > >Sorry. Try the one in my .sig -- the original breaks under perl v5.6. > > > >-- > ># Ilmari Karonen -- http://www.sci.fi/~iltzu/ > >s''n4|9|21|3|n1\2||2|(_-<2_|4_`1|3\3_1\2_|3\3-_)2_|n\__/\_,_|___/\__|2\__,_|_| > >1_|\___/\__|_|1_|\___|_|nn4_1\9|3|14|n4__/1-_)2_|1|5\3_`1|2_|1!1/2-_)2_|n3_|1\ > >___|_|2_|2_|1_|\__,_|\__|_i_\\\___|_|1)n45/n',y/n\n/\n/d,s/\d+/$"x$&/eg,print; > > > Now, just what do we have to do to turn > those three lines into a perl program? > > (especially great would be the exact command line or > lines we must type in.) Type in 'perl'. That starts up your Perl interpreter and it'll wait for you to type in a program. Copy-and-paste Ilmari's sig. If on Unix, you can type Ctrl+D on a line by itself to terminate the program and have it run. Otherwise, typing __END__ on a line by itself should work. Cheers, Philip -- Philip Newton That really is my address; no need to remove anything to reply. If you're not part of the solution, you're part of the precipitate.