Re: Another 'ode to backslash' ;-)

[EvanK]

That's really pretty cool...but a suggestion to make it a little less annoying and a LOT shorter:

@a=('\' x 74,'\' x 117,'\' x 115,'\' x 116,'\' x 32,'\' x 65,'\' x 110
+,'\' x 111,'\' x 116,'\' x 104,'\' x 101,'\' x 114,'\' x 32,'\' x 80,
+'\' x 101,'\' x 114,'\' x 108,'\' x 32,'\' x 72,'\' x 97,'\' x 99,'\'
+ x 107,'\' x 101,'\' x 114);foreach $a(@a) {print length $a, ",";}

______________________________________________
RIP
Douglas Noel Adams
1952 - 2001

[Asmo]

yes, of course it's shorter, but it's not the same result on the screen whenn you look at the code ;-) anyway, thx for your reply

[hopes]

There is an error in your code. See perldoc perlop
or see perlop

q/STRING/
'STRING'
A single-quoted, literal string. A backslash represents a
backslash unless followed by the delimiter or another backslash,
in which case the delimiter or backslash is interpolated.


So '\' don't is what you expect. You have to write '\\' instead.
Yeah, it's tricky. Note that


print '\\\machine';

is the same as

print '\\\\machine';

but not

print '\\machine';

You can use q;\\; if you want to obfuscate more.

Regards

Hopes