RE: @$

[John Edwards]

It means treat the value in $row as a reference to an array. If you print
out $row you will get something that looks like this.

ARRAY(0x369ab0)

Try altering your code to this

foreach $ts ($te->table_states) {
   print "Table (", join(',', $ts->coords), "):\n";
   foreach $row ($ts->rows) {
        my @row = @$row;

        print @row;
        
      print join(',', @row), "\n";
   }
 }

You can now work on @row within the foreach instead of the dereferenced
@$row.

-----Original Message-----
From: McCollum, Frank [mailto:[EMAIL PROTECTED]]
Sent: 07 January 2002 15:08
To: [EMAIL PROTECTED]
Subject: @$


What does the "@$" sign indicate?  I have a value in @$row in the code below
that I want to strip out any html tags.  I tried to use "s/\<*\>//g;" but it
gives me an error ("Can't modify array deref in substitution").


 foreach $ts ($te->table_states) {
   print "Table (", join(',', $ts->coords), "):\n";
   foreach $row ($ts->rows) {
        print @$row;
        
      print join(',', @$row), "\n";
   }
 }


Thanks,
Frank McCollum
Bank Of America Securities, LLC
[EMAIL PROTECTED]
(704) 388-8894

-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]


--------------------------Confidentiality--------------------------.
This E-mail is confidential.  It should not be read, copied, disclosed or
used by any person other than the intended recipient.  Unauthorised use,
disclosure or copying by whatever medium is strictly prohibited and may be
unlawful.  If you have received this E-mail in error please contact the
sender immediately and delete the E-mail from your system.



-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]