Help for this page

Select Code to Download

Select or download this

my @essids;
for (qx| sudo iw dev wlan0 scan |) {
   /^\s*SSID:\s*(.*)/ and push @essids, $1;
}

Select or download this

my @records;
for (qx| sudo iw dev wlan0 scan |) {
  if (/^BSS\s*(.*)/) { push @records, { BSS=>$1 } }
...
foreach my $record (@records) {
  print "$record->{SSID}\n";
}