Help for this page

Select Code to Download


  1. or download this
    for ($k=0; $k<=$#Mdevices; $k++)
  {
...
for my $device (@Mdevices) {
    print $device->[0], "\n";
}
  2. or download this
    print $_->[0], "\n" for @Mdevices;
  3. or download this
    for (1 ..5) {
    push (@Cdevices, "UnitId$_", $_);
...
}

print $_->[0], "\n" for @Mdevices;
  4. or download this
    UnitId1
UnitId1
UnitId1
UnitId1
UnitId1