[comp.lang.perl] // operator in an array context.

marc@athena.mit.edu (07/28/90)

For the following, assume $_ = "foo bar";

If I do:

/(\S*)\s*/;

then $1 will be "foo" and $' will be "bar".  If I do

($a) = /(\S*)\s*/;

then $a will be "foo", but $1 and $' will be unset.  I guess $1 being
unset makes a little sense (although I can't see why it shouldn't be),
but I still want $'.  I couldn't find anything in the man page (I
couldn't decide what to search for :-) which indicated that assignment
to $' (and $` and $&, I imaging) did not work when the // expression
was evaluated in an array context like this.

Is it a perl bug, a doc bug, or did I miss something?

		Marc

P.S.  I think this is the slowest way to do japh I've seen yet.
Something my twisted mind thought up really early in the morning.

perl -e '@_=(172191,161194349,266797,83211665);foreach(@_){$w="A".("a"x(log($_)/log(26)));for($i=0;$i<$_;$i++){$w++;}print$w," ";}print"\n";'