Help for this page

Select Code to Download


  1. or download this
    for (@Subscription) {
    Display_Subs(\%$_);
}
  2. or download this
    for (@Subscription) {
    Display_Subs($_);
}
  3. or download this
    sub List_Subscriptions {
    my (@Sub_ARRAY) = @{$_[0]};
...
    for (@Sub_ARRAY) { print " \t$_ \n"; }
    print "\n\n";
}
  4. or download this
    sub List_Subscriptions {
    my ($Sub_ARRAY) = @_;
...
    for (@$Sub_ARRAY) { print " \t$_ \n"; }
    print "\n\n";
}