mirror
/
Hamlib
kopia lustrzana https://github.com/Hamlib/Hamlib
1
0
Forkuj 0
Kod Zgłoszenia Projekty Wydania Wiki Aktywność

identify perl test 

git-svn-id: https://hamlib.svn.sourceforge.net/svnroot/hamlib/trunk@1870 7ae35d74-ebe9-4afe-98af-79ac388436b8
Hamlib-1.2.3
Stéphane Fillod, F8CFE 2004-11-15 14:49:51 +00:00
rodzic 8bc54d76de
commit 07bbfd8611
1 zmienionych plików z 9 dodań i 2 usunięć
Pokaż statystyki Ściągnij plik aktualizacji Ściągnij plik porównania Expand all files Collapse all files

11
bindings/perltest.pl
Wyświetl plik

@ -2,7 +2,7 @@
use Hamlib;
print "Version: $Hamlib::hamlib_version\n";
print "Perl test, version: $Hamlib::hamlib_version\n";
print "FM: $Hamlib::RIG_MODE_FM\n";
Hamlib::rig_set_debug($Hamlib::RIG_DEBUG_TRACE);
@ -26,7 +26,14 @@ $f = $rig->get_freq();
print "freq: $f\n";
($mode, $width) = $rig->get_mode();
print "mode: $mode, width: $width\n";
print "get_mode: $mode, width: $width\n";
$vfo = $rig->get_vfo();
print "get_vfo: $vfo\n";
#$rig->set_vfo($Hamlib::RIG_VFO_A);
$rig->set_vfo("VFOA");
$rig->set_mode($Hamlib::RIG_MODE_CW, $Hamlib::RIG_PASSBAND_NORMAL);
print "ITU region: $rig->{state}->{itu_region}\n";
print "Copyright: $rig->{caps}->{copyright}\n";