Re: Perl Quiz of the Week

2002-10-14 Thread Aristoteles Pagaltzis
* Mark-Jason Dominus [EMAIL PROTECTED] [2002-10-13 17:48]: I am now back. If you want to get the quiz-of-the-week, send a note to [EMAIL PROTECTED] Please feel free to circulate this announcement to appropriate venues. I posted this (among others) to PerlMonks at

Re: Content-type:image/gif\n\n problem

2002-10-05 Thread Aristoteles Pagaltzis
* Adam Rice [EMAIL PROTECTED] [2002-10-05 23:26]: If I was writing this for work I would include error checking and read and write the file in 64k blocks, but there's no fun way to do that in Perl so I'll leave it out here. Yes there is. $/ = \(65536); See perldoc perlvar on $/ --

Re: removing extra empty lines

2002-09-30 Thread Aristoteles Pagaltzis
* Vladi Belperchinov-Shabanski [EMAIL PROTECTED] [2002-09-30 19:24]: $_='' if !/\S/ $e; # i.e. don't print if empty and last one was empty $e = !/\S/; # remember if last one is empty... Since you have already done $_='' in the first line, you don't need a regex in the