Re: Backreference assignment clears array

Nope, doesn't make sense. You should at least receive a warning about assigning to a read-only variable. Can you provide more code? (Ten lines that demonstrate the problem on their own should suffice.)

Do you possibly have a carriage return (\r) or a backspace (\b) banging about somewhere in your printable line?

Comment on Re: Backreference assignment clears array Select or Download Code

Replies are listed 'Best First'.
Re: Re: Backreference assignment clears array by Wassercrats (Initiate) on Jan 24, 2003 at 07:21 UTC
I checked every character of the printable line last night. The only hidden thing is that it ends with a chr(10), but I just ran it without the chr(10), and the same thing happened! Does it happen to anyone else? Here is the complete code that I just tried: `#!/usr/bin/perl ###################################################################### +######## print "Cache-Control: no-cache, must-revalidate\n"; print "Pragma: no-cache\n"; print "Content-type: text/html\n\n"; @line = '<a href = "http://polisource.com">12345(2345678901234)nopqrst +</a>'; ### test print "1 @line"; $1=""; print "2 @line"; exit; ### end test` [download]	[reply] [d/l]

Replies are listed 'Best First'.

Re: Re: Backreference assignment clears array
by Wassercrats (Initiate) on Jan 24, 2003 at 07:21 UTC

#!/usr/bin/perl
######################################################################
+########
print "Cache-Control: no-cache, must-revalidate\n";
print "Pragma: no-cache\n";

print "Content-type: text/html\n\n";

@line = '<a href = "http://polisource.com">12345(2345678901234)nopqrst
+</a>';

### test
print "1 @line";
$1="";
print "2 @line";
exit;
### end test
[download]

[reply]
[d/l]