Help for this page

Select Code to Download


  1. or download this
    sub getPlatformFiles {
    my $plat_in = shift;
    my $nic = shift;
    my @list;
  2. or download this
    sub getPlatformFiles {
    my ($plat_in, $nic) = @_;
    my @list;
  3. or download this
    #!/usr/bin/perl
use strict;
use warnings;
...
sub outputter {
    print $variable;
}
  4. or download this
    #!/usr/bin/perl
use strict;
use warnings;
...

my $variable = "Hello\n";
outputter();