Проверка баланса в bash (modem)

Конвертируем в PDU формат

perl -e '@a=split(//,unpack("b*","*100#")); for ($i=7; $i < $#a; $i+=8) {$a[$i]="" } print uc(unpack("H*", pack("b*", join("", @a))))."\n"'

Полученное значение отправляем в терминале

AT+CUSD=1,AA180C3602,15

Результат конвертируем в понятный вид.

perl -e 'print pack("H*", "Значение вставляем тут");'