Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl-Sensitive Sunglasses

theonetwo's scratchpad

by theonetwo (Beadle)
on Jun 01, 2004 at 14:34 UTC ( #358096=scratchpad: print w/replies, xml ) Need Help??

my $vars = $node->{vars}; my $decoded = $node->{vars}; $decoded =~ tr/;=//d; $decoded =~ s/%(..)/chr hex $1/ge; #length($decoded)/length($vars); #$node [length $decoded, length $vars, length($vars)/length($decoded), length +($decoded)/length($vars)]
Log In?

What's my password?
Create A New User
belg4mit kicks Perl in the shins, "Unmatched ) in regex; marked by" my ass
[belg4mit]: Nothing wrong with perl -le 'print ":)" =~ /(?^u:^(\:|\:\))$) /'
[Lotus1]: belg4mit are you on a Linix server?
[belg4mit]: yes. the regular expression is generated in code from a text file. that s the regular expression that Perl blows up when it reaches it, but if I use it from the comman line it's fine

How do I use this? | Other CB clients
Other Users?
Others rifling through the Monastery: (8)
As of 2017-04-25 16:40 GMT
Find Nodes?
    Voting Booth?
    I'm a fool:

    Results (459 votes). Check out past polls.