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();