Help for this page

Select Code to Download


  1. or download this
    
#!/usr/bin/perl -w
...
my $now; tie ($now, "TieTimeScalar");
while (1) { print "$now\n"; sleep 1 }
  2. or download this
    
#!/usr/bin/perl -w
...
my @now; tie (@now, "TieTimeArray");
while (1) { print "@now\n"; sleep 1 }
  3. or download this
    Can't use an undefined value as an ARRAY reference at ./TieTimeArray l
+ine 8.