Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl -w

...
     print tied($o->{'tiedScalar'})?"tiedScalar is still tied\n":"tied
+Scalar is now untied\n";
}
0;
  2. or download this
    C:\Documents and Settings\Owner\Desktop>perl n8.pl
TIESCALAR
...
myObj destroyed

C:\Documents and Settings\Owner\Desktop>
  3. or download this
    C:\Documents and Settings\Owner\Desktop>perl n8.pl
TIESCALAR
...
myObj destroyed

C:\Documents and Settings\Owner\Desktop>