Help for this page

Select Code to Download


  1. or download this
    while(my $row=$sth->fetchrow_hashref()){
  push @domains, $row;
}
  2. or download this
    print "$domains[0]->{subdomain}\n";
my $d;
foreach $d(@domains){
  print "$d->{subdomain}\n";
}
  3. or download this
    my $template=HTML::Template->new(filename=>'test.tmpl');
$template->param(DOMAINS => \@domains);
print $template->output();
  4. or download this
              <TMPL_LOOP NAME=DOMAINS>
                Subdomain: <TMPL_VAR NAME=SUBDOMAIN>
          </TMPL_LOOP>