[29084] in Perl-Users-Digest
Perl-Users Digest, Issue: 328 Volume: 11
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Thu Apr 12 14:10:11 2007
Date: Thu, 12 Apr 2007 11:09: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 Thu, 12 Apr 2007 Volume: 11 Number: 328
Today's topics:
Re: Absolute Path errors <nikos1337@gmail.com>
Re: Absolute Path errors <bik.mido@tiscalinet.it>
Re: Absolute Path errors <jluis@agujero-negro.escomposlinux.org>
add URL within start_form lratzan@gmail.com
Re: add URL within start_form <scobloke2@infotop.co.uk>
Help with understanding/using dispatch tables <mothra@nowhereatall.com>
Re: My script to download YouTube videos (critique want <bik.mido@tiscalinet.it>
Re: My script to download YouTube videos (critique want <bik.mido@tiscalinet.it>
Re: My script to download YouTube videos (critique want anno4000@radom.zrz.tu-berlin.de
Re: My script to download YouTube videos (critique want <bugbear@trim_papermule.co.uk_trim>
Re: My script to download YouTube videos (critique want <purlgurl@purlgurl.net>
Re: My script to download YouTube videos (critique want <purlgurl@purlgurl.net>
Re: My script to download YouTube videos (critique want <octomancer@blueyonder.co.uk>
Re: My script to download YouTube videos (critique want <1usa@llenroc.ude.invalid>
Re: My script to download YouTube videos (critique want <ignoramus14150@NOSPAM.14150.invalid>
Re: My script to download YouTube videos (critique want <jurgenex@hotmail.com>
Re: My script to download YouTube videos (critique want <bik.mido@tiscalinet.it>
Re: My script to download YouTube videos (critique want <bik.mido@tiscalinet.it>
Re: Search Replace using Hash -p0777 <someone@example.com>
Re: Toggle between hot filehandles question <bik.mido@tiscalinet.it>
Re: Top Turds of comp.lang.perl.misc (2007) <octomancer@blueyonder.co.uk>
Re: Top Turds of comp.lang.perl.misc (2007) <1usa@llenroc.ude.invalid>
Re: Top Turds of comp.lang.perl.misc (2007) <sigzero@gmail.com>
Re: Top Turds of comp.lang.perl.misc (2007) <bik.mido@tiscalinet.it>
Re: Top Turds of comp.lang.perl.misc (2007) <purlgurl@purlgurl.net>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: 12 Apr 2007 03:22:40 -0700
From: "skieros" <nikos1337@gmail.com>
Subject: Re: Absolute Path errors
Message-Id: <1176373360.572290.48570@p77g2000hsh.googlegroups.com>
=CF/=C7 Michele Dondi =DD=E3=F1=E1=F8=E5:
> On 12 Apr 2007 01:10:11 -0700, "skieros" <nikos1337@gmail.com> wrote:
>
> >> Well, and when cgi-bin/index.pl is executed, what do you think that
> >> its cwd will be?
> >
> >it will be cgi-bin
>
> Ok, now the answer is staring in front of you: if you open() a file
> with a relative path, that will be relative to cgi-bin, NOT its parent
> directory.
>
> >when index.pl is executed and it passes form data to show.pl print
> >$ENV{HTTP_REFERRER} which i use in show.pl will say http://localhost
> >instead of http://index.pl, and i still dotn get that!
>
> You're still confusing two things that stay on opposite sides of a
> wall, that have traits resembling each other, but which are in fact
> completely different things. $ENV{HTTP_REFERRER} is a networking,
> http-related, thing and a priori it has nothing to do with your local
> filesystem.
>
> In particular the URL you expect for it does NOT make any sense, for
> http://index.pl is not a reasonable URL in any way.
>
> >index.pl send form data to show.pl so the referes should be index.pl
> >not document root.
> >
> >why ti beaves like that? before that i had the index.html redirection
> >it uses to work ok.
>
> I'll try to explain again in my own words, which may be technically
> inexact for as I said I'm not an expert in these matters: the
> webserver has some rules to map some URLS it gets requested into files
> to serve or programs to execute, which will spit out some valid
> content to serve. The CGI protocol establishes the communication
> between the webserver itself and the called program, but the latter is
> not aware in any way of the tricks the former performs. Well, to be
> fair, as someone explained, actually the webserbver passes along info
> that *can be used* to understand them, but you have to do so yourself:
> it's NOT an authomatic thing. (And personally I fail to see why/how it
> could.)
>
> I know it is frustrating not to understand the real reason behind
> something that puzzles you, but if you still don't get it, I recommend
> not to worry and for the time being to just accept it along the lines
> of "because it's like that, period."
thanks ill just try to forget about it.....
i can understand it now as explained and why ti works with abosulte
hhd path but fail to see how it *used to work* back then when i
redirected from /index.html =3D> cgi-bin/index.pl
dam how did that redirection worked made apache open() files with just
relative paths......
------------------------------
Date: Thu, 12 Apr 2007 16:07:53 +0200
From: Michele Dondi <bik.mido@tiscalinet.it>
Subject: Re: Absolute Path errors
Message-Id: <c5fs13hdv80deb8ceackn5o09pdiq54t4s@4ax.com>
On 12 Apr 2007 03:22:40 -0700, "skieros" <nikos1337@gmail.com> wrote:
>i can understand it now as explained and why ti works with abosulte
>hhd path but fail to see how it *used to work* back then when i
>redirected from /index.html =3D> cgi-bin/index.pl
>
>dam how did that redirection worked made apache open() files with just
>relative paths......
One last (really, eh!) try: it's Perl, not apache that does the
open()s and previously by a pure chance the relative urls were
corresponding to the correct relative paths. But generally this is in
fact a circumstance.
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: Thu, 12 Apr 2007 16:13:59 +0200
From: José Luis Pérez Diez <jluis@agujero-negro.escomposlinux.org>
Subject: Re: Absolute Path errors
Message-Id: <VA.00000b9f.06483dd6@agujero-negro.escomposlinux.org>
In article <1176373360.572290.48570@p77g2000hsh.googlegroups.com>,
Skieros wrote:
> i can understand it now as explained and why ti works with abosulte
> hhd path but fail to see how it *used to work* back then when i
> redirected from /index.html => cgi-bin/index.pl
>
I don't know how you redirected index.html, of Apache document root, to
,Apache current directory, cgi-bin/index.pl and what Apache select as
current directory for cgi-bin/index.pl to run.
> dam how did that redirection worked made apache open() files with just
> relative paths......
>
I don't cannot parse this last sentence
What happens in both cases can be known if index.pl informs of it's
current work directory
------------------------------
Date: 12 Apr 2007 08:18:49 -0700
From: lratzan@gmail.com
Subject: add URL within start_form
Message-Id: <1176391129.380085.197850@e65g2000hsc.googlegroups.com>
Hello:
I am modifying someone else's complex Perl code. I need to add a
functional URL.
The old code looks like this:
start_form(-action=>url),
hr,
h3 ("Update Your Address"),
blah blah blah
end_form;
I want it to display: Update Your Address (Click here to jump to new
page)
If the user clicks then it goes to another page
What is the correct syntax to do this? (The syntax I expected to work
doesn't)
Thank you,
Lee Ratzan (lratzan@gmail.com)
------------------------------
Date: Thu, 12 Apr 2007 17:37:29 +0100
From: Ian Wilson <scobloke2@infotop.co.uk>
Subject: Re: add URL within start_form
Message-Id: <461e6051$0$21837$db0fefd9@news.zen.co.uk>
lratzan@gmail.com wrote:
> Hello:
> I am modifying someone else's complex Perl code. I need to add a
> functional URL.
I suggest you read the documentation by opening a command prompt and
typing this command:
perldoc CGI
>
> The old code looks like this:
> start_form(-action=>url),
> hr,
> h3 ("Update Your Address"),
> blah blah blah
a({href=>"http://your.server/your/page"},
"(Click here to jump to new page)"),
> end_form;
>
> I want it to display: Update Your Address (Click here to jump to new
> page)
> If the user clicks then it goes to another page
>
> What is the correct syntax to do this? (The syntax I expected to work
> doesn't)
>
It is usually best to post the code you tried.
------------------------------
Date: Thu, 12 Apr 2007 11:04:33 -0700
From: "Mothra" <mothra@nowhereatall.com>
Subject: Help with understanding/using dispatch tables
Message-Id: <461e7e3a$1@usenet.ugs.com>
Hello everyone,
I have a perl script (see below) that uses dispatch tables to set values,
however
subs get_lat_N and get_lat_S are almost identical :-( this tells me thatt I
am
doing something wrong. How can I modify my dispatch table structure to avoid
duplicate code?
Thanks
Mothra
-------script below--------
use HTTP::Request::Common;
use POSIX qw(floor);
#use Data::Dumper;
use HTML::Form;
use LWP::UserAgent;
#use LWP::Debug qw(+);
use strict;
use warnings;
my %dispatch_table_lat = (
'N' => \&get_lat_N,
'S' => \&get_lat_S
);
my %dispatch_table_lon = (
'E' => \&get_long_E,
'W' => \&get_long_W
);
our %location = ();
#open (OUT, ">> d:/tmp/fetched_cities.txt") or die "Can't open file:$!\n";
while (<DATA>) {
/(\w+),\s+(\w+)\s+(\d+)\s+(\d+)\s+(\w)\s+(\d+)\s+(\d+)\s+(\w)/;
$dispatch_table_lat{$5}->( $3, $4 );
$dispatch_table_lon{$8}->( $6, $7 );
$location{'zz1'} = floor( $location{'xx1'} / 15 );
my ( $sunrise, $sunset ) = get_sunrise();
print "$1 $2 sunrise: $sunrise sunset: $sunset\n";
#print OUT "$1, $2 $3 $4 $5 $6 $7 $8 sunrise: $sunrise sunset:
$sunset\n";
}
close OUT;
sub get_lat_N {
my ( $degree, $minute ) = @_;
$location{'yy0'} = '1';
$location{'yy1'} = $degree;
$location{'yy2'} = $minute;
return;
}
sub get_lat_S {
my ( $degree, $minute ) = @_;
$location{'yy0'} = '-1';
$location{'yy1'} = $degree;
$location{'yy2'} = $minute;
return;
}
sub get_long_E {
my ( $degree, $minute ) = @_;
$location{'zz0'} = '1';
$location{'xx0'} = '1';
$location{'xx1'} = $degree;
$location{'xx2'} = $minute;
return;
}
sub get_long_W {
my ( $degree, $minute ) = @_;
$location{'zz0'} = '-1';
$location{'xx0'} = '-1';
$location{'xx1'} = $degree;
$location{'xx2'} = $minute;
return;
}
sub get_sunrise {
my $ua = LWP::UserAgent->new;
$ua->agent('Mozilla/4.73');
my $req =
HTTP::Request->new(
GET => 'http://aa.usno.navy.mil/data/docs/RS_OneDay.html' );
my $res = $ua->request($req);
my @form = HTML::Form->parse( $res->content, $res->base() );
#xxy is year
#xxm is month
#xxd is day
$form[1]->value( 'xxy', "2007" );
$form[1]->value( 'xxm', "2" );
$form[1]->value( 'xxd', "20" );
#xx0 is -1 or 1 long 1 for east -1 for west
#xx1 is long in degrees
#xx2 is long in minites
$form[1]->value( 'xx0', $location{'xx0'} );
$form[1]->value( 'xx1', $location{xx1} );
$form[1]->value( 'xx2', $location{'xx2'} );
#yy0 is -1 for west 1 for east latitude
#yy1 is degrees
#yy2 is minites
$form[1]->value( 'yy0', $location{'yy0'} );
$form[1]->value( 'yy1', $location{'yy1'} );
$form[1]->value( 'yy2', $location{'yy2'} );
#zz1 is offset from GMT
#zz0 is -1 west of GMT 1 east
$form[1]->value( 'zz1', $location{'zz1'} );
$form[1]->value( 'zz0', $location{'zz0'} );
$req = $form[1]->make_request;
$req = $ua->request($req);
$req->content =~ /\s+Sunrise\s+(\d+:\d+)\s+/;
#print $req->content;
my $sunrise = $1;
$req->content =~ /\s+Sunset\s+(\d+:\d+)\s+/;
my $sunset = $1;
return ( $sunrise, $sunset );
}
__DATA__
Aberdeen, Scotland 57 9 N 2 9 W
Adelaide, Australia 34 55 S 138 36 E
Algiers, Algeria 36 50 N 3 0 E
Amsterdam, Netherlands 52 22 N 4 53 E
Ankara, Turkey 39 55 N 32 55 E
Asuncion, Paraguay 25 15 S 57 40 W
------------------------------
Date: Thu, 12 Apr 2007 12:08:48 +0200
From: Michele Dondi <bik.mido@tiscalinet.it>
Subject: Re: My script to download YouTube videos (critique wanted)
Message-Id: <k51s1398bhivcdnji7cn863q5b7ortf2jm@4ax.com>
On Wed, 11 Apr 2007 20:33:33 -0500, Ignoramus13850
<ignoramus13850@NOSPAM.13850.invalid> wrote:
>> return; # your code will do the "wrong thing" in list context
>
>I was under (probably wrong) impression that return returns last
>computed value.
The point is that an empty list and a list with a single element,
which happens to be undef are not the same thing.
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: Thu, 12 Apr 2007 12:10:49 +0200
From: Michele Dondi <bik.mido@tiscalinet.it>
Subject: Re: My script to download YouTube videos (critique wanted)
Message-Id: <4c1s13pbi198upp93peu5dujet0rgv5acj@4ax.com>
On Thu, 12 Apr 2007 09:25:29 +0100, bugbear
<bugbear@trim_papermule.co.uk_trim> wrote:
>Purl Gurl wrote:
>> Incorrect use of declaring a private lexical variable on a global
>> basis does reduce script efficiency and is clearly a signature of
>> a Perl programmer who is less than acceptably talented.
>
>You're confusing "talent" and "knowledge".
You're confusing "don't feed the troll" and "reply to moronzilla".
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: 12 Apr 2007 10:38:33 GMT
From: anno4000@radom.zrz.tu-berlin.de
Subject: Re: My script to download YouTube videos (critique wanted)
Message-Id: <586gh9F2f17o4U1@mid.dfncis.de>
Purl Gurl <purlgurl@purlgurl.net> wrote in comp.lang.perl.misc:
> Ignoramus13850 wrote:
> > Well, that "my" declaration makes things slower, is new to me and
> > surprises me. However, I will take your word at face value.
>
> No need to take my word on face value. You only need to employ
> well written benchmark tests to verify.
Like this?
use constant N => 100;
cmpthese -1, {
lex => sub { my $lex; $lex = rand for 1 .. N },
pack => sub { our $pack; $pack = rand for 1 .. N },
};
Result:
Rate pack lex
pack 2181/s -- -25%
lex 2928/s 34% --
Anno
------------------------------
Date: Thu, 12 Apr 2007 11:50:49 +0100
From: bugbear <bugbear@trim_papermule.co.uk_trim>
Subject: Re: My script to download YouTube videos (critique wanted)
Message-Id: <461e0f09$0$8736$ed2619ec@ptn-nntp-reader02.plus.net>
Michele Dondi wrote:
> On Thu, 12 Apr 2007 09:25:29 +0100, bugbear
> <bugbear@trim_papermule.co.uk_trim> wrote:
>
>> Purl Gurl wrote:
>>> Incorrect use of declaring a private lexical variable on a global
>>> basis does reduce script efficiency and is clearly a signature of
>>> a Perl programmer who is less than acceptably talented.
>> You're confusing "talent" and "knowledge".
>
> You're confusing "don't feed the troll" and "reply to moronzilla".
Yeah, sorry - I wasn't familiar with Purl Gurl's
record.
BugBear
------------------------------
Date: Thu, 12 Apr 2007 04:26:57 -0700
From: Purl Gurl <purlgurl@purlgurl.net>
Subject: Re: My script to download YouTube videos (critique wanted)
Message-Id: <V7-dnbFBBO4ZioPbnZ2dnUVZ_o2vnZ2d@giganews.com>
Michele Dondi wrote:
> bugbear wrote:
>> Purl Gurl wrote:
(snipped)
> You're confusing "don't feed the troll" and "reply to moronzilla".
Your historical and frequent childish trolling of this
discussion group benefits none.
You and Uri should team up,
"Beavis & Butthead - Idiots Extraordinaire!"
I am quite amused by all these childish troll boys around
here, like you and Uri and so many others.
You present yourselves as gods of Perl then turn right around
and display for readers you are childish ignorant twits!
Ironically, you troll boys are directly responsible for
destruction of this discussion group; you troll boys are
the base cause of this group falling to wayside and you
troll boys are certainly a black eye for the Perl community.
Only value you troll boys afford readers is a constant
source of comedy.
Purl Gurl
------------------------------
Date: Thu, 12 Apr 2007 06:16:00 -0700
From: Purl Gurl <purlgurl@purlgurl.net>
Subject: Re: My script to download YouTube videos (critique wanted)
Message-Id: <uI6dnWDC1PKLrIPbnZ2dnUVZ_sqdnZ2d@giganews.com>
anno4000 wrote:
> Purl Gurl wrote:
>> Ignoramus13850 wrote:
>>> Well, that "my" declaration makes things slower, is new to me and
>>> surprises me. However, I will take your word at face value.
>> No need to take my word on face value. You only need to employ
>> well written benchmark tests to verify.
> Like this?
(snipped broken benchmark results)
No, not "like this" in your benchmark code.
Previously, two benchmark tests, one mine, one another, both
directly contradict your results.
You are invoking the broken perl core "our" declaration. You
are using broken code. I am surprised you would attempt to
perpetrate such deceit upon readers; you are not known to be
a persistent troll like the other boys around here. You are
respected, the other boys are not, yet you are currently
behaving in a deceitful manner typical of the other boys.
Purl Gurl
Like this:
_________________________________________________
#!perl
my $global = "Purl Gurl Rocks!";
for (1 .. 100000)
{ $global =~ tr/a-z/A-Z/; }
c:\apache\users\test>ntimer /f perl test.pl
ContextSwitches - 511
First level fills = 0
Second level fills = 0
ETime( 0:00:00.046 ) UTime( 0:00:00.046 ) KTime( 0:00:00.015 )
ITime( 0:00:00.062 )
Process PageFaultCount 426
Total Interrupts 55
Total Context Switches 511
Total System Calls 1464
_________________________________________________
#!perl
$global = "Purl Gurl Rocks!";
for (1 .. 100000)
{ $global =~ tr/a-z/A-Z/; }
c:\apache\users\test>ntimer /f perl test.pl
ContextSwitches - 172
First level fills = 0
Second level fills = 0
ETime( 0:00:00.046 ) UTime( 0:00:00.046 ) KTime( 0:00:00.015 )
ITime( 0:00:00.046 )
Process PageFaultCount 425
Total Interrupts 6
Total Context Switches 172
Total System Calls 950
------------------------------
Date: 12 Apr 2007 08:26:10 -0700
From: "Octo" <octomancer@blueyonder.co.uk>
Subject: Re: My script to download YouTube videos (critique wanted)
Message-Id: <1176391570.446748.217500@e65g2000hsc.googlegroups.com>
On 12 Apr, 11:01, Michele Dondi <bik.m...@tiscalinet.it> wrote:
> On Wed, 11 Apr 2007 13:07:41 -0500, Ignoramus13850
>
> <ignoramus13...@NOSPAM.13850.invalid> wrote:
> > print STDERR "Failed to get url '$url' ($i).\n";
>
> In addition to what others wrote thus far,
>
> print STDERR
>
> is generally spelt
>
> warn
Not quite correct ...
print STDERR "<stuff>\n"
can be spelled
warn "<stuff>"
However
print STDERR "<stuff>"
can not be expressed using the keyword warn.
------------------------------
Date: Thu, 12 Apr 2007 16:10:46 GMT
From: "A. Sinan Unur" <1usa@llenroc.ude.invalid>
Subject: Re: My script to download YouTube videos (critique wanted)
Message-Id: <Xns99107BF8F8AC1asu1cornelledu@127.0.0.1>
"Octo" <octomancer@blueyonder.co.uk> wrote in
news:1176391570.446748.217500@e65g2000hsc.googlegroups.com:
> On 12 Apr, 11:01, Michele Dondi <bik.m...@tiscalinet.it> wrote:
>> On Wed, 11 Apr 2007 13:07:41 -0500, Ignoramus13850
>>
>> <ignoramus13...@NOSPAM.13850.invalid> wrote:
>> > print STDERR "Failed to get url '$url' ($i).\n";
>>
>> In addition to what others wrote thus far,
>>
>> print STDERR
>>
>> is generally spelt
>>
>> warn
>
> Not quite correct ...
>
> print STDERR "<stuff>\n"
>
> can be spelled
>
> warn "<stuff>"
Actually:
warn "<stuff>\n";
does the same thing as
print STDERR "<stuff>\n";
for output purposes. However, messages emitted by warn can be caught using
the $SIG{__WARN__} handler whereas printing directly to STDERR bypasses
that mechanism.
Sinan
--
A. Sinan Unur <1usa@llenroc.ude.invalid>
(remove .invalid and reverse each component for email address)
comp.lang.perl.misc guidelines on the WWW:
http://augustmail.com/~tadmc/clpmisc/clpmisc_guidelines.html
------------------------------
Date: Thu, 12 Apr 2007 11:20:28 -0500
From: Ignoramus14150 <ignoramus14150@NOSPAM.14150.invalid>
Subject: Re: My script to download YouTube videos (critique wanted)
Message-Id: <AdOdnfZt_KvRwYPbnZ2dnUVZ_v7inZ2d@giganews.com>
On Thu, 12 Apr 2007 16:10:46 GMT, A. Sinan Unur <1usa@llenroc.ude.invalid> wrote:
> "Octo" <octomancer@blueyonder.co.uk> wrote in
> news:1176391570.446748.217500@e65g2000hsc.googlegroups.com:
>
>> On 12 Apr, 11:01, Michele Dondi <bik.m...@tiscalinet.it> wrote:
>>> On Wed, 11 Apr 2007 13:07:41 -0500, Ignoramus13850
>>>
>>> <ignoramus13...@NOSPAM.13850.invalid> wrote:
>>> > print STDERR "Failed to get url '$url' ($i).\n";
>>>
>>> In addition to what others wrote thus far,
>>>
>>> print STDERR
>>>
>>> is generally spelt
>>>
>>> warn
>>
>> Not quite correct ...
>>
>> print STDERR "<stuff>\n"
>>
>> can be spelled
>>
>> warn "<stuff>"
>
>
> Actually:
>
> warn "<stuff>\n";
>
> does the same thing as
>
> print STDERR "<stuff>\n";
>
> for output purposes. However, messages emitted by warn can be caught using
> the $SIG{__WARN__} handler whereas printing directly to STDERR bypasses
> that mechanism.
>
> Sinan
I feel like print STDERR does exactly what I want, without the
associated bullshit. I will continue to use print STDERR as
appropriate.
i
------------------------------
Date: Thu, 12 Apr 2007 17:10:55 GMT
From: "Jürgen Exner" <jurgenex@hotmail.com>
Subject: Re: My script to download YouTube videos (critique wanted)
Message-Id: <zKtTh.10101$FC5.1420@trndny06>
Ignoramus14150 wrote:
[whatever]
*Plonk*ing the fourteenthousandonehundredandfiftieth clone of Ignoramus,
too.
------------------------------
Date: Thu, 12 Apr 2007 19:27:45 +0200
From: Michele Dondi <bik.mido@tiscalinet.it>
Subject: Re: My script to download YouTube videos (critique wanted)
Message-Id: <gjqs1354o8evilpj2kgqnvcb425sgl2rug@4ax.com>
On 12 Apr 2007 08:26:10 -0700, "Octo" <octomancer@blueyonder.co.uk>
wrote:
>> In addition to what others wrote thus far,
>>
>> print STDERR
>>
>> is generally spelt
>>
>> warn
>
>Not quite correct ...
Yes, I understand what you mean. And indeed you're right: they are not
perfectly equivalent. What I meant, of course, is that to emit
warnings one generally uses the specialized warn() function, unless
she has special needs. It doesn't seem to me that the OP has any.
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: Thu, 12 Apr 2007 19:31:36 +0200
From: Michele Dondi <bik.mido@tiscalinet.it>
Subject: Re: My script to download YouTube videos (critique wanted)
Message-Id: <e1rs13h6fn9t0tfen5f8ctf2ndathg5dog@4ax.com>
On Thu, 12 Apr 2007 11:20:28 -0500, Ignoramus14150
<ignoramus14150@NOSPAM.14150.invalid> wrote:
>I feel like print STDERR does exactly what I want, without the
>associated bullshit. I will continue to use print STDERR as
>appropriate.
If you really like that... but... *what* bullshit, anyway?
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: Thu, 12 Apr 2007 15:11:48 GMT
From: "John W. Krahn" <someone@example.com>
Subject: Re: Search Replace using Hash -p0777
Message-Id: <U_rTh.23708$hO2.19222@edtnps82>
dscastroii@earthlink.net wrote:
> I'm trying to replace ascii codes (or &entities) in a text file with
> it's equivalent character using a hash. The problem I'm running into
> is I am not allowed to use a foreach or while loop to do this (yes,
> this is a homework assignment). I must use the -p0777 option
Then I guess you can't use the -p option because that uses a while loop.
John
--
Perl isn't a toolbox, but a small machine shop where you can special-order
certain sorts of tools at low cost and in short order. -- Larry Wall
------------------------------
Date: Thu, 12 Apr 2007 12:11:40 +0200
From: Michele Dondi <bik.mido@tiscalinet.it>
Subject: Re: Toggle between hot filehandles question
Message-Id: <9e1s13pfe7sjdgc6o3a493kmq5eum650bd@4ax.com>
On Thu, 12 Apr 2007 00:18:39 +0200, Michele Dondi
<bik.mido@tiscalinet.it> wrote:
>Isn't it that you want IO::Multiplex?
Or the older IO::Tee mentioned elsewhere.
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: 12 Apr 2007 06:44:35 -0700
From: "Octo" <octomancer@blueyonder.co.uk>
Subject: Re: Top Turds of comp.lang.perl.misc (2007)
Message-Id: <1176385475.439976.108600@l77g2000hsb.googlegroups.com>
On 11 Apr, 21:11, perl-2...@hotmail.com wrote:
> Most contributors to comp.lang.perl.misc are helpful and share good
> information. Unfortunately there are a few individuals who are
> frequently rude and abusive. For their bad behavior they are hereby
> named the Top Turds of comp.lang.perl.misc for 2007.
>
> 7. J=FCrgen Exner jurge...@hotmail.com
> Generally okay but occasionally throws tantrums
>
> 6. Tad McClellan t...@augustmail.com
> Never learned how to get along with others
>
> 5. Purl Gurl purlg...@purlgurl.net
> Nuff said!
>
> 4. A. Sinan Unur a...@cornell.edu
> Luckily the a.sinine one has been absent for a while
>
> 3. Michele Dondi bla...@lcm.mi.infn.it
> Surely one of the rudest Italians ever!
>
> 2. Uri Guttman u...@stemsystems.com
> Start using the Shift key, dumb ass. Quit hyping your pathetic
> File::Slurp module so much. And cut out the whining!
>
> And the stinkiest turd of all...
>
> 1. Sherm Pendley s...@dot-app.org
> This arrogant asshole seems to think he has all the answers and is
> consistently condescending and bullying. Undoubtedly one of the most
> obnoxious posters in the history of the group.
In my youth I often found myself working menial computer jobs, being a
data janitor essentially. In order to preserve my sanity and alleviate
the mind numbing tedium of such rock-breaking endeavours I would often
smoke pipes of cannabis in the toilets of these establishments. One
day I was preparing a sacrement from my last tiny blim and such was
the paltry amount of my stash that I fumbled it and dropped it down
the toilet into which I had just relieved myself (number ones only
fortunately). Well, you can imagine the agony of that moment. I
considered for several seconds before the overwhelming truth burst
into my mind: You know you're going to fish it out, and the process,
not to mention your blow, will become exponentially worse the longer
you wait. So it came to be that 5 seconds after the fumble my stash
was once again held in my hand, albeit a pissier hand than the one
with which I had entered the gents.
I suspect this experience precisely mirrors the sequence of emotions
felt by many people who endeavour to find help in this newsgroup.
Yours faithfully
Richard Gration
Yes, that's my real name. Even now I am joyfully warming my hands on
the blazing bridge fire behind me ...
------------------------------
Date: Thu, 12 Apr 2007 14:47:57 GMT
From: "A. Sinan Unur" <1usa@llenroc.ude.invalid>
Subject: Re: Top Turds of comp.lang.perl.misc (2007)
Message-Id: <Xns99106DEEABBBEasu1cornelledu@127.0.0.1>
usenet@DavidFilmer.com wrote in news:1176368866.355320.76120
@o5g2000hsb.googlegroups.com:
> On Apr 11, 6:49 pm, "A. Sinan Unur" <1...@llenroc.ude.invalid> wrote:
>> Actually, no. I am still around
>
> That's good to know! I was a neophyte when you were more active here,
> and you taught me a lot. If you visit OSCON here in Portland, I owe
> you a coffee/beer.
Thank you David, that is very nice of you. It would be my pleasure to join
you for either but I am not going to be there. Have fun.
Sinan
--
A. Sinan Unur <1usa@llenroc.ude.invalid>
(remove .invalid and reverse each component for email address)
comp.lang.perl.misc guidelines on the WWW:
http://augustmail.com/~tadmc/clpmisc/clpmisc_guidelines.html
------------------------------
Date: 12 Apr 2007 08:08:33 -0700
From: "Robert Hicks" <sigzero@gmail.com>
Subject: Re: Top Turds of comp.lang.perl.misc (2007)
Message-Id: <1176390513.125770.164250@d57g2000hsg.googlegroups.com>
Sorry, I have been corrected by Tad. I have to say:
"Thank you sir, may I have another"
because I take it as a LEARNING experience.
Robert
------------------------------
Date: Thu, 12 Apr 2007 19:40:35 +0200
From: Michele Dondi <bik.mido@tiscalinet.it>
Subject: Re: Top Turds of comp.lang.perl.misc (2007)
Message-Id: <qlrs139ejgiesa3e4ebuo9b3qasinqpgkg@4ax.com>
On 12 Apr 2007 08:08:33 -0700, "Robert Hicks" <sigzero@gmail.com>
wrote:
>Sorry, I have been corrected by Tad. I have to say:
>
>"Thank you sir, may I have another"
>
>because I take it as a LEARNING experience.
Noooo, and didn't you start an endless flame about how the core of
clpmisc is composed of elitist dumbasses who take a particular
pleasure at rudely bashing newbies? I find that hard to believe...
:-)
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: Thu, 12 Apr 2007 10:57:04 -0700
From: Purl Gurl <purlgurl@purlgurl.net>
Subject: Re: Top Turds of comp.lang.perl.misc (2007)
Message-Id: <TPydnb4GH7xs74PbnZ2dnUVZ_t-mnZ2d@giganews.com>
Michele Dondi wrote:
> Robert Hicks wrote:
>> Sorry, I have been corrected by Tad. I have to say:
>> "Thank you sir, may I have another"
>> because I take it as a LEARNING experience.
> Noooo, and didn't you start an endless flame about how the core of
> clpmisc is composed of elitist dumbasses who take a particular
> pleasure at rudely bashing newbies? I find that hard to believe...
My presumption is you insulting meatheads have not noticed this
discussion group is dying because of you childish troll boys.
http://groups.google.com/group/comp.lang.perl.misc/about?hl=en
Purl Gurl
------------------------------
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 V11 Issue 328
**************************************
