location.pl

来自「source of perl for linux application,」· PL 代码 · 共 9 行

use Moped::Msg;
my ($MCC, $MNC, $LAC, $Cell) =
  Moped::Msg::get_gsm_network_info();
print "MCC  = $MCC\n";
print "MNC  = $MNC\n";
print "LAC  = $LAC\n";
print "Cell = $Cell\n";